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/f33-build-side-33909-23991474-2409661/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=1604880000 Wrote: /builddir/build/SRPMS/clisp-2.49.93-15.a9aeb80git.fc33.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/f33-build-side-33909-23991474-2409661/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=1604880000 Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.VurGhz + umask 022 + cd /builddir/build/BUILD + cd /builddir/build/BUILD + rm -rf clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + /usr/bin/gzip -dc /builddir/build/SOURCES/clisp-a9aeb80.tar.gz + /usr/bin/tar -xof - + STATUS=0 + '[' 0 -ne 0 ']' + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + /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.UPloGB + umask 022 + cd /builddir/build/BUILD + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline --with-ffcall --cbcx build CPPFLAGS=-I/usr/include/libsvm 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline --with-ffcall --cbcx build CPPFLAGS=-I/usr/include/libsvm CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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... 0x0000000000000000 checking for the shared library address range... 0x0000153CD4000000 checking for the stack address range... 0x00007FFED1000000 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline > Makefile cp -p ../src/cfgunix.lisp config.lisp chmod +w config.lisp echo '(setq *clhs-root-default* "http://www.lispworks.com/documentation/HyperSpec/")' >> config.lisp ln -s ../src/.gdbinit .gdbinit rm -f build-aux ln -s ../src/build-aux build-aux mkdir -p gllib test -f gllib/Makefile || sh config.status gllib/Makefile depfiles cd gllib && make CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src" make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib' make[3]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib' depbase=`echo c-ctype.o | sed 's|[^/]*$|.deps/&|;s|\.o$||'`;\ gcc -DHAVE_CONFIG_H -I. -I../../src/gllib -I.. -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib' make[2]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib' make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 | LISPFUNN(operating_system_type,0) | ^ ../src/subr.d:718:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 718 | LISPFUNN(operating_system_version,0) | ^ ../src/subr.d:719:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 719 | LISPFUN(get_env,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:720:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 720 | LISPFUNN(set_env,2) | ^ ../src/subr.d:724:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 724 | LISPFUN(software_type,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:725:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 725 | LISPFUN(software_version,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:726:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 726 | LISPFUNNF(identity,1) | ^ ../src/subr.d:727:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 727 | LISPFUNN(address_of,1) | ^ ../src/subr.d:728:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 728 | LISPFUNN(code_address_of,1) | ^ ../src/subr.d:729:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 729 | LISPFUNN(process_id,0) | ^ ../src/subr.d:730:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 730 | LISPFUNNF(ansi,0) | ^ ../src/subr.d:731:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 731 | LISPFUNN(set_ansi,1) | ^ ../src/subr.d:732:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 732 | LISPFUN(module_info,seclass_no_se,0,2,norest,nokey,0,NIL) | ^ ../src/subr.d:733:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 733 | LISPFUN(argv,seclass_no_se,0,0,norest,nokey,0,NIL) | ^ ../src/subr.d:735:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 735 | LISPFUNNR(current_language,0) | ^ ../src/subr.d:736:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 736 | LISPFUNN(set_current_language,1) | ^ ../src/subr.d:737:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 737 | LISPFUNNR(text,1) | ^ ../src/subr.d:739:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 739 | LISPFUNN(machine_instance,0) | ^ ../src/subr.d:741:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 741 | LISPFUNNR(get_internal_real_time,0) | ^ ../src/subr.d:742:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 742 | LISPFUN(get_internal_run_time,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:743:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 743 | LISPFUNNR(get_universal_time,0) | ^ ../src/subr.d:745:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 745 | LISPFUNNR(default_time_zone,2) | ^ ../src/subr.d:747:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 747 | LISPFUNN(psleep,2) | ^ ../src/subr.d:748:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 748 | LISPFUN(pptime,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:749:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 749 | LISPFUNNF(delta4,5) | ^ ../src/subr.d:751:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 751 | LISPFUNNR(make_symbol,1) | ^ ../src/subr.d:752:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 752 | LISPFUNNR(find_package,1) | ^ ../src/subr.d:753:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 753 | LISPFUNN(pfind_package,1) | ^ ../src/subr.d:754:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 754 | LISPFUNNR(package_name,1) | ^ ../src/subr.d:755:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 755 | LISPFUNNR(package_nicknames,1) | ^ ../src/subr.d:756:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 756 | LISPFUN(rename_package,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:757:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 757 | LISPFUNNR(package_use_list,1) | ^ ../src/subr.d:758:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 758 | LISPFUNNR(package_used_by_list,1) | ^ ../src/subr.d:759:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 759 | LISPFUNNR(package_shadowing_symbols,1) | ^ ../src/subr.d:760:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 760 | LISPFUNNR(package_lock,1) | ^ ../src/subr.d:761:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 761 | LISPFUNNR(package_shortest_name,1) | ^ ../src/subr.d:762:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 762 | LISPFUNNR(package_case_sensitive_p,1) | ^ ../src/subr.d:763:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 763 | LISPFUNNR(package_case_inverted_p,1) | ^ ../src/subr.d:764:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 764 | LISPFUNNR(package_documentation,1) | ^ ../src/subr.d:765:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 765 | LISPFUNN(set_package_documentation,2) | ^ ../src/subr.d:766:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 766 | LISPFUNN(set_package_case_inverted_p,2) | ^ ../src/subr.d:767:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 767 | LISPFUNN(set_package_case_sensitive_p,2) | ^ ../src/subr.d:768:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 768 | LISPFUNN(set_package_lock,2) | ^ ../src/subr.d:769:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 769 | LISPFUNN(symbol_value_lock,1) | ^ ../src/subr.d:770:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 770 | LISPFUNN(check_package_lock,3) | ^ ../src/subr.d:771:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 771 | LISPFUNNR(list_all_packages,0) | ^ ../src/subr.d:772:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 772 | LISPFUN(intern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:773:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 773 | LISPFUN(cs_intern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:774:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 774 | LISPFUN(find_symbol,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:775:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 775 | LISPFUN(cs_find_symbol,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:776:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 776 | LISPFUN(unintern,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:777:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 777 | LISPFUN(export,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:778:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 778 | LISPFUN(unexport,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:779:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 779 | LISPFUNN(re_export,2) | ^ ../src/subr.d:780:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 780 | LISPFUN(import,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:781:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 781 | LISPFUN(shadowing_import,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:782:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 782 | LISPFUN(shadow,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:783:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 783 | LISPFUN(cs_shadow,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:784:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 784 | LISPFUN(use_package,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:785:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 785 | LISPFUN(unuse_package,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:792:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 792 | LISPFUNN(delete_package,1) | ^ ../src/subr.d:793:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 793 | LISPFUNNR(find_all_symbols,1) | ^ ../src/subr.d:794:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 794 | LISPFUNNR(cs_find_all_symbols,1) | ^ ../src/subr.d:795:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 795 | LISPFUNN(map_symbols,2) | ^ ../src/subr.d:796:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 796 | LISPFUNN(map_external_symbols,2) | ^ ../src/subr.d:797:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 797 | LISPFUNN(map_all_symbols,1) | ^ ../src/subr.d:798:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 798 | LISPFUNN(package_iterator,2) | ^ ../src/subr.d:799:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 799 | LISPFUNN(package_iterate,1) | ^ ../src/subr.d:803:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 803 | LISPFUNNR(pathname,1) | ^ ../src/subr.d:809:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 809 | LISPFUNNR(pathnameversion,1) | ^ ../src/subr.d:810:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 810 | LISPFUNNS(logical_pathname,1) | ^ ../src/subr.d:813:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 813 | LISPFUNNR(file_namestring,1) | ^ ../src/subr.d:814:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 814 | LISPFUNNR(directory_namestring,1) | ^ ../src/subr.d:815:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 815 | LISPFUNNR(host_namestring,1) | ^ ../src/subr.d:817:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 817 | LISPFUN(enough_namestring,seclass_read,1,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:824:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 824 | LISPFUN(user_homedir_pathname,seclass_default,0,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:825:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 825 | LISPFUN(wild_pathname_p,seclass_rd_sig,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:826:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 826 | LISPFUNNS(pathname_match_p,2) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:829:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 829 | LISPFUNN(absolute_pathname,1) | ^ ../src/subr.d:830:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 830 | LISPFUNNR(namestring,1) | ^ ../src/subr.d:831:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 831 | LISPFUNNS(truename,1) | ^ ../src/subr.d:832:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 832 | LISPFUNNS(probe_file,1) | ^ ../src/subr.d:834:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 834 | LISPFUNNS(probe_directory,1) | ^ ../src/subr.d:835:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 835 | LISPFUNN(delete_file,1) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:842:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 842 | LISPFUN(cd,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:843:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 843 | LISPFUNN(make_directory,1) | ^ ../src/subr.d:844:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 844 | LISPFUNN(delete_directory,1) | ^ ../src/subr.d:845:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 845 | LISPFUNN(rename_directory,2) | ^ ../src/subr.d:848:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 848 | LISPFUNNS(file_write_date,1) | ^ ../src/subr.d:849:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 849 | LISPFUNNS(file_author,1) | ^ ../src/subr.d:851:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 851 | LISPFUN(execute,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:856:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 856 | LISPFUN(shell,seclass_default,0,1,norest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:863:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 863 | LISPFUNN(savemem,2) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:865:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 865 | LISPFUNN(dynload_modules,2) | ^ ../src/subr.d:867:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 867 | LISPFUNN(program_name,0) | ^ ../src/subr.d:868:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 868 | LISPFUNN(lib_directory,0) | ^ ../src/subr.d:869:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 869 | LISPFUNN(set_lib_directory,1) | ^ ../src/subr.d:871:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 871 | LISPFUN(eq,SECFC(seclass_foldable,fastcmp_eq),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:872:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 872 | LISPFUN(eql,SECFC(seclass_foldable,fastcmp_eql),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:873:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 873 | LISPFUN(equal,SECFC(seclass_read,fastcmp_equal),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:874:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 874 | LISPFUN(equalp,SECFC(seclass_read,fastcmp_equalp),2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:875:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 875 | LISPFUNNF(consp,1) | ^ ../src/subr.d:876:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 876 | LISPFUNNF(atom,1) | ^ ../src/subr.d:877:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 877 | LISPFUNNF(symbolp,1) | ^ ../src/subr.d:878:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 878 | LISPFUNNF(stringp,1) | ^ ../src/subr.d:879:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 879 | LISPFUNNF(numberp,1) | ^ ../src/subr.d:880:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 880 | LISPFUNNR(compiled_function_p,1) | ^ ../src/subr.d:881:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 881 | LISPFUNNR(pcompiled_function_p,1) | ^ ../src/subr.d:882:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 882 | LISPFUNNF(null,1) | ^ ../src/subr.d:883:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 883 | LISPFUNNF(not,1) | ^ ../src/subr.d:884:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 884 | LISPFUNNF(closurep,1) | ^ ../src/subr.d:885:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 885 | LISPFUNNF(listp,1) | ^ ../src/subr.d:886:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 886 | LISPFUNNR(proper_list_p,1) | ^ ../src/subr.d:887:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 887 | LISPFUNNF(bytep,1) | ^ ../src/subr.d:888:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 888 | LISPFUNNF(integerp,1) | ^ ../src/subr.d:889:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 889 | LISPFUNNF(fixnump,1) | ^ ../src/subr.d:890:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 890 | LISPFUNNF(rationalp,1) | ^ ../src/subr.d:891:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 891 | LISPFUNNF(floatp,1) | ^ ../src/subr.d:892:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 892 | LISPFUNNF(short_float_p,1) | ^ ../src/subr.d:893:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 893 | LISPFUNNF(single_float_p,1) | ^ ../src/subr.d:894:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 894 | LISPFUNNF(double_float_p,1) | ^ ../src/subr.d:895:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 895 | LISPFUNNF(long_float_p,1) | ^ ../src/subr.d:896:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 896 | LISPFUNNF(realp,1) | ^ ../src/subr.d:897:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 897 | LISPFUNNF(complexp,1) | ^ ../src/subr.d:898:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 898 | LISPFUNNR(streamp,1) | ^ ../src/subr.d:899:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 899 | LISPFUNNF(built_in_stream_p,1) | ^ ../src/subr.d:900:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 900 | LISPFUNNF(random_state_p,1) | ^ ../src/subr.d:901:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 901 | LISPFUNNF(readtablep,1) | ^ ../src/subr.d:902:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 902 | LISPFUNNF(hash_table_p,1) | ^ ../src/subr.d:903:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 903 | LISPFUNNF(pathnamep,1) | ^ ../src/subr.d:904:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 904 | LISPFUNNF(logical_pathname_p,1) | ^ ../src/subr.d:905:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 905 | LISPFUNNF(characterp,1) | ^ ../src/subr.d:906:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 906 | LISPFUNNF(functionp,1) | ^ ../src/subr.d:907:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 907 | LISPFUNNF(packagep,1) | ^ ../src/subr.d:908:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 908 | LISPFUNNF(arrayp,1) | ^ ../src/subr.d:909:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 909 | LISPFUNNF(simple_array_p,1) | ^ ../src/subr.d:910:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 910 | LISPFUNNF(bit_vector_p,1) | ^ ../src/subr.d:911:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 911 | LISPFUNNF(vectorp,1) | ^ ../src/subr.d:912:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 912 | LISPFUNNF(simple_vector_p,1) | ^ ../src/subr.d:913:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 913 | LISPFUNNF(simple_string_p,1) | ^ ../src/subr.d:914:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 914 | LISPFUNNF(simple_bit_vector_p,1) | ^ ../src/subr.d:915:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 915 | LISPFUNNR(type_of,1) | ^ ../src/subr.d:916:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 916 | LISPFUNN(defclos,6) | ^ ../src/subr.d:917:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 917 | LISPFUNNR(potential_class_p,1) | ^ ../src/subr.d:918:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 918 | LISPFUNNR(defined_class_p,1) | ^ ../src/subr.d:919:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 919 | LISPFUNNR(class_of,1) | ^ ../src/subr.d:920:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 920 | LISPFUN(find_class,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:921:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 921 | LISPFUNN(typep_class,2) | ^ ../src/subr.d:922:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 922 | LISPFUN(expand_deftype,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:923:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 923 | LISPFUNNS(coerce,2) | ^ ../src/subr.d:924:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 924 | LISPFUNN(note_new_structure_class,0) | ^ ../src/subr.d:925:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 925 | LISPFUNN(note_new_standard_class,0) | ^ ../src/subr.d:926:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 926 | LISPFUNN(heap_statistics,0) | ^ ../src/subr.d:927:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 927 | LISPFUNN(gc_statistics,0) | ^ ../src/subr.d:928:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 928 | LISPFUNN(list_statistics,1) | ^ ../src/subr.d:929:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 929 | LISPFUNN(heap_statistics_statistics,1) | ^ ../src/subr.d:930:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 930 | LISPFUNN(gc_statistics_statistics,2) | ^ ../src/subr.d:932:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 932 | LISPFUNNR(record_ref,2) | ^ ../src/subr.d:933:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 933 | LISPFUNN(record_store,3) | ^ ../src/subr.d:934:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 934 | LISPFUNNR(record_length,1) | ^ ../src/subr.d:935:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 935 | LISPFUNNR(pstructure_ref,3) | ^ ../src/subr.d:936:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 936 | LISPFUNNR(structure_ref,3) | ^ ../src/subr.d:937:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 937 | LISPFUNN(structure_store,4) | ^ ../src/subr.d:938:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 938 | LISPFUNNR(make_structure,2) | ^ ../src/subr.d:939:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 939 | LISPFUNNR(copy_structure,1) | ^ ../src/subr.d:940:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 940 | LISPFUNNR(structure_type_p,2) | ^ ../src/subr.d:941:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 941 | LISPFUNNR(closure_name,1) | ^ ../src/subr.d:942:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 942 | LISPFUNN(set_closure_name,2) | ^ ../src/subr.d:943:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 943 | LISPFUNNR(closure_codevec,1) | ^ ../src/subr.d:944:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 944 | LISPFUNNR(closure_consts,1) | ^ ../src/subr.d:945:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 945 | LISPFUNNR(closure_const,2) | ^ ../src/subr.d:946:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 946 | LISPFUNN(set_closure_const,3) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:948:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 948 | LISPFUNN(make_constant_initfunction,1) | ^ ../src/subr.d:949:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 949 | LISPFUNN(constant_initfunction_p,1) | ^ ../src/subr.d:950:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 950 | LISPFUNN(closure_set_seclass,2) | ^ ../src/subr.d:951:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 951 | LISPFUNNR(closure_documentation,1) | ^ ../src/subr.d:952:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 952 | LISPFUNN(closure_set_documentation,2) | ^ ../src/subr.d:953:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 953 | LISPFUNNR(closure_lambda_list,1) | ^ ../src/subr.d:954:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 954 | LISPFUNN(set_funcallable_instance_function,2) | ^ ../src/subr.d:955:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 955 | LISPFUNN(copy_generic_function,2) | ^ ../src/subr.d:956:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 956 | LISPFUNN(generic_function_effective_method_function,1) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:957:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 957 | LISPFUN(make_load_time_eval,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:958:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 958 | LISPFUN(make_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:959:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 959 | LISPFUNNF(symbol_macro_p,1) | ^ ../src/subr.d:960:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 960 | LISPFUNN(symbol_macro_expand,1) | ^ ../src/subr.d:961:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 961 | LISPFUN(make_global_symbol_macro,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:962:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 962 | LISPFUNN(global_symbol_macro_definition,1) | ^ ../src/subr.d:963:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 963 | LISPFUN(make_macro,seclass_no_se,2,0,norest,nokey,0,NIL) | ^ ../src/subr.d:964:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 964 | LISPFUNN(macrop,1) | ^ ../src/subr.d:965:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 965 | LISPFUNN(macro_expander,1) | ^ ../src/subr.d:966:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 966 | LISPFUNN(macro_lambda_list,1) | ^ ../src/subr.d:967:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 967 | LISPFUNN(make_function_macro,2) | ^ ../src/subr.d:968:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 968 | LISPFUNN(function_macro_p,1) | ^ ../src/subr.d:969:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 969 | LISPFUNN(function_macro_function,1) | ^ ../src/subr.d:970:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 970 | LISPFUNN(function_macro_expander,1) | ^ ../src/subr.d:971:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 971 | LISPFUN(finalize,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:972:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 972 | LISPFUNNF(structure_object_p,1) | ^ ../src/subr.d:973:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 973 | LISPFUNNF(std_instance_p,1) | ^ ../src/subr.d:974:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 974 | LISPFUNNF(funcallable_instance_p,1) | ^ ../src/subr.d:975:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 975 | LISPFUNN(allocate_metaobject_instance,2) | ^ ../src/subr.d:976:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 976 | LISPFUNN(allocate_std_instance,2) | ^ ../src/subr.d:977:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 977 | LISPFUNN(allocate_funcallable_instance,2) | ^ ../src/subr.d:978:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 978 | LISPFUN(pallocate_instance,seclass_read,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:979:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 979 | LISPFUNN(pslot_value_using_class,3) | ^ ../src/subr.d:980:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 980 | LISPFUNN(pset_slot_value_using_class,4) | ^ ../src/subr.d:981:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 981 | LISPFUNN(pslot_boundp_using_class,3) | ^ ../src/subr.d:982:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 982 | LISPFUNN(pslot_makunbound_using_class,3) | ^ ../src/subr.d:983:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 983 | LISPFUNN(slot_value,2) | ^ ../src/subr.d:984:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 984 | LISPFUNN(set_slot_value,3) | ^ ../src/subr.d:985:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 985 | LISPFUNN(slot_boundp,2) | ^ ../src/subr.d:986:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 986 | LISPFUNN(slot_makunbound,2) | ^ ../src/subr.d:987:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 987 | LISPFUNNR(slot_exists_p,2) | ^ ../src/subr.d:988:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 988 | LISPFUNNR(standard_instance_access,2) | ^ ../src/subr.d:989:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 989 | LISPFUNN(set_standard_instance_access,3) | ^ ../src/subr.d:990:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 990 | LISPFUNNR(punbound,0) | ^ ../src/subr.d:991:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 991 | LISPFUN(pshared_initialize,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:992:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 992 | LISPFUN(preinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:993:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 993 | LISPFUN(pinitialize_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:994:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 994 | LISPFUN(pmake_instance,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:995:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 995 | LISPFUNN(pchange_class,2) | ^ ../src/subr.d:997:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 997 | LISPFUN(make_weak_pointer,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:998:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 998 | LISPFUNNF(weak_pointer_p,1) | ^ ../src/subr.d:999:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 999 | LISPFUNNR(weak_pointer_value,1) | ^ ../src/subr.d:1000:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1000 | LISPFUNN(set_weak_pointer_value,2) | ^ ../src/subr.d:1001:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1001 | LISPFUNN(make_weak_list,1) | ^ ../src/subr.d:1002:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1002 | LISPFUNNF(weak_list_p,1) | ^ ../src/subr.d:1003:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1003 | LISPFUNNR(weak_list_list,1) | ^ ../src/subr.d:1004:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1004 | LISPFUNN(set_weak_list_list,2) | ^ ../src/subr.d:1005:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1005 | LISPFUNN(make_weak_and_relation,1) | ^ ../src/subr.d:1006:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1006 | LISPFUNNF(weak_and_relation_p,1) | ^ ../src/subr.d:1007:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1007 | LISPFUNNR(weak_and_relation_list,1) | ^ ../src/subr.d:1008:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1008 | LISPFUNN(make_weak_or_relation,1) | ^ ../src/subr.d:1009:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1009 | LISPFUNNF(weak_or_relation_p,1) | ^ ../src/subr.d:1010:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1010 | LISPFUNNR(weak_or_relation_list,1) | ^ ../src/subr.d:1011:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1011 | LISPFUNN(make_weak_mapping,2) | ^ ../src/subr.d:1012:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1012 | LISPFUNNF(weak_mapping_p,1) | ^ ../src/subr.d:1013:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1013 | LISPFUNNR(weak_mapping_pair,1) | ^ ../src/subr.d:1014:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1014 | LISPFUNNR(weak_mapping_value,1) | ^ ../src/subr.d:1015:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1015 | LISPFUNN(set_weak_mapping_value,2) | ^ ../src/subr.d:1016:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1016 | LISPFUNN(make_weak_and_mapping,2) | ^ ../src/subr.d:1017:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1017 | LISPFUNNF(weak_and_mapping_p,1) | ^ ../src/subr.d:1018:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1018 | LISPFUNNR(weak_and_mapping_pair,1) | ^ ../src/subr.d:1019:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1019 | LISPFUNNR(weak_and_mapping_value,1) | ^ ../src/subr.d:1020:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1020 | LISPFUNN(set_weak_and_mapping_value,2) | ^ ../src/subr.d:1021:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1021 | LISPFUNN(make_weak_or_mapping,2) | ^ ../src/subr.d:1022:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1022 | LISPFUNNF(weak_or_mapping_p,1) | ^ ../src/subr.d:1023:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1023 | LISPFUNNR(weak_or_mapping_pair,1) | ^ ../src/subr.d:1024:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1024 | LISPFUNNR(weak_or_mapping_value,1) | ^ ../src/subr.d:1025:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1025 | LISPFUNN(set_weak_or_mapping_value,2) | ^ ../src/subr.d:1028:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1028 | LISPFUNNF(weak_alist_p,1) | ^ ../src/subr.d:1029:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1029 | LISPFUNNR(weak_alist_type,1) | ^ ../src/subr.d:1030:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1030 | LISPFUNNR(weak_alist_contents,1) | ^ ../src/subr.d:1031:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1031 | LISPFUNN(set_weak_alist_contents,2) | ^ ../src/subr.d:1041:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1041 | LISPFUNNR(sequencep,1) | ^ ../src/subr.d:1042:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1042 | LISPFUNN(defseq,1) | ^ ../src/subr.d:1043:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1043 | LISPFUNNR(elt,2) | ^ ../src/subr.d:1044:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1044 | LISPFUNN(setelt,3) | ^ ../src/subr.d:1045:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1045 | LISPFUN(subseq,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1046:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1046 | LISPFUNNR(copy_seq,1) | ^ ../src/subr.d:1047:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1047 | LISPFUNNR(length,1) | ^ ../src/subr.d:1048:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1048 | LISPFUNNR(reverse,1) | ^ ../src/subr.d:1049:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1049 | LISPFUNN(nreverse,1) | ^ ../src/subr.d:1053:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1053 | LISPFUN(concatenate,seclass_rd_sig,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1054:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1054 | LISPFUN(map,seclass_default,3,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1055:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1055 | LISPFUN(map_into,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1056:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1056 | LISPFUN(some,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1057:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1057 | LISPFUN(every,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1058:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1058 | LISPFUN(notany,seclass_default,2,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1059:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1059 | LISPFUN(notevery,seclass_default,2,0,rest,nokey,0,NIL) | ^ In file included from ../src/spvw.d:1578: ../src/subr.d:1134:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1134 | LISPFUN(symbol_stream,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1135:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1135 | LISPFUNNR(make_synonym_stream,1) | ^ ../src/subr.d:1136:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1136 | LISPFUNNF(synonym_stream_p,1) | ^ ../src/subr.d:1137:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1137 | LISPFUNNR(synonym_stream_symbol,1) | ^ ../src/subr.d:1138:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1138 | LISPFUN(make_broadcast_stream,seclass_read,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1139:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1139 | LISPFUNNF(broadcast_stream_p,1) | ^ ../src/subr.d:1140:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1140 | LISPFUNNR(broadcast_stream_streams,1) | ^ ../src/subr.d:1141:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1141 | LISPFUN(make_concatenated_stream,seclass_read,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1142:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1142 | LISPFUNNF(concatenated_stream_p,1) | ^ ../src/subr.d:1143:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1143 | LISPFUNNR(concatenated_stream_streams,1) | ^ ../src/subr.d:1144:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1144 | LISPFUNNR(make_two_way_stream,2) | ^ ../src/subr.d:1145:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1145 | LISPFUNNF(two_way_stream_p,1) | ^ ../src/subr.d:1146:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1146 | LISPFUNNR(two_way_stream_input_stream,1) | ^ ../src/subr.d:1147:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1147 | LISPFUNNR(two_way_stream_output_stream,1) | ^ ../src/subr.d:1148:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1148 | LISPFUNNR(make_echo_stream,2) | ^ ../src/subr.d:1149:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1149 | LISPFUNNF(echo_stream_p,1) | ^ ../src/subr.d:1150:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1150 | LISPFUNNR(echo_stream_input_stream,1) | ^ ../src/subr.d:1151:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1151 | LISPFUNNR(echo_stream_output_stream,1) | ^ ../src/subr.d:1152:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1152 | LISPFUN(make_string_input_stream,seclass_read,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1153:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1153 | LISPFUNNR(string_input_stream_index,1) | ^ ../src/subr.d:1156:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1156 | LISPFUNN(get_output_stream_string,1) | ^ ../src/subr.d:1157:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1157 | LISPFUNNR(make_string_push_stream,1) | ^ ../src/subr.d:1158:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1158 | LISPFUNNF(string_stream_p,1) | ^ ../src/subr.d:1159:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1159 | LISPFUNNR(string_stream_string,1) | ^ ../src/subr.d:1160:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1160 | LISPFUNNR(make_buffered_input_stream,2) | ^ ../src/subr.d:1161:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1161 | LISPFUNNR(buffered_input_stream_index,1) | ^ ../src/subr.d:1162:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1162 | LISPFUN(make_buffered_output_stream,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1164:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1164 | LISPFUNN(generic_stream_controller,1) | ^ ../src/subr.d:1165:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1165 | LISPFUNN(make_generic_stream,1) | ^ ../src/subr.d:1166:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1166 | LISPFUNN(generic_stream_p,1) | ^ ../src/subr.d:1169:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1169 | LISPFUNN(make_keyboard_stream,0) | ^ ../src/subr.d:1171:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1171 | LISPFUN(terminal_raw,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1173:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1173 | LISPFUNN(make_window,0) | ^ ../src/subr.d:1174:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1174 | LISPFUNN(window_size,1) | ^ ../src/subr.d:1175:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1175 | LISPFUNN(window_cursor_position,1) | ^ ../src/subr.d:1176:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1176 | LISPFUNN(set_window_cursor_position,3) | ^ ../src/subr.d:1177:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1177 | LISPFUNN(clear_window,1) | ^ ../src/subr.d:1178:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1178 | LISPFUNN(clear_window_to_eot,1) | ^ ../src/subr.d:1179:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1179 | LISPFUNN(clear_window_to_eol,1) | ^ ../src/subr.d:1180:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1180 | LISPFUNN(delete_window_line,1) | ^ ../src/subr.d:1181:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1181 | LISPFUNN(insert_window_line,1) | ^ ../src/subr.d:1182:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1182 | LISPFUNN(highlight_on,1) | ^ ../src/subr.d:1183:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1183 | LISPFUNN(highlight_off,1) | ^ ../src/subr.d:1184:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1184 | LISPFUNN(window_cursor_on,1) | ^ ../src/subr.d:1185:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1185 | LISPFUNN(window_cursor_off,1) | ^ ../src/subr.d:1187:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1187 | LISPFUNNF(file_stream_p,1) | ^ ../src/subr.d:1199:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1199 | LISPFUNN(make_x11socket_stream,2) | ^ ../src/subr.d:1200:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1200 | LISPFUNN(read_n_bytes,4) | ^ ../src/subr.d:1201:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1201 | LISPFUNN(write_n_bytes,4) | ^ ../src/subr.d:1204:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1204 | LISPFUNN(socket_server_close,1) | ^ ../src/subr.d:1207:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1207 | LISPFUNN(socket_server_port,1) | ^ ../src/subr.d:1208:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1208 | LISPFUNN(socket_server_host,1) | ^ ../src/subr.d:1211:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1211 | LISPFUN(socket_wait,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1212:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1212 | LISPFUN(socket_status,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1215:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1215 | LISPFUNN(socket_stream_port,1) | ^ ../src/subr.d:1216:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1216 | LISPFUNN(socket_stream_host,1) | ^ ../src/subr.d:1217:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1217 | LISPFUN(socket_stream_peer,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1218:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1218 | LISPFUN(socket_stream_local,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1219:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1219 | LISPFUN(socket_options,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1221:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1221 | LISPFUNN(socket_stream_shutdown,2) | ^ ../src/subr.d:1226:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1226 | LISPFUNN(stream_handles,1) | ^ ../src/subr.d:1227:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1227 | LISPFUNNR(built_in_stream_open_p,1) | ^ ../src/subr.d:1228:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1228 | LISPFUNNR(input_stream_p,1) | ^ ../src/subr.d:1229:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1229 | LISPFUNNR(output_stream_p,1) | ^ ../src/subr.d:1230:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1230 | LISPFUNN(stream_element_type_eq,2) | ^ ../src/subr.d:1231:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1231 | LISPFUNNR(built_in_stream_element_type,1) | ^ ../src/subr.d:1232:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1232 | LISPFUNN(built_in_stream_set_element_type,2) | ^ ../src/subr.d:1233:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1233 | LISPFUNNR(stream_external_format,1) | ^ ../src/subr.d:1234:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1234 | LISPFUN(set_stream_external_format,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1235:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1235 | LISPFUNN(interactive_stream_p,1) | ^ ../src/subr.d:1237:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1237 | LISPFUN(read_byte,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1238:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1238 | LISPFUNN(read_byte_lookahead,1) | ^ ../src/subr.d:1239:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1239 | LISPFUNN(read_byte_will_hang_p,1) | ^ ../src/subr.d:1240:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1240 | LISPFUN(read_byte_no_hang,seclass_default,1,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1241:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1241 | LISPFUN(read_integer,seclass_default,2,3,norest,nokey,0,NIL) | ^ ../src/subr.d:1242:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1242 | LISPFUN(read_float,seclass_default,2,3,norest,nokey,0,NIL) | ^ ../src/subr.d:1243:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1243 | LISPFUNN(write_byte,2) | ^ ../src/subr.d:1244:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1244 | LISPFUN(write_integer,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1245:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1245 | LISPFUN(write_float,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1246:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1246 | LISPFUN(file_position,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1247:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1247 | LISPFUNNR(file_length,1) | ^ ../src/subr.d:1248:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1248 | LISPFUNN(file_string_length,2) | ^ ../src/subr.d:1249:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1249 | LISPFUNN(line_number,1) | ^ ../src/subr.d:1250:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1250 | LISPFUN(stream_fasl_p,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1251:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1251 | LISPFUNN(defgray,1) | ^ ../src/subr.d:1253:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1253 | LISPFUNN(putd,2) | ^ ../src/subr.d:1254:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1254 | LISPFUNN(find_subr,1) | ^ ../src/subr.d:1255:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1255 | LISPFUNN(proclaim_constant,2) | ^ ../src/subr.d:1256:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1256 | LISPFUNN(proclaim_symbol_macro,1) | ^ ../src/subr.d:1257:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1257 | LISPFUN(get,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1258:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1258 | LISPFUN(getf,seclass_read,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1259:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1259 | LISPFUNN(putf,3) | ^ ../src/subr.d:1260:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1260 | LISPFUNN(remf,2) | ^ ../src/subr.d:1261:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1261 | LISPFUNNR(get_properties,2) | ^ ../src/subr.d:1262:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1262 | LISPFUNN(putplist,2) | ^ ../src/subr.d:1263:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1263 | LISPFUNN(put,3) | ^ ../src/subr.d:1264:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1264 | LISPFUNN(remprop,2) | ^ ../src/subr.d:1265:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1265 | LISPFUNNR(symbol_package,1) | ^ ../src/subr.d:1266:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1266 | LISPFUNNR(symbol_plist,1) | ^ ../src/subr.d:1267:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1267 | LISPFUN(symbol_name,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:1268:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1268 | LISPFUNNR(cs_symbol_name,1) | ^ ../src/subr.d:1269:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1269 | LISPFUNNR(keywordp,1) | ^ ../src/subr.d:1270:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1270 | LISPFUN(gensym,seclass_read,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1271:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1271 | LISPFUN(gentemp,seclass_read,0,2,norest,nokey,0,NIL) | ^ ../src/subr.d:1273:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1273 | LISPFUN(decimal_string,seclass_no_se,1,0,norest,nokey,0,NIL) | ^ ../src/subr.d:1274:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1274 | LISPFUNNF(zerop,1) | ^ ../src/subr.d:1275:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1275 | LISPFUNNF(plusp,1) | ^ ../src/subr.d:1276:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1276 | LISPFUNNF(minusp,1) | ^ ../src/subr.d:1277:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1277 | LISPFUNNF(oddp,1) | ^ ../src/subr.d:1278:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1278 | LISPFUNNF(evenp,1) | ^ ../src/subr.d:1279:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1279 | LISPFUN(numequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1280:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1280 | LISPFUN(numunequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1281:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1281 | LISPFUN(smaller,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1282:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1282 | LISPFUN(greater,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1283:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1283 | LISPFUN(ltequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1284:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1284 | LISPFUN(gtequal,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1285:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1285 | LISPFUN(max,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1286:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1286 | LISPFUN(min,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1287:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1287 | LISPFUN(plus,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1288:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1288 | LISPFUN(minus,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1289:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1289 | LISPFUN(star,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1290:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1290 | LISPFUN(slash,seclass_foldable,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1291:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1291 | LISPFUNNF(plus_one,1) | ^ ../src/subr.d:1292:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1292 | LISPFUNNF(minus_one,1) | ^ ../src/subr.d:1293:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1293 | LISPFUNNF(conjugate,1) | ^ ../src/subr.d:1294:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1294 | LISPFUN(gcd,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1295:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1295 | LISPFUN(xgcd,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1296:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1296 | LISPFUN(lcm,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1297:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1297 | LISPFUNNR(exp,1) | ^ ../src/subr.d:1298:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1298 | LISPFUNNR(expt,2) | ^ ../src/subr.d:1299:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1299 | LISPFUN(log,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1300:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1300 | LISPFUNNR(sqrt,1) | ^ ../src/subr.d:1301:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1301 | LISPFUNNF(isqrt,1) | ^ ../src/subr.d:1302:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1302 | LISPFUNNR(abs,1) | ^ ../src/subr.d:1303:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1303 | LISPFUNNR(phase,1) | ^ ../src/subr.d:1304:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1304 | LISPFUNNR(signum,1) | ^ ../src/subr.d:1305:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1305 | LISPFUNNR(sin,1) | ^ ../src/subr.d:1306:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1306 | LISPFUNNR(cos,1) | ^ ../src/subr.d:1307:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1307 | LISPFUNNR(tan,1) | ^ ../src/subr.d:1308:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1308 | LISPFUNNR(cis,1) | ^ ../src/subr.d:1309:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1309 | LISPFUNNR(asin,1) | ^ ../src/subr.d:1310:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1310 | LISPFUNNR(acos,1) | ^ ../src/subr.d:1311:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1311 | LISPFUN(atan,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1312:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1312 | LISPFUNNR(sinh,1) | ^ ../src/subr.d:1313:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1313 | LISPFUNNR(cosh,1) | ^ ../src/subr.d:1314:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1314 | LISPFUNNR(tanh,1) | ^ ../src/subr.d:1315:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1315 | LISPFUNNR(asinh,1) | ^ ../src/subr.d:1316:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1316 | LISPFUNNR(acosh,1) | ^ ../src/subr.d:1317:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1317 | LISPFUNNR(atanh,1) | ^ ../src/subr.d:1318:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1318 | LISPFUN(float,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1319:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1319 | LISPFUNNF(rational,1) | ^ ../src/subr.d:1320:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1320 | LISPFUNNF(rationalize,1) | ^ ../src/subr.d:1321:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1321 | LISPFUNNF(numerator,1) | ^ ../src/subr.d:1322:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1322 | LISPFUNNF(denominator,1) | ^ ../src/subr.d:1323:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1323 | LISPFUN(floor,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1324:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1324 | LISPFUN(ceiling,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1325:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1325 | LISPFUN(truncate,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1326:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1326 | LISPFUN(round,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1327:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1327 | LISPFUNNF(mod,2) | ^ ../src/subr.d:1328:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1328 | LISPFUNNF(rem,2) | ^ ../src/subr.d:1329:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1329 | LISPFUN(ffloor,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1330:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1330 | LISPFUN(fceiling,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1331:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1331 | LISPFUN(ftruncate,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1332:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1332 | LISPFUN(fround,seclass_read,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1333:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1333 | LISPFUNNF(decode_float,1) | ^ ../src/subr.d:1334:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1334 | LISPFUNNF(scale_float,2) | ^ ../src/subr.d:1335:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1335 | LISPFUNNF(float_scale_exponent,1) | ^ ../src/subr.d:1336:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1336 | LISPFUNNF(float_radix,1) | ^ ../src/subr.d:1337:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1337 | LISPFUN(float_sign,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1338:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1338 | LISPFUN(float_digits,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1339:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1339 | LISPFUNNF(float_precision,1) | ^ ../src/subr.d:1340:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1340 | LISPFUNNF(integer_decode_float,1) | ^ ../src/subr.d:1341:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1341 | LISPFUN(complex,seclass_foldable,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1342:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1342 | LISPFUNNF(realpart,1) | ^ ../src/subr.d:1343:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1343 | LISPFUNNF(imagpart,1) | ^ ../src/subr.d:1344:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1344 | LISPFUN(logior,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1345:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1345 | LISPFUN(logxor,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1346:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1346 | LISPFUN(logand,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1347:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1347 | LISPFUN(logeqv,seclass_foldable,0,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1348:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1348 | LISPFUNNF(lognand,2) | ^ ../src/subr.d:1349:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1349 | LISPFUNNF(lognor,2) | ^ ../src/subr.d:1350:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1350 | LISPFUNNF(logandc1,2) | ^ ../src/subr.d:1351:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1351 | LISPFUNNF(logandc2,2) | ^ ../src/subr.d:1352:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1352 | LISPFUNNF(logorc1,2) | ^ ../src/subr.d:1353:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1353 | LISPFUNNF(logorc2,2) | ^ ../src/subr.d:1354:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1354 | LISPFUNNF(boole,3) | ^ ../src/subr.d:1355:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1355 | LISPFUNNF(lognot,1) | ^ ../src/subr.d:1356:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1356 | LISPFUNNF(logtest,2) | ^ ../src/subr.d:1357:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1357 | LISPFUNNF(logbitp,2) | ^ ../src/subr.d:1358:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1358 | LISPFUNNF(ash,2) | ^ ../src/subr.d:1359:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1359 | LISPFUNNF(logcount,1) | ^ ../src/subr.d:1360:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1360 | LISPFUNNF(integer_length,1) | ^ ../src/subr.d:1361:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1361 | LISPFUNNR(byte,2) | ^ ../src/subr.d:1362:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1362 | LISPFUNNR(bytesize,1) | ^ ../src/subr.d:1363:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1363 | LISPFUNNR(byteposition,1) | ^ ../src/subr.d:1364:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1364 | LISPFUNNF(ldb,2) | ^ ../src/subr.d:1365:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1365 | LISPFUNNF(ldb_test,2) | ^ ../src/subr.d:1366:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1366 | LISPFUNNF(mask_field,2) | ^ ../src/subr.d:1367:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1367 | LISPFUNNF(dpb,3) | ^ ../src/subr.d:1368:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1368 | LISPFUNNF(deposit_field,3) | ^ ../src/subr.d:1369:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1369 | LISPFUN(random,seclass_default,1,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1370:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1370 | LISPFUN(random_posfixnum,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1371:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1371 | LISPFUN(make_random_state,seclass_default,0,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1372:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1372 | LISPFUNNF(factorial,1) | ^ ../src/subr.d:1373:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1373 | LISPFUNNF(exquo,2) | ^ ../src/subr.d:1374:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1374 | LISPFUNNF(mod_expt,3) | ^ ../src/subr.d:1375:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1375 | LISPFUNN(long_float_digits,0) | ^ ../src/subr.d:1376:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1376 | LISPFUNN(set_long_float_digits,1) | ^ ../src/subr.d:1377:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1377 | LISPFUNNR(log2,1) | ^ ../src/subr.d:1378:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1378 | LISPFUNNR(log10,1) | ^ ../src/subr.d:1381:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1381 | LISPFUNN(sizeof,1) | ^ ../src/subr.d:1382:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1382 | LISPFUNN(bitsizeof,1) | ^ ../src/subr.d:1383:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1383 | LISPFUNNR(validp,1) | ^ ../src/subr.d:1384:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1384 | LISPFUNN(set_validp,2) | ^ ../src/subr.d:1385:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1385 | LISPFUNNR(foreign_pointer,1) | ^ ../src/subr.d:1386:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1386 | LISPFUNN(set_foreign_pointer,2) | ^ ../src/subr.d:1387:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1387 | LISPFUNNR(unsigned_foreign_address,1) | ^ ../src/subr.d:1388:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1388 | LISPFUNNR(foreign_address_unsigned,1) | ^ ../src/subr.d:1389:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1389 | LISPFUNNR(foreign_address,1) | ^ ../src/subr.d:1391:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1391 | LISPFUNN(foreign_pointer_info,1) | ^ ../src/subr.d:1395:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1395 | LISPFUNN(close_foreign_library,1) | ^ ../src/subr.d:1397:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1397 | LISPFUNNF(parse_foreign_inttype,2) | ^ ../src/subr.d:1399:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1399 | LISPFUNN(find_foreign_variable,5) | ^ ../src/subr.d:1401:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1401 | LISPFUNN(foreign_value,1) | ^ ../src/subr.d:1402:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1402 | LISPFUNN(set_foreign_value,2) | ^ ../src/subr.d:1403:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1403 | LISPFUNN(foreign_type,1) | ^ ../src/subr.d:1404:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1404 | LISPFUN(element,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/subr.d:1405:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1405 | LISPFUNN(deref,1) | ^ ../src/subr.d:1406:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1406 | LISPFUNN(slot,2) | ^ ../src/subr.d:1407:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1407 | LISPFUNN(cast,2) | ^ ../src/subr.d:1408:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1408 | LISPFUNN(offset,3) | ^ ../src/subr.d:1409:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1409 | LISPFUN(read_memory_as,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1410:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1410 | LISPFUN(write_memory_as,seclass_default,3,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1411:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1411 | LISPFUN(exec_on_stack,seclass_default,2,1,norest,nokey,0,NIL) | ^ ../src/subr.d:1412:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1412 | LISPFUNN(call_with_foreign_string,6) | ^ ../src/subr.d:1416:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1416 | LISPFUNN(find_foreign_function,6) | ^ ../src/subr.d:1417:76: warning: unused variable ‘vecptr’ [-Wunused-variable] 1417 | LISPFUN(foreign_call_out,seclass_default,1,0,rest,nokey,0,NIL) | ^ ../src/spvw.d: In function ‘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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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:2872:2: warning: label ‘notmatch_directories’ defined but not used [-Wunused-label] 2872 | notmatch_directories: | ^~~~~~~~~~~~~~~~~~~~ ../src/pathname.d:2866:2: warning: label ‘notmatch_devices’ defined but not used [-Wunused-label] 2866 | notmatch_devices: | ^~~~~~~~~~~~~~~~ ../src/pathname.d:2855:2: warning: label ‘match_directories’ defined but not used [-Wunused-label] 2855 | match_directories: { /* match directories: */ | ^~~~~~~~~~~~~~~~~ ../src/pathname.d:2838:2: warning: label ‘match_devices’ defined but not used [-Wunused-label] 2838 | match_devices: | ^~~~~~~~~~~~~ ../src/pathname.d: In function ‘C_pathname_match_p’: ../src/pathname.d:3973:2: warning: label ‘yes’ defined but not used [-Wunused-label] 3973 | yes: | ^~~ ../src/pathname.d: In function ‘open_file’: ../src/pathname.d:6674:2: warning: label ‘handle_ok’ defined but not used [-Wunused-label] 6674 | handle_ok: | ^~~~~~~~~ ../src/pathname.d: At top level: ../src/pathname.d:3609:11: warning: ‘has_host_wildcards’ declared ‘static’ but never defined [-Wunused-function] 3609 | local bool has_host_wildcards (object pathname); | ^~~~~~~~~~~~~~~~~~ ../src/pathname.d: In function ‘classify_namestring’: ../src/pathname.d:5784:5: warning: ignoring return value of ‘realpath’ declared with attribute ‘warn_unused_result’ [-Wunused-result] 5784 | realpath(namestring,resolved); /* ==> success assured */ | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../src/pathname.d: In function ‘C_probe_pathname’: ../src/pathname.d:5854:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 5854 | if (errorp) | ^ ../src/pathname.d:5857:5: note: here 5857 | case FILE_KIND_NONE: /* does not exist */ | ^~~~ ../src/pathname.d: In function ‘open_file’: ../src/pathname.d:6620:40: warning: this statement may fall through [-Wimplicit-fallthrough=] 6620 | case DIRECTION_OUTPUT: wronly_flag = true; /*FALLTHROUGH*/ ../src/pathname.d:6621:5: note: here 6621 | case DIRECTION_IO: | ^~~~ ../src/pathname.d: In function ‘C_launch’: ../src/pathname.d:8752:15: warning: ignoring return value of ‘nice’ declared with attribute ‘warn_unused_result’ [-Wunused-result] 8752 | errno = 0; nice(priority); | ^~~~~~~~~~~~~~ At top level: ../src/pathname.d:4423:15: warning: ‘translate_device’ defined but not used [-Wunused-function] 4423 | local maygc object translate_device (gcv_object_t* subst, object pattern, | ^~~~~~~~~~~~~~~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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:14730:13: warning: this statement may fall through [-Wimplicit-fallthrough=] 14730 | get_handle_and_mark(TheStream(STACK_0)->strm_twoway_socket_output, | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 14731 | strmflags_wr_B,strm_ochannel_position); | ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ../src/stream.d:14733:11: note: here 14733 | case DIRECTION_INPUT: case DIRECTION_INPUT_IMMUTABLE: | ^~~~ ../src/stream.d: In function ‘C_stream_external_format’: ../src/stream.d:15735:130: warning: this statement may fall through [-Wimplicit-fallthrough=] 15735 | if (streamp(stream)) { | ~~~~~~~~~~~~~~~~~~ ^ ../src/stream.d:15739:7: note: here 15739 | default: | ^~~~~~~ ../src/stream.d: In function ‘interactive_stream_p’: ../src/stream.d:15967:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 15967 | if (nullp(TheStream(stream)->strm_isatty)) | ^ ../src/stream.d:15972:5: note: here 15972 | case strmtype_keyboard: | ^~~~ ../src/stream.d: In function ‘C_read_byte_no_hang’: ../src/stream.d:17094:7: warning: this statement may fall through [-Wimplicit-fallthrough=] 17094 | var object obj = read_byte(stream); | ^ ../src/stream.d:17101:5: note: here 17101 | case LISTEN_ERROR: OS_filestream_error(STACK_2); | ^~~~ 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:14305:124: warning: ‘ret’ may be used uninitialized in this function [-Wmaybe-uninitialized] 14305 | if (!nullp(status_cons)) Cdr(status_cons) = ret; | ^ ../src/stream.d:14269:18: note: ‘ret’ was declared here 14269 | var object sock, ret; | ^~~ gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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, { | ^ ../src/unixaux.d: In function ‘install_signal_handler’: ../src/unixaux.d:734:3: warning: ‘siginterrupt’ is deprecated: Use sigaction with SA_RESTART instead [-Wdeprecated-declarations] 734 | siginterrupt(sig,0); | ^~~~~~~~~~~~ In file included from /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib/signal.h:52, from ../src/unix.d:111, from ../src/lispbibl.d:1923, from ../src/unixaux.d:7: /usr/include/signal.h:311:12: note: declared here 311 | extern int siginterrupt (int __sig, int __interrupt) __THROW | ^~~~~~~~~~~~ echo '/* generated from Makefile */' > cflags.h.new echo '#define CC "gcc"' >> cflags.h.new echo '#define CFLAGS "-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/po' make[1]: Nothing to be done for 'all'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/po' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/po' rm -rf data mkdir data cd data && ln -s ../../utils/unicode/UnicodeDataFull.txt . cd data && ln -s ../../doc/Symbol-Table.text . gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 - 0x5d4fff 0x211f000 - 0x213ffff 0x100000000000 - 0x1000000bffff 0x154f81b3f000 - 0x154f81b3ffff 0x154f81b40000 - 0x154f821eafff 0x154f821eb000 - 0x154f8223ffff 0x154f82240000 - 0x154f82242fff 0x154f82243000 - 0x154f82268fff 0x154f82269000 - 0x154f823b7fff 0x154f823b8000 - 0x154f82403fff 0x154f82404000 - 0x154f82404fff 0x154f82405000 - 0x154f82407fff 0x154f82408000 - 0x154f8240afff 0x154f8240b000 - 0x154f8240efff 0x154f8240f000 - 0x154f82411fff 0x154f82412000 - 0x154f82423fff 0x154f82424000 - 0x154f82427fff 0x154f82428000 - 0x154f82428fff 0x154f82429000 - 0x154f82429fff 0x154f8242a000 - 0x154f8242bfff 0x154f8242c000 - 0x154f8243cfff 0x154f8243d000 - 0x154f82472fff 0x154f82473000 - 0x154f825a8fff 0x154f825a9000 - 0x154f825a9fff 0x154f825aa000 - 0x154f825adfff 0x154f825ae000 - 0x154f825aefff 0x154f825af000 - 0x154f825affff 0x154f825b0000 - 0x154f825b1fff 0x154f825b2000 - 0x154f825b2fff 0x154f825b3000 - 0x154f825b3fff 0x154f825b4000 - 0x154f825b4fff 0x154f825b5000 - 0x154f825b6fff 0x154f825b7000 - 0x154f825b8fff 0x154f825b9000 - 0x154f825b9fff 0x154f825ba000 - 0x154f825bafff 0x154f825bb000 - 0x154f825bbfff 0x154f825bc000 - 0x154f825bdfff 0x154f825be000 - 0x154f825bffff 0x154f825c0000 - 0x154f825c0fff 0x154f825c1000 - 0x154f825c1fff 0x154f825c2000 - 0x154f825c2fff 0x154f825c3000 - 0x154f825d0fff 0x154f825d1000 - 0x154f825defff 0x154f825df000 - 0x154f825ecfff 0x154f825ed000 - 0x154f825f0fff 0x154f825f1000 - 0x154f825f1fff 0x154f825f2000 - 0x154f82607fff 0x154f82608000 - 0x154f82633fff 0x154f82634000 - 0x154f8263cfff 0x154f8263d000 - 0x154f8263dfff 0x154f8263e000 - 0x154f82640fff 0x154f82641000 - 0x154f82646fff 0x154f82647000 - 0x154f82649fff 0x154f8264a000 - 0x154f8264afff 0x154f8264b000 - 0x154f8264bfff 0x154f8264c000 - 0x154f82652fff 0x154f82653000 - 0x154f82653fff 0x154f82654000 - 0x154f82674fff 0x154f82675000 - 0x154f8267dfff 0x154f8267e000 - 0x154f8267efff 0x154f8267f000 - 0x154f82680fff 0x7ffcd95dc000 - 0x7ffcd95fcfff 0x7ffcd972b000 - 0x7ffcd972efff 0x7ffcd972f000 - 0x7ffcd9730fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/compiler.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/compiler.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/savemem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/savemem.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp Bytes permanently allocated: 173,664 Bytes currently in use: 10,363,424 Bytes available until next GC: 2,590,856 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 - 0x5d4fff 0xb9d000 - 0xbbdfff 0x100000000000 - 0x1000000bffff 0x14d7cfb4e000 - 0x14d7cfb4efff 0x14d7cfb4f000 - 0x14d7d01f9fff 0x14d7d01fa000 - 0x14d7d024efff 0x14d7d024f000 - 0x14d7d0251fff 0x14d7d0252000 - 0x14d7d0277fff 0x14d7d0278000 - 0x14d7d03c6fff 0x14d7d03c7000 - 0x14d7d0412fff 0x14d7d0413000 - 0x14d7d0413fff 0x14d7d0414000 - 0x14d7d0416fff 0x14d7d0417000 - 0x14d7d0419fff 0x14d7d041a000 - 0x14d7d041dfff 0x14d7d041e000 - 0x14d7d0420fff 0x14d7d0421000 - 0x14d7d0432fff 0x14d7d0433000 - 0x14d7d0436fff 0x14d7d0437000 - 0x14d7d0437fff 0x14d7d0438000 - 0x14d7d0438fff 0x14d7d0439000 - 0x14d7d043afff 0x14d7d043b000 - 0x14d7d044bfff 0x14d7d044c000 - 0x14d7d0481fff 0x14d7d0482000 - 0x14d7d05b7fff 0x14d7d05b8000 - 0x14d7d05b8fff 0x14d7d05b9000 - 0x14d7d05bcfff 0x14d7d05bd000 - 0x14d7d05bdfff 0x14d7d05be000 - 0x14d7d05befff 0x14d7d05bf000 - 0x14d7d05c0fff 0x14d7d05c1000 - 0x14d7d05c1fff 0x14d7d05c2000 - 0x14d7d05c2fff 0x14d7d05c3000 - 0x14d7d05c3fff 0x14d7d05c4000 - 0x14d7d05c5fff 0x14d7d05c6000 - 0x14d7d05c7fff 0x14d7d05c8000 - 0x14d7d05c8fff 0x14d7d05c9000 - 0x14d7d05c9fff 0x14d7d05ca000 - 0x14d7d05cafff 0x14d7d05cb000 - 0x14d7d05ccfff 0x14d7d05cd000 - 0x14d7d05cefff 0x14d7d05cf000 - 0x14d7d05cffff 0x14d7d05d0000 - 0x14d7d05d0fff 0x14d7d05d1000 - 0x14d7d05d1fff 0x14d7d05d2000 - 0x14d7d05dffff 0x14d7d05e0000 - 0x14d7d05edfff 0x14d7d05ee000 - 0x14d7d05fbfff 0x14d7d05fc000 - 0x14d7d05fffff 0x14d7d0600000 - 0x14d7d0600fff 0x14d7d0601000 - 0x14d7d0616fff 0x14d7d0617000 - 0x14d7d0642fff 0x14d7d0643000 - 0x14d7d064bfff 0x14d7d064c000 - 0x14d7d064cfff 0x14d7d064d000 - 0x14d7d064ffff 0x14d7d0650000 - 0x14d7d0655fff 0x14d7d0656000 - 0x14d7d0658fff 0x14d7d0659000 - 0x14d7d0659fff 0x14d7d065a000 - 0x14d7d065afff 0x14d7d065b000 - 0x14d7d0661fff 0x14d7d0662000 - 0x14d7d0662fff 0x14d7d0663000 - 0x14d7d0683fff 0x14d7d0684000 - 0x14d7d068cfff 0x14d7d068d000 - 0x14d7d068dfff 0x14d7d068e000 - 0x14d7d068ffff 0x7ffc54156000 - 0x7ffc54176fff 0x7ffc54191000 - 0x7ffc54194fff 0x7ffc54195000 - 0x7ffc54196fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/compiler.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d45000 - 0x1d65fff 0x100000000000 - 0x1000000bffff 0x14eae6019000 - 0x14eae6019fff 0x14eae601a000 - 0x14eae66c4fff 0x14eae66c5000 - 0x14eae6719fff 0x14eae671a000 - 0x14eae671cfff 0x14eae671d000 - 0x14eae6742fff 0x14eae6743000 - 0x14eae6891fff 0x14eae6892000 - 0x14eae68ddfff 0x14eae68de000 - 0x14eae68defff 0x14eae68df000 - 0x14eae68e1fff 0x14eae68e2000 - 0x14eae68e4fff 0x14eae68e5000 - 0x14eae68e8fff 0x14eae68e9000 - 0x14eae68ebfff 0x14eae68ec000 - 0x14eae68fdfff 0x14eae68fe000 - 0x14eae6901fff 0x14eae6902000 - 0x14eae6902fff 0x14eae6903000 - 0x14eae6903fff 0x14eae6904000 - 0x14eae6905fff 0x14eae6906000 - 0x14eae6916fff 0x14eae6917000 - 0x14eae694cfff 0x14eae694d000 - 0x14eae6a82fff 0x14eae6a83000 - 0x14eae6a83fff 0x14eae6a84000 - 0x14eae6a87fff 0x14eae6a88000 - 0x14eae6a88fff 0x14eae6a89000 - 0x14eae6a89fff 0x14eae6a8a000 - 0x14eae6a8bfff 0x14eae6a8c000 - 0x14eae6a8cfff 0x14eae6a8d000 - 0x14eae6a8dfff 0x14eae6a8e000 - 0x14eae6a8efff 0x14eae6a8f000 - 0x14eae6a90fff 0x14eae6a91000 - 0x14eae6a92fff 0x14eae6a93000 - 0x14eae6a93fff 0x14eae6a94000 - 0x14eae6a94fff 0x14eae6a95000 - 0x14eae6a95fff 0x14eae6a96000 - 0x14eae6a97fff 0x14eae6a98000 - 0x14eae6a99fff 0x14eae6a9a000 - 0x14eae6a9afff 0x14eae6a9b000 - 0x14eae6a9bfff 0x14eae6a9c000 - 0x14eae6a9cfff 0x14eae6a9d000 - 0x14eae6aaafff 0x14eae6aab000 - 0x14eae6ab8fff 0x14eae6ab9000 - 0x14eae6ac6fff 0x14eae6ac7000 - 0x14eae6acafff 0x14eae6acb000 - 0x14eae6acbfff 0x14eae6acc000 - 0x14eae6ae1fff 0x14eae6ae2000 - 0x14eae6b0dfff 0x14eae6b0e000 - 0x14eae6b16fff 0x14eae6b17000 - 0x14eae6b17fff 0x14eae6b18000 - 0x14eae6b1afff 0x14eae6b1b000 - 0x14eae6b20fff 0x14eae6b21000 - 0x14eae6b23fff 0x14eae6b24000 - 0x14eae6b24fff 0x14eae6b25000 - 0x14eae6b25fff 0x14eae6b26000 - 0x14eae6b2cfff 0x14eae6b2d000 - 0x14eae6b2dfff 0x14eae6b2e000 - 0x14eae6b4efff 0x14eae6b4f000 - 0x14eae6b57fff 0x14eae6b58000 - 0x14eae6b58fff 0x14eae6b59000 - 0x14eae6b5afff 0x7fff46e54000 - 0x7fff46e74fff 0x7fff46e94000 - 0x7fff46e97fff 0x7fff46e98000 - 0x7fff46e99fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/compiler.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/compiler.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/savemem.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/savemem.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp Bytes permanently allocated: 173,664 Bytes currently in use: 8,912,096 Bytes available until next GC: 2,228,024 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 - 0x5d4fff 0x205c000 - 0x207cfff 0x100000000000 - 0x1000000bffff 0x153b3894d000 - 0x153b3894dfff 0x153b3894e000 - 0x153b38ff8fff 0x153b38ff9000 - 0x153b3904dfff 0x153b3904e000 - 0x153b39050fff 0x153b39051000 - 0x153b39076fff 0x153b39077000 - 0x153b391c5fff 0x153b391c6000 - 0x153b39211fff 0x153b39212000 - 0x153b39212fff 0x153b39213000 - 0x153b39215fff 0x153b39216000 - 0x153b39218fff 0x153b39219000 - 0x153b3921cfff 0x153b3921d000 - 0x153b3921ffff 0x153b39220000 - 0x153b39231fff 0x153b39232000 - 0x153b39235fff 0x153b39236000 - 0x153b39236fff 0x153b39237000 - 0x153b39237fff 0x153b39238000 - 0x153b39239fff 0x153b3923a000 - 0x153b3924afff 0x153b3924b000 - 0x153b39280fff 0x153b39281000 - 0x153b393b6fff 0x153b393b7000 - 0x153b393b7fff 0x153b393b8000 - 0x153b393bbfff 0x153b393bc000 - 0x153b393bcfff 0x153b393bd000 - 0x153b393bdfff 0x153b393be000 - 0x153b393bffff 0x153b393c0000 - 0x153b393c0fff 0x153b393c1000 - 0x153b393c1fff 0x153b393c2000 - 0x153b393c2fff 0x153b393c3000 - 0x153b393c4fff 0x153b393c5000 - 0x153b393c6fff 0x153b393c7000 - 0x153b393c7fff 0x153b393c8000 - 0x153b393c8fff 0x153b393c9000 - 0x153b393c9fff 0x153b393ca000 - 0x153b393cbfff 0x153b393cc000 - 0x153b393cdfff 0x153b393ce000 - 0x153b393cefff 0x153b393cf000 - 0x153b393cffff 0x153b393d0000 - 0x153b393d0fff 0x153b393d1000 - 0x153b393defff 0x153b393df000 - 0x153b393ecfff 0x153b393ed000 - 0x153b393fafff 0x153b393fb000 - 0x153b393fefff 0x153b393ff000 - 0x153b393fffff 0x153b39400000 - 0x153b39415fff 0x153b39416000 - 0x153b39441fff 0x153b39442000 - 0x153b3944afff 0x153b3944b000 - 0x153b3944bfff 0x153b3944c000 - 0x153b3944efff 0x153b3944f000 - 0x153b39454fff 0x153b39455000 - 0x153b39457fff 0x153b39458000 - 0x153b39458fff 0x153b39459000 - 0x153b39459fff 0x153b3945a000 - 0x153b39460fff 0x153b39461000 - 0x153b39461fff 0x153b39462000 - 0x153b39482fff 0x153b39483000 - 0x153b3948bfff 0x153b3948c000 - 0x153b3948cfff 0x153b3948d000 - 0x153b3948efff 0x7ffe0d15b000 - 0x7ffe0d17bfff 0x7ffe0d1ec000 - 0x7ffe0d1effff 0x7ffe0d1f0000 - 0x7ffe0d1f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/init.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x18de000 - 0x18fefff 0x100000000000 - 0x1000000bffff 0x14bc059bd000 - 0x14bc059bdfff 0x14bc059be000 - 0x14bc06068fff 0x14bc06069000 - 0x14bc060bdfff 0x14bc060be000 - 0x14bc060c0fff 0x14bc060c1000 - 0x14bc060e6fff 0x14bc060e7000 - 0x14bc06235fff 0x14bc06236000 - 0x14bc06281fff 0x14bc06282000 - 0x14bc06282fff 0x14bc06283000 - 0x14bc06285fff 0x14bc06286000 - 0x14bc06288fff 0x14bc06289000 - 0x14bc0628cfff 0x14bc0628d000 - 0x14bc0628ffff 0x14bc06290000 - 0x14bc062a1fff 0x14bc062a2000 - 0x14bc062a5fff 0x14bc062a6000 - 0x14bc062a6fff 0x14bc062a7000 - 0x14bc062a7fff 0x14bc062a8000 - 0x14bc062a9fff 0x14bc062aa000 - 0x14bc062bafff 0x14bc062bb000 - 0x14bc062f0fff 0x14bc062f1000 - 0x14bc06426fff 0x14bc06427000 - 0x14bc06427fff 0x14bc06428000 - 0x14bc0642bfff 0x14bc0642c000 - 0x14bc0642cfff 0x14bc0642d000 - 0x14bc0642dfff 0x14bc0642e000 - 0x14bc0642ffff 0x14bc06430000 - 0x14bc06430fff 0x14bc06431000 - 0x14bc06431fff 0x14bc06432000 - 0x14bc06432fff 0x14bc06433000 - 0x14bc06434fff 0x14bc06435000 - 0x14bc06436fff 0x14bc06437000 - 0x14bc06437fff 0x14bc06438000 - 0x14bc06438fff 0x14bc06439000 - 0x14bc06439fff 0x14bc0643a000 - 0x14bc0643bfff 0x14bc0643c000 - 0x14bc0643dfff 0x14bc0643e000 - 0x14bc0643efff 0x14bc0643f000 - 0x14bc0643ffff 0x14bc06440000 - 0x14bc06440fff 0x14bc06441000 - 0x14bc0644efff 0x14bc0644f000 - 0x14bc0645cfff 0x14bc0645d000 - 0x14bc0646afff 0x14bc0646b000 - 0x14bc0646efff 0x14bc0646f000 - 0x14bc0646ffff 0x14bc06470000 - 0x14bc06485fff 0x14bc06486000 - 0x14bc064b1fff 0x14bc064b2000 - 0x14bc064bafff 0x14bc064bb000 - 0x14bc064bbfff 0x14bc064bc000 - 0x14bc064befff 0x14bc064bf000 - 0x14bc064c4fff 0x14bc064c5000 - 0x14bc064c7fff 0x14bc064c8000 - 0x14bc064c8fff 0x14bc064c9000 - 0x14bc064c9fff 0x14bc064ca000 - 0x14bc064d0fff 0x14bc064d1000 - 0x14bc064d1fff 0x14bc064d2000 - 0x14bc064f2fff 0x14bc064f3000 - 0x14bc064fbfff 0x14bc064fc000 - 0x14bc064fcfff 0x14bc064fd000 - 0x14bc064fefff 0x7fff5a653000 - 0x7fff5a673fff 0x7fff5a7ec000 - 0x7fff5a7effff 0x7fff5a7f0000 - 0x7fff5a7f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defseq.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x193d000 - 0x195dfff 0x100000000000 - 0x1000000bffff 0x153749800000 - 0x153749800fff 0x153749801000 - 0x153749eabfff 0x153749eac000 - 0x153749f00fff 0x153749f01000 - 0x153749f03fff 0x153749f04000 - 0x153749f29fff 0x153749f2a000 - 0x15374a078fff 0x15374a079000 - 0x15374a0c4fff 0x15374a0c5000 - 0x15374a0c5fff 0x15374a0c6000 - 0x15374a0c8fff 0x15374a0c9000 - 0x15374a0cbfff 0x15374a0cc000 - 0x15374a0cffff 0x15374a0d0000 - 0x15374a0d2fff 0x15374a0d3000 - 0x15374a0e4fff 0x15374a0e5000 - 0x15374a0e8fff 0x15374a0e9000 - 0x15374a0e9fff 0x15374a0ea000 - 0x15374a0eafff 0x15374a0eb000 - 0x15374a0ecfff 0x15374a0ed000 - 0x15374a0fdfff 0x15374a0fe000 - 0x15374a133fff 0x15374a134000 - 0x15374a269fff 0x15374a26a000 - 0x15374a26afff 0x15374a26b000 - 0x15374a26efff 0x15374a26f000 - 0x15374a26ffff 0x15374a270000 - 0x15374a270fff 0x15374a271000 - 0x15374a272fff 0x15374a273000 - 0x15374a273fff 0x15374a274000 - 0x15374a274fff 0x15374a275000 - 0x15374a275fff 0x15374a276000 - 0x15374a277fff 0x15374a278000 - 0x15374a279fff 0x15374a27a000 - 0x15374a27afff 0x15374a27b000 - 0x15374a27bfff 0x15374a27c000 - 0x15374a27cfff 0x15374a27d000 - 0x15374a27efff 0x15374a27f000 - 0x15374a280fff 0x15374a281000 - 0x15374a281fff 0x15374a282000 - 0x15374a282fff 0x15374a283000 - 0x15374a283fff 0x15374a284000 - 0x15374a291fff 0x15374a292000 - 0x15374a29ffff 0x15374a2a0000 - 0x15374a2adfff 0x15374a2ae000 - 0x15374a2b1fff 0x15374a2b2000 - 0x15374a2b2fff 0x15374a2b3000 - 0x15374a2c8fff 0x15374a2c9000 - 0x15374a2f4fff 0x15374a2f5000 - 0x15374a2fdfff 0x15374a2fe000 - 0x15374a2fefff 0x15374a2ff000 - 0x15374a301fff 0x15374a302000 - 0x15374a307fff 0x15374a308000 - 0x15374a30afff 0x15374a30b000 - 0x15374a30bfff 0x15374a30c000 - 0x15374a30cfff 0x15374a30d000 - 0x15374a313fff 0x15374a314000 - 0x15374a314fff 0x15374a315000 - 0x15374a335fff 0x15374a336000 - 0x15374a33efff 0x15374a33f000 - 0x15374a33ffff 0x15374a340000 - 0x15374a341fff 0x7ffc6ae33000 - 0x7ffc6ae53fff 0x7ffc6ae59000 - 0x7ffc6ae5cfff 0x7ffc6ae5d000 - 0x7ffc6ae5efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/backquote.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1a3f000 - 0x1a5ffff 0x100000000000 - 0x1000000bffff 0x146b4d77b000 - 0x146b4d77bfff 0x146b4d77c000 - 0x146b4de26fff 0x146b4de27000 - 0x146b4de7bfff 0x146b4de7c000 - 0x146b4de7efff 0x146b4de7f000 - 0x146b4dea4fff 0x146b4dea5000 - 0x146b4dff3fff 0x146b4dff4000 - 0x146b4e03ffff 0x146b4e040000 - 0x146b4e040fff 0x146b4e041000 - 0x146b4e043fff 0x146b4e044000 - 0x146b4e046fff 0x146b4e047000 - 0x146b4e04afff 0x146b4e04b000 - 0x146b4e04dfff 0x146b4e04e000 - 0x146b4e05ffff 0x146b4e060000 - 0x146b4e063fff 0x146b4e064000 - 0x146b4e064fff 0x146b4e065000 - 0x146b4e065fff 0x146b4e066000 - 0x146b4e067fff 0x146b4e068000 - 0x146b4e078fff 0x146b4e079000 - 0x146b4e0aefff 0x146b4e0af000 - 0x146b4e1e4fff 0x146b4e1e5000 - 0x146b4e1e5fff 0x146b4e1e6000 - 0x146b4e1e9fff 0x146b4e1ea000 - 0x146b4e1eafff 0x146b4e1eb000 - 0x146b4e1ebfff 0x146b4e1ec000 - 0x146b4e1edfff 0x146b4e1ee000 - 0x146b4e1eefff 0x146b4e1ef000 - 0x146b4e1effff 0x146b4e1f0000 - 0x146b4e1f0fff 0x146b4e1f1000 - 0x146b4e1f2fff 0x146b4e1f3000 - 0x146b4e1f4fff 0x146b4e1f5000 - 0x146b4e1f5fff 0x146b4e1f6000 - 0x146b4e1f6fff 0x146b4e1f7000 - 0x146b4e1f7fff 0x146b4e1f8000 - 0x146b4e1f9fff 0x146b4e1fa000 - 0x146b4e1fbfff 0x146b4e1fc000 - 0x146b4e1fcfff 0x146b4e1fd000 - 0x146b4e1fdfff 0x146b4e1fe000 - 0x146b4e1fefff 0x146b4e1ff000 - 0x146b4e20cfff 0x146b4e20d000 - 0x146b4e21afff 0x146b4e21b000 - 0x146b4e228fff 0x146b4e229000 - 0x146b4e22cfff 0x146b4e22d000 - 0x146b4e22dfff 0x146b4e22e000 - 0x146b4e243fff 0x146b4e244000 - 0x146b4e26ffff 0x146b4e270000 - 0x146b4e278fff 0x146b4e279000 - 0x146b4e279fff 0x146b4e27a000 - 0x146b4e27cfff 0x146b4e27d000 - 0x146b4e282fff 0x146b4e283000 - 0x146b4e285fff 0x146b4e286000 - 0x146b4e286fff 0x146b4e287000 - 0x146b4e287fff 0x146b4e288000 - 0x146b4e28efff 0x146b4e28f000 - 0x146b4e28ffff 0x146b4e290000 - 0x146b4e2b0fff 0x146b4e2b1000 - 0x146b4e2b9fff 0x146b4e2ba000 - 0x146b4e2bafff 0x146b4e2bb000 - 0x146b4e2bcfff 0x7fff9ba2c000 - 0x7fff9ba4cfff 0x7fff9ba99000 - 0x7fff9ba9cfff 0x7fff9ba9d000 - 0x7fff9ba9efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defmacro.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x23e2000 - 0x2402fff 0x100000000000 - 0x1000000bffff 0x149d5bef5000 - 0x149d5bef5fff 0x149d5bef6000 - 0x149d5c5a0fff 0x149d5c5a1000 - 0x149d5c5f5fff 0x149d5c5f6000 - 0x149d5c5f8fff 0x149d5c5f9000 - 0x149d5c61efff 0x149d5c61f000 - 0x149d5c76dfff 0x149d5c76e000 - 0x149d5c7b9fff 0x149d5c7ba000 - 0x149d5c7bafff 0x149d5c7bb000 - 0x149d5c7bdfff 0x149d5c7be000 - 0x149d5c7c0fff 0x149d5c7c1000 - 0x149d5c7c4fff 0x149d5c7c5000 - 0x149d5c7c7fff 0x149d5c7c8000 - 0x149d5c7d9fff 0x149d5c7da000 - 0x149d5c7ddfff 0x149d5c7de000 - 0x149d5c7defff 0x149d5c7df000 - 0x149d5c7dffff 0x149d5c7e0000 - 0x149d5c7e1fff 0x149d5c7e2000 - 0x149d5c7f2fff 0x149d5c7f3000 - 0x149d5c828fff 0x149d5c829000 - 0x149d5c95efff 0x149d5c95f000 - 0x149d5c95ffff 0x149d5c960000 - 0x149d5c963fff 0x149d5c964000 - 0x149d5c964fff 0x149d5c965000 - 0x149d5c965fff 0x149d5c966000 - 0x149d5c967fff 0x149d5c968000 - 0x149d5c968fff 0x149d5c969000 - 0x149d5c969fff 0x149d5c96a000 - 0x149d5c96afff 0x149d5c96b000 - 0x149d5c96cfff 0x149d5c96d000 - 0x149d5c96efff 0x149d5c96f000 - 0x149d5c96ffff 0x149d5c970000 - 0x149d5c970fff 0x149d5c971000 - 0x149d5c971fff 0x149d5c972000 - 0x149d5c973fff 0x149d5c974000 - 0x149d5c975fff 0x149d5c976000 - 0x149d5c976fff 0x149d5c977000 - 0x149d5c977fff 0x149d5c978000 - 0x149d5c978fff 0x149d5c979000 - 0x149d5c986fff 0x149d5c987000 - 0x149d5c994fff 0x149d5c995000 - 0x149d5c9a2fff 0x149d5c9a3000 - 0x149d5c9a6fff 0x149d5c9a7000 - 0x149d5c9a7fff 0x149d5c9a8000 - 0x149d5c9bdfff 0x149d5c9be000 - 0x149d5c9e9fff 0x149d5c9ea000 - 0x149d5c9f2fff 0x149d5c9f3000 - 0x149d5c9f3fff 0x149d5c9f4000 - 0x149d5c9f6fff 0x149d5c9f7000 - 0x149d5c9fcfff 0x149d5c9fd000 - 0x149d5c9fffff 0x149d5ca00000 - 0x149d5ca00fff 0x149d5ca01000 - 0x149d5ca01fff 0x149d5ca02000 - 0x149d5ca08fff 0x149d5ca09000 - 0x149d5ca09fff 0x149d5ca0a000 - 0x149d5ca2afff 0x149d5ca2b000 - 0x149d5ca33fff 0x149d5ca34000 - 0x149d5ca34fff 0x149d5ca35000 - 0x149d5ca36fff 0x7ffd9580a000 - 0x7ffd9582afff 0x7ffd9586a000 - 0x7ffd9586dfff 0x7ffd9586e000 - 0x7ffd9586ffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x19c5000 - 0x19e5fff 0x100000000000 - 0x1000000bffff 0x14fd8e150000 - 0x14fd8e150fff 0x14fd8e151000 - 0x14fd8e7fbfff 0x14fd8e7fc000 - 0x14fd8e850fff 0x14fd8e851000 - 0x14fd8e853fff 0x14fd8e854000 - 0x14fd8e879fff 0x14fd8e87a000 - 0x14fd8e9c8fff 0x14fd8e9c9000 - 0x14fd8ea14fff 0x14fd8ea15000 - 0x14fd8ea15fff 0x14fd8ea16000 - 0x14fd8ea18fff 0x14fd8ea19000 - 0x14fd8ea1bfff 0x14fd8ea1c000 - 0x14fd8ea1ffff 0x14fd8ea20000 - 0x14fd8ea22fff 0x14fd8ea23000 - 0x14fd8ea34fff 0x14fd8ea35000 - 0x14fd8ea38fff 0x14fd8ea39000 - 0x14fd8ea39fff 0x14fd8ea3a000 - 0x14fd8ea3afff 0x14fd8ea3b000 - 0x14fd8ea3cfff 0x14fd8ea3d000 - 0x14fd8ea4dfff 0x14fd8ea4e000 - 0x14fd8ea83fff 0x14fd8ea84000 - 0x14fd8ebb9fff 0x14fd8ebba000 - 0x14fd8ebbafff 0x14fd8ebbb000 - 0x14fd8ebbefff 0x14fd8ebbf000 - 0x14fd8ebbffff 0x14fd8ebc0000 - 0x14fd8ebc0fff 0x14fd8ebc1000 - 0x14fd8ebc2fff 0x14fd8ebc3000 - 0x14fd8ebc3fff 0x14fd8ebc4000 - 0x14fd8ebc4fff 0x14fd8ebc5000 - 0x14fd8ebc5fff 0x14fd8ebc6000 - 0x14fd8ebc7fff 0x14fd8ebc8000 - 0x14fd8ebc9fff 0x14fd8ebca000 - 0x14fd8ebcafff 0x14fd8ebcb000 - 0x14fd8ebcbfff 0x14fd8ebcc000 - 0x14fd8ebccfff 0x14fd8ebcd000 - 0x14fd8ebcefff 0x14fd8ebcf000 - 0x14fd8ebd0fff 0x14fd8ebd1000 - 0x14fd8ebd1fff 0x14fd8ebd2000 - 0x14fd8ebd2fff 0x14fd8ebd3000 - 0x14fd8ebd3fff 0x14fd8ebd4000 - 0x14fd8ebe1fff 0x14fd8ebe2000 - 0x14fd8ebeffff 0x14fd8ebf0000 - 0x14fd8ebfdfff 0x14fd8ebfe000 - 0x14fd8ec01fff 0x14fd8ec02000 - 0x14fd8ec02fff 0x14fd8ec03000 - 0x14fd8ec18fff 0x14fd8ec19000 - 0x14fd8ec44fff 0x14fd8ec45000 - 0x14fd8ec4dfff 0x14fd8ec4e000 - 0x14fd8ec4efff 0x14fd8ec4f000 - 0x14fd8ec51fff 0x14fd8ec52000 - 0x14fd8ec57fff 0x14fd8ec58000 - 0x14fd8ec5afff 0x14fd8ec5b000 - 0x14fd8ec5bfff 0x14fd8ec5c000 - 0x14fd8ec5cfff 0x14fd8ec5d000 - 0x14fd8ec63fff 0x14fd8ec64000 - 0x14fd8ec64fff 0x14fd8ec65000 - 0x14fd8ec85fff 0x14fd8ec86000 - 0x14fd8ec8efff 0x14fd8ec8f000 - 0x14fd8ec8ffff 0x14fd8ec90000 - 0x14fd8ec91fff 0x7ffd9d7d1000 - 0x7ffd9d7f1fff 0x7ffd9d7fa000 - 0x7ffd9d7fdfff 0x7ffd9d7fe000 - 0x7ffd9d7fffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1bad000 - 0x1bcdfff 0x100000000000 - 0x1000000bffff 0x14dec6e4f000 - 0x14dec6e4ffff 0x14dec6e50000 - 0x14dec74fafff 0x14dec74fb000 - 0x14dec754ffff 0x14dec7550000 - 0x14dec7552fff 0x14dec7553000 - 0x14dec7578fff 0x14dec7579000 - 0x14dec76c7fff 0x14dec76c8000 - 0x14dec7713fff 0x14dec7714000 - 0x14dec7714fff 0x14dec7715000 - 0x14dec7717fff 0x14dec7718000 - 0x14dec771afff 0x14dec771b000 - 0x14dec771efff 0x14dec771f000 - 0x14dec7721fff 0x14dec7722000 - 0x14dec7733fff 0x14dec7734000 - 0x14dec7737fff 0x14dec7738000 - 0x14dec7738fff 0x14dec7739000 - 0x14dec7739fff 0x14dec773a000 - 0x14dec773bfff 0x14dec773c000 - 0x14dec774cfff 0x14dec774d000 - 0x14dec7782fff 0x14dec7783000 - 0x14dec78b8fff 0x14dec78b9000 - 0x14dec78b9fff 0x14dec78ba000 - 0x14dec78bdfff 0x14dec78be000 - 0x14dec78befff 0x14dec78bf000 - 0x14dec78bffff 0x14dec78c0000 - 0x14dec78c1fff 0x14dec78c2000 - 0x14dec78c2fff 0x14dec78c3000 - 0x14dec78c3fff 0x14dec78c4000 - 0x14dec78c4fff 0x14dec78c5000 - 0x14dec78c6fff 0x14dec78c7000 - 0x14dec78c8fff 0x14dec78c9000 - 0x14dec78c9fff 0x14dec78ca000 - 0x14dec78cafff 0x14dec78cb000 - 0x14dec78cbfff 0x14dec78cc000 - 0x14dec78cdfff 0x14dec78ce000 - 0x14dec78cffff 0x14dec78d0000 - 0x14dec78d0fff 0x14dec78d1000 - 0x14dec78d1fff 0x14dec78d2000 - 0x14dec78d2fff 0x14dec78d3000 - 0x14dec78e0fff 0x14dec78e1000 - 0x14dec78eefff 0x14dec78ef000 - 0x14dec78fcfff 0x14dec78fd000 - 0x14dec7900fff 0x14dec7901000 - 0x14dec7901fff 0x14dec7902000 - 0x14dec7917fff 0x14dec7918000 - 0x14dec7943fff 0x14dec7944000 - 0x14dec794cfff 0x14dec794d000 - 0x14dec794dfff 0x14dec794e000 - 0x14dec7950fff 0x14dec7951000 - 0x14dec7956fff 0x14dec7957000 - 0x14dec7959fff 0x14dec795a000 - 0x14dec795afff 0x14dec795b000 - 0x14dec795bfff 0x14dec795c000 - 0x14dec7962fff 0x14dec7963000 - 0x14dec7963fff 0x14dec7964000 - 0x14dec7984fff 0x14dec7985000 - 0x14dec798dfff 0x14dec798e000 - 0x14dec798efff 0x14dec798f000 - 0x14dec7990fff 0x7ffcdf480000 - 0x7ffcdf4a0fff 0x7ffcdf58c000 - 0x7ffcdf58ffff 0x7ffcdf590000 - 0x7ffcdf591fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xfa5000 - 0xfc5fff 0x100000000000 - 0x1000000bffff 0x146591b19000 - 0x146591b19fff 0x146591b1a000 - 0x1465921c4fff 0x1465921c5000 - 0x146592219fff 0x14659221a000 - 0x14659221cfff 0x14659221d000 - 0x146592242fff 0x146592243000 - 0x146592391fff 0x146592392000 - 0x1465923ddfff 0x1465923de000 - 0x1465923defff 0x1465923df000 - 0x1465923e1fff 0x1465923e2000 - 0x1465923e4fff 0x1465923e5000 - 0x1465923e8fff 0x1465923e9000 - 0x1465923ebfff 0x1465923ec000 - 0x1465923fdfff 0x1465923fe000 - 0x146592401fff 0x146592402000 - 0x146592402fff 0x146592403000 - 0x146592403fff 0x146592404000 - 0x146592405fff 0x146592406000 - 0x146592416fff 0x146592417000 - 0x14659244cfff 0x14659244d000 - 0x146592582fff 0x146592583000 - 0x146592583fff 0x146592584000 - 0x146592587fff 0x146592588000 - 0x146592588fff 0x146592589000 - 0x146592589fff 0x14659258a000 - 0x14659258bfff 0x14659258c000 - 0x14659258cfff 0x14659258d000 - 0x14659258dfff 0x14659258e000 - 0x14659258efff 0x14659258f000 - 0x146592590fff 0x146592591000 - 0x146592592fff 0x146592593000 - 0x146592593fff 0x146592594000 - 0x146592594fff 0x146592595000 - 0x146592595fff 0x146592596000 - 0x146592597fff 0x146592598000 - 0x146592599fff 0x14659259a000 - 0x14659259afff 0x14659259b000 - 0x14659259bfff 0x14659259c000 - 0x14659259cfff 0x14659259d000 - 0x1465925aafff 0x1465925ab000 - 0x1465925b8fff 0x1465925b9000 - 0x1465925c6fff 0x1465925c7000 - 0x1465925cafff 0x1465925cb000 - 0x1465925cbfff 0x1465925cc000 - 0x1465925e1fff 0x1465925e2000 - 0x14659260dfff 0x14659260e000 - 0x146592616fff 0x146592617000 - 0x146592617fff 0x146592618000 - 0x14659261afff 0x14659261b000 - 0x146592620fff 0x146592621000 - 0x146592623fff 0x146592624000 - 0x146592624fff 0x146592625000 - 0x146592625fff 0x146592626000 - 0x14659262cfff 0x14659262d000 - 0x14659262dfff 0x14659262e000 - 0x14659264efff 0x14659264f000 - 0x146592657fff 0x146592658000 - 0x146592658fff 0x146592659000 - 0x14659265afff 0x7ffdaef0f000 - 0x7ffdaef2ffff 0x7ffdaef60000 - 0x7ffdaef63fff 0x7ffdaef64000 - 0x7ffdaef65fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/lambdalist.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d99000 - 0x1db9fff 0x100000000000 - 0x1000000bffff 0x14cebdc56000 - 0x14cebdc56fff 0x14cebdc57000 - 0x14cebe301fff 0x14cebe302000 - 0x14cebe356fff 0x14cebe357000 - 0x14cebe359fff 0x14cebe35a000 - 0x14cebe37ffff 0x14cebe380000 - 0x14cebe4cefff 0x14cebe4cf000 - 0x14cebe51afff 0x14cebe51b000 - 0x14cebe51bfff 0x14cebe51c000 - 0x14cebe51efff 0x14cebe51f000 - 0x14cebe521fff 0x14cebe522000 - 0x14cebe525fff 0x14cebe526000 - 0x14cebe528fff 0x14cebe529000 - 0x14cebe53afff 0x14cebe53b000 - 0x14cebe53efff 0x14cebe53f000 - 0x14cebe53ffff 0x14cebe540000 - 0x14cebe540fff 0x14cebe541000 - 0x14cebe542fff 0x14cebe543000 - 0x14cebe553fff 0x14cebe554000 - 0x14cebe589fff 0x14cebe58a000 - 0x14cebe6bffff 0x14cebe6c0000 - 0x14cebe6c0fff 0x14cebe6c1000 - 0x14cebe6c4fff 0x14cebe6c5000 - 0x14cebe6c5fff 0x14cebe6c6000 - 0x14cebe6c6fff 0x14cebe6c7000 - 0x14cebe6c8fff 0x14cebe6c9000 - 0x14cebe6c9fff 0x14cebe6ca000 - 0x14cebe6cafff 0x14cebe6cb000 - 0x14cebe6cbfff 0x14cebe6cc000 - 0x14cebe6cdfff 0x14cebe6ce000 - 0x14cebe6cffff 0x14cebe6d0000 - 0x14cebe6d0fff 0x14cebe6d1000 - 0x14cebe6d1fff 0x14cebe6d2000 - 0x14cebe6d2fff 0x14cebe6d3000 - 0x14cebe6d4fff 0x14cebe6d5000 - 0x14cebe6d6fff 0x14cebe6d7000 - 0x14cebe6d7fff 0x14cebe6d8000 - 0x14cebe6d8fff 0x14cebe6d9000 - 0x14cebe6d9fff 0x14cebe6da000 - 0x14cebe6e7fff 0x14cebe6e8000 - 0x14cebe6f5fff 0x14cebe6f6000 - 0x14cebe703fff 0x14cebe704000 - 0x14cebe707fff 0x14cebe708000 - 0x14cebe708fff 0x14cebe709000 - 0x14cebe71efff 0x14cebe71f000 - 0x14cebe74afff 0x14cebe74b000 - 0x14cebe753fff 0x14cebe754000 - 0x14cebe754fff 0x14cebe755000 - 0x14cebe757fff 0x14cebe758000 - 0x14cebe75dfff 0x14cebe75e000 - 0x14cebe760fff 0x14cebe761000 - 0x14cebe761fff 0x14cebe762000 - 0x14cebe762fff 0x14cebe763000 - 0x14cebe769fff 0x14cebe76a000 - 0x14cebe76afff 0x14cebe76b000 - 0x14cebe78bfff 0x14cebe78c000 - 0x14cebe794fff 0x14cebe795000 - 0x14cebe795fff 0x14cebe796000 - 0x14cebe797fff 0x7ffc6f92c000 - 0x7ffc6f94cfff 0x7ffc6f9c8000 - 0x7ffc6f9cbfff 0x7ffc6f9cc000 - 0x7ffc6f9cdfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/places.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x246a000 - 0x248afff 0x100000000000 - 0x1000000bffff 0x1550f3218000 - 0x1550f3218fff 0x1550f3219000 - 0x1550f38c3fff 0x1550f38c4000 - 0x1550f3918fff 0x1550f3919000 - 0x1550f391bfff 0x1550f391c000 - 0x1550f3941fff 0x1550f3942000 - 0x1550f3a90fff 0x1550f3a91000 - 0x1550f3adcfff 0x1550f3add000 - 0x1550f3addfff 0x1550f3ade000 - 0x1550f3ae0fff 0x1550f3ae1000 - 0x1550f3ae3fff 0x1550f3ae4000 - 0x1550f3ae7fff 0x1550f3ae8000 - 0x1550f3aeafff 0x1550f3aeb000 - 0x1550f3afcfff 0x1550f3afd000 - 0x1550f3b00fff 0x1550f3b01000 - 0x1550f3b01fff 0x1550f3b02000 - 0x1550f3b02fff 0x1550f3b03000 - 0x1550f3b04fff 0x1550f3b05000 - 0x1550f3b15fff 0x1550f3b16000 - 0x1550f3b4bfff 0x1550f3b4c000 - 0x1550f3c81fff 0x1550f3c82000 - 0x1550f3c82fff 0x1550f3c83000 - 0x1550f3c86fff 0x1550f3c87000 - 0x1550f3c87fff 0x1550f3c88000 - 0x1550f3c88fff 0x1550f3c89000 - 0x1550f3c8afff 0x1550f3c8b000 - 0x1550f3c8bfff 0x1550f3c8c000 - 0x1550f3c8cfff 0x1550f3c8d000 - 0x1550f3c8dfff 0x1550f3c8e000 - 0x1550f3c8ffff 0x1550f3c90000 - 0x1550f3c91fff 0x1550f3c92000 - 0x1550f3c92fff 0x1550f3c93000 - 0x1550f3c93fff 0x1550f3c94000 - 0x1550f3c94fff 0x1550f3c95000 - 0x1550f3c96fff 0x1550f3c97000 - 0x1550f3c98fff 0x1550f3c99000 - 0x1550f3c99fff 0x1550f3c9a000 - 0x1550f3c9afff 0x1550f3c9b000 - 0x1550f3c9bfff 0x1550f3c9c000 - 0x1550f3ca9fff 0x1550f3caa000 - 0x1550f3cb7fff 0x1550f3cb8000 - 0x1550f3cc5fff 0x1550f3cc6000 - 0x1550f3cc9fff 0x1550f3cca000 - 0x1550f3ccafff 0x1550f3ccb000 - 0x1550f3ce0fff 0x1550f3ce1000 - 0x1550f3d0cfff 0x1550f3d0d000 - 0x1550f3d15fff 0x1550f3d16000 - 0x1550f3d16fff 0x1550f3d17000 - 0x1550f3d19fff 0x1550f3d1a000 - 0x1550f3d1ffff 0x1550f3d20000 - 0x1550f3d22fff 0x1550f3d23000 - 0x1550f3d23fff 0x1550f3d24000 - 0x1550f3d24fff 0x1550f3d25000 - 0x1550f3d2bfff 0x1550f3d2c000 - 0x1550f3d2cfff 0x1550f3d2d000 - 0x1550f3d4dfff 0x1550f3d4e000 - 0x1550f3d56fff 0x1550f3d57000 - 0x1550f3d57fff 0x1550f3d58000 - 0x1550f3d59fff 0x7ffe5a3a8000 - 0x7ffe5a3c8fff 0x7ffe5a3d8000 - 0x7ffe5a3dbfff 0x7ffe5a3dc000 - 0x7ffe5a3ddfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/floatprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xca0000 - 0xcc0fff 0x100000000000 - 0x1000000bffff 0x15262d174000 - 0x15262d174fff 0x15262d175000 - 0x15262d81ffff 0x15262d820000 - 0x15262d874fff 0x15262d875000 - 0x15262d877fff 0x15262d878000 - 0x15262d89dfff 0x15262d89e000 - 0x15262d9ecfff 0x15262d9ed000 - 0x15262da38fff 0x15262da39000 - 0x15262da39fff 0x15262da3a000 - 0x15262da3cfff 0x15262da3d000 - 0x15262da3ffff 0x15262da40000 - 0x15262da43fff 0x15262da44000 - 0x15262da46fff 0x15262da47000 - 0x15262da58fff 0x15262da59000 - 0x15262da5cfff 0x15262da5d000 - 0x15262da5dfff 0x15262da5e000 - 0x15262da5efff 0x15262da5f000 - 0x15262da60fff 0x15262da61000 - 0x15262da71fff 0x15262da72000 - 0x15262daa7fff 0x15262daa8000 - 0x15262dbddfff 0x15262dbde000 - 0x15262dbdefff 0x15262dbdf000 - 0x15262dbe2fff 0x15262dbe3000 - 0x15262dbe3fff 0x15262dbe4000 - 0x15262dbe4fff 0x15262dbe5000 - 0x15262dbe6fff 0x15262dbe7000 - 0x15262dbe7fff 0x15262dbe8000 - 0x15262dbe8fff 0x15262dbe9000 - 0x15262dbe9fff 0x15262dbea000 - 0x15262dbebfff 0x15262dbec000 - 0x15262dbedfff 0x15262dbee000 - 0x15262dbeefff 0x15262dbef000 - 0x15262dbeffff 0x15262dbf0000 - 0x15262dbf0fff 0x15262dbf1000 - 0x15262dbf2fff 0x15262dbf3000 - 0x15262dbf4fff 0x15262dbf5000 - 0x15262dbf5fff 0x15262dbf6000 - 0x15262dbf6fff 0x15262dbf7000 - 0x15262dbf7fff 0x15262dbf8000 - 0x15262dc05fff 0x15262dc06000 - 0x15262dc13fff 0x15262dc14000 - 0x15262dc21fff 0x15262dc22000 - 0x15262dc25fff 0x15262dc26000 - 0x15262dc26fff 0x15262dc27000 - 0x15262dc3cfff 0x15262dc3d000 - 0x15262dc68fff 0x15262dc69000 - 0x15262dc71fff 0x15262dc72000 - 0x15262dc72fff 0x15262dc73000 - 0x15262dc75fff 0x15262dc76000 - 0x15262dc7bfff 0x15262dc7c000 - 0x15262dc7efff 0x15262dc7f000 - 0x15262dc7ffff 0x15262dc80000 - 0x15262dc80fff 0x15262dc81000 - 0x15262dc87fff 0x15262dc88000 - 0x15262dc88fff 0x15262dc89000 - 0x15262dca9fff 0x15262dcaa000 - 0x15262dcb2fff 0x15262dcb3000 - 0x15262dcb3fff 0x15262dcb4000 - 0x15262dcb5fff 0x7ffeb4fe3000 - 0x7ffeb5003fff 0x7ffeb500c000 - 0x7ffeb500ffff 0x7ffeb5010000 - 0x7ffeb5011fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defpackage.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xe15000 - 0xe35fff 0x100000000000 - 0x1000000bffff 0x14ad94f8f000 - 0x14ad94f8ffff 0x14ad94f90000 - 0x14ad9563afff 0x14ad9563b000 - 0x14ad9568ffff 0x14ad95690000 - 0x14ad95692fff 0x14ad95693000 - 0x14ad956b8fff 0x14ad956b9000 - 0x14ad95807fff 0x14ad95808000 - 0x14ad95853fff 0x14ad95854000 - 0x14ad95854fff 0x14ad95855000 - 0x14ad95857fff 0x14ad95858000 - 0x14ad9585afff 0x14ad9585b000 - 0x14ad9585efff 0x14ad9585f000 - 0x14ad95861fff 0x14ad95862000 - 0x14ad95873fff 0x14ad95874000 - 0x14ad95877fff 0x14ad95878000 - 0x14ad95878fff 0x14ad95879000 - 0x14ad95879fff 0x14ad9587a000 - 0x14ad9587bfff 0x14ad9587c000 - 0x14ad9588cfff 0x14ad9588d000 - 0x14ad958c2fff 0x14ad958c3000 - 0x14ad959f8fff 0x14ad959f9000 - 0x14ad959f9fff 0x14ad959fa000 - 0x14ad959fdfff 0x14ad959fe000 - 0x14ad959fefff 0x14ad959ff000 - 0x14ad959fffff 0x14ad95a00000 - 0x14ad95a01fff 0x14ad95a02000 - 0x14ad95a02fff 0x14ad95a03000 - 0x14ad95a03fff 0x14ad95a04000 - 0x14ad95a04fff 0x14ad95a05000 - 0x14ad95a06fff 0x14ad95a07000 - 0x14ad95a08fff 0x14ad95a09000 - 0x14ad95a09fff 0x14ad95a0a000 - 0x14ad95a0afff 0x14ad95a0b000 - 0x14ad95a0bfff 0x14ad95a0c000 - 0x14ad95a0dfff 0x14ad95a0e000 - 0x14ad95a0ffff 0x14ad95a10000 - 0x14ad95a10fff 0x14ad95a11000 - 0x14ad95a11fff 0x14ad95a12000 - 0x14ad95a12fff 0x14ad95a13000 - 0x14ad95a20fff 0x14ad95a21000 - 0x14ad95a2efff 0x14ad95a2f000 - 0x14ad95a3cfff 0x14ad95a3d000 - 0x14ad95a40fff 0x14ad95a41000 - 0x14ad95a41fff 0x14ad95a42000 - 0x14ad95a57fff 0x14ad95a58000 - 0x14ad95a83fff 0x14ad95a84000 - 0x14ad95a8cfff 0x14ad95a8d000 - 0x14ad95a8dfff 0x14ad95a8e000 - 0x14ad95a90fff 0x14ad95a91000 - 0x14ad95a96fff 0x14ad95a97000 - 0x14ad95a99fff 0x14ad95a9a000 - 0x14ad95a9afff 0x14ad95a9b000 - 0x14ad95a9bfff 0x14ad95a9c000 - 0x14ad95aa2fff 0x14ad95aa3000 - 0x14ad95aa3fff 0x14ad95aa4000 - 0x14ad95ac4fff 0x14ad95ac5000 - 0x14ad95acdfff 0x14ad95ace000 - 0x14ad95acefff 0x14ad95acf000 - 0x14ad95ad0fff 0x7ffeee06d000 - 0x7ffeee08dfff 0x7ffeee178000 - 0x7ffeee17bfff 0x7ffeee17c000 - 0x7ffeee17dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/type.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d90000 - 0x1db0fff 0x100000000000 - 0x1000000bffff 0x150e211df000 - 0x150e211dffff 0x150e211e0000 - 0x150e2188afff 0x150e2188b000 - 0x150e218dffff 0x150e218e0000 - 0x150e218e2fff 0x150e218e3000 - 0x150e21908fff 0x150e21909000 - 0x150e21a57fff 0x150e21a58000 - 0x150e21aa3fff 0x150e21aa4000 - 0x150e21aa4fff 0x150e21aa5000 - 0x150e21aa7fff 0x150e21aa8000 - 0x150e21aaafff 0x150e21aab000 - 0x150e21aaefff 0x150e21aaf000 - 0x150e21ab1fff 0x150e21ab2000 - 0x150e21ac3fff 0x150e21ac4000 - 0x150e21ac7fff 0x150e21ac8000 - 0x150e21ac8fff 0x150e21ac9000 - 0x150e21ac9fff 0x150e21aca000 - 0x150e21acbfff 0x150e21acc000 - 0x150e21adcfff 0x150e21add000 - 0x150e21b12fff 0x150e21b13000 - 0x150e21c48fff 0x150e21c49000 - 0x150e21c49fff 0x150e21c4a000 - 0x150e21c4dfff 0x150e21c4e000 - 0x150e21c4efff 0x150e21c4f000 - 0x150e21c4ffff 0x150e21c50000 - 0x150e21c51fff 0x150e21c52000 - 0x150e21c52fff 0x150e21c53000 - 0x150e21c53fff 0x150e21c54000 - 0x150e21c54fff 0x150e21c55000 - 0x150e21c56fff 0x150e21c57000 - 0x150e21c58fff 0x150e21c59000 - 0x150e21c59fff 0x150e21c5a000 - 0x150e21c5afff 0x150e21c5b000 - 0x150e21c5bfff 0x150e21c5c000 - 0x150e21c5dfff 0x150e21c5e000 - 0x150e21c5ffff 0x150e21c60000 - 0x150e21c60fff 0x150e21c61000 - 0x150e21c61fff 0x150e21c62000 - 0x150e21c62fff 0x150e21c63000 - 0x150e21c70fff 0x150e21c71000 - 0x150e21c7efff 0x150e21c7f000 - 0x150e21c8cfff 0x150e21c8d000 - 0x150e21c90fff 0x150e21c91000 - 0x150e21c91fff 0x150e21c92000 - 0x150e21ca7fff 0x150e21ca8000 - 0x150e21cd3fff 0x150e21cd4000 - 0x150e21cdcfff 0x150e21cdd000 - 0x150e21cddfff 0x150e21cde000 - 0x150e21ce0fff 0x150e21ce1000 - 0x150e21ce6fff 0x150e21ce7000 - 0x150e21ce9fff 0x150e21cea000 - 0x150e21ceafff 0x150e21ceb000 - 0x150e21cebfff 0x150e21cec000 - 0x150e21cf2fff 0x150e21cf3000 - 0x150e21cf3fff 0x150e21cf4000 - 0x150e21d14fff 0x150e21d15000 - 0x150e21d1dfff 0x150e21d1e000 - 0x150e21d1efff 0x150e21d1f000 - 0x150e21d20fff 0x7ffd0f2a5000 - 0x7ffd0f2c5fff 0x7ffd0f30e000 - 0x7ffd0f311fff 0x7ffd0f312000 - 0x7ffd0f313fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/subtypep.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1ae9000 - 0x1b09fff 0x100000000000 - 0x1000000bffff 0x154ba6baf000 - 0x154ba6baffff 0x154ba6bb0000 - 0x154ba725afff 0x154ba725b000 - 0x154ba72affff 0x154ba72b0000 - 0x154ba72b2fff 0x154ba72b3000 - 0x154ba72d8fff 0x154ba72d9000 - 0x154ba7427fff 0x154ba7428000 - 0x154ba7473fff 0x154ba7474000 - 0x154ba7474fff 0x154ba7475000 - 0x154ba7477fff 0x154ba7478000 - 0x154ba747afff 0x154ba747b000 - 0x154ba747efff 0x154ba747f000 - 0x154ba7481fff 0x154ba7482000 - 0x154ba7493fff 0x154ba7494000 - 0x154ba7497fff 0x154ba7498000 - 0x154ba7498fff 0x154ba7499000 - 0x154ba7499fff 0x154ba749a000 - 0x154ba749bfff 0x154ba749c000 - 0x154ba74acfff 0x154ba74ad000 - 0x154ba74e2fff 0x154ba74e3000 - 0x154ba7618fff 0x154ba7619000 - 0x154ba7619fff 0x154ba761a000 - 0x154ba761dfff 0x154ba761e000 - 0x154ba761efff 0x154ba761f000 - 0x154ba761ffff 0x154ba7620000 - 0x154ba7621fff 0x154ba7622000 - 0x154ba7622fff 0x154ba7623000 - 0x154ba7623fff 0x154ba7624000 - 0x154ba7624fff 0x154ba7625000 - 0x154ba7626fff 0x154ba7627000 - 0x154ba7628fff 0x154ba7629000 - 0x154ba7629fff 0x154ba762a000 - 0x154ba762afff 0x154ba762b000 - 0x154ba762bfff 0x154ba762c000 - 0x154ba762dfff 0x154ba762e000 - 0x154ba762ffff 0x154ba7630000 - 0x154ba7630fff 0x154ba7631000 - 0x154ba7631fff 0x154ba7632000 - 0x154ba7632fff 0x154ba7633000 - 0x154ba7640fff 0x154ba7641000 - 0x154ba764efff 0x154ba764f000 - 0x154ba765cfff 0x154ba765d000 - 0x154ba7660fff 0x154ba7661000 - 0x154ba7661fff 0x154ba7662000 - 0x154ba7677fff 0x154ba7678000 - 0x154ba76a3fff 0x154ba76a4000 - 0x154ba76acfff 0x154ba76ad000 - 0x154ba76adfff 0x154ba76ae000 - 0x154ba76b0fff 0x154ba76b1000 - 0x154ba76b6fff 0x154ba76b7000 - 0x154ba76b9fff 0x154ba76ba000 - 0x154ba76bafff 0x154ba76bb000 - 0x154ba76bbfff 0x154ba76bc000 - 0x154ba76c2fff 0x154ba76c3000 - 0x154ba76c3fff 0x154ba76c4000 - 0x154ba76e4fff 0x154ba76e5000 - 0x154ba76edfff 0x154ba76ee000 - 0x154ba76eefff 0x154ba76ef000 - 0x154ba76f0fff 0x7ffe256ae000 - 0x7ffe256cefff 0x7ffe257f1000 - 0x7ffe257f4fff 0x7ffe257f5000 - 0x7ffe257f6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-package.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x154d000 - 0x156dfff 0x100000000000 - 0x1000000bffff 0x1547ed87e000 - 0x1547ed87efff 0x1547ed87f000 - 0x1547edf29fff 0x1547edf2a000 - 0x1547edf7efff 0x1547edf7f000 - 0x1547edf81fff 0x1547edf82000 - 0x1547edfa7fff 0x1547edfa8000 - 0x1547ee0f6fff 0x1547ee0f7000 - 0x1547ee142fff 0x1547ee143000 - 0x1547ee143fff 0x1547ee144000 - 0x1547ee146fff 0x1547ee147000 - 0x1547ee149fff 0x1547ee14a000 - 0x1547ee14dfff 0x1547ee14e000 - 0x1547ee150fff 0x1547ee151000 - 0x1547ee162fff 0x1547ee163000 - 0x1547ee166fff 0x1547ee167000 - 0x1547ee167fff 0x1547ee168000 - 0x1547ee168fff 0x1547ee169000 - 0x1547ee16afff 0x1547ee16b000 - 0x1547ee17bfff 0x1547ee17c000 - 0x1547ee1b1fff 0x1547ee1b2000 - 0x1547ee2e7fff 0x1547ee2e8000 - 0x1547ee2e8fff 0x1547ee2e9000 - 0x1547ee2ecfff 0x1547ee2ed000 - 0x1547ee2edfff 0x1547ee2ee000 - 0x1547ee2eefff 0x1547ee2ef000 - 0x1547ee2f0fff 0x1547ee2f1000 - 0x1547ee2f1fff 0x1547ee2f2000 - 0x1547ee2f2fff 0x1547ee2f3000 - 0x1547ee2f3fff 0x1547ee2f4000 - 0x1547ee2f5fff 0x1547ee2f6000 - 0x1547ee2f7fff 0x1547ee2f8000 - 0x1547ee2f8fff 0x1547ee2f9000 - 0x1547ee2f9fff 0x1547ee2fa000 - 0x1547ee2fafff 0x1547ee2fb000 - 0x1547ee2fcfff 0x1547ee2fd000 - 0x1547ee2fefff 0x1547ee2ff000 - 0x1547ee2fffff 0x1547ee300000 - 0x1547ee300fff 0x1547ee301000 - 0x1547ee301fff 0x1547ee302000 - 0x1547ee30ffff 0x1547ee310000 - 0x1547ee31dfff 0x1547ee31e000 - 0x1547ee32bfff 0x1547ee32c000 - 0x1547ee32ffff 0x1547ee330000 - 0x1547ee330fff 0x1547ee331000 - 0x1547ee346fff 0x1547ee347000 - 0x1547ee372fff 0x1547ee373000 - 0x1547ee37bfff 0x1547ee37c000 - 0x1547ee37cfff 0x1547ee37d000 - 0x1547ee37ffff 0x1547ee380000 - 0x1547ee385fff 0x1547ee386000 - 0x1547ee388fff 0x1547ee389000 - 0x1547ee389fff 0x1547ee38a000 - 0x1547ee38afff 0x1547ee38b000 - 0x1547ee391fff 0x1547ee392000 - 0x1547ee392fff 0x1547ee393000 - 0x1547ee3b3fff 0x1547ee3b4000 - 0x1547ee3bcfff 0x1547ee3bd000 - 0x1547ee3bdfff 0x1547ee3be000 - 0x1547ee3bffff 0x7ffc41103000 - 0x7ffc41123fff 0x7ffc411d6000 - 0x7ffc411d9fff 0x7ffc411da000 - 0x7ffc411dbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-macros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1249000 - 0x1269fff 0x100000000000 - 0x1000000bffff 0x14651567c000 - 0x14651567cfff 0x14651567d000 - 0x146515d27fff 0x146515d28000 - 0x146515d7cfff 0x146515d7d000 - 0x146515d7ffff 0x146515d80000 - 0x146515da5fff 0x146515da6000 - 0x146515ef4fff 0x146515ef5000 - 0x146515f40fff 0x146515f41000 - 0x146515f41fff 0x146515f42000 - 0x146515f44fff 0x146515f45000 - 0x146515f47fff 0x146515f48000 - 0x146515f4bfff 0x146515f4c000 - 0x146515f4efff 0x146515f4f000 - 0x146515f60fff 0x146515f61000 - 0x146515f64fff 0x146515f65000 - 0x146515f65fff 0x146515f66000 - 0x146515f66fff 0x146515f67000 - 0x146515f68fff 0x146515f69000 - 0x146515f79fff 0x146515f7a000 - 0x146515faffff 0x146515fb0000 - 0x1465160e5fff 0x1465160e6000 - 0x1465160e6fff 0x1465160e7000 - 0x1465160eafff 0x1465160eb000 - 0x1465160ebfff 0x1465160ec000 - 0x1465160ecfff 0x1465160ed000 - 0x1465160eefff 0x1465160ef000 - 0x1465160effff 0x1465160f0000 - 0x1465160f0fff 0x1465160f1000 - 0x1465160f1fff 0x1465160f2000 - 0x1465160f3fff 0x1465160f4000 - 0x1465160f5fff 0x1465160f6000 - 0x1465160f6fff 0x1465160f7000 - 0x1465160f7fff 0x1465160f8000 - 0x1465160f8fff 0x1465160f9000 - 0x1465160fafff 0x1465160fb000 - 0x1465160fcfff 0x1465160fd000 - 0x1465160fdfff 0x1465160fe000 - 0x1465160fefff 0x1465160ff000 - 0x1465160fffff 0x146516100000 - 0x14651610dfff 0x14651610e000 - 0x14651611bfff 0x14651611c000 - 0x146516129fff 0x14651612a000 - 0x14651612dfff 0x14651612e000 - 0x14651612efff 0x14651612f000 - 0x146516144fff 0x146516145000 - 0x146516170fff 0x146516171000 - 0x146516179fff 0x14651617a000 - 0x14651617afff 0x14651617b000 - 0x14651617dfff 0x14651617e000 - 0x146516183fff 0x146516184000 - 0x146516186fff 0x146516187000 - 0x146516187fff 0x146516188000 - 0x146516188fff 0x146516189000 - 0x14651618ffff 0x146516190000 - 0x146516190fff 0x146516191000 - 0x1465161b1fff 0x1465161b2000 - 0x1465161bafff 0x1465161bb000 - 0x1465161bbfff 0x1465161bc000 - 0x1465161bdfff 0x7ffc9e2d8000 - 0x7ffc9e2f8fff 0x7ffc9e2fb000 - 0x7ffc9e2fefff 0x7ffc9e2ff000 - 0x7ffc9e300fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class0.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xf1d000 - 0xf3dfff 0x100000000000 - 0x1000000bffff 0x14969ad91000 - 0x14969ad91fff 0x14969ad92000 - 0x14969b43cfff 0x14969b43d000 - 0x14969b491fff 0x14969b492000 - 0x14969b494fff 0x14969b495000 - 0x14969b4bafff 0x14969b4bb000 - 0x14969b609fff 0x14969b60a000 - 0x14969b655fff 0x14969b656000 - 0x14969b656fff 0x14969b657000 - 0x14969b659fff 0x14969b65a000 - 0x14969b65cfff 0x14969b65d000 - 0x14969b660fff 0x14969b661000 - 0x14969b663fff 0x14969b664000 - 0x14969b675fff 0x14969b676000 - 0x14969b679fff 0x14969b67a000 - 0x14969b67afff 0x14969b67b000 - 0x14969b67bfff 0x14969b67c000 - 0x14969b67dfff 0x14969b67e000 - 0x14969b68efff 0x14969b68f000 - 0x14969b6c4fff 0x14969b6c5000 - 0x14969b7fafff 0x14969b7fb000 - 0x14969b7fbfff 0x14969b7fc000 - 0x14969b7fffff 0x14969b800000 - 0x14969b800fff 0x14969b801000 - 0x14969b801fff 0x14969b802000 - 0x14969b803fff 0x14969b804000 - 0x14969b804fff 0x14969b805000 - 0x14969b805fff 0x14969b806000 - 0x14969b806fff 0x14969b807000 - 0x14969b808fff 0x14969b809000 - 0x14969b80afff 0x14969b80b000 - 0x14969b80bfff 0x14969b80c000 - 0x14969b80cfff 0x14969b80d000 - 0x14969b80dfff 0x14969b80e000 - 0x14969b80ffff 0x14969b810000 - 0x14969b811fff 0x14969b812000 - 0x14969b812fff 0x14969b813000 - 0x14969b813fff 0x14969b814000 - 0x14969b814fff 0x14969b815000 - 0x14969b822fff 0x14969b823000 - 0x14969b830fff 0x14969b831000 - 0x14969b83efff 0x14969b83f000 - 0x14969b842fff 0x14969b843000 - 0x14969b843fff 0x14969b844000 - 0x14969b859fff 0x14969b85a000 - 0x14969b885fff 0x14969b886000 - 0x14969b88efff 0x14969b88f000 - 0x14969b88ffff 0x14969b890000 - 0x14969b892fff 0x14969b893000 - 0x14969b898fff 0x14969b899000 - 0x14969b89bfff 0x14969b89c000 - 0x14969b89cfff 0x14969b89d000 - 0x14969b89dfff 0x14969b89e000 - 0x14969b8a4fff 0x14969b8a5000 - 0x14969b8a5fff 0x14969b8a6000 - 0x14969b8c6fff 0x14969b8c7000 - 0x14969b8cffff 0x14969b8d0000 - 0x14969b8d0fff 0x14969b8d1000 - 0x14969b8d2fff 0x7fffd7403000 - 0x7fffd7423fff 0x7fffd7518000 - 0x7fffd751bfff 0x7fffd751c000 - 0x7fffd751dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-metaobject1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x239d000 - 0x23bdfff 0x100000000000 - 0x1000000bffff 0x152ab9631000 - 0x152ab9631fff 0x152ab9632000 - 0x152ab9cdcfff 0x152ab9cdd000 - 0x152ab9d31fff 0x152ab9d32000 - 0x152ab9d34fff 0x152ab9d35000 - 0x152ab9d5afff 0x152ab9d5b000 - 0x152ab9ea9fff 0x152ab9eaa000 - 0x152ab9ef5fff 0x152ab9ef6000 - 0x152ab9ef6fff 0x152ab9ef7000 - 0x152ab9ef9fff 0x152ab9efa000 - 0x152ab9efcfff 0x152ab9efd000 - 0x152ab9f00fff 0x152ab9f01000 - 0x152ab9f03fff 0x152ab9f04000 - 0x152ab9f15fff 0x152ab9f16000 - 0x152ab9f19fff 0x152ab9f1a000 - 0x152ab9f1afff 0x152ab9f1b000 - 0x152ab9f1bfff 0x152ab9f1c000 - 0x152ab9f1dfff 0x152ab9f1e000 - 0x152ab9f2efff 0x152ab9f2f000 - 0x152ab9f64fff 0x152ab9f65000 - 0x152aba09afff 0x152aba09b000 - 0x152aba09bfff 0x152aba09c000 - 0x152aba09ffff 0x152aba0a0000 - 0x152aba0a0fff 0x152aba0a1000 - 0x152aba0a1fff 0x152aba0a2000 - 0x152aba0a3fff 0x152aba0a4000 - 0x152aba0a4fff 0x152aba0a5000 - 0x152aba0a5fff 0x152aba0a6000 - 0x152aba0a6fff 0x152aba0a7000 - 0x152aba0a8fff 0x152aba0a9000 - 0x152aba0aafff 0x152aba0ab000 - 0x152aba0abfff 0x152aba0ac000 - 0x152aba0acfff 0x152aba0ad000 - 0x152aba0adfff 0x152aba0ae000 - 0x152aba0affff 0x152aba0b0000 - 0x152aba0b1fff 0x152aba0b2000 - 0x152aba0b2fff 0x152aba0b3000 - 0x152aba0b3fff 0x152aba0b4000 - 0x152aba0b4fff 0x152aba0b5000 - 0x152aba0c2fff 0x152aba0c3000 - 0x152aba0d0fff 0x152aba0d1000 - 0x152aba0defff 0x152aba0df000 - 0x152aba0e2fff 0x152aba0e3000 - 0x152aba0e3fff 0x152aba0e4000 - 0x152aba0f9fff 0x152aba0fa000 - 0x152aba125fff 0x152aba126000 - 0x152aba12efff 0x152aba12f000 - 0x152aba12ffff 0x152aba130000 - 0x152aba132fff 0x152aba133000 - 0x152aba138fff 0x152aba139000 - 0x152aba13bfff 0x152aba13c000 - 0x152aba13cfff 0x152aba13d000 - 0x152aba13dfff 0x152aba13e000 - 0x152aba144fff 0x152aba145000 - 0x152aba145fff 0x152aba146000 - 0x152aba166fff 0x152aba167000 - 0x152aba16ffff 0x152aba170000 - 0x152aba170fff 0x152aba171000 - 0x152aba172fff 0x7ffc27588000 - 0x7ffc275a8fff 0x7ffc275ae000 - 0x7ffc275b1fff 0x7ffc275b2000 - 0x7ffc275b3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x190c000 - 0x192cfff 0x100000000000 - 0x1000000bffff 0x1525983be000 - 0x1525983befff 0x1525983bf000 - 0x152598a69fff 0x152598a6a000 - 0x152598abefff 0x152598abf000 - 0x152598ac1fff 0x152598ac2000 - 0x152598ae7fff 0x152598ae8000 - 0x152598c36fff 0x152598c37000 - 0x152598c82fff 0x152598c83000 - 0x152598c83fff 0x152598c84000 - 0x152598c86fff 0x152598c87000 - 0x152598c89fff 0x152598c8a000 - 0x152598c8dfff 0x152598c8e000 - 0x152598c90fff 0x152598c91000 - 0x152598ca2fff 0x152598ca3000 - 0x152598ca6fff 0x152598ca7000 - 0x152598ca7fff 0x152598ca8000 - 0x152598ca8fff 0x152598ca9000 - 0x152598caafff 0x152598cab000 - 0x152598cbbfff 0x152598cbc000 - 0x152598cf1fff 0x152598cf2000 - 0x152598e27fff 0x152598e28000 - 0x152598e28fff 0x152598e29000 - 0x152598e2cfff 0x152598e2d000 - 0x152598e2dfff 0x152598e2e000 - 0x152598e2efff 0x152598e2f000 - 0x152598e30fff 0x152598e31000 - 0x152598e31fff 0x152598e32000 - 0x152598e32fff 0x152598e33000 - 0x152598e33fff 0x152598e34000 - 0x152598e35fff 0x152598e36000 - 0x152598e37fff 0x152598e38000 - 0x152598e38fff 0x152598e39000 - 0x152598e39fff 0x152598e3a000 - 0x152598e3afff 0x152598e3b000 - 0x152598e3cfff 0x152598e3d000 - 0x152598e3efff 0x152598e3f000 - 0x152598e3ffff 0x152598e40000 - 0x152598e40fff 0x152598e41000 - 0x152598e41fff 0x152598e42000 - 0x152598e4ffff 0x152598e50000 - 0x152598e5dfff 0x152598e5e000 - 0x152598e6bfff 0x152598e6c000 - 0x152598e6ffff 0x152598e70000 - 0x152598e70fff 0x152598e71000 - 0x152598e86fff 0x152598e87000 - 0x152598eb2fff 0x152598eb3000 - 0x152598ebbfff 0x152598ebc000 - 0x152598ebcfff 0x152598ebd000 - 0x152598ebffff 0x152598ec0000 - 0x152598ec5fff 0x152598ec6000 - 0x152598ec8fff 0x152598ec9000 - 0x152598ec9fff 0x152598eca000 - 0x152598ecafff 0x152598ecb000 - 0x152598ed1fff 0x152598ed2000 - 0x152598ed2fff 0x152598ed3000 - 0x152598ef3fff 0x152598ef4000 - 0x152598efcfff 0x152598efd000 - 0x152598efdfff 0x152598efe000 - 0x152598efffff 0x7ffd8b0dc000 - 0x7ffd8b0fcfff 0x7ffd8b1c5000 - 0x7ffd8b1c8fff 0x7ffd8b1c9000 - 0x7ffd8b1cafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x19fc000 - 0x1a1cfff 0x100000000000 - 0x1000000bffff 0x14906765d000 - 0x14906765dfff 0x14906765e000 - 0x149067d08fff 0x149067d09000 - 0x149067d5dfff 0x149067d5e000 - 0x149067d60fff 0x149067d61000 - 0x149067d86fff 0x149067d87000 - 0x149067ed5fff 0x149067ed6000 - 0x149067f21fff 0x149067f22000 - 0x149067f22fff 0x149067f23000 - 0x149067f25fff 0x149067f26000 - 0x149067f28fff 0x149067f29000 - 0x149067f2cfff 0x149067f2d000 - 0x149067f2ffff 0x149067f30000 - 0x149067f41fff 0x149067f42000 - 0x149067f45fff 0x149067f46000 - 0x149067f46fff 0x149067f47000 - 0x149067f47fff 0x149067f48000 - 0x149067f49fff 0x149067f4a000 - 0x149067f5afff 0x149067f5b000 - 0x149067f90fff 0x149067f91000 - 0x1490680c6fff 0x1490680c7000 - 0x1490680c7fff 0x1490680c8000 - 0x1490680cbfff 0x1490680cc000 - 0x1490680ccfff 0x1490680cd000 - 0x1490680cdfff 0x1490680ce000 - 0x1490680cffff 0x1490680d0000 - 0x1490680d0fff 0x1490680d1000 - 0x1490680d1fff 0x1490680d2000 - 0x1490680d2fff 0x1490680d3000 - 0x1490680d4fff 0x1490680d5000 - 0x1490680d6fff 0x1490680d7000 - 0x1490680d7fff 0x1490680d8000 - 0x1490680d8fff 0x1490680d9000 - 0x1490680d9fff 0x1490680da000 - 0x1490680dbfff 0x1490680dc000 - 0x1490680ddfff 0x1490680de000 - 0x1490680defff 0x1490680df000 - 0x1490680dffff 0x1490680e0000 - 0x1490680e0fff 0x1490680e1000 - 0x1490680eefff 0x1490680ef000 - 0x1490680fcfff 0x1490680fd000 - 0x14906810afff 0x14906810b000 - 0x14906810efff 0x14906810f000 - 0x14906810ffff 0x149068110000 - 0x149068125fff 0x149068126000 - 0x149068151fff 0x149068152000 - 0x14906815afff 0x14906815b000 - 0x14906815bfff 0x14906815c000 - 0x14906815efff 0x14906815f000 - 0x149068164fff 0x149068165000 - 0x149068167fff 0x149068168000 - 0x149068168fff 0x149068169000 - 0x149068169fff 0x14906816a000 - 0x149068170fff 0x149068171000 - 0x149068171fff 0x149068172000 - 0x149068192fff 0x149068193000 - 0x14906819bfff 0x14906819c000 - 0x14906819cfff 0x14906819d000 - 0x14906819efff 0x7ffd7c20e000 - 0x7ffd7c22efff 0x7ffd7c28c000 - 0x7ffd7c28ffff 0x7ffd7c290000 - 0x7ffd7c291fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x249f000 - 0x24bffff 0x100000000000 - 0x1000000bffff 0x14d645575000 - 0x14d645575fff 0x14d645576000 - 0x14d645c20fff 0x14d645c21000 - 0x14d645c75fff 0x14d645c76000 - 0x14d645c78fff 0x14d645c79000 - 0x14d645c9efff 0x14d645c9f000 - 0x14d645dedfff 0x14d645dee000 - 0x14d645e39fff 0x14d645e3a000 - 0x14d645e3afff 0x14d645e3b000 - 0x14d645e3dfff 0x14d645e3e000 - 0x14d645e40fff 0x14d645e41000 - 0x14d645e44fff 0x14d645e45000 - 0x14d645e47fff 0x14d645e48000 - 0x14d645e59fff 0x14d645e5a000 - 0x14d645e5dfff 0x14d645e5e000 - 0x14d645e5efff 0x14d645e5f000 - 0x14d645e5ffff 0x14d645e60000 - 0x14d645e61fff 0x14d645e62000 - 0x14d645e72fff 0x14d645e73000 - 0x14d645ea8fff 0x14d645ea9000 - 0x14d645fdefff 0x14d645fdf000 - 0x14d645fdffff 0x14d645fe0000 - 0x14d645fe3fff 0x14d645fe4000 - 0x14d645fe4fff 0x14d645fe5000 - 0x14d645fe5fff 0x14d645fe6000 - 0x14d645fe7fff 0x14d645fe8000 - 0x14d645fe8fff 0x14d645fe9000 - 0x14d645fe9fff 0x14d645fea000 - 0x14d645feafff 0x14d645feb000 - 0x14d645fecfff 0x14d645fed000 - 0x14d645feefff 0x14d645fef000 - 0x14d645feffff 0x14d645ff0000 - 0x14d645ff0fff 0x14d645ff1000 - 0x14d645ff1fff 0x14d645ff2000 - 0x14d645ff3fff 0x14d645ff4000 - 0x14d645ff5fff 0x14d645ff6000 - 0x14d645ff6fff 0x14d645ff7000 - 0x14d645ff7fff 0x14d645ff8000 - 0x14d645ff8fff 0x14d645ff9000 - 0x14d646006fff 0x14d646007000 - 0x14d646014fff 0x14d646015000 - 0x14d646022fff 0x14d646023000 - 0x14d646026fff 0x14d646027000 - 0x14d646027fff 0x14d646028000 - 0x14d64603dfff 0x14d64603e000 - 0x14d646069fff 0x14d64606a000 - 0x14d646072fff 0x14d646073000 - 0x14d646073fff 0x14d646074000 - 0x14d646076fff 0x14d646077000 - 0x14d64607cfff 0x14d64607d000 - 0x14d64607ffff 0x14d646080000 - 0x14d646080fff 0x14d646081000 - 0x14d646081fff 0x14d646082000 - 0x14d646088fff 0x14d646089000 - 0x14d646089fff 0x14d64608a000 - 0x14d6460aafff 0x14d6460ab000 - 0x14d6460b3fff 0x14d6460b4000 - 0x14d6460b4fff 0x14d6460b5000 - 0x14d6460b6fff 0x7ffd0aa15000 - 0x7ffd0aa35fff 0x7ffd0aad2000 - 0x7ffd0aad5fff 0x7ffd0aad6000 - 0x7ffd0aad7fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x22d4000 - 0x22f4fff 0x100000000000 - 0x1000000bffff 0x151f6e513000 - 0x151f6e513fff 0x151f6e514000 - 0x151f6ebbefff 0x151f6ebbf000 - 0x151f6ec13fff 0x151f6ec14000 - 0x151f6ec16fff 0x151f6ec17000 - 0x151f6ec3cfff 0x151f6ec3d000 - 0x151f6ed8bfff 0x151f6ed8c000 - 0x151f6edd7fff 0x151f6edd8000 - 0x151f6edd8fff 0x151f6edd9000 - 0x151f6eddbfff 0x151f6eddc000 - 0x151f6eddefff 0x151f6eddf000 - 0x151f6ede2fff 0x151f6ede3000 - 0x151f6ede5fff 0x151f6ede6000 - 0x151f6edf7fff 0x151f6edf8000 - 0x151f6edfbfff 0x151f6edfc000 - 0x151f6edfcfff 0x151f6edfd000 - 0x151f6edfdfff 0x151f6edfe000 - 0x151f6edfffff 0x151f6ee00000 - 0x151f6ee10fff 0x151f6ee11000 - 0x151f6ee46fff 0x151f6ee47000 - 0x151f6ef7cfff 0x151f6ef7d000 - 0x151f6ef7dfff 0x151f6ef7e000 - 0x151f6ef81fff 0x151f6ef82000 - 0x151f6ef82fff 0x151f6ef83000 - 0x151f6ef83fff 0x151f6ef84000 - 0x151f6ef85fff 0x151f6ef86000 - 0x151f6ef86fff 0x151f6ef87000 - 0x151f6ef87fff 0x151f6ef88000 - 0x151f6ef88fff 0x151f6ef89000 - 0x151f6ef8afff 0x151f6ef8b000 - 0x151f6ef8cfff 0x151f6ef8d000 - 0x151f6ef8dfff 0x151f6ef8e000 - 0x151f6ef8efff 0x151f6ef8f000 - 0x151f6ef8ffff 0x151f6ef90000 - 0x151f6ef91fff 0x151f6ef92000 - 0x151f6ef93fff 0x151f6ef94000 - 0x151f6ef94fff 0x151f6ef95000 - 0x151f6ef95fff 0x151f6ef96000 - 0x151f6ef96fff 0x151f6ef97000 - 0x151f6efa4fff 0x151f6efa5000 - 0x151f6efb2fff 0x151f6efb3000 - 0x151f6efc0fff 0x151f6efc1000 - 0x151f6efc4fff 0x151f6efc5000 - 0x151f6efc5fff 0x151f6efc6000 - 0x151f6efdbfff 0x151f6efdc000 - 0x151f6f007fff 0x151f6f008000 - 0x151f6f010fff 0x151f6f011000 - 0x151f6f011fff 0x151f6f012000 - 0x151f6f014fff 0x151f6f015000 - 0x151f6f01afff 0x151f6f01b000 - 0x151f6f01dfff 0x151f6f01e000 - 0x151f6f01efff 0x151f6f01f000 - 0x151f6f01ffff 0x151f6f020000 - 0x151f6f026fff 0x151f6f027000 - 0x151f6f027fff 0x151f6f028000 - 0x151f6f048fff 0x151f6f049000 - 0x151f6f051fff 0x151f6f052000 - 0x151f6f052fff 0x151f6f053000 - 0x151f6f054fff 0x7fff00573000 - 0x7fff00593fff 0x7fff005c6000 - 0x7fff005c9fff 0x7fff005ca000 - 0x7fff005cbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x181d000 - 0x183dfff 0x100000000000 - 0x1000000bffff 0x14926dfa7000 - 0x14926dfa7fff 0x14926dfa8000 - 0x14926e652fff 0x14926e653000 - 0x14926e6a7fff 0x14926e6a8000 - 0x14926e6aafff 0x14926e6ab000 - 0x14926e6d0fff 0x14926e6d1000 - 0x14926e81ffff 0x14926e820000 - 0x14926e86bfff 0x14926e86c000 - 0x14926e86cfff 0x14926e86d000 - 0x14926e86ffff 0x14926e870000 - 0x14926e872fff 0x14926e873000 - 0x14926e876fff 0x14926e877000 - 0x14926e879fff 0x14926e87a000 - 0x14926e88bfff 0x14926e88c000 - 0x14926e88ffff 0x14926e890000 - 0x14926e890fff 0x14926e891000 - 0x14926e891fff 0x14926e892000 - 0x14926e893fff 0x14926e894000 - 0x14926e8a4fff 0x14926e8a5000 - 0x14926e8dafff 0x14926e8db000 - 0x14926ea10fff 0x14926ea11000 - 0x14926ea11fff 0x14926ea12000 - 0x14926ea15fff 0x14926ea16000 - 0x14926ea16fff 0x14926ea17000 - 0x14926ea17fff 0x14926ea18000 - 0x14926ea19fff 0x14926ea1a000 - 0x14926ea1afff 0x14926ea1b000 - 0x14926ea1bfff 0x14926ea1c000 - 0x14926ea1cfff 0x14926ea1d000 - 0x14926ea1efff 0x14926ea1f000 - 0x14926ea20fff 0x14926ea21000 - 0x14926ea21fff 0x14926ea22000 - 0x14926ea22fff 0x14926ea23000 - 0x14926ea23fff 0x14926ea24000 - 0x14926ea25fff 0x14926ea26000 - 0x14926ea27fff 0x14926ea28000 - 0x14926ea28fff 0x14926ea29000 - 0x14926ea29fff 0x14926ea2a000 - 0x14926ea2afff 0x14926ea2b000 - 0x14926ea38fff 0x14926ea39000 - 0x14926ea46fff 0x14926ea47000 - 0x14926ea54fff 0x14926ea55000 - 0x14926ea58fff 0x14926ea59000 - 0x14926ea59fff 0x14926ea5a000 - 0x14926ea6ffff 0x14926ea70000 - 0x14926ea9bfff 0x14926ea9c000 - 0x14926eaa4fff 0x14926eaa5000 - 0x14926eaa5fff 0x14926eaa6000 - 0x14926eaa8fff 0x14926eaa9000 - 0x14926eaaefff 0x14926eaaf000 - 0x14926eab1fff 0x14926eab2000 - 0x14926eab2fff 0x14926eab3000 - 0x14926eab3fff 0x14926eab4000 - 0x14926eabafff 0x14926eabb000 - 0x14926eabbfff 0x14926eabc000 - 0x14926eadcfff 0x14926eadd000 - 0x14926eae5fff 0x14926eae6000 - 0x14926eae6fff 0x14926eae7000 - 0x14926eae8fff 0x7ffd40530000 - 0x7ffd40550fff 0x7ffd405aa000 - 0x7ffd405adfff 0x7ffd405ae000 - 0x7ffd405affff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2038000 - 0x2058fff 0x100000000000 - 0x1000000bffff 0x145c04609000 - 0x145c04609fff 0x145c0460a000 - 0x145c04cb4fff 0x145c04cb5000 - 0x145c04d09fff 0x145c04d0a000 - 0x145c04d0cfff 0x145c04d0d000 - 0x145c04d32fff 0x145c04d33000 - 0x145c04e81fff 0x145c04e82000 - 0x145c04ecdfff 0x145c04ece000 - 0x145c04ecefff 0x145c04ecf000 - 0x145c04ed1fff 0x145c04ed2000 - 0x145c04ed4fff 0x145c04ed5000 - 0x145c04ed8fff 0x145c04ed9000 - 0x145c04edbfff 0x145c04edc000 - 0x145c04eedfff 0x145c04eee000 - 0x145c04ef1fff 0x145c04ef2000 - 0x145c04ef2fff 0x145c04ef3000 - 0x145c04ef3fff 0x145c04ef4000 - 0x145c04ef5fff 0x145c04ef6000 - 0x145c04f06fff 0x145c04f07000 - 0x145c04f3cfff 0x145c04f3d000 - 0x145c05072fff 0x145c05073000 - 0x145c05073fff 0x145c05074000 - 0x145c05077fff 0x145c05078000 - 0x145c05078fff 0x145c05079000 - 0x145c05079fff 0x145c0507a000 - 0x145c0507bfff 0x145c0507c000 - 0x145c0507cfff 0x145c0507d000 - 0x145c0507dfff 0x145c0507e000 - 0x145c0507efff 0x145c0507f000 - 0x145c05080fff 0x145c05081000 - 0x145c05082fff 0x145c05083000 - 0x145c05083fff 0x145c05084000 - 0x145c05084fff 0x145c05085000 - 0x145c05085fff 0x145c05086000 - 0x145c05087fff 0x145c05088000 - 0x145c05089fff 0x145c0508a000 - 0x145c0508afff 0x145c0508b000 - 0x145c0508bfff 0x145c0508c000 - 0x145c0508cfff 0x145c0508d000 - 0x145c0509afff 0x145c0509b000 - 0x145c050a8fff 0x145c050a9000 - 0x145c050b6fff 0x145c050b7000 - 0x145c050bafff 0x145c050bb000 - 0x145c050bbfff 0x145c050bc000 - 0x145c050d1fff 0x145c050d2000 - 0x145c050fdfff 0x145c050fe000 - 0x145c05106fff 0x145c05107000 - 0x145c05107fff 0x145c05108000 - 0x145c0510afff 0x145c0510b000 - 0x145c05110fff 0x145c05111000 - 0x145c05113fff 0x145c05114000 - 0x145c05114fff 0x145c05115000 - 0x145c05115fff 0x145c05116000 - 0x145c0511cfff 0x145c0511d000 - 0x145c0511dfff 0x145c0511e000 - 0x145c0513efff 0x145c0513f000 - 0x145c05147fff 0x145c05148000 - 0x145c05148fff 0x145c05149000 - 0x145c0514afff 0x7fff17bd6000 - 0x7fff17bf6fff 0x7fff17bf9000 - 0x7fff17bfcfff 0x7fff17bfd000 - 0x7fff17bfefff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defstruct.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1c9d000 - 0x1cbdfff 0x100000000000 - 0x1000000bffff 0x14652c39f000 - 0x14652c39ffff 0x14652c3a0000 - 0x14652ca4afff 0x14652ca4b000 - 0x14652ca9ffff 0x14652caa0000 - 0x14652caa2fff 0x14652caa3000 - 0x14652cac8fff 0x14652cac9000 - 0x14652cc17fff 0x14652cc18000 - 0x14652cc63fff 0x14652cc64000 - 0x14652cc64fff 0x14652cc65000 - 0x14652cc67fff 0x14652cc68000 - 0x14652cc6afff 0x14652cc6b000 - 0x14652cc6efff 0x14652cc6f000 - 0x14652cc71fff 0x14652cc72000 - 0x14652cc83fff 0x14652cc84000 - 0x14652cc87fff 0x14652cc88000 - 0x14652cc88fff 0x14652cc89000 - 0x14652cc89fff 0x14652cc8a000 - 0x14652cc8bfff 0x14652cc8c000 - 0x14652cc9cfff 0x14652cc9d000 - 0x14652ccd2fff 0x14652ccd3000 - 0x14652ce08fff 0x14652ce09000 - 0x14652ce09fff 0x14652ce0a000 - 0x14652ce0dfff 0x14652ce0e000 - 0x14652ce0efff 0x14652ce0f000 - 0x14652ce0ffff 0x14652ce10000 - 0x14652ce11fff 0x14652ce12000 - 0x14652ce12fff 0x14652ce13000 - 0x14652ce13fff 0x14652ce14000 - 0x14652ce14fff 0x14652ce15000 - 0x14652ce16fff 0x14652ce17000 - 0x14652ce18fff 0x14652ce19000 - 0x14652ce19fff 0x14652ce1a000 - 0x14652ce1afff 0x14652ce1b000 - 0x14652ce1bfff 0x14652ce1c000 - 0x14652ce1dfff 0x14652ce1e000 - 0x14652ce1ffff 0x14652ce20000 - 0x14652ce20fff 0x14652ce21000 - 0x14652ce21fff 0x14652ce22000 - 0x14652ce22fff 0x14652ce23000 - 0x14652ce30fff 0x14652ce31000 - 0x14652ce3efff 0x14652ce3f000 - 0x14652ce4cfff 0x14652ce4d000 - 0x14652ce50fff 0x14652ce51000 - 0x14652ce51fff 0x14652ce52000 - 0x14652ce67fff 0x14652ce68000 - 0x14652ce93fff 0x14652ce94000 - 0x14652ce9cfff 0x14652ce9d000 - 0x14652ce9dfff 0x14652ce9e000 - 0x14652cea0fff 0x14652cea1000 - 0x14652cea6fff 0x14652cea7000 - 0x14652cea9fff 0x14652ceaa000 - 0x14652ceaafff 0x14652ceab000 - 0x14652ceabfff 0x14652ceac000 - 0x14652ceb2fff 0x14652ceb3000 - 0x14652ceb3fff 0x14652ceb4000 - 0x14652ced4fff 0x14652ced5000 - 0x14652ceddfff 0x14652cede000 - 0x14652cedefff 0x14652cedf000 - 0x14652cee0fff 0x7ffca2f4b000 - 0x7ffca2f6bfff 0x7ffca2fa4000 - 0x7ffca2fa7fff 0x7ffca2fa8000 - 0x7ffca2fa9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x21eb000 - 0x220bfff 0x100000000000 - 0x1000000bffff 0x151babb42000 - 0x151babb42fff 0x151babb43000 - 0x151bac1edfff 0x151bac1ee000 - 0x151bac242fff 0x151bac243000 - 0x151bac245fff 0x151bac246000 - 0x151bac26bfff 0x151bac26c000 - 0x151bac3bafff 0x151bac3bb000 - 0x151bac406fff 0x151bac407000 - 0x151bac407fff 0x151bac408000 - 0x151bac40afff 0x151bac40b000 - 0x151bac40dfff 0x151bac40e000 - 0x151bac411fff 0x151bac412000 - 0x151bac414fff 0x151bac415000 - 0x151bac426fff 0x151bac427000 - 0x151bac42afff 0x151bac42b000 - 0x151bac42bfff 0x151bac42c000 - 0x151bac42cfff 0x151bac42d000 - 0x151bac42efff 0x151bac42f000 - 0x151bac43ffff 0x151bac440000 - 0x151bac475fff 0x151bac476000 - 0x151bac5abfff 0x151bac5ac000 - 0x151bac5acfff 0x151bac5ad000 - 0x151bac5b0fff 0x151bac5b1000 - 0x151bac5b1fff 0x151bac5b2000 - 0x151bac5b2fff 0x151bac5b3000 - 0x151bac5b4fff 0x151bac5b5000 - 0x151bac5b5fff 0x151bac5b6000 - 0x151bac5b6fff 0x151bac5b7000 - 0x151bac5b7fff 0x151bac5b8000 - 0x151bac5b9fff 0x151bac5ba000 - 0x151bac5bbfff 0x151bac5bc000 - 0x151bac5bcfff 0x151bac5bd000 - 0x151bac5bdfff 0x151bac5be000 - 0x151bac5befff 0x151bac5bf000 - 0x151bac5c0fff 0x151bac5c1000 - 0x151bac5c2fff 0x151bac5c3000 - 0x151bac5c3fff 0x151bac5c4000 - 0x151bac5c4fff 0x151bac5c5000 - 0x151bac5c5fff 0x151bac5c6000 - 0x151bac5d3fff 0x151bac5d4000 - 0x151bac5e1fff 0x151bac5e2000 - 0x151bac5effff 0x151bac5f0000 - 0x151bac5f3fff 0x151bac5f4000 - 0x151bac5f4fff 0x151bac5f5000 - 0x151bac60afff 0x151bac60b000 - 0x151bac636fff 0x151bac637000 - 0x151bac63ffff 0x151bac640000 - 0x151bac640fff 0x151bac641000 - 0x151bac643fff 0x151bac644000 - 0x151bac649fff 0x151bac64a000 - 0x151bac64cfff 0x151bac64d000 - 0x151bac64dfff 0x151bac64e000 - 0x151bac64efff 0x151bac64f000 - 0x151bac655fff 0x151bac656000 - 0x151bac656fff 0x151bac657000 - 0x151bac677fff 0x151bac678000 - 0x151bac680fff 0x151bac681000 - 0x151bac681fff 0x151bac682000 - 0x151bac683fff 0x7fffb2d6e000 - 0x7fffb2d8efff 0x7fffb2df3000 - 0x7fffb2df6fff 0x7fffb2df7000 - 0x7fffb2df8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/international.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x6c1000 - 0x6e1fff 0x100000000000 - 0x1000000bffff 0x14f54e43b000 - 0x14f54e43bfff 0x14f54e43c000 - 0x14f54eae6fff 0x14f54eae7000 - 0x14f54eb3bfff 0x14f54eb3c000 - 0x14f54eb3efff 0x14f54eb3f000 - 0x14f54eb64fff 0x14f54eb65000 - 0x14f54ecb3fff 0x14f54ecb4000 - 0x14f54ecfffff 0x14f54ed00000 - 0x14f54ed00fff 0x14f54ed01000 - 0x14f54ed03fff 0x14f54ed04000 - 0x14f54ed06fff 0x14f54ed07000 - 0x14f54ed0afff 0x14f54ed0b000 - 0x14f54ed0dfff 0x14f54ed0e000 - 0x14f54ed1ffff 0x14f54ed20000 - 0x14f54ed23fff 0x14f54ed24000 - 0x14f54ed24fff 0x14f54ed25000 - 0x14f54ed25fff 0x14f54ed26000 - 0x14f54ed27fff 0x14f54ed28000 - 0x14f54ed38fff 0x14f54ed39000 - 0x14f54ed6efff 0x14f54ed6f000 - 0x14f54eea4fff 0x14f54eea5000 - 0x14f54eea5fff 0x14f54eea6000 - 0x14f54eea9fff 0x14f54eeaa000 - 0x14f54eeaafff 0x14f54eeab000 - 0x14f54eeabfff 0x14f54eeac000 - 0x14f54eeadfff 0x14f54eeae000 - 0x14f54eeaefff 0x14f54eeaf000 - 0x14f54eeaffff 0x14f54eeb0000 - 0x14f54eeb0fff 0x14f54eeb1000 - 0x14f54eeb2fff 0x14f54eeb3000 - 0x14f54eeb4fff 0x14f54eeb5000 - 0x14f54eeb5fff 0x14f54eeb6000 - 0x14f54eeb6fff 0x14f54eeb7000 - 0x14f54eeb7fff 0x14f54eeb8000 - 0x14f54eeb9fff 0x14f54eeba000 - 0x14f54eebbfff 0x14f54eebc000 - 0x14f54eebcfff 0x14f54eebd000 - 0x14f54eebdfff 0x14f54eebe000 - 0x14f54eebefff 0x14f54eebf000 - 0x14f54eeccfff 0x14f54eecd000 - 0x14f54eedafff 0x14f54eedb000 - 0x14f54eee8fff 0x14f54eee9000 - 0x14f54eeecfff 0x14f54eeed000 - 0x14f54eeedfff 0x14f54eeee000 - 0x14f54ef03fff 0x14f54ef04000 - 0x14f54ef2ffff 0x14f54ef30000 - 0x14f54ef38fff 0x14f54ef39000 - 0x14f54ef39fff 0x14f54ef3a000 - 0x14f54ef3cfff 0x14f54ef3d000 - 0x14f54ef42fff 0x14f54ef43000 - 0x14f54ef45fff 0x14f54ef46000 - 0x14f54ef46fff 0x14f54ef47000 - 0x14f54ef47fff 0x14f54ef48000 - 0x14f54ef4efff 0x14f54ef4f000 - 0x14f54ef4ffff 0x14f54ef50000 - 0x14f54ef70fff 0x14f54ef71000 - 0x14f54ef79fff 0x14f54ef7a000 - 0x14f54ef7afff 0x14f54ef7b000 - 0x14f54ef7cfff 0x7ffc52792000 - 0x7ffc527b2fff 0x7ffc527be000 - 0x7ffc527c1fff 0x7ffc527c2000 - 0x7ffc527c3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xd88000 - 0xda8fff 0x100000000000 - 0x1000000bffff 0x1513e6d85000 - 0x1513e6d85fff 0x1513e6d86000 - 0x1513e7430fff 0x1513e7431000 - 0x1513e7485fff 0x1513e7486000 - 0x1513e7488fff 0x1513e7489000 - 0x1513e74aefff 0x1513e74af000 - 0x1513e75fdfff 0x1513e75fe000 - 0x1513e7649fff 0x1513e764a000 - 0x1513e764afff 0x1513e764b000 - 0x1513e764dfff 0x1513e764e000 - 0x1513e7650fff 0x1513e7651000 - 0x1513e7654fff 0x1513e7655000 - 0x1513e7657fff 0x1513e7658000 - 0x1513e7669fff 0x1513e766a000 - 0x1513e766dfff 0x1513e766e000 - 0x1513e766efff 0x1513e766f000 - 0x1513e766ffff 0x1513e7670000 - 0x1513e7671fff 0x1513e7672000 - 0x1513e7682fff 0x1513e7683000 - 0x1513e76b8fff 0x1513e76b9000 - 0x1513e77eefff 0x1513e77ef000 - 0x1513e77effff 0x1513e77f0000 - 0x1513e77f3fff 0x1513e77f4000 - 0x1513e77f4fff 0x1513e77f5000 - 0x1513e77f5fff 0x1513e77f6000 - 0x1513e77f7fff 0x1513e77f8000 - 0x1513e77f8fff 0x1513e77f9000 - 0x1513e77f9fff 0x1513e77fa000 - 0x1513e77fafff 0x1513e77fb000 - 0x1513e77fcfff 0x1513e77fd000 - 0x1513e77fefff 0x1513e77ff000 - 0x1513e77fffff 0x1513e7800000 - 0x1513e7800fff 0x1513e7801000 - 0x1513e7801fff 0x1513e7802000 - 0x1513e7803fff 0x1513e7804000 - 0x1513e7805fff 0x1513e7806000 - 0x1513e7806fff 0x1513e7807000 - 0x1513e7807fff 0x1513e7808000 - 0x1513e7808fff 0x1513e7809000 - 0x1513e7816fff 0x1513e7817000 - 0x1513e7824fff 0x1513e7825000 - 0x1513e7832fff 0x1513e7833000 - 0x1513e7836fff 0x1513e7837000 - 0x1513e7837fff 0x1513e7838000 - 0x1513e784dfff 0x1513e784e000 - 0x1513e7879fff 0x1513e787a000 - 0x1513e7882fff 0x1513e7883000 - 0x1513e7883fff 0x1513e7884000 - 0x1513e7886fff 0x1513e7887000 - 0x1513e788cfff 0x1513e788d000 - 0x1513e788ffff 0x1513e7890000 - 0x1513e7890fff 0x1513e7891000 - 0x1513e7891fff 0x1513e7892000 - 0x1513e7898fff 0x1513e7899000 - 0x1513e7899fff 0x1513e789a000 - 0x1513e78bafff 0x1513e78bb000 - 0x1513e78c3fff 0x1513e78c4000 - 0x1513e78c4fff 0x1513e78c5000 - 0x1513e78c6fff 0x7ffd2927c000 - 0x7ffd2929cfff 0x7ffd29369000 - 0x7ffd2936cfff 0x7ffd2936d000 - 0x7ffd2936efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2333000 - 0x2353fff 0x100000000000 - 0x1000000bffff 0x14a5124e4000 - 0x14a5124e4fff 0x14a5124e5000 - 0x14a512b8ffff 0x14a512b90000 - 0x14a512be4fff 0x14a512be5000 - 0x14a512be7fff 0x14a512be8000 - 0x14a512c0dfff 0x14a512c0e000 - 0x14a512d5cfff 0x14a512d5d000 - 0x14a512da8fff 0x14a512da9000 - 0x14a512da9fff 0x14a512daa000 - 0x14a512dacfff 0x14a512dad000 - 0x14a512daffff 0x14a512db0000 - 0x14a512db3fff 0x14a512db4000 - 0x14a512db6fff 0x14a512db7000 - 0x14a512dc8fff 0x14a512dc9000 - 0x14a512dccfff 0x14a512dcd000 - 0x14a512dcdfff 0x14a512dce000 - 0x14a512dcefff 0x14a512dcf000 - 0x14a512dd0fff 0x14a512dd1000 - 0x14a512de1fff 0x14a512de2000 - 0x14a512e17fff 0x14a512e18000 - 0x14a512f4dfff 0x14a512f4e000 - 0x14a512f4efff 0x14a512f4f000 - 0x14a512f52fff 0x14a512f53000 - 0x14a512f53fff 0x14a512f54000 - 0x14a512f54fff 0x14a512f55000 - 0x14a512f56fff 0x14a512f57000 - 0x14a512f57fff 0x14a512f58000 - 0x14a512f58fff 0x14a512f59000 - 0x14a512f59fff 0x14a512f5a000 - 0x14a512f5bfff 0x14a512f5c000 - 0x14a512f5dfff 0x14a512f5e000 - 0x14a512f5efff 0x14a512f5f000 - 0x14a512f5ffff 0x14a512f60000 - 0x14a512f60fff 0x14a512f61000 - 0x14a512f62fff 0x14a512f63000 - 0x14a512f64fff 0x14a512f65000 - 0x14a512f65fff 0x14a512f66000 - 0x14a512f66fff 0x14a512f67000 - 0x14a512f67fff 0x14a512f68000 - 0x14a512f75fff 0x14a512f76000 - 0x14a512f83fff 0x14a512f84000 - 0x14a512f91fff 0x14a512f92000 - 0x14a512f95fff 0x14a512f96000 - 0x14a512f96fff 0x14a512f97000 - 0x14a512facfff 0x14a512fad000 - 0x14a512fd8fff 0x14a512fd9000 - 0x14a512fe1fff 0x14a512fe2000 - 0x14a512fe2fff 0x14a512fe3000 - 0x14a512fe5fff 0x14a512fe6000 - 0x14a512febfff 0x14a512fec000 - 0x14a512feefff 0x14a512fef000 - 0x14a512feffff 0x14a512ff0000 - 0x14a512ff0fff 0x14a512ff1000 - 0x14a512ff7fff 0x14a512ff8000 - 0x14a512ff8fff 0x14a512ff9000 - 0x14a513019fff 0x14a51301a000 - 0x14a513022fff 0x14a513023000 - 0x14a513023fff 0x14a513024000 - 0x14a513025fff 0x7ffe168de000 - 0x7ffe168fefff 0x7ffe1698f000 - 0x7ffe16992fff 0x7ffe16993000 - 0x7ffe16994fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2090000 - 0x20b0fff 0x100000000000 - 0x1000000bffff 0x153868121000 - 0x153868121fff 0x153868122000 - 0x1538687ccfff 0x1538687cd000 - 0x153868821fff 0x153868822000 - 0x153868824fff 0x153868825000 - 0x15386884afff 0x15386884b000 - 0x153868999fff 0x15386899a000 - 0x1538689e5fff 0x1538689e6000 - 0x1538689e6fff 0x1538689e7000 - 0x1538689e9fff 0x1538689ea000 - 0x1538689ecfff 0x1538689ed000 - 0x1538689f0fff 0x1538689f1000 - 0x1538689f3fff 0x1538689f4000 - 0x153868a05fff 0x153868a06000 - 0x153868a09fff 0x153868a0a000 - 0x153868a0afff 0x153868a0b000 - 0x153868a0bfff 0x153868a0c000 - 0x153868a0dfff 0x153868a0e000 - 0x153868a1efff 0x153868a1f000 - 0x153868a54fff 0x153868a55000 - 0x153868b8afff 0x153868b8b000 - 0x153868b8bfff 0x153868b8c000 - 0x153868b8ffff 0x153868b90000 - 0x153868b90fff 0x153868b91000 - 0x153868b91fff 0x153868b92000 - 0x153868b93fff 0x153868b94000 - 0x153868b94fff 0x153868b95000 - 0x153868b95fff 0x153868b96000 - 0x153868b96fff 0x153868b97000 - 0x153868b98fff 0x153868b99000 - 0x153868b9afff 0x153868b9b000 - 0x153868b9bfff 0x153868b9c000 - 0x153868b9cfff 0x153868b9d000 - 0x153868b9dfff 0x153868b9e000 - 0x153868b9ffff 0x153868ba0000 - 0x153868ba1fff 0x153868ba2000 - 0x153868ba2fff 0x153868ba3000 - 0x153868ba3fff 0x153868ba4000 - 0x153868ba4fff 0x153868ba5000 - 0x153868bb2fff 0x153868bb3000 - 0x153868bc0fff 0x153868bc1000 - 0x153868bcefff 0x153868bcf000 - 0x153868bd2fff 0x153868bd3000 - 0x153868bd3fff 0x153868bd4000 - 0x153868be9fff 0x153868bea000 - 0x153868c15fff 0x153868c16000 - 0x153868c1efff 0x153868c1f000 - 0x153868c1ffff 0x153868c20000 - 0x153868c22fff 0x153868c23000 - 0x153868c28fff 0x153868c29000 - 0x153868c2bfff 0x153868c2c000 - 0x153868c2cfff 0x153868c2d000 - 0x153868c2dfff 0x153868c2e000 - 0x153868c34fff 0x153868c35000 - 0x153868c35fff 0x153868c36000 - 0x153868c56fff 0x153868c57000 - 0x153868c5ffff 0x153868c60000 - 0x153868c60fff 0x153868c61000 - 0x153868c62fff 0x7ffd6592c000 - 0x7ffd6594cfff 0x7ffd65992000 - 0x7ffd65995fff 0x7ffd65996000 - 0x7ffd65997fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1cb8000 - 0x1cd8fff 0x100000000000 - 0x1000000bffff 0x154b60d41000 - 0x154b60d41fff 0x154b60d42000 - 0x154b613ecfff 0x154b613ed000 - 0x154b61441fff 0x154b61442000 - 0x154b61444fff 0x154b61445000 - 0x154b6146afff 0x154b6146b000 - 0x154b615b9fff 0x154b615ba000 - 0x154b61605fff 0x154b61606000 - 0x154b61606fff 0x154b61607000 - 0x154b61609fff 0x154b6160a000 - 0x154b6160cfff 0x154b6160d000 - 0x154b61610fff 0x154b61611000 - 0x154b61613fff 0x154b61614000 - 0x154b61625fff 0x154b61626000 - 0x154b61629fff 0x154b6162a000 - 0x154b6162afff 0x154b6162b000 - 0x154b6162bfff 0x154b6162c000 - 0x154b6162dfff 0x154b6162e000 - 0x154b6163efff 0x154b6163f000 - 0x154b61674fff 0x154b61675000 - 0x154b617aafff 0x154b617ab000 - 0x154b617abfff 0x154b617ac000 - 0x154b617affff 0x154b617b0000 - 0x154b617b0fff 0x154b617b1000 - 0x154b617b1fff 0x154b617b2000 - 0x154b617b3fff 0x154b617b4000 - 0x154b617b4fff 0x154b617b5000 - 0x154b617b5fff 0x154b617b6000 - 0x154b617b6fff 0x154b617b7000 - 0x154b617b8fff 0x154b617b9000 - 0x154b617bafff 0x154b617bb000 - 0x154b617bbfff 0x154b617bc000 - 0x154b617bcfff 0x154b617bd000 - 0x154b617bdfff 0x154b617be000 - 0x154b617bffff 0x154b617c0000 - 0x154b617c1fff 0x154b617c2000 - 0x154b617c2fff 0x154b617c3000 - 0x154b617c3fff 0x154b617c4000 - 0x154b617c4fff 0x154b617c5000 - 0x154b617d2fff 0x154b617d3000 - 0x154b617e0fff 0x154b617e1000 - 0x154b617eefff 0x154b617ef000 - 0x154b617f2fff 0x154b617f3000 - 0x154b617f3fff 0x154b617f4000 - 0x154b61809fff 0x154b6180a000 - 0x154b61835fff 0x154b61836000 - 0x154b6183efff 0x154b6183f000 - 0x154b6183ffff 0x154b61840000 - 0x154b61842fff 0x154b61843000 - 0x154b61848fff 0x154b61849000 - 0x154b6184bfff 0x154b6184c000 - 0x154b6184cfff 0x154b6184d000 - 0x154b6184dfff 0x154b6184e000 - 0x154b61854fff 0x154b61855000 - 0x154b61855fff 0x154b61856000 - 0x154b61876fff 0x154b61877000 - 0x154b6187ffff 0x154b61880000 - 0x154b61880fff 0x154b61881000 - 0x154b61882fff 0x7ffc2d333000 - 0x7ffc2d353fff 0x7ffc2d398000 - 0x7ffc2d39bfff 0x7ffc2d39c000 - 0x7ffc2d39dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x20e2000 - 0x2102fff 0x100000000000 - 0x1000000bffff 0x14c165516000 - 0x14c165516fff 0x14c165517000 - 0x14c165bc1fff 0x14c165bc2000 - 0x14c165c16fff 0x14c165c17000 - 0x14c165c19fff 0x14c165c1a000 - 0x14c165c3ffff 0x14c165c40000 - 0x14c165d8efff 0x14c165d8f000 - 0x14c165ddafff 0x14c165ddb000 - 0x14c165ddbfff 0x14c165ddc000 - 0x14c165ddefff 0x14c165ddf000 - 0x14c165de1fff 0x14c165de2000 - 0x14c165de5fff 0x14c165de6000 - 0x14c165de8fff 0x14c165de9000 - 0x14c165dfafff 0x14c165dfb000 - 0x14c165dfefff 0x14c165dff000 - 0x14c165dfffff 0x14c165e00000 - 0x14c165e00fff 0x14c165e01000 - 0x14c165e02fff 0x14c165e03000 - 0x14c165e13fff 0x14c165e14000 - 0x14c165e49fff 0x14c165e4a000 - 0x14c165f7ffff 0x14c165f80000 - 0x14c165f80fff 0x14c165f81000 - 0x14c165f84fff 0x14c165f85000 - 0x14c165f85fff 0x14c165f86000 - 0x14c165f86fff 0x14c165f87000 - 0x14c165f88fff 0x14c165f89000 - 0x14c165f89fff 0x14c165f8a000 - 0x14c165f8afff 0x14c165f8b000 - 0x14c165f8bfff 0x14c165f8c000 - 0x14c165f8dfff 0x14c165f8e000 - 0x14c165f8ffff 0x14c165f90000 - 0x14c165f90fff 0x14c165f91000 - 0x14c165f91fff 0x14c165f92000 - 0x14c165f92fff 0x14c165f93000 - 0x14c165f94fff 0x14c165f95000 - 0x14c165f96fff 0x14c165f97000 - 0x14c165f97fff 0x14c165f98000 - 0x14c165f98fff 0x14c165f99000 - 0x14c165f99fff 0x14c165f9a000 - 0x14c165fa7fff 0x14c165fa8000 - 0x14c165fb5fff 0x14c165fb6000 - 0x14c165fc3fff 0x14c165fc4000 - 0x14c165fc7fff 0x14c165fc8000 - 0x14c165fc8fff 0x14c165fc9000 - 0x14c165fdefff 0x14c165fdf000 - 0x14c16600afff 0x14c16600b000 - 0x14c166013fff 0x14c166014000 - 0x14c166014fff 0x14c166015000 - 0x14c166017fff 0x14c166018000 - 0x14c16601dfff 0x14c16601e000 - 0x14c166020fff 0x14c166021000 - 0x14c166021fff 0x14c166022000 - 0x14c166022fff 0x14c166023000 - 0x14c166029fff 0x14c16602a000 - 0x14c16602afff 0x14c16602b000 - 0x14c16604bfff 0x14c16604c000 - 0x14c166054fff 0x14c166055000 - 0x14c166055fff 0x14c166056000 - 0x14c166057fff 0x7ffcc0816000 - 0x7ffcc0836fff 0x7ffcc0939000 - 0x7ffcc093cfff 0x7ffcc093d000 - 0x7ffcc093efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x11d0000 - 0x11f0fff 0x100000000000 - 0x1000000bffff 0x148deab3c000 - 0x148deab3cfff 0x148deab3d000 - 0x148deb1e7fff 0x148deb1e8000 - 0x148deb23cfff 0x148deb23d000 - 0x148deb23ffff 0x148deb240000 - 0x148deb265fff 0x148deb266000 - 0x148deb3b4fff 0x148deb3b5000 - 0x148deb400fff 0x148deb401000 - 0x148deb401fff 0x148deb402000 - 0x148deb404fff 0x148deb405000 - 0x148deb407fff 0x148deb408000 - 0x148deb40bfff 0x148deb40c000 - 0x148deb40efff 0x148deb40f000 - 0x148deb420fff 0x148deb421000 - 0x148deb424fff 0x148deb425000 - 0x148deb425fff 0x148deb426000 - 0x148deb426fff 0x148deb427000 - 0x148deb428fff 0x148deb429000 - 0x148deb439fff 0x148deb43a000 - 0x148deb46ffff 0x148deb470000 - 0x148deb5a5fff 0x148deb5a6000 - 0x148deb5a6fff 0x148deb5a7000 - 0x148deb5aafff 0x148deb5ab000 - 0x148deb5abfff 0x148deb5ac000 - 0x148deb5acfff 0x148deb5ad000 - 0x148deb5aefff 0x148deb5af000 - 0x148deb5affff 0x148deb5b0000 - 0x148deb5b0fff 0x148deb5b1000 - 0x148deb5b1fff 0x148deb5b2000 - 0x148deb5b3fff 0x148deb5b4000 - 0x148deb5b5fff 0x148deb5b6000 - 0x148deb5b6fff 0x148deb5b7000 - 0x148deb5b7fff 0x148deb5b8000 - 0x148deb5b8fff 0x148deb5b9000 - 0x148deb5bafff 0x148deb5bb000 - 0x148deb5bcfff 0x148deb5bd000 - 0x148deb5bdfff 0x148deb5be000 - 0x148deb5befff 0x148deb5bf000 - 0x148deb5bffff 0x148deb5c0000 - 0x148deb5cdfff 0x148deb5ce000 - 0x148deb5dbfff 0x148deb5dc000 - 0x148deb5e9fff 0x148deb5ea000 - 0x148deb5edfff 0x148deb5ee000 - 0x148deb5eefff 0x148deb5ef000 - 0x148deb604fff 0x148deb605000 - 0x148deb630fff 0x148deb631000 - 0x148deb639fff 0x148deb63a000 - 0x148deb63afff 0x148deb63b000 - 0x148deb63dfff 0x148deb63e000 - 0x148deb643fff 0x148deb644000 - 0x148deb646fff 0x148deb647000 - 0x148deb647fff 0x148deb648000 - 0x148deb648fff 0x148deb649000 - 0x148deb64ffff 0x148deb650000 - 0x148deb650fff 0x148deb651000 - 0x148deb671fff 0x148deb672000 - 0x148deb67afff 0x148deb67b000 - 0x148deb67bfff 0x148deb67c000 - 0x148deb67dfff 0x7fff74b0f000 - 0x7fff74b2ffff 0x7fff74b7b000 - 0x7fff74b7efff 0x7fff74b7f000 - 0x7fff74b80fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x5d7000 - 0x5f7fff 0x100000000000 - 0x1000000bffff 0x1518a1d46000 - 0x1518a1d46fff 0x1518a1d47000 - 0x1518a23f1fff 0x1518a23f2000 - 0x1518a2446fff 0x1518a2447000 - 0x1518a2449fff 0x1518a244a000 - 0x1518a246ffff 0x1518a2470000 - 0x1518a25befff 0x1518a25bf000 - 0x1518a260afff 0x1518a260b000 - 0x1518a260bfff 0x1518a260c000 - 0x1518a260efff 0x1518a260f000 - 0x1518a2611fff 0x1518a2612000 - 0x1518a2615fff 0x1518a2616000 - 0x1518a2618fff 0x1518a2619000 - 0x1518a262afff 0x1518a262b000 - 0x1518a262efff 0x1518a262f000 - 0x1518a262ffff 0x1518a2630000 - 0x1518a2630fff 0x1518a2631000 - 0x1518a2632fff 0x1518a2633000 - 0x1518a2643fff 0x1518a2644000 - 0x1518a2679fff 0x1518a267a000 - 0x1518a27affff 0x1518a27b0000 - 0x1518a27b0fff 0x1518a27b1000 - 0x1518a27b4fff 0x1518a27b5000 - 0x1518a27b5fff 0x1518a27b6000 - 0x1518a27b6fff 0x1518a27b7000 - 0x1518a27b8fff 0x1518a27b9000 - 0x1518a27b9fff 0x1518a27ba000 - 0x1518a27bafff 0x1518a27bb000 - 0x1518a27bbfff 0x1518a27bc000 - 0x1518a27bdfff 0x1518a27be000 - 0x1518a27bffff 0x1518a27c0000 - 0x1518a27c0fff 0x1518a27c1000 - 0x1518a27c1fff 0x1518a27c2000 - 0x1518a27c2fff 0x1518a27c3000 - 0x1518a27c4fff 0x1518a27c5000 - 0x1518a27c6fff 0x1518a27c7000 - 0x1518a27c7fff 0x1518a27c8000 - 0x1518a27c8fff 0x1518a27c9000 - 0x1518a27c9fff 0x1518a27ca000 - 0x1518a27d7fff 0x1518a27d8000 - 0x1518a27e5fff 0x1518a27e6000 - 0x1518a27f3fff 0x1518a27f4000 - 0x1518a27f7fff 0x1518a27f8000 - 0x1518a27f8fff 0x1518a27f9000 - 0x1518a280efff 0x1518a280f000 - 0x1518a283afff 0x1518a283b000 - 0x1518a2843fff 0x1518a2844000 - 0x1518a2844fff 0x1518a2845000 - 0x1518a2847fff 0x1518a2848000 - 0x1518a284dfff 0x1518a284e000 - 0x1518a2850fff 0x1518a2851000 - 0x1518a2851fff 0x1518a2852000 - 0x1518a2852fff 0x1518a2853000 - 0x1518a2859fff 0x1518a285a000 - 0x1518a285afff 0x1518a285b000 - 0x1518a287bfff 0x1518a287c000 - 0x1518a2884fff 0x1518a2885000 - 0x1518a2885fff 0x1518a2886000 - 0x1518a2887fff 0x7fffae3e9000 - 0x7fffae409fff 0x7fffae430000 - 0x7fffae433fff 0x7fffae434000 - 0x7fffae435fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x14b0000 - 0x14d0fff 0x100000000000 - 0x1000000bffff 0x146712db1000 - 0x146712db1fff 0x146712db2000 - 0x14671345cfff 0x14671345d000 - 0x1467134b1fff 0x1467134b2000 - 0x1467134b4fff 0x1467134b5000 - 0x1467134dafff 0x1467134db000 - 0x146713629fff 0x14671362a000 - 0x146713675fff 0x146713676000 - 0x146713676fff 0x146713677000 - 0x146713679fff 0x14671367a000 - 0x14671367cfff 0x14671367d000 - 0x146713680fff 0x146713681000 - 0x146713683fff 0x146713684000 - 0x146713695fff 0x146713696000 - 0x146713699fff 0x14671369a000 - 0x14671369afff 0x14671369b000 - 0x14671369bfff 0x14671369c000 - 0x14671369dfff 0x14671369e000 - 0x1467136aefff 0x1467136af000 - 0x1467136e4fff 0x1467136e5000 - 0x14671381afff 0x14671381b000 - 0x14671381bfff 0x14671381c000 - 0x14671381ffff 0x146713820000 - 0x146713820fff 0x146713821000 - 0x146713821fff 0x146713822000 - 0x146713823fff 0x146713824000 - 0x146713824fff 0x146713825000 - 0x146713825fff 0x146713826000 - 0x146713826fff 0x146713827000 - 0x146713828fff 0x146713829000 - 0x14671382afff 0x14671382b000 - 0x14671382bfff 0x14671382c000 - 0x14671382cfff 0x14671382d000 - 0x14671382dfff 0x14671382e000 - 0x14671382ffff 0x146713830000 - 0x146713831fff 0x146713832000 - 0x146713832fff 0x146713833000 - 0x146713833fff 0x146713834000 - 0x146713834fff 0x146713835000 - 0x146713842fff 0x146713843000 - 0x146713850fff 0x146713851000 - 0x14671385efff 0x14671385f000 - 0x146713862fff 0x146713863000 - 0x146713863fff 0x146713864000 - 0x146713879fff 0x14671387a000 - 0x1467138a5fff 0x1467138a6000 - 0x1467138aefff 0x1467138af000 - 0x1467138affff 0x1467138b0000 - 0x1467138b2fff 0x1467138b3000 - 0x1467138b8fff 0x1467138b9000 - 0x1467138bbfff 0x1467138bc000 - 0x1467138bcfff 0x1467138bd000 - 0x1467138bdfff 0x1467138be000 - 0x1467138c4fff 0x1467138c5000 - 0x1467138c5fff 0x1467138c6000 - 0x1467138e6fff 0x1467138e7000 - 0x1467138effff 0x1467138f0000 - 0x1467138f0fff 0x1467138f1000 - 0x1467138f2fff 0x7ffc8ab98000 - 0x7ffc8abb8fff 0x7ffc8abe3000 - 0x7ffc8abe6fff 0x7ffc8abe7000 - 0x7ffc8abe8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x9df000 - 0x9fffff 0x100000000000 - 0x1000000bffff 0x149c75609000 - 0x149c75609fff 0x149c7560a000 - 0x149c75cb4fff 0x149c75cb5000 - 0x149c75d09fff 0x149c75d0a000 - 0x149c75d0cfff 0x149c75d0d000 - 0x149c75d32fff 0x149c75d33000 - 0x149c75e81fff 0x149c75e82000 - 0x149c75ecdfff 0x149c75ece000 - 0x149c75ecefff 0x149c75ecf000 - 0x149c75ed1fff 0x149c75ed2000 - 0x149c75ed4fff 0x149c75ed5000 - 0x149c75ed8fff 0x149c75ed9000 - 0x149c75edbfff 0x149c75edc000 - 0x149c75eedfff 0x149c75eee000 - 0x149c75ef1fff 0x149c75ef2000 - 0x149c75ef2fff 0x149c75ef3000 - 0x149c75ef3fff 0x149c75ef4000 - 0x149c75ef5fff 0x149c75ef6000 - 0x149c75f06fff 0x149c75f07000 - 0x149c75f3cfff 0x149c75f3d000 - 0x149c76072fff 0x149c76073000 - 0x149c76073fff 0x149c76074000 - 0x149c76077fff 0x149c76078000 - 0x149c76078fff 0x149c76079000 - 0x149c76079fff 0x149c7607a000 - 0x149c7607bfff 0x149c7607c000 - 0x149c7607cfff 0x149c7607d000 - 0x149c7607dfff 0x149c7607e000 - 0x149c7607efff 0x149c7607f000 - 0x149c76080fff 0x149c76081000 - 0x149c76082fff 0x149c76083000 - 0x149c76083fff 0x149c76084000 - 0x149c76084fff 0x149c76085000 - 0x149c76085fff 0x149c76086000 - 0x149c76087fff 0x149c76088000 - 0x149c76089fff 0x149c7608a000 - 0x149c7608afff 0x149c7608b000 - 0x149c7608bfff 0x149c7608c000 - 0x149c7608cfff 0x149c7608d000 - 0x149c7609afff 0x149c7609b000 - 0x149c760a8fff 0x149c760a9000 - 0x149c760b6fff 0x149c760b7000 - 0x149c760bafff 0x149c760bb000 - 0x149c760bbfff 0x149c760bc000 - 0x149c760d1fff 0x149c760d2000 - 0x149c760fdfff 0x149c760fe000 - 0x149c76106fff 0x149c76107000 - 0x149c76107fff 0x149c76108000 - 0x149c7610afff 0x149c7610b000 - 0x149c76110fff 0x149c76111000 - 0x149c76113fff 0x149c76114000 - 0x149c76114fff 0x149c76115000 - 0x149c76115fff 0x149c76116000 - 0x149c7611cfff 0x149c7611d000 - 0x149c7611dfff 0x149c7611e000 - 0x149c7613efff 0x149c7613f000 - 0x149c76147fff 0x149c76148000 - 0x149c76148fff 0x149c76149000 - 0x149c7614afff 0x7ffc7bf02000 - 0x7ffc7bf22fff 0x7ffc7bfa1000 - 0x7ffc7bfa4fff 0x7ffc7bfa5000 - 0x7ffc7bfa6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xd74000 - 0xd94fff 0x100000000000 - 0x1000000bffff 0x154b80d18000 - 0x154b80d18fff 0x154b80d19000 - 0x154b813c3fff 0x154b813c4000 - 0x154b81418fff 0x154b81419000 - 0x154b8141bfff 0x154b8141c000 - 0x154b81441fff 0x154b81442000 - 0x154b81590fff 0x154b81591000 - 0x154b815dcfff 0x154b815dd000 - 0x154b815ddfff 0x154b815de000 - 0x154b815e0fff 0x154b815e1000 - 0x154b815e3fff 0x154b815e4000 - 0x154b815e7fff 0x154b815e8000 - 0x154b815eafff 0x154b815eb000 - 0x154b815fcfff 0x154b815fd000 - 0x154b81600fff 0x154b81601000 - 0x154b81601fff 0x154b81602000 - 0x154b81602fff 0x154b81603000 - 0x154b81604fff 0x154b81605000 - 0x154b81615fff 0x154b81616000 - 0x154b8164bfff 0x154b8164c000 - 0x154b81781fff 0x154b81782000 - 0x154b81782fff 0x154b81783000 - 0x154b81786fff 0x154b81787000 - 0x154b81787fff 0x154b81788000 - 0x154b81788fff 0x154b81789000 - 0x154b8178afff 0x154b8178b000 - 0x154b8178bfff 0x154b8178c000 - 0x154b8178cfff 0x154b8178d000 - 0x154b8178dfff 0x154b8178e000 - 0x154b8178ffff 0x154b81790000 - 0x154b81791fff 0x154b81792000 - 0x154b81792fff 0x154b81793000 - 0x154b81793fff 0x154b81794000 - 0x154b81794fff 0x154b81795000 - 0x154b81796fff 0x154b81797000 - 0x154b81798fff 0x154b81799000 - 0x154b81799fff 0x154b8179a000 - 0x154b8179afff 0x154b8179b000 - 0x154b8179bfff 0x154b8179c000 - 0x154b817a9fff 0x154b817aa000 - 0x154b817b7fff 0x154b817b8000 - 0x154b817c5fff 0x154b817c6000 - 0x154b817c9fff 0x154b817ca000 - 0x154b817cafff 0x154b817cb000 - 0x154b817e0fff 0x154b817e1000 - 0x154b8180cfff 0x154b8180d000 - 0x154b81815fff 0x154b81816000 - 0x154b81816fff 0x154b81817000 - 0x154b81819fff 0x154b8181a000 - 0x154b8181ffff 0x154b81820000 - 0x154b81822fff 0x154b81823000 - 0x154b81823fff 0x154b81824000 - 0x154b81824fff 0x154b81825000 - 0x154b8182bfff 0x154b8182c000 - 0x154b8182cfff 0x154b8182d000 - 0x154b8184dfff 0x154b8184e000 - 0x154b81856fff 0x154b81857000 - 0x154b81857fff 0x154b81858000 - 0x154b81859fff 0x7ffcae915000 - 0x7ffcae935fff 0x7ffcae978000 - 0x7ffcae97bfff 0x7ffcae97c000 - 0x7ffcae97dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x12a1000 - 0x12c1fff 0x100000000000 - 0x1000000bffff 0x14e27da5b000 - 0x14e27da5bfff 0x14e27da5c000 - 0x14e27e106fff 0x14e27e107000 - 0x14e27e15bfff 0x14e27e15c000 - 0x14e27e15efff 0x14e27e15f000 - 0x14e27e184fff 0x14e27e185000 - 0x14e27e2d3fff 0x14e27e2d4000 - 0x14e27e31ffff 0x14e27e320000 - 0x14e27e320fff 0x14e27e321000 - 0x14e27e323fff 0x14e27e324000 - 0x14e27e326fff 0x14e27e327000 - 0x14e27e32afff 0x14e27e32b000 - 0x14e27e32dfff 0x14e27e32e000 - 0x14e27e33ffff 0x14e27e340000 - 0x14e27e343fff 0x14e27e344000 - 0x14e27e344fff 0x14e27e345000 - 0x14e27e345fff 0x14e27e346000 - 0x14e27e347fff 0x14e27e348000 - 0x14e27e358fff 0x14e27e359000 - 0x14e27e38efff 0x14e27e38f000 - 0x14e27e4c4fff 0x14e27e4c5000 - 0x14e27e4c5fff 0x14e27e4c6000 - 0x14e27e4c9fff 0x14e27e4ca000 - 0x14e27e4cafff 0x14e27e4cb000 - 0x14e27e4cbfff 0x14e27e4cc000 - 0x14e27e4cdfff 0x14e27e4ce000 - 0x14e27e4cefff 0x14e27e4cf000 - 0x14e27e4cffff 0x14e27e4d0000 - 0x14e27e4d0fff 0x14e27e4d1000 - 0x14e27e4d2fff 0x14e27e4d3000 - 0x14e27e4d4fff 0x14e27e4d5000 - 0x14e27e4d5fff 0x14e27e4d6000 - 0x14e27e4d6fff 0x14e27e4d7000 - 0x14e27e4d7fff 0x14e27e4d8000 - 0x14e27e4d9fff 0x14e27e4da000 - 0x14e27e4dbfff 0x14e27e4dc000 - 0x14e27e4dcfff 0x14e27e4dd000 - 0x14e27e4ddfff 0x14e27e4de000 - 0x14e27e4defff 0x14e27e4df000 - 0x14e27e4ecfff 0x14e27e4ed000 - 0x14e27e4fafff 0x14e27e4fb000 - 0x14e27e508fff 0x14e27e509000 - 0x14e27e50cfff 0x14e27e50d000 - 0x14e27e50dfff 0x14e27e50e000 - 0x14e27e523fff 0x14e27e524000 - 0x14e27e54ffff 0x14e27e550000 - 0x14e27e558fff 0x14e27e559000 - 0x14e27e559fff 0x14e27e55a000 - 0x14e27e55cfff 0x14e27e55d000 - 0x14e27e562fff 0x14e27e563000 - 0x14e27e565fff 0x14e27e566000 - 0x14e27e566fff 0x14e27e567000 - 0x14e27e567fff 0x14e27e568000 - 0x14e27e56efff 0x14e27e56f000 - 0x14e27e56ffff 0x14e27e570000 - 0x14e27e590fff 0x14e27e591000 - 0x14e27e599fff 0x14e27e59a000 - 0x14e27e59afff 0x14e27e59b000 - 0x14e27e59cfff 0x7ffd719f3000 - 0x7ffd71a13fff 0x7ffd71a71000 - 0x7ffd71a74fff 0x7ffd71a75000 - 0x7ffd71a76fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x6ee000 - 0x70efff 0x100000000000 - 0x1000000bffff 0x14f3f3ccb000 - 0x14f3f3ccbfff 0x14f3f3ccc000 - 0x14f3f4376fff 0x14f3f4377000 - 0x14f3f43cbfff 0x14f3f43cc000 - 0x14f3f43cefff 0x14f3f43cf000 - 0x14f3f43f4fff 0x14f3f43f5000 - 0x14f3f4543fff 0x14f3f4544000 - 0x14f3f458ffff 0x14f3f4590000 - 0x14f3f4590fff 0x14f3f4591000 - 0x14f3f4593fff 0x14f3f4594000 - 0x14f3f4596fff 0x14f3f4597000 - 0x14f3f459afff 0x14f3f459b000 - 0x14f3f459dfff 0x14f3f459e000 - 0x14f3f45affff 0x14f3f45b0000 - 0x14f3f45b3fff 0x14f3f45b4000 - 0x14f3f45b4fff 0x14f3f45b5000 - 0x14f3f45b5fff 0x14f3f45b6000 - 0x14f3f45b7fff 0x14f3f45b8000 - 0x14f3f45c8fff 0x14f3f45c9000 - 0x14f3f45fefff 0x14f3f45ff000 - 0x14f3f4734fff 0x14f3f4735000 - 0x14f3f4735fff 0x14f3f4736000 - 0x14f3f4739fff 0x14f3f473a000 - 0x14f3f473afff 0x14f3f473b000 - 0x14f3f473bfff 0x14f3f473c000 - 0x14f3f473dfff 0x14f3f473e000 - 0x14f3f473efff 0x14f3f473f000 - 0x14f3f473ffff 0x14f3f4740000 - 0x14f3f4740fff 0x14f3f4741000 - 0x14f3f4742fff 0x14f3f4743000 - 0x14f3f4744fff 0x14f3f4745000 - 0x14f3f4745fff 0x14f3f4746000 - 0x14f3f4746fff 0x14f3f4747000 - 0x14f3f4747fff 0x14f3f4748000 - 0x14f3f4749fff 0x14f3f474a000 - 0x14f3f474bfff 0x14f3f474c000 - 0x14f3f474cfff 0x14f3f474d000 - 0x14f3f474dfff 0x14f3f474e000 - 0x14f3f474efff 0x14f3f474f000 - 0x14f3f475cfff 0x14f3f475d000 - 0x14f3f476afff 0x14f3f476b000 - 0x14f3f4778fff 0x14f3f4779000 - 0x14f3f477cfff 0x14f3f477d000 - 0x14f3f477dfff 0x14f3f477e000 - 0x14f3f4793fff 0x14f3f4794000 - 0x14f3f47bffff 0x14f3f47c0000 - 0x14f3f47c8fff 0x14f3f47c9000 - 0x14f3f47c9fff 0x14f3f47ca000 - 0x14f3f47ccfff 0x14f3f47cd000 - 0x14f3f47d2fff 0x14f3f47d3000 - 0x14f3f47d5fff 0x14f3f47d6000 - 0x14f3f47d6fff 0x14f3f47d7000 - 0x14f3f47d7fff 0x14f3f47d8000 - 0x14f3f47defff 0x14f3f47df000 - 0x14f3f47dffff 0x14f3f47e0000 - 0x14f3f4800fff 0x14f3f4801000 - 0x14f3f4809fff 0x14f3f480a000 - 0x14f3f480afff 0x14f3f480b000 - 0x14f3f480cfff 0x7ffe2a194000 - 0x7ffe2a1b4fff 0x7ffe2a1d1000 - 0x7ffe2a1d4fff 0x7ffe2a1d5000 - 0x7ffe2a1d6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1e34000 - 0x1e54fff 0x100000000000 - 0x1000000bffff 0x1515f1449000 - 0x1515f1449fff 0x1515f144a000 - 0x1515f1af4fff 0x1515f1af5000 - 0x1515f1b49fff 0x1515f1b4a000 - 0x1515f1b4cfff 0x1515f1b4d000 - 0x1515f1b72fff 0x1515f1b73000 - 0x1515f1cc1fff 0x1515f1cc2000 - 0x1515f1d0dfff 0x1515f1d0e000 - 0x1515f1d0efff 0x1515f1d0f000 - 0x1515f1d11fff 0x1515f1d12000 - 0x1515f1d14fff 0x1515f1d15000 - 0x1515f1d18fff 0x1515f1d19000 - 0x1515f1d1bfff 0x1515f1d1c000 - 0x1515f1d2dfff 0x1515f1d2e000 - 0x1515f1d31fff 0x1515f1d32000 - 0x1515f1d32fff 0x1515f1d33000 - 0x1515f1d33fff 0x1515f1d34000 - 0x1515f1d35fff 0x1515f1d36000 - 0x1515f1d46fff 0x1515f1d47000 - 0x1515f1d7cfff 0x1515f1d7d000 - 0x1515f1eb2fff 0x1515f1eb3000 - 0x1515f1eb3fff 0x1515f1eb4000 - 0x1515f1eb7fff 0x1515f1eb8000 - 0x1515f1eb8fff 0x1515f1eb9000 - 0x1515f1eb9fff 0x1515f1eba000 - 0x1515f1ebbfff 0x1515f1ebc000 - 0x1515f1ebcfff 0x1515f1ebd000 - 0x1515f1ebdfff 0x1515f1ebe000 - 0x1515f1ebefff 0x1515f1ebf000 - 0x1515f1ec0fff 0x1515f1ec1000 - 0x1515f1ec2fff 0x1515f1ec3000 - 0x1515f1ec3fff 0x1515f1ec4000 - 0x1515f1ec4fff 0x1515f1ec5000 - 0x1515f1ec5fff 0x1515f1ec6000 - 0x1515f1ec7fff 0x1515f1ec8000 - 0x1515f1ec9fff 0x1515f1eca000 - 0x1515f1ecafff 0x1515f1ecb000 - 0x1515f1ecbfff 0x1515f1ecc000 - 0x1515f1eccfff 0x1515f1ecd000 - 0x1515f1edafff 0x1515f1edb000 - 0x1515f1ee8fff 0x1515f1ee9000 - 0x1515f1ef6fff 0x1515f1ef7000 - 0x1515f1efafff 0x1515f1efb000 - 0x1515f1efbfff 0x1515f1efc000 - 0x1515f1f11fff 0x1515f1f12000 - 0x1515f1f3dfff 0x1515f1f3e000 - 0x1515f1f46fff 0x1515f1f47000 - 0x1515f1f47fff 0x1515f1f48000 - 0x1515f1f4afff 0x1515f1f4b000 - 0x1515f1f50fff 0x1515f1f51000 - 0x1515f1f53fff 0x1515f1f54000 - 0x1515f1f54fff 0x1515f1f55000 - 0x1515f1f55fff 0x1515f1f56000 - 0x1515f1f5cfff 0x1515f1f5d000 - 0x1515f1f5dfff 0x1515f1f5e000 - 0x1515f1f7efff 0x1515f1f7f000 - 0x1515f1f87fff 0x1515f1f88000 - 0x1515f1f88fff 0x1515f1f89000 - 0x1515f1f8afff 0x7fff62237000 - 0x7fff62257fff 0x7fff623f4000 - 0x7fff623f7fff 0x7fff623f8000 - 0x7fff623f9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xcfe000 - 0xd1efff 0x100000000000 - 0x1000000bffff 0x14c0b27ba000 - 0x14c0b27bafff 0x14c0b27bb000 - 0x14c0b2e65fff 0x14c0b2e66000 - 0x14c0b2ebafff 0x14c0b2ebb000 - 0x14c0b2ebdfff 0x14c0b2ebe000 - 0x14c0b2ee3fff 0x14c0b2ee4000 - 0x14c0b3032fff 0x14c0b3033000 - 0x14c0b307efff 0x14c0b307f000 - 0x14c0b307ffff 0x14c0b3080000 - 0x14c0b3082fff 0x14c0b3083000 - 0x14c0b3085fff 0x14c0b3086000 - 0x14c0b3089fff 0x14c0b308a000 - 0x14c0b308cfff 0x14c0b308d000 - 0x14c0b309efff 0x14c0b309f000 - 0x14c0b30a2fff 0x14c0b30a3000 - 0x14c0b30a3fff 0x14c0b30a4000 - 0x14c0b30a4fff 0x14c0b30a5000 - 0x14c0b30a6fff 0x14c0b30a7000 - 0x14c0b30b7fff 0x14c0b30b8000 - 0x14c0b30edfff 0x14c0b30ee000 - 0x14c0b3223fff 0x14c0b3224000 - 0x14c0b3224fff 0x14c0b3225000 - 0x14c0b3228fff 0x14c0b3229000 - 0x14c0b3229fff 0x14c0b322a000 - 0x14c0b322afff 0x14c0b322b000 - 0x14c0b322cfff 0x14c0b322d000 - 0x14c0b322dfff 0x14c0b322e000 - 0x14c0b322efff 0x14c0b322f000 - 0x14c0b322ffff 0x14c0b3230000 - 0x14c0b3231fff 0x14c0b3232000 - 0x14c0b3233fff 0x14c0b3234000 - 0x14c0b3234fff 0x14c0b3235000 - 0x14c0b3235fff 0x14c0b3236000 - 0x14c0b3236fff 0x14c0b3237000 - 0x14c0b3238fff 0x14c0b3239000 - 0x14c0b323afff 0x14c0b323b000 - 0x14c0b323bfff 0x14c0b323c000 - 0x14c0b323cfff 0x14c0b323d000 - 0x14c0b323dfff 0x14c0b323e000 - 0x14c0b324bfff 0x14c0b324c000 - 0x14c0b3259fff 0x14c0b325a000 - 0x14c0b3267fff 0x14c0b3268000 - 0x14c0b326bfff 0x14c0b326c000 - 0x14c0b326cfff 0x14c0b326d000 - 0x14c0b3282fff 0x14c0b3283000 - 0x14c0b32aefff 0x14c0b32af000 - 0x14c0b32b7fff 0x14c0b32b8000 - 0x14c0b32b8fff 0x14c0b32b9000 - 0x14c0b32bbfff 0x14c0b32bc000 - 0x14c0b32c1fff 0x14c0b32c2000 - 0x14c0b32c4fff 0x14c0b32c5000 - 0x14c0b32c5fff 0x14c0b32c6000 - 0x14c0b32c6fff 0x14c0b32c7000 - 0x14c0b32cdfff 0x14c0b32ce000 - 0x14c0b32cefff 0x14c0b32cf000 - 0x14c0b32effff 0x14c0b32f0000 - 0x14c0b32f8fff 0x14c0b32f9000 - 0x14c0b32f9fff 0x14c0b32fa000 - 0x14c0b32fbfff 0x7ffed4edc000 - 0x7ffed4efcfff 0x7ffed4f00000 - 0x7ffed4f03fff 0x7ffed4f04000 - 0x7ffed4f05fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x258b000 - 0x25abfff 0x100000000000 - 0x1000000bffff 0x14d1ba1c2000 - 0x14d1ba1c2fff 0x14d1ba1c3000 - 0x14d1ba86dfff 0x14d1ba86e000 - 0x14d1ba8c2fff 0x14d1ba8c3000 - 0x14d1ba8c5fff 0x14d1ba8c6000 - 0x14d1ba8ebfff 0x14d1ba8ec000 - 0x14d1baa3afff 0x14d1baa3b000 - 0x14d1baa86fff 0x14d1baa87000 - 0x14d1baa87fff 0x14d1baa88000 - 0x14d1baa8afff 0x14d1baa8b000 - 0x14d1baa8dfff 0x14d1baa8e000 - 0x14d1baa91fff 0x14d1baa92000 - 0x14d1baa94fff 0x14d1baa95000 - 0x14d1baaa6fff 0x14d1baaa7000 - 0x14d1baaaafff 0x14d1baaab000 - 0x14d1baaabfff 0x14d1baaac000 - 0x14d1baaacfff 0x14d1baaad000 - 0x14d1baaaefff 0x14d1baaaf000 - 0x14d1baabffff 0x14d1baac0000 - 0x14d1baaf5fff 0x14d1baaf6000 - 0x14d1bac2bfff 0x14d1bac2c000 - 0x14d1bac2cfff 0x14d1bac2d000 - 0x14d1bac30fff 0x14d1bac31000 - 0x14d1bac31fff 0x14d1bac32000 - 0x14d1bac32fff 0x14d1bac33000 - 0x14d1bac34fff 0x14d1bac35000 - 0x14d1bac35fff 0x14d1bac36000 - 0x14d1bac36fff 0x14d1bac37000 - 0x14d1bac37fff 0x14d1bac38000 - 0x14d1bac39fff 0x14d1bac3a000 - 0x14d1bac3bfff 0x14d1bac3c000 - 0x14d1bac3cfff 0x14d1bac3d000 - 0x14d1bac3dfff 0x14d1bac3e000 - 0x14d1bac3efff 0x14d1bac3f000 - 0x14d1bac40fff 0x14d1bac41000 - 0x14d1bac42fff 0x14d1bac43000 - 0x14d1bac43fff 0x14d1bac44000 - 0x14d1bac44fff 0x14d1bac45000 - 0x14d1bac45fff 0x14d1bac46000 - 0x14d1bac53fff 0x14d1bac54000 - 0x14d1bac61fff 0x14d1bac62000 - 0x14d1bac6ffff 0x14d1bac70000 - 0x14d1bac73fff 0x14d1bac74000 - 0x14d1bac74fff 0x14d1bac75000 - 0x14d1bac8afff 0x14d1bac8b000 - 0x14d1bacb6fff 0x14d1bacb7000 - 0x14d1bacbffff 0x14d1bacc0000 - 0x14d1bacc0fff 0x14d1bacc1000 - 0x14d1bacc3fff 0x14d1bacc4000 - 0x14d1bacc9fff 0x14d1bacca000 - 0x14d1bacccfff 0x14d1baccd000 - 0x14d1baccdfff 0x14d1bacce000 - 0x14d1baccefff 0x14d1baccf000 - 0x14d1bacd5fff 0x14d1bacd6000 - 0x14d1bacd6fff 0x14d1bacd7000 - 0x14d1bacf7fff 0x14d1bacf8000 - 0x14d1bad00fff 0x14d1bad01000 - 0x14d1bad01fff 0x14d1bad02000 - 0x14d1bad03fff 0x7ffe4eaeb000 - 0x7ffe4eb0bfff 0x7ffe4ebe0000 - 0x7ffe4ebe3fff 0x7ffe4ebe4000 - 0x7ffe4ebe5fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x12ed000 - 0x130dfff 0x100000000000 - 0x1000000bffff 0x14880aa52000 - 0x14880aa52fff 0x14880aa53000 - 0x14880b0fdfff 0x14880b0fe000 - 0x14880b152fff 0x14880b153000 - 0x14880b155fff 0x14880b156000 - 0x14880b17bfff 0x14880b17c000 - 0x14880b2cafff 0x14880b2cb000 - 0x14880b316fff 0x14880b317000 - 0x14880b317fff 0x14880b318000 - 0x14880b31afff 0x14880b31b000 - 0x14880b31dfff 0x14880b31e000 - 0x14880b321fff 0x14880b322000 - 0x14880b324fff 0x14880b325000 - 0x14880b336fff 0x14880b337000 - 0x14880b33afff 0x14880b33b000 - 0x14880b33bfff 0x14880b33c000 - 0x14880b33cfff 0x14880b33d000 - 0x14880b33efff 0x14880b33f000 - 0x14880b34ffff 0x14880b350000 - 0x14880b385fff 0x14880b386000 - 0x14880b4bbfff 0x14880b4bc000 - 0x14880b4bcfff 0x14880b4bd000 - 0x14880b4c0fff 0x14880b4c1000 - 0x14880b4c1fff 0x14880b4c2000 - 0x14880b4c2fff 0x14880b4c3000 - 0x14880b4c4fff 0x14880b4c5000 - 0x14880b4c5fff 0x14880b4c6000 - 0x14880b4c6fff 0x14880b4c7000 - 0x14880b4c7fff 0x14880b4c8000 - 0x14880b4c9fff 0x14880b4ca000 - 0x14880b4cbfff 0x14880b4cc000 - 0x14880b4ccfff 0x14880b4cd000 - 0x14880b4cdfff 0x14880b4ce000 - 0x14880b4cefff 0x14880b4cf000 - 0x14880b4d0fff 0x14880b4d1000 - 0x14880b4d2fff 0x14880b4d3000 - 0x14880b4d3fff 0x14880b4d4000 - 0x14880b4d4fff 0x14880b4d5000 - 0x14880b4d5fff 0x14880b4d6000 - 0x14880b4e3fff 0x14880b4e4000 - 0x14880b4f1fff 0x14880b4f2000 - 0x14880b4fffff 0x14880b500000 - 0x14880b503fff 0x14880b504000 - 0x14880b504fff 0x14880b505000 - 0x14880b51afff 0x14880b51b000 - 0x14880b546fff 0x14880b547000 - 0x14880b54ffff 0x14880b550000 - 0x14880b550fff 0x14880b551000 - 0x14880b553fff 0x14880b554000 - 0x14880b559fff 0x14880b55a000 - 0x14880b55cfff 0x14880b55d000 - 0x14880b55dfff 0x14880b55e000 - 0x14880b55efff 0x14880b55f000 - 0x14880b565fff 0x14880b566000 - 0x14880b566fff 0x14880b567000 - 0x14880b587fff 0x14880b588000 - 0x14880b590fff 0x14880b591000 - 0x14880b591fff 0x14880b592000 - 0x14880b593fff 0x7ffdabf8e000 - 0x7ffdabfaefff 0x7ffdabfb7000 - 0x7ffdabfbafff 0x7ffdabfbb000 - 0x7ffdabfbcfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xcc8000 - 0xce8fff 0x100000000000 - 0x1000000bffff 0x154c533dd000 - 0x154c533ddfff 0x154c533de000 - 0x154c53a88fff 0x154c53a89000 - 0x154c53addfff 0x154c53ade000 - 0x154c53ae0fff 0x154c53ae1000 - 0x154c53b06fff 0x154c53b07000 - 0x154c53c55fff 0x154c53c56000 - 0x154c53ca1fff 0x154c53ca2000 - 0x154c53ca2fff 0x154c53ca3000 - 0x154c53ca5fff 0x154c53ca6000 - 0x154c53ca8fff 0x154c53ca9000 - 0x154c53cacfff 0x154c53cad000 - 0x154c53caffff 0x154c53cb0000 - 0x154c53cc1fff 0x154c53cc2000 - 0x154c53cc5fff 0x154c53cc6000 - 0x154c53cc6fff 0x154c53cc7000 - 0x154c53cc7fff 0x154c53cc8000 - 0x154c53cc9fff 0x154c53cca000 - 0x154c53cdafff 0x154c53cdb000 - 0x154c53d10fff 0x154c53d11000 - 0x154c53e46fff 0x154c53e47000 - 0x154c53e47fff 0x154c53e48000 - 0x154c53e4bfff 0x154c53e4c000 - 0x154c53e4cfff 0x154c53e4d000 - 0x154c53e4dfff 0x154c53e4e000 - 0x154c53e4ffff 0x154c53e50000 - 0x154c53e50fff 0x154c53e51000 - 0x154c53e51fff 0x154c53e52000 - 0x154c53e52fff 0x154c53e53000 - 0x154c53e54fff 0x154c53e55000 - 0x154c53e56fff 0x154c53e57000 - 0x154c53e57fff 0x154c53e58000 - 0x154c53e58fff 0x154c53e59000 - 0x154c53e59fff 0x154c53e5a000 - 0x154c53e5bfff 0x154c53e5c000 - 0x154c53e5dfff 0x154c53e5e000 - 0x154c53e5efff 0x154c53e5f000 - 0x154c53e5ffff 0x154c53e60000 - 0x154c53e60fff 0x154c53e61000 - 0x154c53e6efff 0x154c53e6f000 - 0x154c53e7cfff 0x154c53e7d000 - 0x154c53e8afff 0x154c53e8b000 - 0x154c53e8efff 0x154c53e8f000 - 0x154c53e8ffff 0x154c53e90000 - 0x154c53ea5fff 0x154c53ea6000 - 0x154c53ed1fff 0x154c53ed2000 - 0x154c53edafff 0x154c53edb000 - 0x154c53edbfff 0x154c53edc000 - 0x154c53edefff 0x154c53edf000 - 0x154c53ee4fff 0x154c53ee5000 - 0x154c53ee7fff 0x154c53ee8000 - 0x154c53ee8fff 0x154c53ee9000 - 0x154c53ee9fff 0x154c53eea000 - 0x154c53ef0fff 0x154c53ef1000 - 0x154c53ef1fff 0x154c53ef2000 - 0x154c53f12fff 0x154c53f13000 - 0x154c53f1bfff 0x154c53f1c000 - 0x154c53f1cfff 0x154c53f1d000 - 0x154c53f1efff 0x7ffe01aeb000 - 0x7ffe01b0bfff 0x7ffe01b94000 - 0x7ffe01b97fff 0x7ffe01b98000 - 0x7ffe01b99fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x21d8000 - 0x21f8fff 0x100000000000 - 0x1000000bffff 0x14b002a7d000 - 0x14b002a7dfff 0x14b002a7e000 - 0x14b003128fff 0x14b003129000 - 0x14b00317dfff 0x14b00317e000 - 0x14b003180fff 0x14b003181000 - 0x14b0031a6fff 0x14b0031a7000 - 0x14b0032f5fff 0x14b0032f6000 - 0x14b003341fff 0x14b003342000 - 0x14b003342fff 0x14b003343000 - 0x14b003345fff 0x14b003346000 - 0x14b003348fff 0x14b003349000 - 0x14b00334cfff 0x14b00334d000 - 0x14b00334ffff 0x14b003350000 - 0x14b003361fff 0x14b003362000 - 0x14b003365fff 0x14b003366000 - 0x14b003366fff 0x14b003367000 - 0x14b003367fff 0x14b003368000 - 0x14b003369fff 0x14b00336a000 - 0x14b00337afff 0x14b00337b000 - 0x14b0033b0fff 0x14b0033b1000 - 0x14b0034e6fff 0x14b0034e7000 - 0x14b0034e7fff 0x14b0034e8000 - 0x14b0034ebfff 0x14b0034ec000 - 0x14b0034ecfff 0x14b0034ed000 - 0x14b0034edfff 0x14b0034ee000 - 0x14b0034effff 0x14b0034f0000 - 0x14b0034f0fff 0x14b0034f1000 - 0x14b0034f1fff 0x14b0034f2000 - 0x14b0034f2fff 0x14b0034f3000 - 0x14b0034f4fff 0x14b0034f5000 - 0x14b0034f6fff 0x14b0034f7000 - 0x14b0034f7fff 0x14b0034f8000 - 0x14b0034f8fff 0x14b0034f9000 - 0x14b0034f9fff 0x14b0034fa000 - 0x14b0034fbfff 0x14b0034fc000 - 0x14b0034fdfff 0x14b0034fe000 - 0x14b0034fefff 0x14b0034ff000 - 0x14b0034fffff 0x14b003500000 - 0x14b003500fff 0x14b003501000 - 0x14b00350efff 0x14b00350f000 - 0x14b00351cfff 0x14b00351d000 - 0x14b00352afff 0x14b00352b000 - 0x14b00352efff 0x14b00352f000 - 0x14b00352ffff 0x14b003530000 - 0x14b003545fff 0x14b003546000 - 0x14b003571fff 0x14b003572000 - 0x14b00357afff 0x14b00357b000 - 0x14b00357bfff 0x14b00357c000 - 0x14b00357efff 0x14b00357f000 - 0x14b003584fff 0x14b003585000 - 0x14b003587fff 0x14b003588000 - 0x14b003588fff 0x14b003589000 - 0x14b003589fff 0x14b00358a000 - 0x14b003590fff 0x14b003591000 - 0x14b003591fff 0x14b003592000 - 0x14b0035b2fff 0x14b0035b3000 - 0x14b0035bbfff 0x14b0035bc000 - 0x14b0035bcfff 0x14b0035bd000 - 0x14b0035befff 0x7ffe483cc000 - 0x7ffe483ecfff 0x7ffe483f2000 - 0x7ffe483f5fff 0x7ffe483f6000 - 0x7ffe483f7fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1991000 - 0x19b1fff 0x100000000000 - 0x1000000bffff 0x15183444a000 - 0x15183444afff 0x15183444b000 - 0x151834af5fff 0x151834af6000 - 0x151834b4afff 0x151834b4b000 - 0x151834b4dfff 0x151834b4e000 - 0x151834b73fff 0x151834b74000 - 0x151834cc2fff 0x151834cc3000 - 0x151834d0efff 0x151834d0f000 - 0x151834d0ffff 0x151834d10000 - 0x151834d12fff 0x151834d13000 - 0x151834d15fff 0x151834d16000 - 0x151834d19fff 0x151834d1a000 - 0x151834d1cfff 0x151834d1d000 - 0x151834d2efff 0x151834d2f000 - 0x151834d32fff 0x151834d33000 - 0x151834d33fff 0x151834d34000 - 0x151834d34fff 0x151834d35000 - 0x151834d36fff 0x151834d37000 - 0x151834d47fff 0x151834d48000 - 0x151834d7dfff 0x151834d7e000 - 0x151834eb3fff 0x151834eb4000 - 0x151834eb4fff 0x151834eb5000 - 0x151834eb8fff 0x151834eb9000 - 0x151834eb9fff 0x151834eba000 - 0x151834ebafff 0x151834ebb000 - 0x151834ebcfff 0x151834ebd000 - 0x151834ebdfff 0x151834ebe000 - 0x151834ebefff 0x151834ebf000 - 0x151834ebffff 0x151834ec0000 - 0x151834ec1fff 0x151834ec2000 - 0x151834ec3fff 0x151834ec4000 - 0x151834ec4fff 0x151834ec5000 - 0x151834ec5fff 0x151834ec6000 - 0x151834ec6fff 0x151834ec7000 - 0x151834ec8fff 0x151834ec9000 - 0x151834ecafff 0x151834ecb000 - 0x151834ecbfff 0x151834ecc000 - 0x151834eccfff 0x151834ecd000 - 0x151834ecdfff 0x151834ece000 - 0x151834edbfff 0x151834edc000 - 0x151834ee9fff 0x151834eea000 - 0x151834ef7fff 0x151834ef8000 - 0x151834efbfff 0x151834efc000 - 0x151834efcfff 0x151834efd000 - 0x151834f12fff 0x151834f13000 - 0x151834f3efff 0x151834f3f000 - 0x151834f47fff 0x151834f48000 - 0x151834f48fff 0x151834f49000 - 0x151834f4bfff 0x151834f4c000 - 0x151834f51fff 0x151834f52000 - 0x151834f54fff 0x151834f55000 - 0x151834f55fff 0x151834f56000 - 0x151834f56fff 0x151834f57000 - 0x151834f5dfff 0x151834f5e000 - 0x151834f5efff 0x151834f5f000 - 0x151834f7ffff 0x151834f80000 - 0x151834f88fff 0x151834f89000 - 0x151834f89fff 0x151834f8a000 - 0x151834f8bfff 0x7ffdc22a3000 - 0x7ffdc22c3fff 0x7ffdc23b3000 - 0x7ffdc23b6fff 0x7ffdc23b7000 - 0x7ffdc23b8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x115a000 - 0x117afff 0x100000000000 - 0x1000000bffff 0x14ca6e6da000 - 0x14ca6e6dafff 0x14ca6e6db000 - 0x14ca6ed85fff 0x14ca6ed86000 - 0x14ca6eddafff 0x14ca6eddb000 - 0x14ca6edddfff 0x14ca6edde000 - 0x14ca6ee03fff 0x14ca6ee04000 - 0x14ca6ef52fff 0x14ca6ef53000 - 0x14ca6ef9efff 0x14ca6ef9f000 - 0x14ca6ef9ffff 0x14ca6efa0000 - 0x14ca6efa2fff 0x14ca6efa3000 - 0x14ca6efa5fff 0x14ca6efa6000 - 0x14ca6efa9fff 0x14ca6efaa000 - 0x14ca6efacfff 0x14ca6efad000 - 0x14ca6efbefff 0x14ca6efbf000 - 0x14ca6efc2fff 0x14ca6efc3000 - 0x14ca6efc3fff 0x14ca6efc4000 - 0x14ca6efc4fff 0x14ca6efc5000 - 0x14ca6efc6fff 0x14ca6efc7000 - 0x14ca6efd7fff 0x14ca6efd8000 - 0x14ca6f00dfff 0x14ca6f00e000 - 0x14ca6f143fff 0x14ca6f144000 - 0x14ca6f144fff 0x14ca6f145000 - 0x14ca6f148fff 0x14ca6f149000 - 0x14ca6f149fff 0x14ca6f14a000 - 0x14ca6f14afff 0x14ca6f14b000 - 0x14ca6f14cfff 0x14ca6f14d000 - 0x14ca6f14dfff 0x14ca6f14e000 - 0x14ca6f14efff 0x14ca6f14f000 - 0x14ca6f14ffff 0x14ca6f150000 - 0x14ca6f151fff 0x14ca6f152000 - 0x14ca6f153fff 0x14ca6f154000 - 0x14ca6f154fff 0x14ca6f155000 - 0x14ca6f155fff 0x14ca6f156000 - 0x14ca6f156fff 0x14ca6f157000 - 0x14ca6f158fff 0x14ca6f159000 - 0x14ca6f15afff 0x14ca6f15b000 - 0x14ca6f15bfff 0x14ca6f15c000 - 0x14ca6f15cfff 0x14ca6f15d000 - 0x14ca6f15dfff 0x14ca6f15e000 - 0x14ca6f16bfff 0x14ca6f16c000 - 0x14ca6f179fff 0x14ca6f17a000 - 0x14ca6f187fff 0x14ca6f188000 - 0x14ca6f18bfff 0x14ca6f18c000 - 0x14ca6f18cfff 0x14ca6f18d000 - 0x14ca6f1a2fff 0x14ca6f1a3000 - 0x14ca6f1cefff 0x14ca6f1cf000 - 0x14ca6f1d7fff 0x14ca6f1d8000 - 0x14ca6f1d8fff 0x14ca6f1d9000 - 0x14ca6f1dbfff 0x14ca6f1dc000 - 0x14ca6f1e1fff 0x14ca6f1e2000 - 0x14ca6f1e4fff 0x14ca6f1e5000 - 0x14ca6f1e5fff 0x14ca6f1e6000 - 0x14ca6f1e6fff 0x14ca6f1e7000 - 0x14ca6f1edfff 0x14ca6f1ee000 - 0x14ca6f1eefff 0x14ca6f1ef000 - 0x14ca6f20ffff 0x14ca6f210000 - 0x14ca6f218fff 0x14ca6f219000 - 0x14ca6f219fff 0x14ca6f21a000 - 0x14ca6f21bfff 0x7ffd894b3000 - 0x7ffd894d3fff 0x7ffd89535000 - 0x7ffd89538fff 0x7ffd89539000 - 0x7ffd8953afff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xa9e000 - 0xabefff 0x100000000000 - 0x1000000bffff 0x14b90c795000 - 0x14b90c795fff 0x14b90c796000 - 0x14b90ce40fff 0x14b90ce41000 - 0x14b90ce95fff 0x14b90ce96000 - 0x14b90ce98fff 0x14b90ce99000 - 0x14b90cebefff 0x14b90cebf000 - 0x14b90d00dfff 0x14b90d00e000 - 0x14b90d059fff 0x14b90d05a000 - 0x14b90d05afff 0x14b90d05b000 - 0x14b90d05dfff 0x14b90d05e000 - 0x14b90d060fff 0x14b90d061000 - 0x14b90d064fff 0x14b90d065000 - 0x14b90d067fff 0x14b90d068000 - 0x14b90d079fff 0x14b90d07a000 - 0x14b90d07dfff 0x14b90d07e000 - 0x14b90d07efff 0x14b90d07f000 - 0x14b90d07ffff 0x14b90d080000 - 0x14b90d081fff 0x14b90d082000 - 0x14b90d092fff 0x14b90d093000 - 0x14b90d0c8fff 0x14b90d0c9000 - 0x14b90d1fefff 0x14b90d1ff000 - 0x14b90d1fffff 0x14b90d200000 - 0x14b90d203fff 0x14b90d204000 - 0x14b90d204fff 0x14b90d205000 - 0x14b90d205fff 0x14b90d206000 - 0x14b90d207fff 0x14b90d208000 - 0x14b90d208fff 0x14b90d209000 - 0x14b90d209fff 0x14b90d20a000 - 0x14b90d20afff 0x14b90d20b000 - 0x14b90d20cfff 0x14b90d20d000 - 0x14b90d20efff 0x14b90d20f000 - 0x14b90d20ffff 0x14b90d210000 - 0x14b90d210fff 0x14b90d211000 - 0x14b90d211fff 0x14b90d212000 - 0x14b90d213fff 0x14b90d214000 - 0x14b90d215fff 0x14b90d216000 - 0x14b90d216fff 0x14b90d217000 - 0x14b90d217fff 0x14b90d218000 - 0x14b90d218fff 0x14b90d219000 - 0x14b90d226fff 0x14b90d227000 - 0x14b90d234fff 0x14b90d235000 - 0x14b90d242fff 0x14b90d243000 - 0x14b90d246fff 0x14b90d247000 - 0x14b90d247fff 0x14b90d248000 - 0x14b90d25dfff 0x14b90d25e000 - 0x14b90d289fff 0x14b90d28a000 - 0x14b90d292fff 0x14b90d293000 - 0x14b90d293fff 0x14b90d294000 - 0x14b90d296fff 0x14b90d297000 - 0x14b90d29cfff 0x14b90d29d000 - 0x14b90d29ffff 0x14b90d2a0000 - 0x14b90d2a0fff 0x14b90d2a1000 - 0x14b90d2a1fff 0x14b90d2a2000 - 0x14b90d2a8fff 0x14b90d2a9000 - 0x14b90d2a9fff 0x14b90d2aa000 - 0x14b90d2cafff 0x14b90d2cb000 - 0x14b90d2d3fff 0x14b90d2d4000 - 0x14b90d2d4fff 0x14b90d2d5000 - 0x14b90d2d6fff 0x7fffc72e7000 - 0x7fffc7307fff 0x7fffc7394000 - 0x7fffc7397fff 0x7fffc7398000 - 0x7fffc7399fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ... WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x843000 - 0x863fff 0x100000000000 - 0x1000000bffff 0x1509e64b3000 - 0x1509e64b3fff 0x1509e64b4000 - 0x1509e6b5efff 0x1509e6b5f000 - 0x1509e6bb3fff 0x1509e6bb4000 - 0x1509e6bb6fff 0x1509e6bb7000 - 0x1509e6bdcfff 0x1509e6bdd000 - 0x1509e6d2bfff 0x1509e6d2c000 - 0x1509e6d77fff 0x1509e6d78000 - 0x1509e6d78fff 0x1509e6d79000 - 0x1509e6d7bfff 0x1509e6d7c000 - 0x1509e6d7efff 0x1509e6d7f000 - 0x1509e6d82fff 0x1509e6d83000 - 0x1509e6d85fff 0x1509e6d86000 - 0x1509e6d97fff 0x1509e6d98000 - 0x1509e6d9bfff 0x1509e6d9c000 - 0x1509e6d9cfff 0x1509e6d9d000 - 0x1509e6d9dfff 0x1509e6d9e000 - 0x1509e6d9ffff 0x1509e6da0000 - 0x1509e6db0fff 0x1509e6db1000 - 0x1509e6de6fff 0x1509e6de7000 - 0x1509e6f1cfff 0x1509e6f1d000 - 0x1509e6f1dfff 0x1509e6f1e000 - 0x1509e6f21fff 0x1509e6f22000 - 0x1509e6f22fff 0x1509e6f23000 - 0x1509e6f23fff 0x1509e6f24000 - 0x1509e6f25fff 0x1509e6f26000 - 0x1509e6f26fff 0x1509e6f27000 - 0x1509e6f27fff 0x1509e6f28000 - 0x1509e6f28fff 0x1509e6f29000 - 0x1509e6f2afff 0x1509e6f2b000 - 0x1509e6f2cfff 0x1509e6f2d000 - 0x1509e6f2dfff 0x1509e6f2e000 - 0x1509e6f2efff 0x1509e6f2f000 - 0x1509e6f2ffff 0x1509e6f30000 - 0x1509e6f31fff 0x1509e6f32000 - 0x1509e6f33fff 0x1509e6f34000 - 0x1509e6f34fff 0x1509e6f35000 - 0x1509e6f35fff 0x1509e6f36000 - 0x1509e6f36fff 0x1509e6f37000 - 0x1509e6f44fff 0x1509e6f45000 - 0x1509e6f52fff 0x1509e6f53000 - 0x1509e6f60fff 0x1509e6f61000 - 0x1509e6f64fff 0x1509e6f65000 - 0x1509e6f65fff 0x1509e6f66000 - 0x1509e6f7bfff 0x1509e6f7c000 - 0x1509e6fa7fff 0x1509e6fa8000 - 0x1509e6fb0fff 0x1509e6fb1000 - 0x1509e6fb1fff 0x1509e6fb2000 - 0x1509e6fb4fff 0x1509e6fb5000 - 0x1509e6fbafff 0x1509e6fbb000 - 0x1509e6fbdfff 0x1509e6fbe000 - 0x1509e6fbefff 0x1509e6fbf000 - 0x1509e6fbffff 0x1509e6fc0000 - 0x1509e6fc6fff 0x1509e6fc7000 - 0x1509e6fc7fff 0x1509e6fc8000 - 0x1509e6fe8fff 0x1509e6fe9000 - 0x1509e6ff1fff 0x1509e6ff2000 - 0x1509e6ff2fff 0x1509e6ff3000 - 0x1509e6ff4fff 0x7ffcb1d17000 - 0x7ffcb1d37fff 0x7ffcb1d38000 - 0x7ffcb1d3bfff 0x7ffcb1d3c000 - 0x7ffcb1d3dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xc57000 - 0xc77fff 0x100000000000 - 0x1000000bffff 0x15364677f000 - 0x15364677ffff 0x153646780000 - 0x153646e2afff 0x153646e2b000 - 0x153646e7ffff 0x153646e80000 - 0x153646e82fff 0x153646e83000 - 0x153646ea8fff 0x153646ea9000 - 0x153646ff7fff 0x153646ff8000 - 0x153647043fff 0x153647044000 - 0x153647044fff 0x153647045000 - 0x153647047fff 0x153647048000 - 0x15364704afff 0x15364704b000 - 0x15364704efff 0x15364704f000 - 0x153647051fff 0x153647052000 - 0x153647063fff 0x153647064000 - 0x153647067fff 0x153647068000 - 0x153647068fff 0x153647069000 - 0x153647069fff 0x15364706a000 - 0x15364706bfff 0x15364706c000 - 0x15364707cfff 0x15364707d000 - 0x1536470b2fff 0x1536470b3000 - 0x1536471e8fff 0x1536471e9000 - 0x1536471e9fff 0x1536471ea000 - 0x1536471edfff 0x1536471ee000 - 0x1536471eefff 0x1536471ef000 - 0x1536471effff 0x1536471f0000 - 0x1536471f1fff 0x1536471f2000 - 0x1536471f2fff 0x1536471f3000 - 0x1536471f3fff 0x1536471f4000 - 0x1536471f4fff 0x1536471f5000 - 0x1536471f6fff 0x1536471f7000 - 0x1536471f8fff 0x1536471f9000 - 0x1536471f9fff 0x1536471fa000 - 0x1536471fafff 0x1536471fb000 - 0x1536471fbfff 0x1536471fc000 - 0x1536471fdfff 0x1536471fe000 - 0x1536471fffff 0x153647200000 - 0x153647200fff 0x153647201000 - 0x153647201fff 0x153647202000 - 0x153647202fff 0x153647203000 - 0x153647210fff 0x153647211000 - 0x15364721efff 0x15364721f000 - 0x15364722cfff 0x15364722d000 - 0x153647230fff 0x153647231000 - 0x153647231fff 0x153647232000 - 0x153647247fff 0x153647248000 - 0x153647273fff 0x153647274000 - 0x15364727cfff 0x15364727d000 - 0x15364727dfff 0x15364727e000 - 0x153647280fff 0x153647281000 - 0x153647286fff 0x153647287000 - 0x153647289fff 0x15364728a000 - 0x15364728afff 0x15364728b000 - 0x15364728bfff 0x15364728c000 - 0x153647292fff 0x153647293000 - 0x153647293fff 0x153647294000 - 0x1536472b4fff 0x1536472b5000 - 0x1536472bdfff 0x1536472be000 - 0x1536472befff 0x1536472bf000 - 0x1536472c0fff 0x7ffe0c48a000 - 0x7ffe0c4aafff 0x7ffe0c51f000 - 0x7ffe0c522fff 0x7ffe0c523000 - 0x7ffe0c524fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1fd0000 - 0x1ff0fff 0x100000000000 - 0x1000000bffff 0x15225456b000 - 0x15225456bfff 0x15225456c000 - 0x152254c16fff 0x152254c17000 - 0x152254c6bfff 0x152254c6c000 - 0x152254c6efff 0x152254c6f000 - 0x152254c94fff 0x152254c95000 - 0x152254de3fff 0x152254de4000 - 0x152254e2ffff 0x152254e30000 - 0x152254e30fff 0x152254e31000 - 0x152254e33fff 0x152254e34000 - 0x152254e36fff 0x152254e37000 - 0x152254e3afff 0x152254e3b000 - 0x152254e3dfff 0x152254e3e000 - 0x152254e4ffff 0x152254e50000 - 0x152254e53fff 0x152254e54000 - 0x152254e54fff 0x152254e55000 - 0x152254e55fff 0x152254e56000 - 0x152254e57fff 0x152254e58000 - 0x152254e68fff 0x152254e69000 - 0x152254e9efff 0x152254e9f000 - 0x152254fd4fff 0x152254fd5000 - 0x152254fd5fff 0x152254fd6000 - 0x152254fd9fff 0x152254fda000 - 0x152254fdafff 0x152254fdb000 - 0x152254fdbfff 0x152254fdc000 - 0x152254fddfff 0x152254fde000 - 0x152254fdefff 0x152254fdf000 - 0x152254fdffff 0x152254fe0000 - 0x152254fe0fff 0x152254fe1000 - 0x152254fe2fff 0x152254fe3000 - 0x152254fe4fff 0x152254fe5000 - 0x152254fe5fff 0x152254fe6000 - 0x152254fe6fff 0x152254fe7000 - 0x152254fe7fff 0x152254fe8000 - 0x152254fe9fff 0x152254fea000 - 0x152254febfff 0x152254fec000 - 0x152254fecfff 0x152254fed000 - 0x152254fedfff 0x152254fee000 - 0x152254feefff 0x152254fef000 - 0x152254ffcfff 0x152254ffd000 - 0x15225500afff 0x15225500b000 - 0x152255018fff 0x152255019000 - 0x15225501cfff 0x15225501d000 - 0x15225501dfff 0x15225501e000 - 0x152255033fff 0x152255034000 - 0x15225505ffff 0x152255060000 - 0x152255068fff 0x152255069000 - 0x152255069fff 0x15225506a000 - 0x15225506cfff 0x15225506d000 - 0x152255072fff 0x152255073000 - 0x152255075fff 0x152255076000 - 0x152255076fff 0x152255077000 - 0x152255077fff 0x152255078000 - 0x15225507efff 0x15225507f000 - 0x15225507ffff 0x152255080000 - 0x1522550a0fff 0x1522550a1000 - 0x1522550a9fff 0x1522550aa000 - 0x1522550aafff 0x1522550ab000 - 0x1522550acfff 0x7ffd8e980000 - 0x7ffd8e9a0fff 0x7ffd8e9da000 - 0x7ffd8e9ddfff 0x7ffd8e9de000 - 0x7ffd8e9dffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x8fd000 - 0x91dfff 0x100000000000 - 0x1000000bffff 0x152d19acf000 - 0x152d19acffff 0x152d19ad0000 - 0x152d1a17afff 0x152d1a17b000 - 0x152d1a1cffff 0x152d1a1d0000 - 0x152d1a1d2fff 0x152d1a1d3000 - 0x152d1a1f8fff 0x152d1a1f9000 - 0x152d1a347fff 0x152d1a348000 - 0x152d1a393fff 0x152d1a394000 - 0x152d1a394fff 0x152d1a395000 - 0x152d1a397fff 0x152d1a398000 - 0x152d1a39afff 0x152d1a39b000 - 0x152d1a39efff 0x152d1a39f000 - 0x152d1a3a1fff 0x152d1a3a2000 - 0x152d1a3b3fff 0x152d1a3b4000 - 0x152d1a3b7fff 0x152d1a3b8000 - 0x152d1a3b8fff 0x152d1a3b9000 - 0x152d1a3b9fff 0x152d1a3ba000 - 0x152d1a3bbfff 0x152d1a3bc000 - 0x152d1a3ccfff 0x152d1a3cd000 - 0x152d1a402fff 0x152d1a403000 - 0x152d1a538fff 0x152d1a539000 - 0x152d1a539fff 0x152d1a53a000 - 0x152d1a53dfff 0x152d1a53e000 - 0x152d1a53efff 0x152d1a53f000 - 0x152d1a53ffff 0x152d1a540000 - 0x152d1a541fff 0x152d1a542000 - 0x152d1a542fff 0x152d1a543000 - 0x152d1a543fff 0x152d1a544000 - 0x152d1a544fff 0x152d1a545000 - 0x152d1a546fff 0x152d1a547000 - 0x152d1a548fff 0x152d1a549000 - 0x152d1a549fff 0x152d1a54a000 - 0x152d1a54afff 0x152d1a54b000 - 0x152d1a54bfff 0x152d1a54c000 - 0x152d1a54dfff 0x152d1a54e000 - 0x152d1a54ffff 0x152d1a550000 - 0x152d1a550fff 0x152d1a551000 - 0x152d1a551fff 0x152d1a552000 - 0x152d1a552fff 0x152d1a553000 - 0x152d1a560fff 0x152d1a561000 - 0x152d1a56efff 0x152d1a56f000 - 0x152d1a57cfff 0x152d1a57d000 - 0x152d1a580fff 0x152d1a581000 - 0x152d1a581fff 0x152d1a582000 - 0x152d1a597fff 0x152d1a598000 - 0x152d1a5c3fff 0x152d1a5c4000 - 0x152d1a5ccfff 0x152d1a5cd000 - 0x152d1a5cdfff 0x152d1a5ce000 - 0x152d1a5d0fff 0x152d1a5d1000 - 0x152d1a5d6fff 0x152d1a5d7000 - 0x152d1a5d9fff 0x152d1a5da000 - 0x152d1a5dafff 0x152d1a5db000 - 0x152d1a5dbfff 0x152d1a5dc000 - 0x152d1a5e2fff 0x152d1a5e3000 - 0x152d1a5e3fff 0x152d1a5e4000 - 0x152d1a604fff 0x152d1a605000 - 0x152d1a60dfff 0x152d1a60e000 - 0x152d1a60efff 0x152d1a60f000 - 0x152d1a610fff 0x7ffeeca14000 - 0x7ffeeca34fff 0x7ffeecb8c000 - 0x7ffeecb8ffff 0x7ffeecb90000 - 0x7ffeecb91fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1482000 - 0x14a2fff 0x100000000000 - 0x1000000bffff 0x14dfece8e000 - 0x14dfece8efff 0x14dfece8f000 - 0x14dfed539fff 0x14dfed53a000 - 0x14dfed58efff 0x14dfed58f000 - 0x14dfed591fff 0x14dfed592000 - 0x14dfed5b7fff 0x14dfed5b8000 - 0x14dfed706fff 0x14dfed707000 - 0x14dfed752fff 0x14dfed753000 - 0x14dfed753fff 0x14dfed754000 - 0x14dfed756fff 0x14dfed757000 - 0x14dfed759fff 0x14dfed75a000 - 0x14dfed75dfff 0x14dfed75e000 - 0x14dfed760fff 0x14dfed761000 - 0x14dfed772fff 0x14dfed773000 - 0x14dfed776fff 0x14dfed777000 - 0x14dfed777fff 0x14dfed778000 - 0x14dfed778fff 0x14dfed779000 - 0x14dfed77afff 0x14dfed77b000 - 0x14dfed78bfff 0x14dfed78c000 - 0x14dfed7c1fff 0x14dfed7c2000 - 0x14dfed8f7fff 0x14dfed8f8000 - 0x14dfed8f8fff 0x14dfed8f9000 - 0x14dfed8fcfff 0x14dfed8fd000 - 0x14dfed8fdfff 0x14dfed8fe000 - 0x14dfed8fefff 0x14dfed8ff000 - 0x14dfed900fff 0x14dfed901000 - 0x14dfed901fff 0x14dfed902000 - 0x14dfed902fff 0x14dfed903000 - 0x14dfed903fff 0x14dfed904000 - 0x14dfed905fff 0x14dfed906000 - 0x14dfed907fff 0x14dfed908000 - 0x14dfed908fff 0x14dfed909000 - 0x14dfed909fff 0x14dfed90a000 - 0x14dfed90afff 0x14dfed90b000 - 0x14dfed90cfff 0x14dfed90d000 - 0x14dfed90efff 0x14dfed90f000 - 0x14dfed90ffff 0x14dfed910000 - 0x14dfed910fff 0x14dfed911000 - 0x14dfed911fff 0x14dfed912000 - 0x14dfed91ffff 0x14dfed920000 - 0x14dfed92dfff 0x14dfed92e000 - 0x14dfed93bfff 0x14dfed93c000 - 0x14dfed93ffff 0x14dfed940000 - 0x14dfed940fff 0x14dfed941000 - 0x14dfed956fff 0x14dfed957000 - 0x14dfed982fff 0x14dfed983000 - 0x14dfed98bfff 0x14dfed98c000 - 0x14dfed98cfff 0x14dfed98d000 - 0x14dfed98ffff 0x14dfed990000 - 0x14dfed995fff 0x14dfed996000 - 0x14dfed998fff 0x14dfed999000 - 0x14dfed999fff 0x14dfed99a000 - 0x14dfed99afff 0x14dfed99b000 - 0x14dfed9a1fff 0x14dfed9a2000 - 0x14dfed9a2fff 0x14dfed9a3000 - 0x14dfed9c3fff 0x14dfed9c4000 - 0x14dfed9ccfff 0x14dfed9cd000 - 0x14dfed9cdfff 0x14dfed9ce000 - 0x14dfed9cffff 0x7ffce452e000 - 0x7ffce454efff 0x7ffce45b1000 - 0x7ffce45b4fff 0x7ffce45b5000 - 0x7ffce45b6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x20d3000 - 0x20f3fff 0x100000000000 - 0x1000000bffff 0x154a846c2000 - 0x154a846c2fff 0x154a846c3000 - 0x154a84d6dfff 0x154a84d6e000 - 0x154a84dc2fff 0x154a84dc3000 - 0x154a84dc5fff 0x154a84dc6000 - 0x154a84debfff 0x154a84dec000 - 0x154a84f3afff 0x154a84f3b000 - 0x154a84f86fff 0x154a84f87000 - 0x154a84f87fff 0x154a84f88000 - 0x154a84f8afff 0x154a84f8b000 - 0x154a84f8dfff 0x154a84f8e000 - 0x154a84f91fff 0x154a84f92000 - 0x154a84f94fff 0x154a84f95000 - 0x154a84fa6fff 0x154a84fa7000 - 0x154a84faafff 0x154a84fab000 - 0x154a84fabfff 0x154a84fac000 - 0x154a84facfff 0x154a84fad000 - 0x154a84faefff 0x154a84faf000 - 0x154a84fbffff 0x154a84fc0000 - 0x154a84ff5fff 0x154a84ff6000 - 0x154a8512bfff 0x154a8512c000 - 0x154a8512cfff 0x154a8512d000 - 0x154a85130fff 0x154a85131000 - 0x154a85131fff 0x154a85132000 - 0x154a85132fff 0x154a85133000 - 0x154a85134fff 0x154a85135000 - 0x154a85135fff 0x154a85136000 - 0x154a85136fff 0x154a85137000 - 0x154a85137fff 0x154a85138000 - 0x154a85139fff 0x154a8513a000 - 0x154a8513bfff 0x154a8513c000 - 0x154a8513cfff 0x154a8513d000 - 0x154a8513dfff 0x154a8513e000 - 0x154a8513efff 0x154a8513f000 - 0x154a85140fff 0x154a85141000 - 0x154a85142fff 0x154a85143000 - 0x154a85143fff 0x154a85144000 - 0x154a85144fff 0x154a85145000 - 0x154a85145fff 0x154a85146000 - 0x154a85153fff 0x154a85154000 - 0x154a85161fff 0x154a85162000 - 0x154a8516ffff 0x154a85170000 - 0x154a85173fff 0x154a85174000 - 0x154a85174fff 0x154a85175000 - 0x154a8518afff 0x154a8518b000 - 0x154a851b6fff 0x154a851b7000 - 0x154a851bffff 0x154a851c0000 - 0x154a851c0fff 0x154a851c1000 - 0x154a851c3fff 0x154a851c4000 - 0x154a851c9fff 0x154a851ca000 - 0x154a851ccfff 0x154a851cd000 - 0x154a851cdfff 0x154a851ce000 - 0x154a851cefff 0x154a851cf000 - 0x154a851d5fff 0x154a851d6000 - 0x154a851d6fff 0x154a851d7000 - 0x154a851f7fff 0x154a851f8000 - 0x154a85200fff 0x154a85201000 - 0x154a85201fff 0x154a85202000 - 0x154a85203fff 0x7ffc391f9000 - 0x7ffc39219fff 0x7ffc3936b000 - 0x7ffc3936efff 0x7ffc3936f000 - 0x7ffc39370fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x257e000 - 0x259efff 0x100000000000 - 0x1000000bffff 0x146066000000 - 0x146066000fff 0x146066001000 - 0x1460666abfff 0x1460666ac000 - 0x146066700fff 0x146066701000 - 0x146066703fff 0x146066704000 - 0x146066729fff 0x14606672a000 - 0x146066878fff 0x146066879000 - 0x1460668c4fff 0x1460668c5000 - 0x1460668c5fff 0x1460668c6000 - 0x1460668c8fff 0x1460668c9000 - 0x1460668cbfff 0x1460668cc000 - 0x1460668cffff 0x1460668d0000 - 0x1460668d2fff 0x1460668d3000 - 0x1460668e4fff 0x1460668e5000 - 0x1460668e8fff 0x1460668e9000 - 0x1460668e9fff 0x1460668ea000 - 0x1460668eafff 0x1460668eb000 - 0x1460668ecfff 0x1460668ed000 - 0x1460668fdfff 0x1460668fe000 - 0x146066933fff 0x146066934000 - 0x146066a69fff 0x146066a6a000 - 0x146066a6afff 0x146066a6b000 - 0x146066a6efff 0x146066a6f000 - 0x146066a6ffff 0x146066a70000 - 0x146066a70fff 0x146066a71000 - 0x146066a72fff 0x146066a73000 - 0x146066a73fff 0x146066a74000 - 0x146066a74fff 0x146066a75000 - 0x146066a75fff 0x146066a76000 - 0x146066a77fff 0x146066a78000 - 0x146066a79fff 0x146066a7a000 - 0x146066a7afff 0x146066a7b000 - 0x146066a7bfff 0x146066a7c000 - 0x146066a7cfff 0x146066a7d000 - 0x146066a7efff 0x146066a7f000 - 0x146066a80fff 0x146066a81000 - 0x146066a81fff 0x146066a82000 - 0x146066a82fff 0x146066a83000 - 0x146066a83fff 0x146066a84000 - 0x146066a91fff 0x146066a92000 - 0x146066a9ffff 0x146066aa0000 - 0x146066aadfff 0x146066aae000 - 0x146066ab1fff 0x146066ab2000 - 0x146066ab2fff 0x146066ab3000 - 0x146066ac8fff 0x146066ac9000 - 0x146066af4fff 0x146066af5000 - 0x146066afdfff 0x146066afe000 - 0x146066afefff 0x146066aff000 - 0x146066b01fff 0x146066b02000 - 0x146066b07fff 0x146066b08000 - 0x146066b0afff 0x146066b0b000 - 0x146066b0bfff 0x146066b0c000 - 0x146066b0cfff 0x146066b0d000 - 0x146066b13fff 0x146066b14000 - 0x146066b14fff 0x146066b15000 - 0x146066b35fff 0x146066b36000 - 0x146066b3efff 0x146066b3f000 - 0x146066b3ffff 0x146066b40000 - 0x146066b41fff 0x7ffede6f2000 - 0x7ffede712fff 0x7ffede7d9000 - 0x7ffede7dcfff 0x7ffede7dd000 - 0x7ffede7defff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x14fd000 - 0x151dfff 0x100000000000 - 0x1000000bffff 0x147abc39f000 - 0x147abc39ffff 0x147abc3a0000 - 0x147abca4afff 0x147abca4b000 - 0x147abca9ffff 0x147abcaa0000 - 0x147abcaa2fff 0x147abcaa3000 - 0x147abcac8fff 0x147abcac9000 - 0x147abcc17fff 0x147abcc18000 - 0x147abcc63fff 0x147abcc64000 - 0x147abcc64fff 0x147abcc65000 - 0x147abcc67fff 0x147abcc68000 - 0x147abcc6afff 0x147abcc6b000 - 0x147abcc6efff 0x147abcc6f000 - 0x147abcc71fff 0x147abcc72000 - 0x147abcc83fff 0x147abcc84000 - 0x147abcc87fff 0x147abcc88000 - 0x147abcc88fff 0x147abcc89000 - 0x147abcc89fff 0x147abcc8a000 - 0x147abcc8bfff 0x147abcc8c000 - 0x147abcc9cfff 0x147abcc9d000 - 0x147abccd2fff 0x147abccd3000 - 0x147abce08fff 0x147abce09000 - 0x147abce09fff 0x147abce0a000 - 0x147abce0dfff 0x147abce0e000 - 0x147abce0efff 0x147abce0f000 - 0x147abce0ffff 0x147abce10000 - 0x147abce11fff 0x147abce12000 - 0x147abce12fff 0x147abce13000 - 0x147abce13fff 0x147abce14000 - 0x147abce14fff 0x147abce15000 - 0x147abce16fff 0x147abce17000 - 0x147abce18fff 0x147abce19000 - 0x147abce19fff 0x147abce1a000 - 0x147abce1afff 0x147abce1b000 - 0x147abce1bfff 0x147abce1c000 - 0x147abce1dfff 0x147abce1e000 - 0x147abce1ffff 0x147abce20000 - 0x147abce20fff 0x147abce21000 - 0x147abce21fff 0x147abce22000 - 0x147abce22fff 0x147abce23000 - 0x147abce30fff 0x147abce31000 - 0x147abce3efff 0x147abce3f000 - 0x147abce4cfff 0x147abce4d000 - 0x147abce50fff 0x147abce51000 - 0x147abce51fff 0x147abce52000 - 0x147abce67fff 0x147abce68000 - 0x147abce93fff 0x147abce94000 - 0x147abce9cfff 0x147abce9d000 - 0x147abce9dfff 0x147abce9e000 - 0x147abcea0fff 0x147abcea1000 - 0x147abcea6fff 0x147abcea7000 - 0x147abcea9fff 0x147abceaa000 - 0x147abceaafff 0x147abceab000 - 0x147abceabfff 0x147abceac000 - 0x147abceb2fff 0x147abceb3000 - 0x147abceb3fff 0x147abceb4000 - 0x147abced4fff 0x147abced5000 - 0x147abceddfff 0x147abcede000 - 0x147abcedefff 0x147abcedf000 - 0x147abcee0fff 0x7ffd44d1d000 - 0x7ffd44d3dfff 0x7ffd44dca000 - 0x7ffd44dcdfff 0x7ffd44dce000 - 0x7ffd44dcffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x848000 - 0x868fff 0x100000000000 - 0x1000000bffff 0x14df35d92000 - 0x14df35d92fff 0x14df35d93000 - 0x14df3643dfff 0x14df3643e000 - 0x14df36492fff 0x14df36493000 - 0x14df36495fff 0x14df36496000 - 0x14df364bbfff 0x14df364bc000 - 0x14df3660afff 0x14df3660b000 - 0x14df36656fff 0x14df36657000 - 0x14df36657fff 0x14df36658000 - 0x14df3665afff 0x14df3665b000 - 0x14df3665dfff 0x14df3665e000 - 0x14df36661fff 0x14df36662000 - 0x14df36664fff 0x14df36665000 - 0x14df36676fff 0x14df36677000 - 0x14df3667afff 0x14df3667b000 - 0x14df3667bfff 0x14df3667c000 - 0x14df3667cfff 0x14df3667d000 - 0x14df3667efff 0x14df3667f000 - 0x14df3668ffff 0x14df36690000 - 0x14df366c5fff 0x14df366c6000 - 0x14df367fbfff 0x14df367fc000 - 0x14df367fcfff 0x14df367fd000 - 0x14df36800fff 0x14df36801000 - 0x14df36801fff 0x14df36802000 - 0x14df36802fff 0x14df36803000 - 0x14df36804fff 0x14df36805000 - 0x14df36805fff 0x14df36806000 - 0x14df36806fff 0x14df36807000 - 0x14df36807fff 0x14df36808000 - 0x14df36809fff 0x14df3680a000 - 0x14df3680bfff 0x14df3680c000 - 0x14df3680cfff 0x14df3680d000 - 0x14df3680dfff 0x14df3680e000 - 0x14df3680efff 0x14df3680f000 - 0x14df36810fff 0x14df36811000 - 0x14df36812fff 0x14df36813000 - 0x14df36813fff 0x14df36814000 - 0x14df36814fff 0x14df36815000 - 0x14df36815fff 0x14df36816000 - 0x14df36823fff 0x14df36824000 - 0x14df36831fff 0x14df36832000 - 0x14df3683ffff 0x14df36840000 - 0x14df36843fff 0x14df36844000 - 0x14df36844fff 0x14df36845000 - 0x14df3685afff 0x14df3685b000 - 0x14df36886fff 0x14df36887000 - 0x14df3688ffff 0x14df36890000 - 0x14df36890fff 0x14df36891000 - 0x14df36893fff 0x14df36894000 - 0x14df36899fff 0x14df3689a000 - 0x14df3689cfff 0x14df3689d000 - 0x14df3689dfff 0x14df3689e000 - 0x14df3689efff 0x14df3689f000 - 0x14df368a5fff 0x14df368a6000 - 0x14df368a6fff 0x14df368a7000 - 0x14df368c7fff 0x14df368c8000 - 0x14df368d0fff 0x14df368d1000 - 0x14df368d1fff 0x14df368d2000 - 0x14df368d3fff 0x7ffc94cb8000 - 0x7ffc94cd8fff 0x7ffc94d52000 - 0x7ffc94d55fff 0x7ffc94d56000 - 0x7ffc94d57fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x121c000 - 0x123cfff 0x100000000000 - 0x1000000bffff 0x14752c5f9000 - 0x14752c5f9fff 0x14752c5fa000 - 0x14752cca4fff 0x14752cca5000 - 0x14752ccf9fff 0x14752ccfa000 - 0x14752ccfcfff 0x14752ccfd000 - 0x14752cd22fff 0x14752cd23000 - 0x14752ce71fff 0x14752ce72000 - 0x14752cebdfff 0x14752cebe000 - 0x14752cebefff 0x14752cebf000 - 0x14752cec1fff 0x14752cec2000 - 0x14752cec4fff 0x14752cec5000 - 0x14752cec8fff 0x14752cec9000 - 0x14752cecbfff 0x14752cecc000 - 0x14752ceddfff 0x14752cede000 - 0x14752cee1fff 0x14752cee2000 - 0x14752cee2fff 0x14752cee3000 - 0x14752cee3fff 0x14752cee4000 - 0x14752cee5fff 0x14752cee6000 - 0x14752cef6fff 0x14752cef7000 - 0x14752cf2cfff 0x14752cf2d000 - 0x14752d062fff 0x14752d063000 - 0x14752d063fff 0x14752d064000 - 0x14752d067fff 0x14752d068000 - 0x14752d068fff 0x14752d069000 - 0x14752d069fff 0x14752d06a000 - 0x14752d06bfff 0x14752d06c000 - 0x14752d06cfff 0x14752d06d000 - 0x14752d06dfff 0x14752d06e000 - 0x14752d06efff 0x14752d06f000 - 0x14752d070fff 0x14752d071000 - 0x14752d072fff 0x14752d073000 - 0x14752d073fff 0x14752d074000 - 0x14752d074fff 0x14752d075000 - 0x14752d075fff 0x14752d076000 - 0x14752d077fff 0x14752d078000 - 0x14752d079fff 0x14752d07a000 - 0x14752d07afff 0x14752d07b000 - 0x14752d07bfff 0x14752d07c000 - 0x14752d07cfff 0x14752d07d000 - 0x14752d08afff 0x14752d08b000 - 0x14752d098fff 0x14752d099000 - 0x14752d0a6fff 0x14752d0a7000 - 0x14752d0aafff 0x14752d0ab000 - 0x14752d0abfff 0x14752d0ac000 - 0x14752d0c1fff 0x14752d0c2000 - 0x14752d0edfff 0x14752d0ee000 - 0x14752d0f6fff 0x14752d0f7000 - 0x14752d0f7fff 0x14752d0f8000 - 0x14752d0fafff 0x14752d0fb000 - 0x14752d100fff 0x14752d101000 - 0x14752d103fff 0x14752d104000 - 0x14752d104fff 0x14752d105000 - 0x14752d105fff 0x14752d106000 - 0x14752d10cfff 0x14752d10d000 - 0x14752d10dfff 0x14752d10e000 - 0x14752d12efff 0x14752d12f000 - 0x14752d137fff 0x14752d138000 - 0x14752d138fff 0x14752d139000 - 0x14752d13afff 0x7ffebbc8f000 - 0x7ffebbcaffff 0x7ffebbd48000 - 0x7ffebbd4bfff 0x7ffebbd4c000 - 0x7ffebbd4dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xae8000 - 0xb08fff 0x100000000000 - 0x1000000bffff 0x14eb5c8a8000 - 0x14eb5c8a8fff 0x14eb5c8a9000 - 0x14eb5cf53fff 0x14eb5cf54000 - 0x14eb5cfa8fff 0x14eb5cfa9000 - 0x14eb5cfabfff 0x14eb5cfac000 - 0x14eb5cfd1fff 0x14eb5cfd2000 - 0x14eb5d120fff 0x14eb5d121000 - 0x14eb5d16cfff 0x14eb5d16d000 - 0x14eb5d16dfff 0x14eb5d16e000 - 0x14eb5d170fff 0x14eb5d171000 - 0x14eb5d173fff 0x14eb5d174000 - 0x14eb5d177fff 0x14eb5d178000 - 0x14eb5d17afff 0x14eb5d17b000 - 0x14eb5d18cfff 0x14eb5d18d000 - 0x14eb5d190fff 0x14eb5d191000 - 0x14eb5d191fff 0x14eb5d192000 - 0x14eb5d192fff 0x14eb5d193000 - 0x14eb5d194fff 0x14eb5d195000 - 0x14eb5d1a5fff 0x14eb5d1a6000 - 0x14eb5d1dbfff 0x14eb5d1dc000 - 0x14eb5d311fff 0x14eb5d312000 - 0x14eb5d312fff 0x14eb5d313000 - 0x14eb5d316fff 0x14eb5d317000 - 0x14eb5d317fff 0x14eb5d318000 - 0x14eb5d318fff 0x14eb5d319000 - 0x14eb5d31afff 0x14eb5d31b000 - 0x14eb5d31bfff 0x14eb5d31c000 - 0x14eb5d31cfff 0x14eb5d31d000 - 0x14eb5d31dfff 0x14eb5d31e000 - 0x14eb5d31ffff 0x14eb5d320000 - 0x14eb5d321fff 0x14eb5d322000 - 0x14eb5d322fff 0x14eb5d323000 - 0x14eb5d323fff 0x14eb5d324000 - 0x14eb5d324fff 0x14eb5d325000 - 0x14eb5d326fff 0x14eb5d327000 - 0x14eb5d328fff 0x14eb5d329000 - 0x14eb5d329fff 0x14eb5d32a000 - 0x14eb5d32afff 0x14eb5d32b000 - 0x14eb5d32bfff 0x14eb5d32c000 - 0x14eb5d339fff 0x14eb5d33a000 - 0x14eb5d347fff 0x14eb5d348000 - 0x14eb5d355fff 0x14eb5d356000 - 0x14eb5d359fff 0x14eb5d35a000 - 0x14eb5d35afff 0x14eb5d35b000 - 0x14eb5d370fff 0x14eb5d371000 - 0x14eb5d39cfff 0x14eb5d39d000 - 0x14eb5d3a5fff 0x14eb5d3a6000 - 0x14eb5d3a6fff 0x14eb5d3a7000 - 0x14eb5d3a9fff 0x14eb5d3aa000 - 0x14eb5d3affff 0x14eb5d3b0000 - 0x14eb5d3b2fff 0x14eb5d3b3000 - 0x14eb5d3b3fff 0x14eb5d3b4000 - 0x14eb5d3b4fff 0x14eb5d3b5000 - 0x14eb5d3bbfff 0x14eb5d3bc000 - 0x14eb5d3bcfff 0x14eb5d3bd000 - 0x14eb5d3ddfff 0x14eb5d3de000 - 0x14eb5d3e6fff 0x14eb5d3e7000 - 0x14eb5d3e7fff 0x14eb5d3e8000 - 0x14eb5d3e9fff 0x7ffee69d5000 - 0x7ffee69f5fff 0x7ffee69f6000 - 0x7ffee69f9fff 0x7ffee69fa000 - 0x7ffee69fbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x15f3000 - 0x1613fff 0x100000000000 - 0x1000000bffff 0x14ec86330000 - 0x14ec86330fff 0x14ec86331000 - 0x14ec869dbfff 0x14ec869dc000 - 0x14ec86a30fff 0x14ec86a31000 - 0x14ec86a33fff 0x14ec86a34000 - 0x14ec86a59fff 0x14ec86a5a000 - 0x14ec86ba8fff 0x14ec86ba9000 - 0x14ec86bf4fff 0x14ec86bf5000 - 0x14ec86bf5fff 0x14ec86bf6000 - 0x14ec86bf8fff 0x14ec86bf9000 - 0x14ec86bfbfff 0x14ec86bfc000 - 0x14ec86bfffff 0x14ec86c00000 - 0x14ec86c02fff 0x14ec86c03000 - 0x14ec86c14fff 0x14ec86c15000 - 0x14ec86c18fff 0x14ec86c19000 - 0x14ec86c19fff 0x14ec86c1a000 - 0x14ec86c1afff 0x14ec86c1b000 - 0x14ec86c1cfff 0x14ec86c1d000 - 0x14ec86c2dfff 0x14ec86c2e000 - 0x14ec86c63fff 0x14ec86c64000 - 0x14ec86d99fff 0x14ec86d9a000 - 0x14ec86d9afff 0x14ec86d9b000 - 0x14ec86d9efff 0x14ec86d9f000 - 0x14ec86d9ffff 0x14ec86da0000 - 0x14ec86da0fff 0x14ec86da1000 - 0x14ec86da2fff 0x14ec86da3000 - 0x14ec86da3fff 0x14ec86da4000 - 0x14ec86da4fff 0x14ec86da5000 - 0x14ec86da5fff 0x14ec86da6000 - 0x14ec86da7fff 0x14ec86da8000 - 0x14ec86da9fff 0x14ec86daa000 - 0x14ec86daafff 0x14ec86dab000 - 0x14ec86dabfff 0x14ec86dac000 - 0x14ec86dacfff 0x14ec86dad000 - 0x14ec86daefff 0x14ec86daf000 - 0x14ec86db0fff 0x14ec86db1000 - 0x14ec86db1fff 0x14ec86db2000 - 0x14ec86db2fff 0x14ec86db3000 - 0x14ec86db3fff 0x14ec86db4000 - 0x14ec86dc1fff 0x14ec86dc2000 - 0x14ec86dcffff 0x14ec86dd0000 - 0x14ec86dddfff 0x14ec86dde000 - 0x14ec86de1fff 0x14ec86de2000 - 0x14ec86de2fff 0x14ec86de3000 - 0x14ec86df8fff 0x14ec86df9000 - 0x14ec86e24fff 0x14ec86e25000 - 0x14ec86e2dfff 0x14ec86e2e000 - 0x14ec86e2efff 0x14ec86e2f000 - 0x14ec86e31fff 0x14ec86e32000 - 0x14ec86e37fff 0x14ec86e38000 - 0x14ec86e3afff 0x14ec86e3b000 - 0x14ec86e3bfff 0x14ec86e3c000 - 0x14ec86e3cfff 0x14ec86e3d000 - 0x14ec86e43fff 0x14ec86e44000 - 0x14ec86e44fff 0x14ec86e45000 - 0x14ec86e65fff 0x14ec86e66000 - 0x14ec86e6efff 0x14ec86e6f000 - 0x14ec86e6ffff 0x14ec86e70000 - 0x14ec86e71fff 0x7fff9626f000 - 0x7fff9628ffff 0x7fff962df000 - 0x7fff962e2fff 0x7fff962e3000 - 0x7fff962e4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1a00000 - 0x1a20fff 0x100000000000 - 0x1000000bffff 0x148c717ea000 - 0x148c717eafff 0x148c717eb000 - 0x148c71e95fff 0x148c71e96000 - 0x148c71eeafff 0x148c71eeb000 - 0x148c71eedfff 0x148c71eee000 - 0x148c71f13fff 0x148c71f14000 - 0x148c72062fff 0x148c72063000 - 0x148c720aefff 0x148c720af000 - 0x148c720affff 0x148c720b0000 - 0x148c720b2fff 0x148c720b3000 - 0x148c720b5fff 0x148c720b6000 - 0x148c720b9fff 0x148c720ba000 - 0x148c720bcfff 0x148c720bd000 - 0x148c720cefff 0x148c720cf000 - 0x148c720d2fff 0x148c720d3000 - 0x148c720d3fff 0x148c720d4000 - 0x148c720d4fff 0x148c720d5000 - 0x148c720d6fff 0x148c720d7000 - 0x148c720e7fff 0x148c720e8000 - 0x148c7211dfff 0x148c7211e000 - 0x148c72253fff 0x148c72254000 - 0x148c72254fff 0x148c72255000 - 0x148c72258fff 0x148c72259000 - 0x148c72259fff 0x148c7225a000 - 0x148c7225afff 0x148c7225b000 - 0x148c7225cfff 0x148c7225d000 - 0x148c7225dfff 0x148c7225e000 - 0x148c7225efff 0x148c7225f000 - 0x148c7225ffff 0x148c72260000 - 0x148c72261fff 0x148c72262000 - 0x148c72263fff 0x148c72264000 - 0x148c72264fff 0x148c72265000 - 0x148c72265fff 0x148c72266000 - 0x148c72266fff 0x148c72267000 - 0x148c72268fff 0x148c72269000 - 0x148c7226afff 0x148c7226b000 - 0x148c7226bfff 0x148c7226c000 - 0x148c7226cfff 0x148c7226d000 - 0x148c7226dfff 0x148c7226e000 - 0x148c7227bfff 0x148c7227c000 - 0x148c72289fff 0x148c7228a000 - 0x148c72297fff 0x148c72298000 - 0x148c7229bfff 0x148c7229c000 - 0x148c7229cfff 0x148c7229d000 - 0x148c722b2fff 0x148c722b3000 - 0x148c722defff 0x148c722df000 - 0x148c722e7fff 0x148c722e8000 - 0x148c722e8fff 0x148c722e9000 - 0x148c722ebfff 0x148c722ec000 - 0x148c722f1fff 0x148c722f2000 - 0x148c722f4fff 0x148c722f5000 - 0x148c722f5fff 0x148c722f6000 - 0x148c722f6fff 0x148c722f7000 - 0x148c722fdfff 0x148c722fe000 - 0x148c722fefff 0x148c722ff000 - 0x148c7231ffff 0x148c72320000 - 0x148c72328fff 0x148c72329000 - 0x148c72329fff 0x148c7232a000 - 0x148c7232bfff 0x7ffd5e25f000 - 0x7ffd5e27ffff 0x7ffd5e354000 - 0x7ffd5e357fff 0x7ffd5e358000 - 0x7ffd5e359fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d06000 - 0x1d26fff 0x100000000000 - 0x1000000bffff 0x1532ebb54000 - 0x1532ebb54fff 0x1532ebb55000 - 0x1532ec1fffff 0x1532ec200000 - 0x1532ec254fff 0x1532ec255000 - 0x1532ec257fff 0x1532ec258000 - 0x1532ec27dfff 0x1532ec27e000 - 0x1532ec3ccfff 0x1532ec3cd000 - 0x1532ec418fff 0x1532ec419000 - 0x1532ec419fff 0x1532ec41a000 - 0x1532ec41cfff 0x1532ec41d000 - 0x1532ec41ffff 0x1532ec420000 - 0x1532ec423fff 0x1532ec424000 - 0x1532ec426fff 0x1532ec427000 - 0x1532ec438fff 0x1532ec439000 - 0x1532ec43cfff 0x1532ec43d000 - 0x1532ec43dfff 0x1532ec43e000 - 0x1532ec43efff 0x1532ec43f000 - 0x1532ec440fff 0x1532ec441000 - 0x1532ec451fff 0x1532ec452000 - 0x1532ec487fff 0x1532ec488000 - 0x1532ec5bdfff 0x1532ec5be000 - 0x1532ec5befff 0x1532ec5bf000 - 0x1532ec5c2fff 0x1532ec5c3000 - 0x1532ec5c3fff 0x1532ec5c4000 - 0x1532ec5c4fff 0x1532ec5c5000 - 0x1532ec5c6fff 0x1532ec5c7000 - 0x1532ec5c7fff 0x1532ec5c8000 - 0x1532ec5c8fff 0x1532ec5c9000 - 0x1532ec5c9fff 0x1532ec5ca000 - 0x1532ec5cbfff 0x1532ec5cc000 - 0x1532ec5cdfff 0x1532ec5ce000 - 0x1532ec5cefff 0x1532ec5cf000 - 0x1532ec5cffff 0x1532ec5d0000 - 0x1532ec5d0fff 0x1532ec5d1000 - 0x1532ec5d2fff 0x1532ec5d3000 - 0x1532ec5d4fff 0x1532ec5d5000 - 0x1532ec5d5fff 0x1532ec5d6000 - 0x1532ec5d6fff 0x1532ec5d7000 - 0x1532ec5d7fff 0x1532ec5d8000 - 0x1532ec5e5fff 0x1532ec5e6000 - 0x1532ec5f3fff 0x1532ec5f4000 - 0x1532ec601fff 0x1532ec602000 - 0x1532ec605fff 0x1532ec606000 - 0x1532ec606fff 0x1532ec607000 - 0x1532ec61cfff 0x1532ec61d000 - 0x1532ec648fff 0x1532ec649000 - 0x1532ec651fff 0x1532ec652000 - 0x1532ec652fff 0x1532ec653000 - 0x1532ec655fff 0x1532ec656000 - 0x1532ec65bfff 0x1532ec65c000 - 0x1532ec65efff 0x1532ec65f000 - 0x1532ec65ffff 0x1532ec660000 - 0x1532ec660fff 0x1532ec661000 - 0x1532ec667fff 0x1532ec668000 - 0x1532ec668fff 0x1532ec669000 - 0x1532ec689fff 0x1532ec68a000 - 0x1532ec692fff 0x1532ec693000 - 0x1532ec693fff 0x1532ec694000 - 0x1532ec695fff 0x7ffe8fb45000 - 0x7ffe8fb65fff 0x7ffe8fba5000 - 0x7ffe8fba8fff 0x7ffe8fba9000 - 0x7ffe8fbaafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x12d2000 - 0x12f2fff 0x100000000000 - 0x1000000bffff 0x14a1698d0000 - 0x14a1698d0fff 0x14a1698d1000 - 0x14a169f7bfff 0x14a169f7c000 - 0x14a169fd0fff 0x14a169fd1000 - 0x14a169fd3fff 0x14a169fd4000 - 0x14a169ff9fff 0x14a169ffa000 - 0x14a16a148fff 0x14a16a149000 - 0x14a16a194fff 0x14a16a195000 - 0x14a16a195fff 0x14a16a196000 - 0x14a16a198fff 0x14a16a199000 - 0x14a16a19bfff 0x14a16a19c000 - 0x14a16a19ffff 0x14a16a1a0000 - 0x14a16a1a2fff 0x14a16a1a3000 - 0x14a16a1b4fff 0x14a16a1b5000 - 0x14a16a1b8fff 0x14a16a1b9000 - 0x14a16a1b9fff 0x14a16a1ba000 - 0x14a16a1bafff 0x14a16a1bb000 - 0x14a16a1bcfff 0x14a16a1bd000 - 0x14a16a1cdfff 0x14a16a1ce000 - 0x14a16a203fff 0x14a16a204000 - 0x14a16a339fff 0x14a16a33a000 - 0x14a16a33afff 0x14a16a33b000 - 0x14a16a33efff 0x14a16a33f000 - 0x14a16a33ffff 0x14a16a340000 - 0x14a16a340fff 0x14a16a341000 - 0x14a16a342fff 0x14a16a343000 - 0x14a16a343fff 0x14a16a344000 - 0x14a16a344fff 0x14a16a345000 - 0x14a16a345fff 0x14a16a346000 - 0x14a16a347fff 0x14a16a348000 - 0x14a16a349fff 0x14a16a34a000 - 0x14a16a34afff 0x14a16a34b000 - 0x14a16a34bfff 0x14a16a34c000 - 0x14a16a34cfff 0x14a16a34d000 - 0x14a16a34efff 0x14a16a34f000 - 0x14a16a350fff 0x14a16a351000 - 0x14a16a351fff 0x14a16a352000 - 0x14a16a352fff 0x14a16a353000 - 0x14a16a353fff 0x14a16a354000 - 0x14a16a361fff 0x14a16a362000 - 0x14a16a36ffff 0x14a16a370000 - 0x14a16a37dfff 0x14a16a37e000 - 0x14a16a381fff 0x14a16a382000 - 0x14a16a382fff 0x14a16a383000 - 0x14a16a398fff 0x14a16a399000 - 0x14a16a3c4fff 0x14a16a3c5000 - 0x14a16a3cdfff 0x14a16a3ce000 - 0x14a16a3cefff 0x14a16a3cf000 - 0x14a16a3d1fff 0x14a16a3d2000 - 0x14a16a3d7fff 0x14a16a3d8000 - 0x14a16a3dafff 0x14a16a3db000 - 0x14a16a3dbfff 0x14a16a3dc000 - 0x14a16a3dcfff 0x14a16a3dd000 - 0x14a16a3e3fff 0x14a16a3e4000 - 0x14a16a3e4fff 0x14a16a3e5000 - 0x14a16a405fff 0x14a16a406000 - 0x14a16a40efff 0x14a16a40f000 - 0x14a16a40ffff 0x14a16a410000 - 0x14a16a411fff 0x7fffed646000 - 0x7fffed666fff 0x7fffed745000 - 0x7fffed748fff 0x7fffed749000 - 0x7fffed74afff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1b64000 - 0x1b84fff 0x100000000000 - 0x1000000bffff 0x147481809000 - 0x147481809fff 0x14748180a000 - 0x147481eb4fff 0x147481eb5000 - 0x147481f09fff 0x147481f0a000 - 0x147481f0cfff 0x147481f0d000 - 0x147481f32fff 0x147481f33000 - 0x147482081fff 0x147482082000 - 0x1474820cdfff 0x1474820ce000 - 0x1474820cefff 0x1474820cf000 - 0x1474820d1fff 0x1474820d2000 - 0x1474820d4fff 0x1474820d5000 - 0x1474820d8fff 0x1474820d9000 - 0x1474820dbfff 0x1474820dc000 - 0x1474820edfff 0x1474820ee000 - 0x1474820f1fff 0x1474820f2000 - 0x1474820f2fff 0x1474820f3000 - 0x1474820f3fff 0x1474820f4000 - 0x1474820f5fff 0x1474820f6000 - 0x147482106fff 0x147482107000 - 0x14748213cfff 0x14748213d000 - 0x147482272fff 0x147482273000 - 0x147482273fff 0x147482274000 - 0x147482277fff 0x147482278000 - 0x147482278fff 0x147482279000 - 0x147482279fff 0x14748227a000 - 0x14748227bfff 0x14748227c000 - 0x14748227cfff 0x14748227d000 - 0x14748227dfff 0x14748227e000 - 0x14748227efff 0x14748227f000 - 0x147482280fff 0x147482281000 - 0x147482282fff 0x147482283000 - 0x147482283fff 0x147482284000 - 0x147482284fff 0x147482285000 - 0x147482285fff 0x147482286000 - 0x147482287fff 0x147482288000 - 0x147482289fff 0x14748228a000 - 0x14748228afff 0x14748228b000 - 0x14748228bfff 0x14748228c000 - 0x14748228cfff 0x14748228d000 - 0x14748229afff 0x14748229b000 - 0x1474822a8fff 0x1474822a9000 - 0x1474822b6fff 0x1474822b7000 - 0x1474822bafff 0x1474822bb000 - 0x1474822bbfff 0x1474822bc000 - 0x1474822d1fff 0x1474822d2000 - 0x1474822fdfff 0x1474822fe000 - 0x147482306fff 0x147482307000 - 0x147482307fff 0x147482308000 - 0x14748230afff 0x14748230b000 - 0x147482310fff 0x147482311000 - 0x147482313fff 0x147482314000 - 0x147482314fff 0x147482315000 - 0x147482315fff 0x147482316000 - 0x14748231cfff 0x14748231d000 - 0x14748231dfff 0x14748231e000 - 0x14748233efff 0x14748233f000 - 0x147482347fff 0x147482348000 - 0x147482348fff 0x147482349000 - 0x14748234afff 0x7ffe99546000 - 0x7ffe99566fff 0x7ffe995f0000 - 0x7ffe995f3fff 0x7ffe995f4000 - 0x7ffe995f5fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xe8a000 - 0xeaafff 0x100000000000 - 0x1000000bffff 0x14b57c4c2000 - 0x14b57c4c2fff 0x14b57c4c3000 - 0x14b57cb6dfff 0x14b57cb6e000 - 0x14b57cbc2fff 0x14b57cbc3000 - 0x14b57cbc5fff 0x14b57cbc6000 - 0x14b57cbebfff 0x14b57cbec000 - 0x14b57cd3afff 0x14b57cd3b000 - 0x14b57cd86fff 0x14b57cd87000 - 0x14b57cd87fff 0x14b57cd88000 - 0x14b57cd8afff 0x14b57cd8b000 - 0x14b57cd8dfff 0x14b57cd8e000 - 0x14b57cd91fff 0x14b57cd92000 - 0x14b57cd94fff 0x14b57cd95000 - 0x14b57cda6fff 0x14b57cda7000 - 0x14b57cdaafff 0x14b57cdab000 - 0x14b57cdabfff 0x14b57cdac000 - 0x14b57cdacfff 0x14b57cdad000 - 0x14b57cdaefff 0x14b57cdaf000 - 0x14b57cdbffff 0x14b57cdc0000 - 0x14b57cdf5fff 0x14b57cdf6000 - 0x14b57cf2bfff 0x14b57cf2c000 - 0x14b57cf2cfff 0x14b57cf2d000 - 0x14b57cf30fff 0x14b57cf31000 - 0x14b57cf31fff 0x14b57cf32000 - 0x14b57cf32fff 0x14b57cf33000 - 0x14b57cf34fff 0x14b57cf35000 - 0x14b57cf35fff 0x14b57cf36000 - 0x14b57cf36fff 0x14b57cf37000 - 0x14b57cf37fff 0x14b57cf38000 - 0x14b57cf39fff 0x14b57cf3a000 - 0x14b57cf3bfff 0x14b57cf3c000 - 0x14b57cf3cfff 0x14b57cf3d000 - 0x14b57cf3dfff 0x14b57cf3e000 - 0x14b57cf3efff 0x14b57cf3f000 - 0x14b57cf40fff 0x14b57cf41000 - 0x14b57cf42fff 0x14b57cf43000 - 0x14b57cf43fff 0x14b57cf44000 - 0x14b57cf44fff 0x14b57cf45000 - 0x14b57cf45fff 0x14b57cf46000 - 0x14b57cf53fff 0x14b57cf54000 - 0x14b57cf61fff 0x14b57cf62000 - 0x14b57cf6ffff 0x14b57cf70000 - 0x14b57cf73fff 0x14b57cf74000 - 0x14b57cf74fff 0x14b57cf75000 - 0x14b57cf8afff 0x14b57cf8b000 - 0x14b57cfb6fff 0x14b57cfb7000 - 0x14b57cfbffff 0x14b57cfc0000 - 0x14b57cfc0fff 0x14b57cfc1000 - 0x14b57cfc3fff 0x14b57cfc4000 - 0x14b57cfc9fff 0x14b57cfca000 - 0x14b57cfccfff 0x14b57cfcd000 - 0x14b57cfcdfff 0x14b57cfce000 - 0x14b57cfcefff 0x14b57cfcf000 - 0x14b57cfd5fff 0x14b57cfd6000 - 0x14b57cfd6fff 0x14b57cfd7000 - 0x14b57cff7fff 0x14b57cff8000 - 0x14b57d000fff 0x14b57d001000 - 0x14b57d001fff 0x14b57d002000 - 0x14b57d003fff 0x7ffd9c44e000 - 0x7ffd9c46efff 0x7ffd9c5ab000 - 0x7ffd9c5aefff 0x7ffd9c5af000 - 0x7ffd9c5b0fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xf1c000 - 0xf3cfff 0x100000000000 - 0x1000000bffff 0x1550f32a8000 - 0x1550f32a8fff 0x1550f32a9000 - 0x1550f3953fff 0x1550f3954000 - 0x1550f39a8fff 0x1550f39a9000 - 0x1550f39abfff 0x1550f39ac000 - 0x1550f39d1fff 0x1550f39d2000 - 0x1550f3b20fff 0x1550f3b21000 - 0x1550f3b6cfff 0x1550f3b6d000 - 0x1550f3b6dfff 0x1550f3b6e000 - 0x1550f3b70fff 0x1550f3b71000 - 0x1550f3b73fff 0x1550f3b74000 - 0x1550f3b77fff 0x1550f3b78000 - 0x1550f3b7afff 0x1550f3b7b000 - 0x1550f3b8cfff 0x1550f3b8d000 - 0x1550f3b90fff 0x1550f3b91000 - 0x1550f3b91fff 0x1550f3b92000 - 0x1550f3b92fff 0x1550f3b93000 - 0x1550f3b94fff 0x1550f3b95000 - 0x1550f3ba5fff 0x1550f3ba6000 - 0x1550f3bdbfff 0x1550f3bdc000 - 0x1550f3d11fff 0x1550f3d12000 - 0x1550f3d12fff 0x1550f3d13000 - 0x1550f3d16fff 0x1550f3d17000 - 0x1550f3d17fff 0x1550f3d18000 - 0x1550f3d18fff 0x1550f3d19000 - 0x1550f3d1afff 0x1550f3d1b000 - 0x1550f3d1bfff 0x1550f3d1c000 - 0x1550f3d1cfff 0x1550f3d1d000 - 0x1550f3d1dfff 0x1550f3d1e000 - 0x1550f3d1ffff 0x1550f3d20000 - 0x1550f3d21fff 0x1550f3d22000 - 0x1550f3d22fff 0x1550f3d23000 - 0x1550f3d23fff 0x1550f3d24000 - 0x1550f3d24fff 0x1550f3d25000 - 0x1550f3d26fff 0x1550f3d27000 - 0x1550f3d28fff 0x1550f3d29000 - 0x1550f3d29fff 0x1550f3d2a000 - 0x1550f3d2afff 0x1550f3d2b000 - 0x1550f3d2bfff 0x1550f3d2c000 - 0x1550f3d39fff 0x1550f3d3a000 - 0x1550f3d47fff 0x1550f3d48000 - 0x1550f3d55fff 0x1550f3d56000 - 0x1550f3d59fff 0x1550f3d5a000 - 0x1550f3d5afff 0x1550f3d5b000 - 0x1550f3d70fff 0x1550f3d71000 - 0x1550f3d9cfff 0x1550f3d9d000 - 0x1550f3da5fff 0x1550f3da6000 - 0x1550f3da6fff 0x1550f3da7000 - 0x1550f3da9fff 0x1550f3daa000 - 0x1550f3daffff 0x1550f3db0000 - 0x1550f3db2fff 0x1550f3db3000 - 0x1550f3db3fff 0x1550f3db4000 - 0x1550f3db4fff 0x1550f3db5000 - 0x1550f3dbbfff 0x1550f3dbc000 - 0x1550f3dbcfff 0x1550f3dbd000 - 0x1550f3dddfff 0x1550f3dde000 - 0x1550f3de6fff 0x1550f3de7000 - 0x1550f3de7fff 0x1550f3de8000 - 0x1550f3de9fff 0x7ffcd09a7000 - 0x7ffcd09c7fff 0x7ffcd09e9000 - 0x7ffcd09ecfff 0x7ffcd09ed000 - 0x7ffcd09eefff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1ec1000 - 0x1ee1fff 0x100000000000 - 0x1000000bffff 0x153eaff8a000 - 0x153eaff8afff 0x153eaff8b000 - 0x153eb0635fff 0x153eb0636000 - 0x153eb068afff 0x153eb068b000 - 0x153eb068dfff 0x153eb068e000 - 0x153eb06b3fff 0x153eb06b4000 - 0x153eb0802fff 0x153eb0803000 - 0x153eb084efff 0x153eb084f000 - 0x153eb084ffff 0x153eb0850000 - 0x153eb0852fff 0x153eb0853000 - 0x153eb0855fff 0x153eb0856000 - 0x153eb0859fff 0x153eb085a000 - 0x153eb085cfff 0x153eb085d000 - 0x153eb086efff 0x153eb086f000 - 0x153eb0872fff 0x153eb0873000 - 0x153eb0873fff 0x153eb0874000 - 0x153eb0874fff 0x153eb0875000 - 0x153eb0876fff 0x153eb0877000 - 0x153eb0887fff 0x153eb0888000 - 0x153eb08bdfff 0x153eb08be000 - 0x153eb09f3fff 0x153eb09f4000 - 0x153eb09f4fff 0x153eb09f5000 - 0x153eb09f8fff 0x153eb09f9000 - 0x153eb09f9fff 0x153eb09fa000 - 0x153eb09fafff 0x153eb09fb000 - 0x153eb09fcfff 0x153eb09fd000 - 0x153eb09fdfff 0x153eb09fe000 - 0x153eb09fefff 0x153eb09ff000 - 0x153eb09fffff 0x153eb0a00000 - 0x153eb0a01fff 0x153eb0a02000 - 0x153eb0a03fff 0x153eb0a04000 - 0x153eb0a04fff 0x153eb0a05000 - 0x153eb0a05fff 0x153eb0a06000 - 0x153eb0a06fff 0x153eb0a07000 - 0x153eb0a08fff 0x153eb0a09000 - 0x153eb0a0afff 0x153eb0a0b000 - 0x153eb0a0bfff 0x153eb0a0c000 - 0x153eb0a0cfff 0x153eb0a0d000 - 0x153eb0a0dfff 0x153eb0a0e000 - 0x153eb0a1bfff 0x153eb0a1c000 - 0x153eb0a29fff 0x153eb0a2a000 - 0x153eb0a37fff 0x153eb0a38000 - 0x153eb0a3bfff 0x153eb0a3c000 - 0x153eb0a3cfff 0x153eb0a3d000 - 0x153eb0a52fff 0x153eb0a53000 - 0x153eb0a7efff 0x153eb0a7f000 - 0x153eb0a87fff 0x153eb0a88000 - 0x153eb0a88fff 0x153eb0a89000 - 0x153eb0a8bfff 0x153eb0a8c000 - 0x153eb0a91fff 0x153eb0a92000 - 0x153eb0a94fff 0x153eb0a95000 - 0x153eb0a95fff 0x153eb0a96000 - 0x153eb0a96fff 0x153eb0a97000 - 0x153eb0a9dfff 0x153eb0a9e000 - 0x153eb0a9efff 0x153eb0a9f000 - 0x153eb0abffff 0x153eb0ac0000 - 0x153eb0ac8fff 0x153eb0ac9000 - 0x153eb0ac9fff 0x153eb0aca000 - 0x153eb0acbfff 0x7ffdf0d4b000 - 0x7ffdf0d6bfff 0x7ffdf0d79000 - 0x7ffdf0d7cfff 0x7ffdf0d7d000 - 0x7ffdf0d7efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x15ea000 - 0x160afff 0x100000000000 - 0x1000000bffff 0x14b774f39000 - 0x14b774f39fff 0x14b774f3a000 - 0x14b7755e4fff 0x14b7755e5000 - 0x14b775639fff 0x14b77563a000 - 0x14b77563cfff 0x14b77563d000 - 0x14b775662fff 0x14b775663000 - 0x14b7757b1fff 0x14b7757b2000 - 0x14b7757fdfff 0x14b7757fe000 - 0x14b7757fefff 0x14b7757ff000 - 0x14b775801fff 0x14b775802000 - 0x14b775804fff 0x14b775805000 - 0x14b775808fff 0x14b775809000 - 0x14b77580bfff 0x14b77580c000 - 0x14b77581dfff 0x14b77581e000 - 0x14b775821fff 0x14b775822000 - 0x14b775822fff 0x14b775823000 - 0x14b775823fff 0x14b775824000 - 0x14b775825fff 0x14b775826000 - 0x14b775836fff 0x14b775837000 - 0x14b77586cfff 0x14b77586d000 - 0x14b7759a2fff 0x14b7759a3000 - 0x14b7759a3fff 0x14b7759a4000 - 0x14b7759a7fff 0x14b7759a8000 - 0x14b7759a8fff 0x14b7759a9000 - 0x14b7759a9fff 0x14b7759aa000 - 0x14b7759abfff 0x14b7759ac000 - 0x14b7759acfff 0x14b7759ad000 - 0x14b7759adfff 0x14b7759ae000 - 0x14b7759aefff 0x14b7759af000 - 0x14b7759b0fff 0x14b7759b1000 - 0x14b7759b2fff 0x14b7759b3000 - 0x14b7759b3fff 0x14b7759b4000 - 0x14b7759b4fff 0x14b7759b5000 - 0x14b7759b5fff 0x14b7759b6000 - 0x14b7759b7fff 0x14b7759b8000 - 0x14b7759b9fff 0x14b7759ba000 - 0x14b7759bafff 0x14b7759bb000 - 0x14b7759bbfff 0x14b7759bc000 - 0x14b7759bcfff 0x14b7759bd000 - 0x14b7759cafff 0x14b7759cb000 - 0x14b7759d8fff 0x14b7759d9000 - 0x14b7759e6fff 0x14b7759e7000 - 0x14b7759eafff 0x14b7759eb000 - 0x14b7759ebfff 0x14b7759ec000 - 0x14b775a01fff 0x14b775a02000 - 0x14b775a2dfff 0x14b775a2e000 - 0x14b775a36fff 0x14b775a37000 - 0x14b775a37fff 0x14b775a38000 - 0x14b775a3afff 0x14b775a3b000 - 0x14b775a40fff 0x14b775a41000 - 0x14b775a43fff 0x14b775a44000 - 0x14b775a44fff 0x14b775a45000 - 0x14b775a45fff 0x14b775a46000 - 0x14b775a4cfff 0x14b775a4d000 - 0x14b775a4dfff 0x14b775a4e000 - 0x14b775a6efff 0x14b775a6f000 - 0x14b775a77fff 0x14b775a78000 - 0x14b775a78fff 0x14b775a79000 - 0x14b775a7afff 0x7ffe6d61f000 - 0x7ffe6d63ffff 0x7ffe6d742000 - 0x7ffe6d745fff 0x7ffe6d746000 - 0x7ffe6d747fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x7fc000 - 0x81cfff 0x100000000000 - 0x1000000bffff 0x14f6442fe000 - 0x14f6442fefff 0x14f6442ff000 - 0x14f6449a9fff 0x14f6449aa000 - 0x14f6449fefff 0x14f6449ff000 - 0x14f644a01fff 0x14f644a02000 - 0x14f644a27fff 0x14f644a28000 - 0x14f644b76fff 0x14f644b77000 - 0x14f644bc2fff 0x14f644bc3000 - 0x14f644bc3fff 0x14f644bc4000 - 0x14f644bc6fff 0x14f644bc7000 - 0x14f644bc9fff 0x14f644bca000 - 0x14f644bcdfff 0x14f644bce000 - 0x14f644bd0fff 0x14f644bd1000 - 0x14f644be2fff 0x14f644be3000 - 0x14f644be6fff 0x14f644be7000 - 0x14f644be7fff 0x14f644be8000 - 0x14f644be8fff 0x14f644be9000 - 0x14f644beafff 0x14f644beb000 - 0x14f644bfbfff 0x14f644bfc000 - 0x14f644c31fff 0x14f644c32000 - 0x14f644d67fff 0x14f644d68000 - 0x14f644d68fff 0x14f644d69000 - 0x14f644d6cfff 0x14f644d6d000 - 0x14f644d6dfff 0x14f644d6e000 - 0x14f644d6efff 0x14f644d6f000 - 0x14f644d70fff 0x14f644d71000 - 0x14f644d71fff 0x14f644d72000 - 0x14f644d72fff 0x14f644d73000 - 0x14f644d73fff 0x14f644d74000 - 0x14f644d75fff 0x14f644d76000 - 0x14f644d77fff 0x14f644d78000 - 0x14f644d78fff 0x14f644d79000 - 0x14f644d79fff 0x14f644d7a000 - 0x14f644d7afff 0x14f644d7b000 - 0x14f644d7cfff 0x14f644d7d000 - 0x14f644d7efff 0x14f644d7f000 - 0x14f644d7ffff 0x14f644d80000 - 0x14f644d80fff 0x14f644d81000 - 0x14f644d81fff 0x14f644d82000 - 0x14f644d8ffff 0x14f644d90000 - 0x14f644d9dfff 0x14f644d9e000 - 0x14f644dabfff 0x14f644dac000 - 0x14f644daffff 0x14f644db0000 - 0x14f644db0fff 0x14f644db1000 - 0x14f644dc6fff 0x14f644dc7000 - 0x14f644df2fff 0x14f644df3000 - 0x14f644dfbfff 0x14f644dfc000 - 0x14f644dfcfff 0x14f644dfd000 - 0x14f644dfffff 0x14f644e00000 - 0x14f644e05fff 0x14f644e06000 - 0x14f644e08fff 0x14f644e09000 - 0x14f644e09fff 0x14f644e0a000 - 0x14f644e0afff 0x14f644e0b000 - 0x14f644e11fff 0x14f644e12000 - 0x14f644e12fff 0x14f644e13000 - 0x14f644e33fff 0x14f644e34000 - 0x14f644e3cfff 0x14f644e3d000 - 0x14f644e3dfff 0x14f644e3e000 - 0x14f644e3ffff 0x7ffd74974000 - 0x7ffd74994fff 0x7ffd749be000 - 0x7ffd749c1fff 0x7ffd749c2000 - 0x7ffd749c3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1cb5000 - 0x1cd5fff 0x100000000000 - 0x1000000bffff 0x15060b0e1000 - 0x15060b0e1fff 0x15060b0e2000 - 0x15060b78cfff 0x15060b78d000 - 0x15060b7e1fff 0x15060b7e2000 - 0x15060b7e4fff 0x15060b7e5000 - 0x15060b80afff 0x15060b80b000 - 0x15060b959fff 0x15060b95a000 - 0x15060b9a5fff 0x15060b9a6000 - 0x15060b9a6fff 0x15060b9a7000 - 0x15060b9a9fff 0x15060b9aa000 - 0x15060b9acfff 0x15060b9ad000 - 0x15060b9b0fff 0x15060b9b1000 - 0x15060b9b3fff 0x15060b9b4000 - 0x15060b9c5fff 0x15060b9c6000 - 0x15060b9c9fff 0x15060b9ca000 - 0x15060b9cafff 0x15060b9cb000 - 0x15060b9cbfff 0x15060b9cc000 - 0x15060b9cdfff 0x15060b9ce000 - 0x15060b9defff 0x15060b9df000 - 0x15060ba14fff 0x15060ba15000 - 0x15060bb4afff 0x15060bb4b000 - 0x15060bb4bfff 0x15060bb4c000 - 0x15060bb4ffff 0x15060bb50000 - 0x15060bb50fff 0x15060bb51000 - 0x15060bb51fff 0x15060bb52000 - 0x15060bb53fff 0x15060bb54000 - 0x15060bb54fff 0x15060bb55000 - 0x15060bb55fff 0x15060bb56000 - 0x15060bb56fff 0x15060bb57000 - 0x15060bb58fff 0x15060bb59000 - 0x15060bb5afff 0x15060bb5b000 - 0x15060bb5bfff 0x15060bb5c000 - 0x15060bb5cfff 0x15060bb5d000 - 0x15060bb5dfff 0x15060bb5e000 - 0x15060bb5ffff 0x15060bb60000 - 0x15060bb61fff 0x15060bb62000 - 0x15060bb62fff 0x15060bb63000 - 0x15060bb63fff 0x15060bb64000 - 0x15060bb64fff 0x15060bb65000 - 0x15060bb72fff 0x15060bb73000 - 0x15060bb80fff 0x15060bb81000 - 0x15060bb8efff 0x15060bb8f000 - 0x15060bb92fff 0x15060bb93000 - 0x15060bb93fff 0x15060bb94000 - 0x15060bba9fff 0x15060bbaa000 - 0x15060bbd5fff 0x15060bbd6000 - 0x15060bbdefff 0x15060bbdf000 - 0x15060bbdffff 0x15060bbe0000 - 0x15060bbe2fff 0x15060bbe3000 - 0x15060bbe8fff 0x15060bbe9000 - 0x15060bbebfff 0x15060bbec000 - 0x15060bbecfff 0x15060bbed000 - 0x15060bbedfff 0x15060bbee000 - 0x15060bbf4fff 0x15060bbf5000 - 0x15060bbf5fff 0x15060bbf6000 - 0x15060bc16fff 0x15060bc17000 - 0x15060bc1ffff 0x15060bc20000 - 0x15060bc20fff 0x15060bc21000 - 0x15060bc22fff 0x7ffd03a7c000 - 0x7ffd03a9cfff 0x7ffd03bd6000 - 0x7ffd03bd9fff 0x7ffd03bda000 - 0x7ffd03bdbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xf27000 - 0xf47fff 0x100000000000 - 0x1000000bffff 0x14f73281c000 - 0x14f73281cfff 0x14f73281d000 - 0x14f732ec7fff 0x14f732ec8000 - 0x14f732f1cfff 0x14f732f1d000 - 0x14f732f1ffff 0x14f732f20000 - 0x14f732f45fff 0x14f732f46000 - 0x14f733094fff 0x14f733095000 - 0x14f7330e0fff 0x14f7330e1000 - 0x14f7330e1fff 0x14f7330e2000 - 0x14f7330e4fff 0x14f7330e5000 - 0x14f7330e7fff 0x14f7330e8000 - 0x14f7330ebfff 0x14f7330ec000 - 0x14f7330eefff 0x14f7330ef000 - 0x14f733100fff 0x14f733101000 - 0x14f733104fff 0x14f733105000 - 0x14f733105fff 0x14f733106000 - 0x14f733106fff 0x14f733107000 - 0x14f733108fff 0x14f733109000 - 0x14f733119fff 0x14f73311a000 - 0x14f73314ffff 0x14f733150000 - 0x14f733285fff 0x14f733286000 - 0x14f733286fff 0x14f733287000 - 0x14f73328afff 0x14f73328b000 - 0x14f73328bfff 0x14f73328c000 - 0x14f73328cfff 0x14f73328d000 - 0x14f73328efff 0x14f73328f000 - 0x14f73328ffff 0x14f733290000 - 0x14f733290fff 0x14f733291000 - 0x14f733291fff 0x14f733292000 - 0x14f733293fff 0x14f733294000 - 0x14f733295fff 0x14f733296000 - 0x14f733296fff 0x14f733297000 - 0x14f733297fff 0x14f733298000 - 0x14f733298fff 0x14f733299000 - 0x14f73329afff 0x14f73329b000 - 0x14f73329cfff 0x14f73329d000 - 0x14f73329dfff 0x14f73329e000 - 0x14f73329efff 0x14f73329f000 - 0x14f73329ffff 0x14f7332a0000 - 0x14f7332adfff 0x14f7332ae000 - 0x14f7332bbfff 0x14f7332bc000 - 0x14f7332c9fff 0x14f7332ca000 - 0x14f7332cdfff 0x14f7332ce000 - 0x14f7332cefff 0x14f7332cf000 - 0x14f7332e4fff 0x14f7332e5000 - 0x14f733310fff 0x14f733311000 - 0x14f733319fff 0x14f73331a000 - 0x14f73331afff 0x14f73331b000 - 0x14f73331dfff 0x14f73331e000 - 0x14f733323fff 0x14f733324000 - 0x14f733326fff 0x14f733327000 - 0x14f733327fff 0x14f733328000 - 0x14f733328fff 0x14f733329000 - 0x14f73332ffff 0x14f733330000 - 0x14f733330fff 0x14f733331000 - 0x14f733351fff 0x14f733352000 - 0x14f73335afff 0x14f73335b000 - 0x14f73335bfff 0x14f73335c000 - 0x14f73335dfff 0x7fffece12000 - 0x7fffece32fff 0x7fffecf23000 - 0x7fffecf26fff 0x7fffecf27000 - 0x7fffecf28fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x991000 - 0x9b1fff 0x100000000000 - 0x1000000bffff 0x1467588bc000 - 0x1467588bcfff 0x1467588bd000 - 0x146758f67fff 0x146758f68000 - 0x146758fbcfff 0x146758fbd000 - 0x146758fbffff 0x146758fc0000 - 0x146758fe5fff 0x146758fe6000 - 0x146759134fff 0x146759135000 - 0x146759180fff 0x146759181000 - 0x146759181fff 0x146759182000 - 0x146759184fff 0x146759185000 - 0x146759187fff 0x146759188000 - 0x14675918bfff 0x14675918c000 - 0x14675918efff 0x14675918f000 - 0x1467591a0fff 0x1467591a1000 - 0x1467591a4fff 0x1467591a5000 - 0x1467591a5fff 0x1467591a6000 - 0x1467591a6fff 0x1467591a7000 - 0x1467591a8fff 0x1467591a9000 - 0x1467591b9fff 0x1467591ba000 - 0x1467591effff 0x1467591f0000 - 0x146759325fff 0x146759326000 - 0x146759326fff 0x146759327000 - 0x14675932afff 0x14675932b000 - 0x14675932bfff 0x14675932c000 - 0x14675932cfff 0x14675932d000 - 0x14675932efff 0x14675932f000 - 0x14675932ffff 0x146759330000 - 0x146759330fff 0x146759331000 - 0x146759331fff 0x146759332000 - 0x146759333fff 0x146759334000 - 0x146759335fff 0x146759336000 - 0x146759336fff 0x146759337000 - 0x146759337fff 0x146759338000 - 0x146759338fff 0x146759339000 - 0x14675933afff 0x14675933b000 - 0x14675933cfff 0x14675933d000 - 0x14675933dfff 0x14675933e000 - 0x14675933efff 0x14675933f000 - 0x14675933ffff 0x146759340000 - 0x14675934dfff 0x14675934e000 - 0x14675935bfff 0x14675935c000 - 0x146759369fff 0x14675936a000 - 0x14675936dfff 0x14675936e000 - 0x14675936efff 0x14675936f000 - 0x146759384fff 0x146759385000 - 0x1467593b0fff 0x1467593b1000 - 0x1467593b9fff 0x1467593ba000 - 0x1467593bafff 0x1467593bb000 - 0x1467593bdfff 0x1467593be000 - 0x1467593c3fff 0x1467593c4000 - 0x1467593c6fff 0x1467593c7000 - 0x1467593c7fff 0x1467593c8000 - 0x1467593c8fff 0x1467593c9000 - 0x1467593cffff 0x1467593d0000 - 0x1467593d0fff 0x1467593d1000 - 0x1467593f1fff 0x1467593f2000 - 0x1467593fafff 0x1467593fb000 - 0x1467593fbfff 0x1467593fc000 - 0x1467593fdfff 0x7fff9940d000 - 0x7fff9942dfff 0x7fff9942f000 - 0x7fff99432fff 0x7fff99433000 - 0x7fff99434fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xc63000 - 0xc83fff 0x100000000000 - 0x1000000bffff 0x148d54b5f000 - 0x148d54b5ffff 0x148d54b60000 - 0x148d5520afff 0x148d5520b000 - 0x148d5525ffff 0x148d55260000 - 0x148d55262fff 0x148d55263000 - 0x148d55288fff 0x148d55289000 - 0x148d553d7fff 0x148d553d8000 - 0x148d55423fff 0x148d55424000 - 0x148d55424fff 0x148d55425000 - 0x148d55427fff 0x148d55428000 - 0x148d5542afff 0x148d5542b000 - 0x148d5542efff 0x148d5542f000 - 0x148d55431fff 0x148d55432000 - 0x148d55443fff 0x148d55444000 - 0x148d55447fff 0x148d55448000 - 0x148d55448fff 0x148d55449000 - 0x148d55449fff 0x148d5544a000 - 0x148d5544bfff 0x148d5544c000 - 0x148d5545cfff 0x148d5545d000 - 0x148d55492fff 0x148d55493000 - 0x148d555c8fff 0x148d555c9000 - 0x148d555c9fff 0x148d555ca000 - 0x148d555cdfff 0x148d555ce000 - 0x148d555cefff 0x148d555cf000 - 0x148d555cffff 0x148d555d0000 - 0x148d555d1fff 0x148d555d2000 - 0x148d555d2fff 0x148d555d3000 - 0x148d555d3fff 0x148d555d4000 - 0x148d555d4fff 0x148d555d5000 - 0x148d555d6fff 0x148d555d7000 - 0x148d555d8fff 0x148d555d9000 - 0x148d555d9fff 0x148d555da000 - 0x148d555dafff 0x148d555db000 - 0x148d555dbfff 0x148d555dc000 - 0x148d555ddfff 0x148d555de000 - 0x148d555dffff 0x148d555e0000 - 0x148d555e0fff 0x148d555e1000 - 0x148d555e1fff 0x148d555e2000 - 0x148d555e2fff 0x148d555e3000 - 0x148d555f0fff 0x148d555f1000 - 0x148d555fefff 0x148d555ff000 - 0x148d5560cfff 0x148d5560d000 - 0x148d55610fff 0x148d55611000 - 0x148d55611fff 0x148d55612000 - 0x148d55627fff 0x148d55628000 - 0x148d55653fff 0x148d55654000 - 0x148d5565cfff 0x148d5565d000 - 0x148d5565dfff 0x148d5565e000 - 0x148d55660fff 0x148d55661000 - 0x148d55666fff 0x148d55667000 - 0x148d55669fff 0x148d5566a000 - 0x148d5566afff 0x148d5566b000 - 0x148d5566bfff 0x148d5566c000 - 0x148d55672fff 0x148d55673000 - 0x148d55673fff 0x148d55674000 - 0x148d55694fff 0x148d55695000 - 0x148d5569dfff 0x148d5569e000 - 0x148d5569efff 0x148d5569f000 - 0x148d556a0fff 0x7fffee9e4000 - 0x7fffeea04fff 0x7fffeeb9e000 - 0x7fffeeba1fff 0x7fffeeba2000 - 0x7fffeeba3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1a82000 - 0x1aa2fff 0x100000000000 - 0x1000000bffff 0x1545d0b1d000 - 0x1545d0b1dfff 0x1545d0b1e000 - 0x1545d11c8fff 0x1545d11c9000 - 0x1545d121dfff 0x1545d121e000 - 0x1545d1220fff 0x1545d1221000 - 0x1545d1246fff 0x1545d1247000 - 0x1545d1395fff 0x1545d1396000 - 0x1545d13e1fff 0x1545d13e2000 - 0x1545d13e2fff 0x1545d13e3000 - 0x1545d13e5fff 0x1545d13e6000 - 0x1545d13e8fff 0x1545d13e9000 - 0x1545d13ecfff 0x1545d13ed000 - 0x1545d13effff 0x1545d13f0000 - 0x1545d1401fff 0x1545d1402000 - 0x1545d1405fff 0x1545d1406000 - 0x1545d1406fff 0x1545d1407000 - 0x1545d1407fff 0x1545d1408000 - 0x1545d1409fff 0x1545d140a000 - 0x1545d141afff 0x1545d141b000 - 0x1545d1450fff 0x1545d1451000 - 0x1545d1586fff 0x1545d1587000 - 0x1545d1587fff 0x1545d1588000 - 0x1545d158bfff 0x1545d158c000 - 0x1545d158cfff 0x1545d158d000 - 0x1545d158dfff 0x1545d158e000 - 0x1545d158ffff 0x1545d1590000 - 0x1545d1590fff 0x1545d1591000 - 0x1545d1591fff 0x1545d1592000 - 0x1545d1592fff 0x1545d1593000 - 0x1545d1594fff 0x1545d1595000 - 0x1545d1596fff 0x1545d1597000 - 0x1545d1597fff 0x1545d1598000 - 0x1545d1598fff 0x1545d1599000 - 0x1545d1599fff 0x1545d159a000 - 0x1545d159bfff 0x1545d159c000 - 0x1545d159dfff 0x1545d159e000 - 0x1545d159efff 0x1545d159f000 - 0x1545d159ffff 0x1545d15a0000 - 0x1545d15a0fff 0x1545d15a1000 - 0x1545d15aefff 0x1545d15af000 - 0x1545d15bcfff 0x1545d15bd000 - 0x1545d15cafff 0x1545d15cb000 - 0x1545d15cefff 0x1545d15cf000 - 0x1545d15cffff 0x1545d15d0000 - 0x1545d15e5fff 0x1545d15e6000 - 0x1545d1611fff 0x1545d1612000 - 0x1545d161afff 0x1545d161b000 - 0x1545d161bfff 0x1545d161c000 - 0x1545d161efff 0x1545d161f000 - 0x1545d1624fff 0x1545d1625000 - 0x1545d1627fff 0x1545d1628000 - 0x1545d1628fff 0x1545d1629000 - 0x1545d1629fff 0x1545d162a000 - 0x1545d1630fff 0x1545d1631000 - 0x1545d1631fff 0x1545d1632000 - 0x1545d1652fff 0x1545d1653000 - 0x1545d165bfff 0x1545d165c000 - 0x1545d165cfff 0x1545d165d000 - 0x1545d165efff 0x7ffc623e3000 - 0x7ffc62403fff 0x7ffc625e2000 - 0x7ffc625e5fff 0x7ffc625e6000 - 0x7ffc625e7fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1fab000 - 0x1fcbfff 0x100000000000 - 0x1000000bffff 0x15071f275000 - 0x15071f275fff 0x15071f276000 - 0x15071f920fff 0x15071f921000 - 0x15071f975fff 0x15071f976000 - 0x15071f978fff 0x15071f979000 - 0x15071f99efff 0x15071f99f000 - 0x15071faedfff 0x15071faee000 - 0x15071fb39fff 0x15071fb3a000 - 0x15071fb3afff 0x15071fb3b000 - 0x15071fb3dfff 0x15071fb3e000 - 0x15071fb40fff 0x15071fb41000 - 0x15071fb44fff 0x15071fb45000 - 0x15071fb47fff 0x15071fb48000 - 0x15071fb59fff 0x15071fb5a000 - 0x15071fb5dfff 0x15071fb5e000 - 0x15071fb5efff 0x15071fb5f000 - 0x15071fb5ffff 0x15071fb60000 - 0x15071fb61fff 0x15071fb62000 - 0x15071fb72fff 0x15071fb73000 - 0x15071fba8fff 0x15071fba9000 - 0x15071fcdefff 0x15071fcdf000 - 0x15071fcdffff 0x15071fce0000 - 0x15071fce3fff 0x15071fce4000 - 0x15071fce4fff 0x15071fce5000 - 0x15071fce5fff 0x15071fce6000 - 0x15071fce7fff 0x15071fce8000 - 0x15071fce8fff 0x15071fce9000 - 0x15071fce9fff 0x15071fcea000 - 0x15071fceafff 0x15071fceb000 - 0x15071fcecfff 0x15071fced000 - 0x15071fceefff 0x15071fcef000 - 0x15071fceffff 0x15071fcf0000 - 0x15071fcf0fff 0x15071fcf1000 - 0x15071fcf1fff 0x15071fcf2000 - 0x15071fcf3fff 0x15071fcf4000 - 0x15071fcf5fff 0x15071fcf6000 - 0x15071fcf6fff 0x15071fcf7000 - 0x15071fcf7fff 0x15071fcf8000 - 0x15071fcf8fff 0x15071fcf9000 - 0x15071fd06fff 0x15071fd07000 - 0x15071fd14fff 0x15071fd15000 - 0x15071fd22fff 0x15071fd23000 - 0x15071fd26fff 0x15071fd27000 - 0x15071fd27fff 0x15071fd28000 - 0x15071fd3dfff 0x15071fd3e000 - 0x15071fd69fff 0x15071fd6a000 - 0x15071fd72fff 0x15071fd73000 - 0x15071fd73fff 0x15071fd74000 - 0x15071fd76fff 0x15071fd77000 - 0x15071fd7cfff 0x15071fd7d000 - 0x15071fd7ffff 0x15071fd80000 - 0x15071fd80fff 0x15071fd81000 - 0x15071fd81fff 0x15071fd82000 - 0x15071fd88fff 0x15071fd89000 - 0x15071fd89fff 0x15071fd8a000 - 0x15071fdaafff 0x15071fdab000 - 0x15071fdb3fff 0x15071fdb4000 - 0x15071fdb4fff 0x15071fdb5000 - 0x15071fdb6fff 0x7ffe8f7ab000 - 0x7ffe8f7cbfff 0x7ffe8f7ec000 - 0x7ffe8f7effff 0x7ffe8f7f0000 - 0x7ffe8f7f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x128e000 - 0x12aefff 0x100000000000 - 0x1000000bffff 0x150672485000 - 0x150672485fff 0x150672486000 - 0x150672b30fff 0x150672b31000 - 0x150672b85fff 0x150672b86000 - 0x150672b88fff 0x150672b89000 - 0x150672baefff 0x150672baf000 - 0x150672cfdfff 0x150672cfe000 - 0x150672d49fff 0x150672d4a000 - 0x150672d4afff 0x150672d4b000 - 0x150672d4dfff 0x150672d4e000 - 0x150672d50fff 0x150672d51000 - 0x150672d54fff 0x150672d55000 - 0x150672d57fff 0x150672d58000 - 0x150672d69fff 0x150672d6a000 - 0x150672d6dfff 0x150672d6e000 - 0x150672d6efff 0x150672d6f000 - 0x150672d6ffff 0x150672d70000 - 0x150672d71fff 0x150672d72000 - 0x150672d82fff 0x150672d83000 - 0x150672db8fff 0x150672db9000 - 0x150672eeefff 0x150672eef000 - 0x150672eeffff 0x150672ef0000 - 0x150672ef3fff 0x150672ef4000 - 0x150672ef4fff 0x150672ef5000 - 0x150672ef5fff 0x150672ef6000 - 0x150672ef7fff 0x150672ef8000 - 0x150672ef8fff 0x150672ef9000 - 0x150672ef9fff 0x150672efa000 - 0x150672efafff 0x150672efb000 - 0x150672efcfff 0x150672efd000 - 0x150672efefff 0x150672eff000 - 0x150672efffff 0x150672f00000 - 0x150672f00fff 0x150672f01000 - 0x150672f01fff 0x150672f02000 - 0x150672f03fff 0x150672f04000 - 0x150672f05fff 0x150672f06000 - 0x150672f06fff 0x150672f07000 - 0x150672f07fff 0x150672f08000 - 0x150672f08fff 0x150672f09000 - 0x150672f16fff 0x150672f17000 - 0x150672f24fff 0x150672f25000 - 0x150672f32fff 0x150672f33000 - 0x150672f36fff 0x150672f37000 - 0x150672f37fff 0x150672f38000 - 0x150672f4dfff 0x150672f4e000 - 0x150672f79fff 0x150672f7a000 - 0x150672f82fff 0x150672f83000 - 0x150672f83fff 0x150672f84000 - 0x150672f86fff 0x150672f87000 - 0x150672f8cfff 0x150672f8d000 - 0x150672f8ffff 0x150672f90000 - 0x150672f90fff 0x150672f91000 - 0x150672f91fff 0x150672f92000 - 0x150672f98fff 0x150672f99000 - 0x150672f99fff 0x150672f9a000 - 0x150672fbafff 0x150672fbb000 - 0x150672fc3fff 0x150672fc4000 - 0x150672fc4fff 0x150672fc5000 - 0x150672fc6fff 0x7ffd19ab4000 - 0x7ffd19ad4fff 0x7ffd19b99000 - 0x7ffd19b9cfff 0x7ffd19b9d000 - 0x7ffd19b9efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x62a000 - 0x64afff 0x100000000000 - 0x1000000bffff 0x15235078d000 - 0x15235078dfff 0x15235078e000 - 0x152350e38fff 0x152350e39000 - 0x152350e8dfff 0x152350e8e000 - 0x152350e90fff 0x152350e91000 - 0x152350eb6fff 0x152350eb7000 - 0x152351005fff 0x152351006000 - 0x152351051fff 0x152351052000 - 0x152351052fff 0x152351053000 - 0x152351055fff 0x152351056000 - 0x152351058fff 0x152351059000 - 0x15235105cfff 0x15235105d000 - 0x15235105ffff 0x152351060000 - 0x152351071fff 0x152351072000 - 0x152351075fff 0x152351076000 - 0x152351076fff 0x152351077000 - 0x152351077fff 0x152351078000 - 0x152351079fff 0x15235107a000 - 0x15235108afff 0x15235108b000 - 0x1523510c0fff 0x1523510c1000 - 0x1523511f6fff 0x1523511f7000 - 0x1523511f7fff 0x1523511f8000 - 0x1523511fbfff 0x1523511fc000 - 0x1523511fcfff 0x1523511fd000 - 0x1523511fdfff 0x1523511fe000 - 0x1523511fffff 0x152351200000 - 0x152351200fff 0x152351201000 - 0x152351201fff 0x152351202000 - 0x152351202fff 0x152351203000 - 0x152351204fff 0x152351205000 - 0x152351206fff 0x152351207000 - 0x152351207fff 0x152351208000 - 0x152351208fff 0x152351209000 - 0x152351209fff 0x15235120a000 - 0x15235120bfff 0x15235120c000 - 0x15235120dfff 0x15235120e000 - 0x15235120efff 0x15235120f000 - 0x15235120ffff 0x152351210000 - 0x152351210fff 0x152351211000 - 0x15235121efff 0x15235121f000 - 0x15235122cfff 0x15235122d000 - 0x15235123afff 0x15235123b000 - 0x15235123efff 0x15235123f000 - 0x15235123ffff 0x152351240000 - 0x152351255fff 0x152351256000 - 0x152351281fff 0x152351282000 - 0x15235128afff 0x15235128b000 - 0x15235128bfff 0x15235128c000 - 0x15235128efff 0x15235128f000 - 0x152351294fff 0x152351295000 - 0x152351297fff 0x152351298000 - 0x152351298fff 0x152351299000 - 0x152351299fff 0x15235129a000 - 0x1523512a0fff 0x1523512a1000 - 0x1523512a1fff 0x1523512a2000 - 0x1523512c2fff 0x1523512c3000 - 0x1523512cbfff 0x1523512cc000 - 0x1523512ccfff 0x1523512cd000 - 0x1523512cefff 0x7fff4bf4e000 - 0x7fff4bf6efff 0x7fff4bfaa000 - 0x7fff4bfadfff 0x7fff4bfae000 - 0x7fff4bfaffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xd0b000 - 0xd2bfff 0x100000000000 - 0x1000000bffff 0x154312f6c000 - 0x154312f6cfff 0x154312f6d000 - 0x154313617fff 0x154313618000 - 0x15431366cfff 0x15431366d000 - 0x15431366ffff 0x154313670000 - 0x154313695fff 0x154313696000 - 0x1543137e4fff 0x1543137e5000 - 0x154313830fff 0x154313831000 - 0x154313831fff 0x154313832000 - 0x154313834fff 0x154313835000 - 0x154313837fff 0x154313838000 - 0x15431383bfff 0x15431383c000 - 0x15431383efff 0x15431383f000 - 0x154313850fff 0x154313851000 - 0x154313854fff 0x154313855000 - 0x154313855fff 0x154313856000 - 0x154313856fff 0x154313857000 - 0x154313858fff 0x154313859000 - 0x154313869fff 0x15431386a000 - 0x15431389ffff 0x1543138a0000 - 0x1543139d5fff 0x1543139d6000 - 0x1543139d6fff 0x1543139d7000 - 0x1543139dafff 0x1543139db000 - 0x1543139dbfff 0x1543139dc000 - 0x1543139dcfff 0x1543139dd000 - 0x1543139defff 0x1543139df000 - 0x1543139dffff 0x1543139e0000 - 0x1543139e0fff 0x1543139e1000 - 0x1543139e1fff 0x1543139e2000 - 0x1543139e3fff 0x1543139e4000 - 0x1543139e5fff 0x1543139e6000 - 0x1543139e6fff 0x1543139e7000 - 0x1543139e7fff 0x1543139e8000 - 0x1543139e8fff 0x1543139e9000 - 0x1543139eafff 0x1543139eb000 - 0x1543139ecfff 0x1543139ed000 - 0x1543139edfff 0x1543139ee000 - 0x1543139eefff 0x1543139ef000 - 0x1543139effff 0x1543139f0000 - 0x1543139fdfff 0x1543139fe000 - 0x154313a0bfff 0x154313a0c000 - 0x154313a19fff 0x154313a1a000 - 0x154313a1dfff 0x154313a1e000 - 0x154313a1efff 0x154313a1f000 - 0x154313a34fff 0x154313a35000 - 0x154313a60fff 0x154313a61000 - 0x154313a69fff 0x154313a6a000 - 0x154313a6afff 0x154313a6b000 - 0x154313a6dfff 0x154313a6e000 - 0x154313a73fff 0x154313a74000 - 0x154313a76fff 0x154313a77000 - 0x154313a77fff 0x154313a78000 - 0x154313a78fff 0x154313a79000 - 0x154313a7ffff 0x154313a80000 - 0x154313a80fff 0x154313a81000 - 0x154313aa1fff 0x154313aa2000 - 0x154313aaafff 0x154313aab000 - 0x154313aabfff 0x154313aac000 - 0x154313aadfff 0x7ffdba57d000 - 0x7ffdba59dfff 0x7ffdba59f000 - 0x7ffdba5a2fff 0x7ffdba5a3000 - 0x7ffdba5a4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1166000 - 0x1186fff 0x100000000000 - 0x1000000bffff 0x14e44be94000 - 0x14e44be94fff 0x14e44be95000 - 0x14e44c53ffff 0x14e44c540000 - 0x14e44c594fff 0x14e44c595000 - 0x14e44c597fff 0x14e44c598000 - 0x14e44c5bdfff 0x14e44c5be000 - 0x14e44c70cfff 0x14e44c70d000 - 0x14e44c758fff 0x14e44c759000 - 0x14e44c759fff 0x14e44c75a000 - 0x14e44c75cfff 0x14e44c75d000 - 0x14e44c75ffff 0x14e44c760000 - 0x14e44c763fff 0x14e44c764000 - 0x14e44c766fff 0x14e44c767000 - 0x14e44c778fff 0x14e44c779000 - 0x14e44c77cfff 0x14e44c77d000 - 0x14e44c77dfff 0x14e44c77e000 - 0x14e44c77efff 0x14e44c77f000 - 0x14e44c780fff 0x14e44c781000 - 0x14e44c791fff 0x14e44c792000 - 0x14e44c7c7fff 0x14e44c7c8000 - 0x14e44c8fdfff 0x14e44c8fe000 - 0x14e44c8fefff 0x14e44c8ff000 - 0x14e44c902fff 0x14e44c903000 - 0x14e44c903fff 0x14e44c904000 - 0x14e44c904fff 0x14e44c905000 - 0x14e44c906fff 0x14e44c907000 - 0x14e44c907fff 0x14e44c908000 - 0x14e44c908fff 0x14e44c909000 - 0x14e44c909fff 0x14e44c90a000 - 0x14e44c90bfff 0x14e44c90c000 - 0x14e44c90dfff 0x14e44c90e000 - 0x14e44c90efff 0x14e44c90f000 - 0x14e44c90ffff 0x14e44c910000 - 0x14e44c910fff 0x14e44c911000 - 0x14e44c912fff 0x14e44c913000 - 0x14e44c914fff 0x14e44c915000 - 0x14e44c915fff 0x14e44c916000 - 0x14e44c916fff 0x14e44c917000 - 0x14e44c917fff 0x14e44c918000 - 0x14e44c925fff 0x14e44c926000 - 0x14e44c933fff 0x14e44c934000 - 0x14e44c941fff 0x14e44c942000 - 0x14e44c945fff 0x14e44c946000 - 0x14e44c946fff 0x14e44c947000 - 0x14e44c95cfff 0x14e44c95d000 - 0x14e44c988fff 0x14e44c989000 - 0x14e44c991fff 0x14e44c992000 - 0x14e44c992fff 0x14e44c993000 - 0x14e44c995fff 0x14e44c996000 - 0x14e44c99bfff 0x14e44c99c000 - 0x14e44c99efff 0x14e44c99f000 - 0x14e44c99ffff 0x14e44c9a0000 - 0x14e44c9a0fff 0x14e44c9a1000 - 0x14e44c9a7fff 0x14e44c9a8000 - 0x14e44c9a8fff 0x14e44c9a9000 - 0x14e44c9c9fff 0x14e44c9ca000 - 0x14e44c9d2fff 0x14e44c9d3000 - 0x14e44c9d3fff 0x14e44c9d4000 - 0x14e44c9d5fff 0x7ffdb1963000 - 0x7ffdb1983fff 0x7ffdb19e5000 - 0x7ffdb19e8fff 0x7ffdb19e9000 - 0x7ffdb19eafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xaeb000 - 0xb0bfff 0x100000000000 - 0x1000000bffff 0x14c93fb90000 - 0x14c93fb90fff 0x14c93fb91000 - 0x14c94023bfff 0x14c94023c000 - 0x14c940290fff 0x14c940291000 - 0x14c940293fff 0x14c940294000 - 0x14c9402b9fff 0x14c9402ba000 - 0x14c940408fff 0x14c940409000 - 0x14c940454fff 0x14c940455000 - 0x14c940455fff 0x14c940456000 - 0x14c940458fff 0x14c940459000 - 0x14c94045bfff 0x14c94045c000 - 0x14c94045ffff 0x14c940460000 - 0x14c940462fff 0x14c940463000 - 0x14c940474fff 0x14c940475000 - 0x14c940478fff 0x14c940479000 - 0x14c940479fff 0x14c94047a000 - 0x14c94047afff 0x14c94047b000 - 0x14c94047cfff 0x14c94047d000 - 0x14c94048dfff 0x14c94048e000 - 0x14c9404c3fff 0x14c9404c4000 - 0x14c9405f9fff 0x14c9405fa000 - 0x14c9405fafff 0x14c9405fb000 - 0x14c9405fefff 0x14c9405ff000 - 0x14c9405fffff 0x14c940600000 - 0x14c940600fff 0x14c940601000 - 0x14c940602fff 0x14c940603000 - 0x14c940603fff 0x14c940604000 - 0x14c940604fff 0x14c940605000 - 0x14c940605fff 0x14c940606000 - 0x14c940607fff 0x14c940608000 - 0x14c940609fff 0x14c94060a000 - 0x14c94060afff 0x14c94060b000 - 0x14c94060bfff 0x14c94060c000 - 0x14c94060cfff 0x14c94060d000 - 0x14c94060efff 0x14c94060f000 - 0x14c940610fff 0x14c940611000 - 0x14c940611fff 0x14c940612000 - 0x14c940612fff 0x14c940613000 - 0x14c940613fff 0x14c940614000 - 0x14c940621fff 0x14c940622000 - 0x14c94062ffff 0x14c940630000 - 0x14c94063dfff 0x14c94063e000 - 0x14c940641fff 0x14c940642000 - 0x14c940642fff 0x14c940643000 - 0x14c940658fff 0x14c940659000 - 0x14c940684fff 0x14c940685000 - 0x14c94068dfff 0x14c94068e000 - 0x14c94068efff 0x14c94068f000 - 0x14c940691fff 0x14c940692000 - 0x14c940697fff 0x14c940698000 - 0x14c94069afff 0x14c94069b000 - 0x14c94069bfff 0x14c94069c000 - 0x14c94069cfff 0x14c94069d000 - 0x14c9406a3fff 0x14c9406a4000 - 0x14c9406a4fff 0x14c9406a5000 - 0x14c9406c5fff 0x14c9406c6000 - 0x14c9406cefff 0x14c9406cf000 - 0x14c9406cffff 0x14c9406d0000 - 0x14c9406d1fff 0x7ffc36d1d000 - 0x7ffc36d3dfff 0x7ffc36d6a000 - 0x7ffc36d6dfff 0x7ffc36d6e000 - 0x7ffc36d6ffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x85c000 - 0x87cfff 0x100000000000 - 0x1000000bffff 0x14c391786000 - 0x14c391786fff 0x14c391787000 - 0x14c391e31fff 0x14c391e32000 - 0x14c391e86fff 0x14c391e87000 - 0x14c391e89fff 0x14c391e8a000 - 0x14c391eaffff 0x14c391eb0000 - 0x14c391ffefff 0x14c391fff000 - 0x14c39204afff 0x14c39204b000 - 0x14c39204bfff 0x14c39204c000 - 0x14c39204efff 0x14c39204f000 - 0x14c392051fff 0x14c392052000 - 0x14c392055fff 0x14c392056000 - 0x14c392058fff 0x14c392059000 - 0x14c39206afff 0x14c39206b000 - 0x14c39206efff 0x14c39206f000 - 0x14c39206ffff 0x14c392070000 - 0x14c392070fff 0x14c392071000 - 0x14c392072fff 0x14c392073000 - 0x14c392083fff 0x14c392084000 - 0x14c3920b9fff 0x14c3920ba000 - 0x14c3921effff 0x14c3921f0000 - 0x14c3921f0fff 0x14c3921f1000 - 0x14c3921f4fff 0x14c3921f5000 - 0x14c3921f5fff 0x14c3921f6000 - 0x14c3921f6fff 0x14c3921f7000 - 0x14c3921f8fff 0x14c3921f9000 - 0x14c3921f9fff 0x14c3921fa000 - 0x14c3921fafff 0x14c3921fb000 - 0x14c3921fbfff 0x14c3921fc000 - 0x14c3921fdfff 0x14c3921fe000 - 0x14c3921fffff 0x14c392200000 - 0x14c392200fff 0x14c392201000 - 0x14c392201fff 0x14c392202000 - 0x14c392202fff 0x14c392203000 - 0x14c392204fff 0x14c392205000 - 0x14c392206fff 0x14c392207000 - 0x14c392207fff 0x14c392208000 - 0x14c392208fff 0x14c392209000 - 0x14c392209fff 0x14c39220a000 - 0x14c392217fff 0x14c392218000 - 0x14c392225fff 0x14c392226000 - 0x14c392233fff 0x14c392234000 - 0x14c392237fff 0x14c392238000 - 0x14c392238fff 0x14c392239000 - 0x14c39224efff 0x14c39224f000 - 0x14c39227afff 0x14c39227b000 - 0x14c392283fff 0x14c392284000 - 0x14c392284fff 0x14c392285000 - 0x14c392287fff 0x14c392288000 - 0x14c39228dfff 0x14c39228e000 - 0x14c392290fff 0x14c392291000 - 0x14c392291fff 0x14c392292000 - 0x14c392292fff 0x14c392293000 - 0x14c392299fff 0x14c39229a000 - 0x14c39229afff 0x14c39229b000 - 0x14c3922bbfff 0x14c3922bc000 - 0x14c3922c4fff 0x14c3922c5000 - 0x14c3922c5fff 0x14c3922c6000 - 0x14c3922c7fff 0x7ffc8e529000 - 0x7ffc8e549fff 0x7ffc8e5ef000 - 0x7ffc8e5f2fff 0x7ffc8e5f3000 - 0x7ffc8e5f4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xcee000 - 0xd0efff 0x100000000000 - 0x1000000bffff 0x14697c0ca000 - 0x14697c0cafff 0x14697c0cb000 - 0x14697c775fff 0x14697c776000 - 0x14697c7cafff 0x14697c7cb000 - 0x14697c7cdfff 0x14697c7ce000 - 0x14697c7f3fff 0x14697c7f4000 - 0x14697c942fff 0x14697c943000 - 0x14697c98efff 0x14697c98f000 - 0x14697c98ffff 0x14697c990000 - 0x14697c992fff 0x14697c993000 - 0x14697c995fff 0x14697c996000 - 0x14697c999fff 0x14697c99a000 - 0x14697c99cfff 0x14697c99d000 - 0x14697c9aefff 0x14697c9af000 - 0x14697c9b2fff 0x14697c9b3000 - 0x14697c9b3fff 0x14697c9b4000 - 0x14697c9b4fff 0x14697c9b5000 - 0x14697c9b6fff 0x14697c9b7000 - 0x14697c9c7fff 0x14697c9c8000 - 0x14697c9fdfff 0x14697c9fe000 - 0x14697cb33fff 0x14697cb34000 - 0x14697cb34fff 0x14697cb35000 - 0x14697cb38fff 0x14697cb39000 - 0x14697cb39fff 0x14697cb3a000 - 0x14697cb3afff 0x14697cb3b000 - 0x14697cb3cfff 0x14697cb3d000 - 0x14697cb3dfff 0x14697cb3e000 - 0x14697cb3efff 0x14697cb3f000 - 0x14697cb3ffff 0x14697cb40000 - 0x14697cb41fff 0x14697cb42000 - 0x14697cb43fff 0x14697cb44000 - 0x14697cb44fff 0x14697cb45000 - 0x14697cb45fff 0x14697cb46000 - 0x14697cb46fff 0x14697cb47000 - 0x14697cb48fff 0x14697cb49000 - 0x14697cb4afff 0x14697cb4b000 - 0x14697cb4bfff 0x14697cb4c000 - 0x14697cb4cfff 0x14697cb4d000 - 0x14697cb4dfff 0x14697cb4e000 - 0x14697cb5bfff 0x14697cb5c000 - 0x14697cb69fff 0x14697cb6a000 - 0x14697cb77fff 0x14697cb78000 - 0x14697cb7bfff 0x14697cb7c000 - 0x14697cb7cfff 0x14697cb7d000 - 0x14697cb92fff 0x14697cb93000 - 0x14697cbbefff 0x14697cbbf000 - 0x14697cbc7fff 0x14697cbc8000 - 0x14697cbc8fff 0x14697cbc9000 - 0x14697cbcbfff 0x14697cbcc000 - 0x14697cbd1fff 0x14697cbd2000 - 0x14697cbd4fff 0x14697cbd5000 - 0x14697cbd5fff 0x14697cbd6000 - 0x14697cbd6fff 0x14697cbd7000 - 0x14697cbddfff 0x14697cbde000 - 0x14697cbdefff 0x14697cbdf000 - 0x14697cbfffff 0x14697cc00000 - 0x14697cc08fff 0x14697cc09000 - 0x14697cc09fff 0x14697cc0a000 - 0x14697cc0bfff 0x7ffc0a60b000 - 0x7ffc0a62bfff 0x7ffc0a657000 - 0x7ffc0a65afff 0x7ffc0a65b000 - 0x7ffc0a65cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x7b4000 - 0x7d4fff 0x100000000000 - 0x1000000bffff 0x15498d00d000 - 0x15498d00dfff 0x15498d00e000 - 0x15498d6b8fff 0x15498d6b9000 - 0x15498d70dfff 0x15498d70e000 - 0x15498d710fff 0x15498d711000 - 0x15498d736fff 0x15498d737000 - 0x15498d885fff 0x15498d886000 - 0x15498d8d1fff 0x15498d8d2000 - 0x15498d8d2fff 0x15498d8d3000 - 0x15498d8d5fff 0x15498d8d6000 - 0x15498d8d8fff 0x15498d8d9000 - 0x15498d8dcfff 0x15498d8dd000 - 0x15498d8dffff 0x15498d8e0000 - 0x15498d8f1fff 0x15498d8f2000 - 0x15498d8f5fff 0x15498d8f6000 - 0x15498d8f6fff 0x15498d8f7000 - 0x15498d8f7fff 0x15498d8f8000 - 0x15498d8f9fff 0x15498d8fa000 - 0x15498d90afff 0x15498d90b000 - 0x15498d940fff 0x15498d941000 - 0x15498da76fff 0x15498da77000 - 0x15498da77fff 0x15498da78000 - 0x15498da7bfff 0x15498da7c000 - 0x15498da7cfff 0x15498da7d000 - 0x15498da7dfff 0x15498da7e000 - 0x15498da7ffff 0x15498da80000 - 0x15498da80fff 0x15498da81000 - 0x15498da81fff 0x15498da82000 - 0x15498da82fff 0x15498da83000 - 0x15498da84fff 0x15498da85000 - 0x15498da86fff 0x15498da87000 - 0x15498da87fff 0x15498da88000 - 0x15498da88fff 0x15498da89000 - 0x15498da89fff 0x15498da8a000 - 0x15498da8bfff 0x15498da8c000 - 0x15498da8dfff 0x15498da8e000 - 0x15498da8efff 0x15498da8f000 - 0x15498da8ffff 0x15498da90000 - 0x15498da90fff 0x15498da91000 - 0x15498da9efff 0x15498da9f000 - 0x15498daacfff 0x15498daad000 - 0x15498dabafff 0x15498dabb000 - 0x15498dabefff 0x15498dabf000 - 0x15498dabffff 0x15498dac0000 - 0x15498dad5fff 0x15498dad6000 - 0x15498db01fff 0x15498db02000 - 0x15498db0afff 0x15498db0b000 - 0x15498db0bfff 0x15498db0c000 - 0x15498db0efff 0x15498db0f000 - 0x15498db14fff 0x15498db15000 - 0x15498db17fff 0x15498db18000 - 0x15498db18fff 0x15498db19000 - 0x15498db19fff 0x15498db1a000 - 0x15498db20fff 0x15498db21000 - 0x15498db21fff 0x15498db22000 - 0x15498db42fff 0x15498db43000 - 0x15498db4bfff 0x15498db4c000 - 0x15498db4cfff 0x15498db4d000 - 0x15498db4efff 0x7ffdb0fbc000 - 0x7ffdb0fdcfff 0x7ffdb0fe5000 - 0x7ffdb0fe8fff 0x7ffdb0fe9000 - 0x7ffdb0feafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x955000 - 0x975fff 0x100000000000 - 0x1000000bffff 0x147037008000 - 0x147037008fff 0x147037009000 - 0x1470376b3fff 0x1470376b4000 - 0x147037708fff 0x147037709000 - 0x14703770bfff 0x14703770c000 - 0x147037731fff 0x147037732000 - 0x147037880fff 0x147037881000 - 0x1470378ccfff 0x1470378cd000 - 0x1470378cdfff 0x1470378ce000 - 0x1470378d0fff 0x1470378d1000 - 0x1470378d3fff 0x1470378d4000 - 0x1470378d7fff 0x1470378d8000 - 0x1470378dafff 0x1470378db000 - 0x1470378ecfff 0x1470378ed000 - 0x1470378f0fff 0x1470378f1000 - 0x1470378f1fff 0x1470378f2000 - 0x1470378f2fff 0x1470378f3000 - 0x1470378f4fff 0x1470378f5000 - 0x147037905fff 0x147037906000 - 0x14703793bfff 0x14703793c000 - 0x147037a71fff 0x147037a72000 - 0x147037a72fff 0x147037a73000 - 0x147037a76fff 0x147037a77000 - 0x147037a77fff 0x147037a78000 - 0x147037a78fff 0x147037a79000 - 0x147037a7afff 0x147037a7b000 - 0x147037a7bfff 0x147037a7c000 - 0x147037a7cfff 0x147037a7d000 - 0x147037a7dfff 0x147037a7e000 - 0x147037a7ffff 0x147037a80000 - 0x147037a81fff 0x147037a82000 - 0x147037a82fff 0x147037a83000 - 0x147037a83fff 0x147037a84000 - 0x147037a84fff 0x147037a85000 - 0x147037a86fff 0x147037a87000 - 0x147037a88fff 0x147037a89000 - 0x147037a89fff 0x147037a8a000 - 0x147037a8afff 0x147037a8b000 - 0x147037a8bfff 0x147037a8c000 - 0x147037a99fff 0x147037a9a000 - 0x147037aa7fff 0x147037aa8000 - 0x147037ab5fff 0x147037ab6000 - 0x147037ab9fff 0x147037aba000 - 0x147037abafff 0x147037abb000 - 0x147037ad0fff 0x147037ad1000 - 0x147037afcfff 0x147037afd000 - 0x147037b05fff 0x147037b06000 - 0x147037b06fff 0x147037b07000 - 0x147037b09fff 0x147037b0a000 - 0x147037b0ffff 0x147037b10000 - 0x147037b12fff 0x147037b13000 - 0x147037b13fff 0x147037b14000 - 0x147037b14fff 0x147037b15000 - 0x147037b1bfff 0x147037b1c000 - 0x147037b1cfff 0x147037b1d000 - 0x147037b3dfff 0x147037b3e000 - 0x147037b46fff 0x147037b47000 - 0x147037b47fff 0x147037b48000 - 0x147037b49fff 0x7ffda75c5000 - 0x7ffda75e5fff 0x7ffda75f8000 - 0x7ffda75fbfff 0x7ffda75fc000 - 0x7ffda75fdfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x7cc000 - 0x7ecfff 0x100000000000 - 0x1000000bffff 0x150d32154000 - 0x150d32154fff 0x150d32155000 - 0x150d327fffff 0x150d32800000 - 0x150d32854fff 0x150d32855000 - 0x150d32857fff 0x150d32858000 - 0x150d3287dfff 0x150d3287e000 - 0x150d329ccfff 0x150d329cd000 - 0x150d32a18fff 0x150d32a19000 - 0x150d32a19fff 0x150d32a1a000 - 0x150d32a1cfff 0x150d32a1d000 - 0x150d32a1ffff 0x150d32a20000 - 0x150d32a23fff 0x150d32a24000 - 0x150d32a26fff 0x150d32a27000 - 0x150d32a38fff 0x150d32a39000 - 0x150d32a3cfff 0x150d32a3d000 - 0x150d32a3dfff 0x150d32a3e000 - 0x150d32a3efff 0x150d32a3f000 - 0x150d32a40fff 0x150d32a41000 - 0x150d32a51fff 0x150d32a52000 - 0x150d32a87fff 0x150d32a88000 - 0x150d32bbdfff 0x150d32bbe000 - 0x150d32bbefff 0x150d32bbf000 - 0x150d32bc2fff 0x150d32bc3000 - 0x150d32bc3fff 0x150d32bc4000 - 0x150d32bc4fff 0x150d32bc5000 - 0x150d32bc6fff 0x150d32bc7000 - 0x150d32bc7fff 0x150d32bc8000 - 0x150d32bc8fff 0x150d32bc9000 - 0x150d32bc9fff 0x150d32bca000 - 0x150d32bcbfff 0x150d32bcc000 - 0x150d32bcdfff 0x150d32bce000 - 0x150d32bcefff 0x150d32bcf000 - 0x150d32bcffff 0x150d32bd0000 - 0x150d32bd0fff 0x150d32bd1000 - 0x150d32bd2fff 0x150d32bd3000 - 0x150d32bd4fff 0x150d32bd5000 - 0x150d32bd5fff 0x150d32bd6000 - 0x150d32bd6fff 0x150d32bd7000 - 0x150d32bd7fff 0x150d32bd8000 - 0x150d32be5fff 0x150d32be6000 - 0x150d32bf3fff 0x150d32bf4000 - 0x150d32c01fff 0x150d32c02000 - 0x150d32c05fff 0x150d32c06000 - 0x150d32c06fff 0x150d32c07000 - 0x150d32c1cfff 0x150d32c1d000 - 0x150d32c48fff 0x150d32c49000 - 0x150d32c51fff 0x150d32c52000 - 0x150d32c52fff 0x150d32c53000 - 0x150d32c55fff 0x150d32c56000 - 0x150d32c5bfff 0x150d32c5c000 - 0x150d32c5efff 0x150d32c5f000 - 0x150d32c5ffff 0x150d32c60000 - 0x150d32c60fff 0x150d32c61000 - 0x150d32c67fff 0x150d32c68000 - 0x150d32c68fff 0x150d32c69000 - 0x150d32c89fff 0x150d32c8a000 - 0x150d32c92fff 0x150d32c93000 - 0x150d32c93fff 0x150d32c94000 - 0x150d32c95fff 0x7fffde3a6000 - 0x7fffde3c6fff 0x7fffde3f8000 - 0x7fffde3fbfff 0x7fffde3fc000 - 0x7fffde3fdfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x18bd000 - 0x18ddfff 0x100000000000 - 0x1000000bffff 0x152477db5000 - 0x152477db5fff 0x152477db6000 - 0x152478460fff 0x152478461000 - 0x1524784b5fff 0x1524784b6000 - 0x1524784b8fff 0x1524784b9000 - 0x1524784defff 0x1524784df000 - 0x15247862dfff 0x15247862e000 - 0x152478679fff 0x15247867a000 - 0x15247867afff 0x15247867b000 - 0x15247867dfff 0x15247867e000 - 0x152478680fff 0x152478681000 - 0x152478684fff 0x152478685000 - 0x152478687fff 0x152478688000 - 0x152478699fff 0x15247869a000 - 0x15247869dfff 0x15247869e000 - 0x15247869efff 0x15247869f000 - 0x15247869ffff 0x1524786a0000 - 0x1524786a1fff 0x1524786a2000 - 0x1524786b2fff 0x1524786b3000 - 0x1524786e8fff 0x1524786e9000 - 0x15247881efff 0x15247881f000 - 0x15247881ffff 0x152478820000 - 0x152478823fff 0x152478824000 - 0x152478824fff 0x152478825000 - 0x152478825fff 0x152478826000 - 0x152478827fff 0x152478828000 - 0x152478828fff 0x152478829000 - 0x152478829fff 0x15247882a000 - 0x15247882afff 0x15247882b000 - 0x15247882cfff 0x15247882d000 - 0x15247882efff 0x15247882f000 - 0x15247882ffff 0x152478830000 - 0x152478830fff 0x152478831000 - 0x152478831fff 0x152478832000 - 0x152478833fff 0x152478834000 - 0x152478835fff 0x152478836000 - 0x152478836fff 0x152478837000 - 0x152478837fff 0x152478838000 - 0x152478838fff 0x152478839000 - 0x152478846fff 0x152478847000 - 0x152478854fff 0x152478855000 - 0x152478862fff 0x152478863000 - 0x152478866fff 0x152478867000 - 0x152478867fff 0x152478868000 - 0x15247887dfff 0x15247887e000 - 0x1524788a9fff 0x1524788aa000 - 0x1524788b2fff 0x1524788b3000 - 0x1524788b3fff 0x1524788b4000 - 0x1524788b6fff 0x1524788b7000 - 0x1524788bcfff 0x1524788bd000 - 0x1524788bffff 0x1524788c0000 - 0x1524788c0fff 0x1524788c1000 - 0x1524788c1fff 0x1524788c2000 - 0x1524788c8fff 0x1524788c9000 - 0x1524788c9fff 0x1524788ca000 - 0x1524788eafff 0x1524788eb000 - 0x1524788f3fff 0x1524788f4000 - 0x1524788f4fff 0x1524788f5000 - 0x1524788f6fff 0x7ffce94d4000 - 0x7ffce94f4fff 0x7ffce9532000 - 0x7ffce9535fff 0x7ffce9536000 - 0x7ffce9537fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xc13000 - 0xc33fff 0x100000000000 - 0x1000000bffff 0x14ed11c58000 - 0x14ed11c58fff 0x14ed11c59000 - 0x14ed12303fff 0x14ed12304000 - 0x14ed12358fff 0x14ed12359000 - 0x14ed1235bfff 0x14ed1235c000 - 0x14ed12381fff 0x14ed12382000 - 0x14ed124d0fff 0x14ed124d1000 - 0x14ed1251cfff 0x14ed1251d000 - 0x14ed1251dfff 0x14ed1251e000 - 0x14ed12520fff 0x14ed12521000 - 0x14ed12523fff 0x14ed12524000 - 0x14ed12527fff 0x14ed12528000 - 0x14ed1252afff 0x14ed1252b000 - 0x14ed1253cfff 0x14ed1253d000 - 0x14ed12540fff 0x14ed12541000 - 0x14ed12541fff 0x14ed12542000 - 0x14ed12542fff 0x14ed12543000 - 0x14ed12544fff 0x14ed12545000 - 0x14ed12555fff 0x14ed12556000 - 0x14ed1258bfff 0x14ed1258c000 - 0x14ed126c1fff 0x14ed126c2000 - 0x14ed126c2fff 0x14ed126c3000 - 0x14ed126c6fff 0x14ed126c7000 - 0x14ed126c7fff 0x14ed126c8000 - 0x14ed126c8fff 0x14ed126c9000 - 0x14ed126cafff 0x14ed126cb000 - 0x14ed126cbfff 0x14ed126cc000 - 0x14ed126ccfff 0x14ed126cd000 - 0x14ed126cdfff 0x14ed126ce000 - 0x14ed126cffff 0x14ed126d0000 - 0x14ed126d1fff 0x14ed126d2000 - 0x14ed126d2fff 0x14ed126d3000 - 0x14ed126d3fff 0x14ed126d4000 - 0x14ed126d4fff 0x14ed126d5000 - 0x14ed126d6fff 0x14ed126d7000 - 0x14ed126d8fff 0x14ed126d9000 - 0x14ed126d9fff 0x14ed126da000 - 0x14ed126dafff 0x14ed126db000 - 0x14ed126dbfff 0x14ed126dc000 - 0x14ed126e9fff 0x14ed126ea000 - 0x14ed126f7fff 0x14ed126f8000 - 0x14ed12705fff 0x14ed12706000 - 0x14ed12709fff 0x14ed1270a000 - 0x14ed1270afff 0x14ed1270b000 - 0x14ed12720fff 0x14ed12721000 - 0x14ed1274cfff 0x14ed1274d000 - 0x14ed12755fff 0x14ed12756000 - 0x14ed12756fff 0x14ed12757000 - 0x14ed12759fff 0x14ed1275a000 - 0x14ed1275ffff 0x14ed12760000 - 0x14ed12762fff 0x14ed12763000 - 0x14ed12763fff 0x14ed12764000 - 0x14ed12764fff 0x14ed12765000 - 0x14ed1276bfff 0x14ed1276c000 - 0x14ed1276cfff 0x14ed1276d000 - 0x14ed1278dfff 0x14ed1278e000 - 0x14ed12796fff 0x14ed12797000 - 0x14ed12797fff 0x14ed12798000 - 0x14ed12799fff 0x7fff039eb000 - 0x7fff03a0bfff 0x7fff03b3d000 - 0x7fff03b40fff 0x7fff03b41000 - 0x7fff03b42fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1b51000 - 0x1b71fff 0x100000000000 - 0x1000000bffff 0x14b111a82000 - 0x14b111a82fff 0x14b111a83000 - 0x14b11212dfff 0x14b11212e000 - 0x14b112182fff 0x14b112183000 - 0x14b112185fff 0x14b112186000 - 0x14b1121abfff 0x14b1121ac000 - 0x14b1122fafff 0x14b1122fb000 - 0x14b112346fff 0x14b112347000 - 0x14b112347fff 0x14b112348000 - 0x14b11234afff 0x14b11234b000 - 0x14b11234dfff 0x14b11234e000 - 0x14b112351fff 0x14b112352000 - 0x14b112354fff 0x14b112355000 - 0x14b112366fff 0x14b112367000 - 0x14b11236afff 0x14b11236b000 - 0x14b11236bfff 0x14b11236c000 - 0x14b11236cfff 0x14b11236d000 - 0x14b11236efff 0x14b11236f000 - 0x14b11237ffff 0x14b112380000 - 0x14b1123b5fff 0x14b1123b6000 - 0x14b1124ebfff 0x14b1124ec000 - 0x14b1124ecfff 0x14b1124ed000 - 0x14b1124f0fff 0x14b1124f1000 - 0x14b1124f1fff 0x14b1124f2000 - 0x14b1124f2fff 0x14b1124f3000 - 0x14b1124f4fff 0x14b1124f5000 - 0x14b1124f5fff 0x14b1124f6000 - 0x14b1124f6fff 0x14b1124f7000 - 0x14b1124f7fff 0x14b1124f8000 - 0x14b1124f9fff 0x14b1124fa000 - 0x14b1124fbfff 0x14b1124fc000 - 0x14b1124fcfff 0x14b1124fd000 - 0x14b1124fdfff 0x14b1124fe000 - 0x14b1124fefff 0x14b1124ff000 - 0x14b112500fff 0x14b112501000 - 0x14b112502fff 0x14b112503000 - 0x14b112503fff 0x14b112504000 - 0x14b112504fff 0x14b112505000 - 0x14b112505fff 0x14b112506000 - 0x14b112513fff 0x14b112514000 - 0x14b112521fff 0x14b112522000 - 0x14b11252ffff 0x14b112530000 - 0x14b112533fff 0x14b112534000 - 0x14b112534fff 0x14b112535000 - 0x14b11254afff 0x14b11254b000 - 0x14b112576fff 0x14b112577000 - 0x14b11257ffff 0x14b112580000 - 0x14b112580fff 0x14b112581000 - 0x14b112583fff 0x14b112584000 - 0x14b112589fff 0x14b11258a000 - 0x14b11258cfff 0x14b11258d000 - 0x14b11258dfff 0x14b11258e000 - 0x14b11258efff 0x14b11258f000 - 0x14b112595fff 0x14b112596000 - 0x14b112596fff 0x14b112597000 - 0x14b1125b7fff 0x14b1125b8000 - 0x14b1125c0fff 0x14b1125c1000 - 0x14b1125c1fff 0x14b1125c2000 - 0x14b1125c3fff 0x7ffd2e351000 - 0x7ffd2e371fff 0x7ffd2e3ea000 - 0x7ffd2e3edfff 0x7ffd2e3ee000 - 0x7ffd2e3effff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xd9c000 - 0xdbcfff 0x100000000000 - 0x1000000bffff 0x151987ab1000 - 0x151987ab1fff 0x151987ab2000 - 0x15198815cfff 0x15198815d000 - 0x1519881b1fff 0x1519881b2000 - 0x1519881b4fff 0x1519881b5000 - 0x1519881dafff 0x1519881db000 - 0x151988329fff 0x15198832a000 - 0x151988375fff 0x151988376000 - 0x151988376fff 0x151988377000 - 0x151988379fff 0x15198837a000 - 0x15198837cfff 0x15198837d000 - 0x151988380fff 0x151988381000 - 0x151988383fff 0x151988384000 - 0x151988395fff 0x151988396000 - 0x151988399fff 0x15198839a000 - 0x15198839afff 0x15198839b000 - 0x15198839bfff 0x15198839c000 - 0x15198839dfff 0x15198839e000 - 0x1519883aefff 0x1519883af000 - 0x1519883e4fff 0x1519883e5000 - 0x15198851afff 0x15198851b000 - 0x15198851bfff 0x15198851c000 - 0x15198851ffff 0x151988520000 - 0x151988520fff 0x151988521000 - 0x151988521fff 0x151988522000 - 0x151988523fff 0x151988524000 - 0x151988524fff 0x151988525000 - 0x151988525fff 0x151988526000 - 0x151988526fff 0x151988527000 - 0x151988528fff 0x151988529000 - 0x15198852afff 0x15198852b000 - 0x15198852bfff 0x15198852c000 - 0x15198852cfff 0x15198852d000 - 0x15198852dfff 0x15198852e000 - 0x15198852ffff 0x151988530000 - 0x151988531fff 0x151988532000 - 0x151988532fff 0x151988533000 - 0x151988533fff 0x151988534000 - 0x151988534fff 0x151988535000 - 0x151988542fff 0x151988543000 - 0x151988550fff 0x151988551000 - 0x15198855efff 0x15198855f000 - 0x151988562fff 0x151988563000 - 0x151988563fff 0x151988564000 - 0x151988579fff 0x15198857a000 - 0x1519885a5fff 0x1519885a6000 - 0x1519885aefff 0x1519885af000 - 0x1519885affff 0x1519885b0000 - 0x1519885b2fff 0x1519885b3000 - 0x1519885b8fff 0x1519885b9000 - 0x1519885bbfff 0x1519885bc000 - 0x1519885bcfff 0x1519885bd000 - 0x1519885bdfff 0x1519885be000 - 0x1519885c4fff 0x1519885c5000 - 0x1519885c5fff 0x1519885c6000 - 0x1519885e6fff 0x1519885e7000 - 0x1519885effff 0x1519885f0000 - 0x1519885f0fff 0x1519885f1000 - 0x1519885f2fff 0x7fff2ad4b000 - 0x7fff2ad6bfff 0x7fff2ad7e000 - 0x7fff2ad81fff 0x7fff2ad82000 - 0x7fff2ad83fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1b25000 - 0x1b45fff 0x100000000000 - 0x1000000bffff 0x14773a288000 - 0x14773a288fff 0x14773a289000 - 0x14773a933fff 0x14773a934000 - 0x14773a988fff 0x14773a989000 - 0x14773a98bfff 0x14773a98c000 - 0x14773a9b1fff 0x14773a9b2000 - 0x14773ab00fff 0x14773ab01000 - 0x14773ab4cfff 0x14773ab4d000 - 0x14773ab4dfff 0x14773ab4e000 - 0x14773ab50fff 0x14773ab51000 - 0x14773ab53fff 0x14773ab54000 - 0x14773ab57fff 0x14773ab58000 - 0x14773ab5afff 0x14773ab5b000 - 0x14773ab6cfff 0x14773ab6d000 - 0x14773ab70fff 0x14773ab71000 - 0x14773ab71fff 0x14773ab72000 - 0x14773ab72fff 0x14773ab73000 - 0x14773ab74fff 0x14773ab75000 - 0x14773ab85fff 0x14773ab86000 - 0x14773abbbfff 0x14773abbc000 - 0x14773acf1fff 0x14773acf2000 - 0x14773acf2fff 0x14773acf3000 - 0x14773acf6fff 0x14773acf7000 - 0x14773acf7fff 0x14773acf8000 - 0x14773acf8fff 0x14773acf9000 - 0x14773acfafff 0x14773acfb000 - 0x14773acfbfff 0x14773acfc000 - 0x14773acfcfff 0x14773acfd000 - 0x14773acfdfff 0x14773acfe000 - 0x14773acfffff 0x14773ad00000 - 0x14773ad01fff 0x14773ad02000 - 0x14773ad02fff 0x14773ad03000 - 0x14773ad03fff 0x14773ad04000 - 0x14773ad04fff 0x14773ad05000 - 0x14773ad06fff 0x14773ad07000 - 0x14773ad08fff 0x14773ad09000 - 0x14773ad09fff 0x14773ad0a000 - 0x14773ad0afff 0x14773ad0b000 - 0x14773ad0bfff 0x14773ad0c000 - 0x14773ad19fff 0x14773ad1a000 - 0x14773ad27fff 0x14773ad28000 - 0x14773ad35fff 0x14773ad36000 - 0x14773ad39fff 0x14773ad3a000 - 0x14773ad3afff 0x14773ad3b000 - 0x14773ad50fff 0x14773ad51000 - 0x14773ad7cfff 0x14773ad7d000 - 0x14773ad85fff 0x14773ad86000 - 0x14773ad86fff 0x14773ad87000 - 0x14773ad89fff 0x14773ad8a000 - 0x14773ad8ffff 0x14773ad90000 - 0x14773ad92fff 0x14773ad93000 - 0x14773ad93fff 0x14773ad94000 - 0x14773ad94fff 0x14773ad95000 - 0x14773ad9bfff 0x14773ad9c000 - 0x14773ad9cfff 0x14773ad9d000 - 0x14773adbdfff 0x14773adbe000 - 0x14773adc6fff 0x14773adc7000 - 0x14773adc7fff 0x14773adc8000 - 0x14773adc9fff 0x7ffc105a6000 - 0x7ffc105c6fff 0x7ffc105c7000 - 0x7ffc105cafff 0x7ffc105cb000 - 0x7ffc105ccfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1ea2000 - 0x1ec2fff 0x100000000000 - 0x1000000bffff 0x14b045514000 - 0x14b045514fff 0x14b045515000 - 0x14b045bbffff 0x14b045bc0000 - 0x14b045c14fff 0x14b045c15000 - 0x14b045c17fff 0x14b045c18000 - 0x14b045c3dfff 0x14b045c3e000 - 0x14b045d8cfff 0x14b045d8d000 - 0x14b045dd8fff 0x14b045dd9000 - 0x14b045dd9fff 0x14b045dda000 - 0x14b045ddcfff 0x14b045ddd000 - 0x14b045ddffff 0x14b045de0000 - 0x14b045de3fff 0x14b045de4000 - 0x14b045de6fff 0x14b045de7000 - 0x14b045df8fff 0x14b045df9000 - 0x14b045dfcfff 0x14b045dfd000 - 0x14b045dfdfff 0x14b045dfe000 - 0x14b045dfefff 0x14b045dff000 - 0x14b045e00fff 0x14b045e01000 - 0x14b045e11fff 0x14b045e12000 - 0x14b045e47fff 0x14b045e48000 - 0x14b045f7dfff 0x14b045f7e000 - 0x14b045f7efff 0x14b045f7f000 - 0x14b045f82fff 0x14b045f83000 - 0x14b045f83fff 0x14b045f84000 - 0x14b045f84fff 0x14b045f85000 - 0x14b045f86fff 0x14b045f87000 - 0x14b045f87fff 0x14b045f88000 - 0x14b045f88fff 0x14b045f89000 - 0x14b045f89fff 0x14b045f8a000 - 0x14b045f8bfff 0x14b045f8c000 - 0x14b045f8dfff 0x14b045f8e000 - 0x14b045f8efff 0x14b045f8f000 - 0x14b045f8ffff 0x14b045f90000 - 0x14b045f90fff 0x14b045f91000 - 0x14b045f92fff 0x14b045f93000 - 0x14b045f94fff 0x14b045f95000 - 0x14b045f95fff 0x14b045f96000 - 0x14b045f96fff 0x14b045f97000 - 0x14b045f97fff 0x14b045f98000 - 0x14b045fa5fff 0x14b045fa6000 - 0x14b045fb3fff 0x14b045fb4000 - 0x14b045fc1fff 0x14b045fc2000 - 0x14b045fc5fff 0x14b045fc6000 - 0x14b045fc6fff 0x14b045fc7000 - 0x14b045fdcfff 0x14b045fdd000 - 0x14b046008fff 0x14b046009000 - 0x14b046011fff 0x14b046012000 - 0x14b046012fff 0x14b046013000 - 0x14b046015fff 0x14b046016000 - 0x14b04601bfff 0x14b04601c000 - 0x14b04601efff 0x14b04601f000 - 0x14b04601ffff 0x14b046020000 - 0x14b046020fff 0x14b046021000 - 0x14b046027fff 0x14b046028000 - 0x14b046028fff 0x14b046029000 - 0x14b046049fff 0x14b04604a000 - 0x14b046052fff 0x14b046053000 - 0x14b046053fff 0x14b046054000 - 0x14b046055fff 0x7ffec2edf000 - 0x7ffec2efffff 0x7ffec2f4a000 - 0x7ffec2f4dfff 0x7ffec2f4e000 - 0x7ffec2f4ffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1b68000 - 0x1b88fff 0x100000000000 - 0x1000000bffff 0x1494da65d000 - 0x1494da65dfff 0x1494da65e000 - 0x1494dad08fff 0x1494dad09000 - 0x1494dad5dfff 0x1494dad5e000 - 0x1494dad60fff 0x1494dad61000 - 0x1494dad86fff 0x1494dad87000 - 0x1494daed5fff 0x1494daed6000 - 0x1494daf21fff 0x1494daf22000 - 0x1494daf22fff 0x1494daf23000 - 0x1494daf25fff 0x1494daf26000 - 0x1494daf28fff 0x1494daf29000 - 0x1494daf2cfff 0x1494daf2d000 - 0x1494daf2ffff 0x1494daf30000 - 0x1494daf41fff 0x1494daf42000 - 0x1494daf45fff 0x1494daf46000 - 0x1494daf46fff 0x1494daf47000 - 0x1494daf47fff 0x1494daf48000 - 0x1494daf49fff 0x1494daf4a000 - 0x1494daf5afff 0x1494daf5b000 - 0x1494daf90fff 0x1494daf91000 - 0x1494db0c6fff 0x1494db0c7000 - 0x1494db0c7fff 0x1494db0c8000 - 0x1494db0cbfff 0x1494db0cc000 - 0x1494db0ccfff 0x1494db0cd000 - 0x1494db0cdfff 0x1494db0ce000 - 0x1494db0cffff 0x1494db0d0000 - 0x1494db0d0fff 0x1494db0d1000 - 0x1494db0d1fff 0x1494db0d2000 - 0x1494db0d2fff 0x1494db0d3000 - 0x1494db0d4fff 0x1494db0d5000 - 0x1494db0d6fff 0x1494db0d7000 - 0x1494db0d7fff 0x1494db0d8000 - 0x1494db0d8fff 0x1494db0d9000 - 0x1494db0d9fff 0x1494db0da000 - 0x1494db0dbfff 0x1494db0dc000 - 0x1494db0ddfff 0x1494db0de000 - 0x1494db0defff 0x1494db0df000 - 0x1494db0dffff 0x1494db0e0000 - 0x1494db0e0fff 0x1494db0e1000 - 0x1494db0eefff 0x1494db0ef000 - 0x1494db0fcfff 0x1494db0fd000 - 0x1494db10afff 0x1494db10b000 - 0x1494db10efff 0x1494db10f000 - 0x1494db10ffff 0x1494db110000 - 0x1494db125fff 0x1494db126000 - 0x1494db151fff 0x1494db152000 - 0x1494db15afff 0x1494db15b000 - 0x1494db15bfff 0x1494db15c000 - 0x1494db15efff 0x1494db15f000 - 0x1494db164fff 0x1494db165000 - 0x1494db167fff 0x1494db168000 - 0x1494db168fff 0x1494db169000 - 0x1494db169fff 0x1494db16a000 - 0x1494db170fff 0x1494db171000 - 0x1494db171fff 0x1494db172000 - 0x1494db192fff 0x1494db193000 - 0x1494db19bfff 0x1494db19c000 - 0x1494db19cfff 0x1494db19d000 - 0x1494db19efff 0x7fff0c6a3000 - 0x7fff0c6c3fff 0x7fff0c797000 - 0x7fff0c79afff 0x7fff0c79b000 - 0x7fff0c79cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x645000 - 0x665fff 0x100000000000 - 0x1000000bffff 0x14e00fe43000 - 0x14e00fe43fff 0x14e00fe44000 - 0x14e0104eefff 0x14e0104ef000 - 0x14e010543fff 0x14e010544000 - 0x14e010546fff 0x14e010547000 - 0x14e01056cfff 0x14e01056d000 - 0x14e0106bbfff 0x14e0106bc000 - 0x14e010707fff 0x14e010708000 - 0x14e010708fff 0x14e010709000 - 0x14e01070bfff 0x14e01070c000 - 0x14e01070efff 0x14e01070f000 - 0x14e010712fff 0x14e010713000 - 0x14e010715fff 0x14e010716000 - 0x14e010727fff 0x14e010728000 - 0x14e01072bfff 0x14e01072c000 - 0x14e01072cfff 0x14e01072d000 - 0x14e01072dfff 0x14e01072e000 - 0x14e01072ffff 0x14e010730000 - 0x14e010740fff 0x14e010741000 - 0x14e010776fff 0x14e010777000 - 0x14e0108acfff 0x14e0108ad000 - 0x14e0108adfff 0x14e0108ae000 - 0x14e0108b1fff 0x14e0108b2000 - 0x14e0108b2fff 0x14e0108b3000 - 0x14e0108b3fff 0x14e0108b4000 - 0x14e0108b5fff 0x14e0108b6000 - 0x14e0108b6fff 0x14e0108b7000 - 0x14e0108b7fff 0x14e0108b8000 - 0x14e0108b8fff 0x14e0108b9000 - 0x14e0108bafff 0x14e0108bb000 - 0x14e0108bcfff 0x14e0108bd000 - 0x14e0108bdfff 0x14e0108be000 - 0x14e0108befff 0x14e0108bf000 - 0x14e0108bffff 0x14e0108c0000 - 0x14e0108c1fff 0x14e0108c2000 - 0x14e0108c3fff 0x14e0108c4000 - 0x14e0108c4fff 0x14e0108c5000 - 0x14e0108c5fff 0x14e0108c6000 - 0x14e0108c6fff 0x14e0108c7000 - 0x14e0108d4fff 0x14e0108d5000 - 0x14e0108e2fff 0x14e0108e3000 - 0x14e0108f0fff 0x14e0108f1000 - 0x14e0108f4fff 0x14e0108f5000 - 0x14e0108f5fff 0x14e0108f6000 - 0x14e01090bfff 0x14e01090c000 - 0x14e010937fff 0x14e010938000 - 0x14e010940fff 0x14e010941000 - 0x14e010941fff 0x14e010942000 - 0x14e010944fff 0x14e010945000 - 0x14e01094afff 0x14e01094b000 - 0x14e01094dfff 0x14e01094e000 - 0x14e01094efff 0x14e01094f000 - 0x14e01094ffff 0x14e010950000 - 0x14e010956fff 0x14e010957000 - 0x14e010957fff 0x14e010958000 - 0x14e010978fff 0x14e010979000 - 0x14e010981fff 0x14e010982000 - 0x14e010982fff 0x14e010983000 - 0x14e010984fff 0x7ffe228d0000 - 0x7ffe228f0fff 0x7ffe22971000 - 0x7ffe22974fff 0x7ffe22975000 - 0x7ffe22976fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1a86000 - 0x1aa6fff 0x100000000000 - 0x1000000bffff 0x153cfed86000 - 0x153cfed86fff 0x153cfed87000 - 0x153cff431fff 0x153cff432000 - 0x153cff486fff 0x153cff487000 - 0x153cff489fff 0x153cff48a000 - 0x153cff4affff 0x153cff4b0000 - 0x153cff5fefff 0x153cff5ff000 - 0x153cff64afff 0x153cff64b000 - 0x153cff64bfff 0x153cff64c000 - 0x153cff64efff 0x153cff64f000 - 0x153cff651fff 0x153cff652000 - 0x153cff655fff 0x153cff656000 - 0x153cff658fff 0x153cff659000 - 0x153cff66afff 0x153cff66b000 - 0x153cff66efff 0x153cff66f000 - 0x153cff66ffff 0x153cff670000 - 0x153cff670fff 0x153cff671000 - 0x153cff672fff 0x153cff673000 - 0x153cff683fff 0x153cff684000 - 0x153cff6b9fff 0x153cff6ba000 - 0x153cff7effff 0x153cff7f0000 - 0x153cff7f0fff 0x153cff7f1000 - 0x153cff7f4fff 0x153cff7f5000 - 0x153cff7f5fff 0x153cff7f6000 - 0x153cff7f6fff 0x153cff7f7000 - 0x153cff7f8fff 0x153cff7f9000 - 0x153cff7f9fff 0x153cff7fa000 - 0x153cff7fafff 0x153cff7fb000 - 0x153cff7fbfff 0x153cff7fc000 - 0x153cff7fdfff 0x153cff7fe000 - 0x153cff7fffff 0x153cff800000 - 0x153cff800fff 0x153cff801000 - 0x153cff801fff 0x153cff802000 - 0x153cff802fff 0x153cff803000 - 0x153cff804fff 0x153cff805000 - 0x153cff806fff 0x153cff807000 - 0x153cff807fff 0x153cff808000 - 0x153cff808fff 0x153cff809000 - 0x153cff809fff 0x153cff80a000 - 0x153cff817fff 0x153cff818000 - 0x153cff825fff 0x153cff826000 - 0x153cff833fff 0x153cff834000 - 0x153cff837fff 0x153cff838000 - 0x153cff838fff 0x153cff839000 - 0x153cff84efff 0x153cff84f000 - 0x153cff87afff 0x153cff87b000 - 0x153cff883fff 0x153cff884000 - 0x153cff884fff 0x153cff885000 - 0x153cff887fff 0x153cff888000 - 0x153cff88dfff 0x153cff88e000 - 0x153cff890fff 0x153cff891000 - 0x153cff891fff 0x153cff892000 - 0x153cff892fff 0x153cff893000 - 0x153cff899fff 0x153cff89a000 - 0x153cff89afff 0x153cff89b000 - 0x153cff8bbfff 0x153cff8bc000 - 0x153cff8c4fff 0x153cff8c5000 - 0x153cff8c5fff 0x153cff8c6000 - 0x153cff8c7fff 0x7ffc6d632000 - 0x7ffc6d652fff 0x7ffc6d7e1000 - 0x7ffc6d7e4fff 0x7ffc6d7e5000 - 0x7ffc6d7e6fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/room.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/room.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/functions.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/functions.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/trace.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/trace.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/cmacros.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/cmacros.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/compiler.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/compiler.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/defs2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/defs2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/loop.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/loop.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos.fas ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slots1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slots1.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method1.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb1.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun1.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun2a.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun2a.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun2b.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun2b.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-dependent.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-dependent.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun4.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slots2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slots2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slotdef2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slotdef2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-stablehash2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-stablehash2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-specializer2.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-specializer2.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class4.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class5.fas ... WARNING: DEFGENERIC: redefining function SHARED-INITIALIZE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class5.fas, was defined in top-level WARNING: DEFGENERIC: redefining function REINITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class5.fas, was defined in top-level WARNING: DEFGENERIC: redefining function INITIALIZE-INSTANCE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class5.fas, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class5.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slotdef3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-slotdef3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-specializer3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-specializer3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class6.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-class6.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-method4.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb4.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-methcomb4.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun5.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-genfun5.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-print.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-print.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-custom.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-custom.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/documentation.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/documentation.fas ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gray.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gray.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fill-out.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fill-out.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/disassem.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/disassem.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/condition.fas ... WARNING: DEFUN/DEFMACRO: redefining function MUFFLE-CERRORS in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/condition.fas, was defined in C ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/condition.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/loadform.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/loadform.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gstream.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gstream.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/xcharin.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/xcharin.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/keyboard.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/keyboard.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/screen.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/screen.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/runprog.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/runprog.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/query.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/query.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/reploop.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/reploop.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/savemem.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/savemem.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dribble.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dribble.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pprint.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pprint.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/describe.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/describe.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/edit.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/edit.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clhs.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clhs.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/inspect.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/inspect.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/macros3.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/macros3.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/complete.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/complete.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/case-sensitive.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/case-sensitive.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/foreign1.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/foreign1.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/exporting.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/exporting.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/danish.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/danish.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/german.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/german.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/french.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/french.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/spanish.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/spanish.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dutch.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dutch.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/russian.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/russian.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/deprecated.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/deprecated.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.fas ;; Wrote the memory image into lispinit.mem (3,323,680 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,146,248 Bytes available until next GC: 783,602 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 troff: clisp.1:1419: warning [p 9, 3.5i]: can't break line troff: clisp.1:1429: warning [p 9, 4.3i]: can't break line troff: clisp.1:1439: warning [p 9, 5.1i]: can't break line troff: clisp.1:1469: warning [p 9, 7.5i]: can't break line troff: clisp.1:1474: warning [p 9, 7.9i]: can't break line troff: clisp.1:1509: warning [p 10, 1.6i]: can't break line troff: clisp.1:1575: warning [p 10, 6.9i]: can't break line troff: clisp.1:1585: warning [p 10, 7.7i]: can't break line troff: clisp.1:1642: warning [p 11, 3.2i]: can't break line troff: clisp.1:1667: warning [p 11, 5.2i]: can't break line ps2pdf clisp.ps clisp.pdf groff -Tps -mandoc clisp-link.1 > clisp-link.ps troff: clisp-link.1:350: warning [p 2, 9.1i]: can't break line ps2pdf clisp-link.ps clisp-link.pdf /usr/bin/ld -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/modules.c modules.c cd linkkit && ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp.h clisp.h cd linkkit && ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/utils/modprep.lisp modprep.lisp (echo 'CC='"'"'gcc'"'" ;\ echo 'CPPFLAGS='"'"'-I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib'"'" ;\ echo 'CFLAGS='"'"'-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1050000 - 0x1070fff 0x100000000000 - 0x1000000bffff 0x147376d79000 - 0x147376d79fff 0x147376d7a000 - 0x147377424fff 0x147377425000 - 0x147377479fff 0x14737747a000 - 0x14737747cfff 0x14737747d000 - 0x1473774a2fff 0x1473774a3000 - 0x1473775f1fff 0x1473775f2000 - 0x14737763dfff 0x14737763e000 - 0x14737763efff 0x14737763f000 - 0x147377641fff 0x147377642000 - 0x147377644fff 0x147377645000 - 0x147377648fff 0x147377649000 - 0x14737764bfff 0x14737764c000 - 0x14737765dfff 0x14737765e000 - 0x147377661fff 0x147377662000 - 0x147377662fff 0x147377663000 - 0x147377663fff 0x147377664000 - 0x147377665fff 0x147377666000 - 0x147377676fff 0x147377677000 - 0x1473776acfff 0x1473776ad000 - 0x1473777e2fff 0x1473777e3000 - 0x1473777e3fff 0x1473777e4000 - 0x1473777e7fff 0x1473777e8000 - 0x1473777e8fff 0x1473777e9000 - 0x1473777e9fff 0x1473777ea000 - 0x1473777ebfff 0x1473777ec000 - 0x1473777ecfff 0x1473777ed000 - 0x1473777edfff 0x1473777ee000 - 0x1473777eefff 0x1473777ef000 - 0x1473777f0fff 0x1473777f1000 - 0x1473777f2fff 0x1473777f3000 - 0x1473777f3fff 0x1473777f4000 - 0x1473777f4fff 0x1473777f5000 - 0x1473777f5fff 0x1473777f6000 - 0x1473777f7fff 0x1473777f8000 - 0x1473777f9fff 0x1473777fa000 - 0x1473777fafff 0x1473777fb000 - 0x1473777fbfff 0x1473777fc000 - 0x1473777fcfff 0x1473777fd000 - 0x14737780afff 0x14737780b000 - 0x147377818fff 0x147377819000 - 0x147377826fff 0x147377827000 - 0x14737782afff 0x14737782b000 - 0x14737782bfff 0x14737782c000 - 0x147377841fff 0x147377842000 - 0x14737786dfff 0x14737786e000 - 0x147377876fff 0x147377877000 - 0x147377877fff 0x147377878000 - 0x14737787afff 0x14737787b000 - 0x147377880fff 0x147377881000 - 0x147377883fff 0x147377884000 - 0x147377884fff 0x147377885000 - 0x147377885fff 0x147377886000 - 0x14737788cfff 0x14737788d000 - 0x14737788dfff 0x14737788e000 - 0x1473778aefff 0x1473778af000 - 0x1473778b7fff 0x1473778b8000 - 0x1473778b8fff 0x1473778b9000 - 0x1473778bafff 0x7ffc6a555000 - 0x7ffc6a576fff 0x7ffc6a5d7000 - 0x7ffc6a5dafff 0x7ffc6a5db000 - 0x7ffc6a5dcfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/i18n/i18n.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n/i18n.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1c9b000 - 0x1cbbfff 0x100000000000 - 0x1000000bffff 0x14775c16e000 - 0x14775c16efff 0x14775c16f000 - 0x14775c819fff 0x14775c81a000 - 0x14775c86efff 0x14775c86f000 - 0x14775c871fff 0x14775c872000 - 0x14775c897fff 0x14775c898000 - 0x14775c9e6fff 0x14775c9e7000 - 0x14775ca32fff 0x14775ca33000 - 0x14775ca33fff 0x14775ca34000 - 0x14775ca36fff 0x14775ca37000 - 0x14775ca39fff 0x14775ca3a000 - 0x14775ca3dfff 0x14775ca3e000 - 0x14775ca40fff 0x14775ca41000 - 0x14775ca52fff 0x14775ca53000 - 0x14775ca56fff 0x14775ca57000 - 0x14775ca57fff 0x14775ca58000 - 0x14775ca58fff 0x14775ca59000 - 0x14775ca5afff 0x14775ca5b000 - 0x14775ca6bfff 0x14775ca6c000 - 0x14775caa1fff 0x14775caa2000 - 0x14775cbd7fff 0x14775cbd8000 - 0x14775cbd8fff 0x14775cbd9000 - 0x14775cbdcfff 0x14775cbdd000 - 0x14775cbddfff 0x14775cbde000 - 0x14775cbdefff 0x14775cbdf000 - 0x14775cbe0fff 0x14775cbe1000 - 0x14775cbe1fff 0x14775cbe2000 - 0x14775cbe2fff 0x14775cbe3000 - 0x14775cbe3fff 0x14775cbe4000 - 0x14775cbe5fff 0x14775cbe6000 - 0x14775cbe7fff 0x14775cbe8000 - 0x14775cbe8fff 0x14775cbe9000 - 0x14775cbe9fff 0x14775cbea000 - 0x14775cbeafff 0x14775cbeb000 - 0x14775cbecfff 0x14775cbed000 - 0x14775cbeefff 0x14775cbef000 - 0x14775cbeffff 0x14775cbf0000 - 0x14775cbf0fff 0x14775cbf1000 - 0x14775cbf1fff 0x14775cbf2000 - 0x14775cbfffff 0x14775cc00000 - 0x14775cc0dfff 0x14775cc0e000 - 0x14775cc1bfff 0x14775cc1c000 - 0x14775cc1ffff 0x14775cc20000 - 0x14775cc20fff 0x14775cc21000 - 0x14775cc36fff 0x14775cc37000 - 0x14775cc62fff 0x14775cc63000 - 0x14775cc6bfff 0x14775cc6c000 - 0x14775cc6cfff 0x14775cc6d000 - 0x14775cc6ffff 0x14775cc70000 - 0x14775cc75fff 0x14775cc76000 - 0x14775cc78fff 0x14775cc79000 - 0x14775cc79fff 0x14775cc7a000 - 0x14775cc7afff 0x14775cc7b000 - 0x14775cc81fff 0x14775cc82000 - 0x14775cc82fff 0x14775cc83000 - 0x14775cca3fff 0x14775cca4000 - 0x14775ccacfff 0x14775ccad000 - 0x14775ccadfff 0x14775ccae000 - 0x14775ccaffff 0x7fffd1ae9000 - 0x7fffd1b0afff 0x7fffd1bee000 - 0x7fffd1bf1fff 0x7fffd1bf2000 - 0x7fffd1bf3fff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/i18n/gettext.c" --> #P"gettext.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c gettext.m.c -o gettext.o ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/i18n/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 build system type... (cached) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for special C compiler options needed for large files... (cached) no checking for _FILE_OFFSET_BITS value needed for large files... (cached) no checking size of off_t... (cached) 8 checking size of gid_t... 4 checking size of pid_t... 4 checking size of uid_t... 4 checking for struct utmpx.ut_host... yes checking whether the preprocessor supports include_next... (cached) yes checking whether system header files limit the line length... (cached) no 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x61d000 - 0x63dfff 0x100000000000 - 0x1000000bffff 0x147f7782f000 - 0x147f7782ffff 0x147f77830000 - 0x147f77edafff 0x147f77edb000 - 0x147f77f2ffff 0x147f77f30000 - 0x147f77f32fff 0x147f77f33000 - 0x147f77f58fff 0x147f77f59000 - 0x147f780a7fff 0x147f780a8000 - 0x147f780f3fff 0x147f780f4000 - 0x147f780f4fff 0x147f780f5000 - 0x147f780f7fff 0x147f780f8000 - 0x147f780fafff 0x147f780fb000 - 0x147f780fefff 0x147f780ff000 - 0x147f78101fff 0x147f78102000 - 0x147f78113fff 0x147f78114000 - 0x147f78117fff 0x147f78118000 - 0x147f78118fff 0x147f78119000 - 0x147f78119fff 0x147f7811a000 - 0x147f7811bfff 0x147f7811c000 - 0x147f7812cfff 0x147f7812d000 - 0x147f78162fff 0x147f78163000 - 0x147f78298fff 0x147f78299000 - 0x147f78299fff 0x147f7829a000 - 0x147f7829dfff 0x147f7829e000 - 0x147f7829efff 0x147f7829f000 - 0x147f7829ffff 0x147f782a0000 - 0x147f782a1fff 0x147f782a2000 - 0x147f782a2fff 0x147f782a3000 - 0x147f782a3fff 0x147f782a4000 - 0x147f782a4fff 0x147f782a5000 - 0x147f782a6fff 0x147f782a7000 - 0x147f782a8fff 0x147f782a9000 - 0x147f782a9fff 0x147f782aa000 - 0x147f782aafff 0x147f782ab000 - 0x147f782abfff 0x147f782ac000 - 0x147f782adfff 0x147f782ae000 - 0x147f782affff 0x147f782b0000 - 0x147f782b0fff 0x147f782b1000 - 0x147f782b1fff 0x147f782b2000 - 0x147f782b2fff 0x147f782b3000 - 0x147f782c0fff 0x147f782c1000 - 0x147f782cefff 0x147f782cf000 - 0x147f782dcfff 0x147f782dd000 - 0x147f782e0fff 0x147f782e1000 - 0x147f782e1fff 0x147f782e2000 - 0x147f782f7fff 0x147f782f8000 - 0x147f78323fff 0x147f78324000 - 0x147f7832cfff 0x147f7832d000 - 0x147f7832dfff 0x147f7832e000 - 0x147f78330fff 0x147f78331000 - 0x147f78336fff 0x147f78337000 - 0x147f78339fff 0x147f7833a000 - 0x147f7833afff 0x147f7833b000 - 0x147f7833bfff 0x147f7833c000 - 0x147f78342fff 0x147f78343000 - 0x147f78343fff 0x147f78344000 - 0x147f78364fff 0x147f78365000 - 0x147f7836dfff 0x147f7836e000 - 0x147f7836efff 0x147f7836f000 - 0x147f78370fff 0x7fff4e89f000 - 0x7fff4e8c0fff 0x7fff4e8c7000 - 0x7fff4e8cafff 0x7fff4e8cb000 - 0x7fff4e8ccfff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c" --> #P"calls.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c" :5723: fixed object case ":ERROR_ITERATED_DATA_EXCEEDS_64k" WARNING: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c calls.m.c -o calls.o /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_posix_file_size’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_posix_file_stat’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_posix_set_file_stat’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_posix_stat_vfs’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_os_file_owner’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘copy_attributes_and_close’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c:3049:2: warning: label ‘close_success’ defined but not used [-Wunused-label] 3049 | close_success: | ^~~~~~~~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/calls.c: In function ‘C_subr_posix__25sethostid’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2477000 - 0x2497fff 0x100000000000 - 0x1000000bffff 0x14de96b20000 - 0x14de96b20fff 0x14de96b21000 - 0x14de971cbfff 0x14de971cc000 - 0x14de97220fff 0x14de97221000 - 0x14de97223fff 0x14de97224000 - 0x14de97249fff 0x14de9724a000 - 0x14de97398fff 0x14de97399000 - 0x14de973e4fff 0x14de973e5000 - 0x14de973e5fff 0x14de973e6000 - 0x14de973e8fff 0x14de973e9000 - 0x14de973ebfff 0x14de973ec000 - 0x14de973effff 0x14de973f0000 - 0x14de973f2fff 0x14de973f3000 - 0x14de97404fff 0x14de97405000 - 0x14de97408fff 0x14de97409000 - 0x14de97409fff 0x14de9740a000 - 0x14de9740afff 0x14de9740b000 - 0x14de9740cfff 0x14de9740d000 - 0x14de9741dfff 0x14de9741e000 - 0x14de97453fff 0x14de97454000 - 0x14de97589fff 0x14de9758a000 - 0x14de9758afff 0x14de9758b000 - 0x14de9758efff 0x14de9758f000 - 0x14de9758ffff 0x14de97590000 - 0x14de97590fff 0x14de97591000 - 0x14de97592fff 0x14de97593000 - 0x14de97593fff 0x14de97594000 - 0x14de97594fff 0x14de97595000 - 0x14de97595fff 0x14de97596000 - 0x14de97597fff 0x14de97598000 - 0x14de97599fff 0x14de9759a000 - 0x14de9759afff 0x14de9759b000 - 0x14de9759bfff 0x14de9759c000 - 0x14de9759cfff 0x14de9759d000 - 0x14de9759efff 0x14de9759f000 - 0x14de975a0fff 0x14de975a1000 - 0x14de975a1fff 0x14de975a2000 - 0x14de975a2fff 0x14de975a3000 - 0x14de975a3fff 0x14de975a4000 - 0x14de975b1fff 0x14de975b2000 - 0x14de975bffff 0x14de975c0000 - 0x14de975cdfff 0x14de975ce000 - 0x14de975d1fff 0x14de975d2000 - 0x14de975d2fff 0x14de975d3000 - 0x14de975e8fff 0x14de975e9000 - 0x14de97614fff 0x14de97615000 - 0x14de9761dfff 0x14de9761e000 - 0x14de9761efff 0x14de9761f000 - 0x14de97621fff 0x14de97622000 - 0x14de97627fff 0x14de97628000 - 0x14de9762afff 0x14de9762b000 - 0x14de9762bfff 0x14de9762c000 - 0x14de9762cfff 0x14de9762d000 - 0x14de97633fff 0x14de97634000 - 0x14de97634fff 0x14de97635000 - 0x14de97655fff 0x14de97656000 - 0x14de9765efff 0x14de9765f000 - 0x14de9765ffff 0x14de97660000 - 0x14de97661fff 0x7ffe1881e000 - 0x7ffe1883ffff 0x7ffe18994000 - 0x7ffe18997fff 0x7ffe18998000 - 0x7ffe18999fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/posix.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/preload.lisp . ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/syscalls/datemsk . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1382000 - 0x13a2fff 0x100000000000 - 0x1000000bffff 0x14bcdafdd000 - 0x14bcdafddfff 0x14bcdafde000 - 0x14bcdb688fff 0x14bcdb689000 - 0x14bcdb6ddfff 0x14bcdb6de000 - 0x14bcdb6e0fff 0x14bcdb6e1000 - 0x14bcdb706fff 0x14bcdb707000 - 0x14bcdb855fff 0x14bcdb856000 - 0x14bcdb8a1fff 0x14bcdb8a2000 - 0x14bcdb8a2fff 0x14bcdb8a3000 - 0x14bcdb8a5fff 0x14bcdb8a6000 - 0x14bcdb8a8fff 0x14bcdb8a9000 - 0x14bcdb8acfff 0x14bcdb8ad000 - 0x14bcdb8affff 0x14bcdb8b0000 - 0x14bcdb8c1fff 0x14bcdb8c2000 - 0x14bcdb8c5fff 0x14bcdb8c6000 - 0x14bcdb8c6fff 0x14bcdb8c7000 - 0x14bcdb8c7fff 0x14bcdb8c8000 - 0x14bcdb8c9fff 0x14bcdb8ca000 - 0x14bcdb8dafff 0x14bcdb8db000 - 0x14bcdb910fff 0x14bcdb911000 - 0x14bcdba46fff 0x14bcdba47000 - 0x14bcdba47fff 0x14bcdba48000 - 0x14bcdba4bfff 0x14bcdba4c000 - 0x14bcdba4cfff 0x14bcdba4d000 - 0x14bcdba4dfff 0x14bcdba4e000 - 0x14bcdba4ffff 0x14bcdba50000 - 0x14bcdba50fff 0x14bcdba51000 - 0x14bcdba51fff 0x14bcdba52000 - 0x14bcdba52fff 0x14bcdba53000 - 0x14bcdba54fff 0x14bcdba55000 - 0x14bcdba56fff 0x14bcdba57000 - 0x14bcdba57fff 0x14bcdba58000 - 0x14bcdba58fff 0x14bcdba59000 - 0x14bcdba59fff 0x14bcdba5a000 - 0x14bcdba5bfff 0x14bcdba5c000 - 0x14bcdba5dfff 0x14bcdba5e000 - 0x14bcdba5efff 0x14bcdba5f000 - 0x14bcdba5ffff 0x14bcdba60000 - 0x14bcdba60fff 0x14bcdba61000 - 0x14bcdba6efff 0x14bcdba6f000 - 0x14bcdba7cfff 0x14bcdba7d000 - 0x14bcdba8afff 0x14bcdba8b000 - 0x14bcdba8efff 0x14bcdba8f000 - 0x14bcdba8ffff 0x14bcdba90000 - 0x14bcdbaa5fff 0x14bcdbaa6000 - 0x14bcdbad1fff 0x14bcdbad2000 - 0x14bcdbadafff 0x14bcdbadb000 - 0x14bcdbadbfff 0x14bcdbadc000 - 0x14bcdbadefff 0x14bcdbadf000 - 0x14bcdbae4fff 0x14bcdbae5000 - 0x14bcdbae7fff 0x14bcdbae8000 - 0x14bcdbae8fff 0x14bcdbae9000 - 0x14bcdbae9fff 0x14bcdbaea000 - 0x14bcdbaf0fff 0x14bcdbaf1000 - 0x14bcdbaf1fff 0x14bcdbaf2000 - 0x14bcdbb12fff 0x14bcdbb13000 - 0x14bcdbb1bfff 0x14bcdbb1c000 - 0x14bcdbb1cfff 0x14bcdbb1d000 - 0x14bcdbb1efff 0x7ffe57534000 - 0x7ffe57555fff 0x7ffe575f6000 - 0x7ffe575f9fff 0x7ffe575fa000 - 0x7ffe575fbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/regexp/regexp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1812000 - 0x1832fff 0x100000000000 - 0x1000000bffff 0x14d85f669000 - 0x14d85f669fff 0x14d85f66a000 - 0x14d85fd14fff 0x14d85fd15000 - 0x14d85fd69fff 0x14d85fd6a000 - 0x14d85fd6cfff 0x14d85fd6d000 - 0x14d85fd92fff 0x14d85fd93000 - 0x14d85fee1fff 0x14d85fee2000 - 0x14d85ff2dfff 0x14d85ff2e000 - 0x14d85ff2efff 0x14d85ff2f000 - 0x14d85ff31fff 0x14d85ff32000 - 0x14d85ff34fff 0x14d85ff35000 - 0x14d85ff38fff 0x14d85ff39000 - 0x14d85ff3bfff 0x14d85ff3c000 - 0x14d85ff4dfff 0x14d85ff4e000 - 0x14d85ff51fff 0x14d85ff52000 - 0x14d85ff52fff 0x14d85ff53000 - 0x14d85ff53fff 0x14d85ff54000 - 0x14d85ff55fff 0x14d85ff56000 - 0x14d85ff66fff 0x14d85ff67000 - 0x14d85ff9cfff 0x14d85ff9d000 - 0x14d8600d2fff 0x14d8600d3000 - 0x14d8600d3fff 0x14d8600d4000 - 0x14d8600d7fff 0x14d8600d8000 - 0x14d8600d8fff 0x14d8600d9000 - 0x14d8600d9fff 0x14d8600da000 - 0x14d8600dbfff 0x14d8600dc000 - 0x14d8600dcfff 0x14d8600dd000 - 0x14d8600ddfff 0x14d8600de000 - 0x14d8600defff 0x14d8600df000 - 0x14d8600e0fff 0x14d8600e1000 - 0x14d8600e2fff 0x14d8600e3000 - 0x14d8600e3fff 0x14d8600e4000 - 0x14d8600e4fff 0x14d8600e5000 - 0x14d8600e5fff 0x14d8600e6000 - 0x14d8600e7fff 0x14d8600e8000 - 0x14d8600e9fff 0x14d8600ea000 - 0x14d8600eafff 0x14d8600eb000 - 0x14d8600ebfff 0x14d8600ec000 - 0x14d8600ecfff 0x14d8600ed000 - 0x14d8600fafff 0x14d8600fb000 - 0x14d860108fff 0x14d860109000 - 0x14d860116fff 0x14d860117000 - 0x14d86011afff 0x14d86011b000 - 0x14d86011bfff 0x14d86011c000 - 0x14d860131fff 0x14d860132000 - 0x14d86015dfff 0x14d86015e000 - 0x14d860166fff 0x14d860167000 - 0x14d860167fff 0x14d860168000 - 0x14d86016afff 0x14d86016b000 - 0x14d860170fff 0x14d860171000 - 0x14d860173fff 0x14d860174000 - 0x14d860174fff 0x14d860175000 - 0x14d860175fff 0x14d860176000 - 0x14d86017cfff 0x14d86017d000 - 0x14d86017dfff 0x14d86017e000 - 0x14d86019efff 0x14d86019f000 - 0x14d8601a7fff 0x14d8601a8000 - 0x14d8601a8fff 0x14d8601a9000 - 0x14d8601aafff 0x7fff18552000 - 0x7fff18573fff 0x7fff185b2000 - 0x7fff185b5fff 0x7fff185b6000 - 0x7fff185b7fff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/regexp/regexi.c" --> #P"regexi.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c regexi.m.c -o regexi.o /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/regexp/regexi.c: In function ‘C_subr_regexp_regexp_exec’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/regexp/regexi.c:120: note: here ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/regexp/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K boot -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x224f000 - 0x226ffff 0x100000000000 - 0x1000000bffff 0x151032d91000 - 0x151032d91fff 0x151032d92000 - 0x15103343cfff 0x15103343d000 - 0x151033491fff 0x151033492000 - 0x151033494fff 0x151033495000 - 0x1510334bafff 0x1510334bb000 - 0x151033609fff 0x15103360a000 - 0x151033655fff 0x151033656000 - 0x151033656fff 0x151033657000 - 0x151033659fff 0x15103365a000 - 0x15103365cfff 0x15103365d000 - 0x151033660fff 0x151033661000 - 0x151033663fff 0x151033664000 - 0x151033675fff 0x151033676000 - 0x151033679fff 0x15103367a000 - 0x15103367afff 0x15103367b000 - 0x15103367bfff 0x15103367c000 - 0x15103367dfff 0x15103367e000 - 0x15103368efff 0x15103368f000 - 0x1510336c4fff 0x1510336c5000 - 0x1510337fafff 0x1510337fb000 - 0x1510337fbfff 0x1510337fc000 - 0x1510337fffff 0x151033800000 - 0x151033800fff 0x151033801000 - 0x151033801fff 0x151033802000 - 0x151033803fff 0x151033804000 - 0x151033804fff 0x151033805000 - 0x151033805fff 0x151033806000 - 0x151033806fff 0x151033807000 - 0x151033808fff 0x151033809000 - 0x15103380afff 0x15103380b000 - 0x15103380bfff 0x15103380c000 - 0x15103380cfff 0x15103380d000 - 0x15103380dfff 0x15103380e000 - 0x15103380ffff 0x151033810000 - 0x151033811fff 0x151033812000 - 0x151033812fff 0x151033813000 - 0x151033813fff 0x151033814000 - 0x151033814fff 0x151033815000 - 0x151033822fff 0x151033823000 - 0x151033830fff 0x151033831000 - 0x15103383efff 0x15103383f000 - 0x151033842fff 0x151033843000 - 0x151033843fff 0x151033844000 - 0x151033859fff 0x15103385a000 - 0x151033885fff 0x151033886000 - 0x15103388efff 0x15103388f000 - 0x15103388ffff 0x151033890000 - 0x151033892fff 0x151033893000 - 0x151033898fff 0x151033899000 - 0x15103389bfff 0x15103389c000 - 0x15103389cfff 0x15103389d000 - 0x15103389dfff 0x15103389e000 - 0x1510338a4fff 0x1510338a5000 - 0x1510338a5fff 0x1510338a6000 - 0x1510338c6fff 0x1510338c7000 - 0x1510338cffff 0x1510338d0000 - 0x1510338d0fff 0x1510338d1000 - 0x1510338d2fff 0x7ffcfc20d000 - 0x7ffcfc22efff 0x7ffcfc3e7000 - 0x7ffcfc3eafff 0x7ffcfc3eb000 - 0x7ffcfc3ecfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/readline/readline.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c readline.c make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' rm -rf base MAKE=make CLISP="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 - 0x5d4fff 0x1c7e000 - 0x1c9efff 0x100000000000 - 0x1000000bffff 0x150ffffc6000 - 0x150ffffc6fff 0x150ffffc7000 - 0x151000671fff 0x151000672000 - 0x1510006c6fff 0x1510006c7000 - 0x1510006c9fff 0x1510006ca000 - 0x1510006effff 0x1510006f0000 - 0x15100083efff 0x15100083f000 - 0x15100088afff 0x15100088b000 - 0x15100088bfff 0x15100088c000 - 0x15100088efff 0x15100088f000 - 0x151000891fff 0x151000892000 - 0x151000895fff 0x151000896000 - 0x151000898fff 0x151000899000 - 0x1510008aafff 0x1510008ab000 - 0x1510008aefff 0x1510008af000 - 0x1510008affff 0x1510008b0000 - 0x1510008b0fff 0x1510008b1000 - 0x1510008b2fff 0x1510008b3000 - 0x1510008c3fff 0x1510008c4000 - 0x1510008f9fff 0x1510008fa000 - 0x151000a2ffff 0x151000a30000 - 0x151000a30fff 0x151000a31000 - 0x151000a34fff 0x151000a35000 - 0x151000a35fff 0x151000a36000 - 0x151000a36fff 0x151000a37000 - 0x151000a38fff 0x151000a39000 - 0x151000a39fff 0x151000a3a000 - 0x151000a3afff 0x151000a3b000 - 0x151000a3bfff 0x151000a3c000 - 0x151000a3dfff 0x151000a3e000 - 0x151000a3ffff 0x151000a40000 - 0x151000a40fff 0x151000a41000 - 0x151000a41fff 0x151000a42000 - 0x151000a42fff 0x151000a43000 - 0x151000a44fff 0x151000a45000 - 0x151000a46fff 0x151000a47000 - 0x151000a47fff 0x151000a48000 - 0x151000a48fff 0x151000a49000 - 0x151000a49fff 0x151000a4a000 - 0x151000a57fff 0x151000a58000 - 0x151000a65fff 0x151000a66000 - 0x151000a73fff 0x151000a74000 - 0x151000a77fff 0x151000a78000 - 0x151000a78fff 0x151000a79000 - 0x151000a8efff 0x151000a8f000 - 0x151000abafff 0x151000abb000 - 0x151000ac3fff 0x151000ac4000 - 0x151000ac4fff 0x151000ac5000 - 0x151000ac7fff 0x151000ac8000 - 0x151000acdfff 0x151000ace000 - 0x151000ad0fff 0x151000ad1000 - 0x151000ad1fff 0x151000ad2000 - 0x151000ad2fff 0x151000ad3000 - 0x151000ad9fff 0x151000ada000 - 0x151000adafff 0x151000adb000 - 0x151000afbfff 0x151000afc000 - 0x151000b04fff 0x151000b05000 - 0x151000b05fff 0x151000b06000 - 0x151000b07fff 0x7ffe601cd000 - 0x7ffe601edfff 0x7ffe601f7000 - 0x7ffe601fafff 0x7ffe601fb000 - 0x7ffe601fcfff 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,944 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,139,432 Bytes available until next GC: 780,748 3139432 ; 780748 ; 173664 ; 1 ; 256680 ; 5621 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 - 0x5fafff 0x2176000 - 0x2196fff 0x100000000000 - 0x1000000bffff 0x147526f16000 - 0x147526f16fff 0x147526f17000 - 0x1475275c1fff 0x1475275c2000 - 0x147527616fff 0x147527617000 - 0x147527618fff 0x147527619000 - 0x14752763efff 0x14752763f000 - 0x14752778dfff 0x14752778e000 - 0x1475277d9fff 0x1475277da000 - 0x1475277dafff 0x1475277db000 - 0x1475277ddfff 0x1475277de000 - 0x1475277e0fff 0x1475277e1000 - 0x1475277e4fff 0x1475277e5000 - 0x1475277e7fff 0x1475277e8000 - 0x1475277f9fff 0x1475277fa000 - 0x1475277fdfff 0x1475277fe000 - 0x1475277fefff 0x1475277ff000 - 0x1475277fffff 0x147527800000 - 0x147527810fff 0x147527811000 - 0x147527846fff 0x147527847000 - 0x14752797cfff 0x14752797d000 - 0x14752797dfff 0x14752797e000 - 0x147527981fff 0x147527982000 - 0x147527982fff 0x147527983000 - 0x147527983fff 0x147527984000 - 0x147527985fff 0x147527986000 - 0x147527986fff 0x147527987000 - 0x147527987fff 0x147527988000 - 0x147527988fff 0x147527989000 - 0x14752798afff 0x14752798b000 - 0x14752798cfff 0x14752798d000 - 0x14752798efff 0x14752798f000 - 0x14752798ffff 0x147527990000 - 0x147527990fff 0x147527991000 - 0x147527991fff 0x147527992000 - 0x147527993fff 0x147527994000 - 0x147527995fff 0x147527996000 - 0x147527996fff 0x147527997000 - 0x147527997fff 0x147527998000 - 0x147527998fff 0x147527999000 - 0x1475279a6fff 0x1475279a7000 - 0x1475279b4fff 0x1475279b5000 - 0x1475279c2fff 0x1475279c3000 - 0x1475279c6fff 0x1475279c7000 - 0x1475279c7fff 0x1475279c8000 - 0x1475279c9fff 0x1475279ca000 - 0x1475279ddfff 0x1475279de000 - 0x1475279f6fff 0x1475279f7000 - 0x1475279f7fff 0x1475279f8000 - 0x1475279f8fff 0x1475279f9000 - 0x147527a01fff 0x147527a02000 - 0x147527a10fff 0x147527a11000 - 0x147527aacfff 0x147527aad000 - 0x147527b45fff 0x147527b46000 - 0x147527b46fff 0x147527b47000 - 0x147527b47fff 0x147527b48000 - 0x147527b5dfff 0x147527b5e000 - 0x147527b89fff 0x147527b8a000 - 0x147527b92fff 0x147527b93000 - 0x147527b93fff 0x147527b94000 - 0x147527b96fff 0x147527b97000 - 0x147527b9cfff 0x147527b9d000 - 0x147527b9ffff 0x147527ba0000 - 0x147527ba0fff 0x147527ba1000 - 0x147527ba1fff 0x147527ba2000 - 0x147527ba8fff 0x147527ba9000 - 0x147527ba9fff 0x147527baa000 - 0x147527bcafff 0x147527bcb000 - 0x147527bd3fff 0x147527bd4000 - 0x147527bd4fff 0x147527bd5000 - 0x147527bd6fff 0x7ffff3e17000 - 0x7ffff3e37fff 0x7ffff3e54000 - 0x7ffff3e57fff 0x7ffff3e58000 - 0x7ffff3e59fff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n/i18n.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n/i18n.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls/posix.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls/posix.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp/regexp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp/regexp.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.fas ;; Wrote the memory image into base/lispinit.mem (3,798,600 bytes) Bytes permanently allocated: 180,216 Bytes currently in use: 3,610,280 Bytes available until next GC: 898,460 3610280 ; 898460 ; 180216 ; 3 ; 1575016 ; 15721 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -m 2MW -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1b26000 - 0x1b46fff 0x100000000000 - 0x1000000bffff 0x151cc07f2000 - 0x151cc07f2fff 0x151cc07f3000 - 0x151cc0e9dfff 0x151cc0e9e000 - 0x151cc0ef2fff 0x151cc0ef3000 - 0x151cc0ef4fff 0x151cc0ef5000 - 0x151cc0f1afff 0x151cc0f1b000 - 0x151cc1069fff 0x151cc106a000 - 0x151cc10b5fff 0x151cc10b6000 - 0x151cc10b6fff 0x151cc10b7000 - 0x151cc10b9fff 0x151cc10ba000 - 0x151cc10bcfff 0x151cc10bd000 - 0x151cc10c0fff 0x151cc10c1000 - 0x151cc10c3fff 0x151cc10c4000 - 0x151cc10d5fff 0x151cc10d6000 - 0x151cc10d9fff 0x151cc10da000 - 0x151cc10dafff 0x151cc10db000 - 0x151cc10dbfff 0x151cc10dc000 - 0x151cc10ecfff 0x151cc10ed000 - 0x151cc1122fff 0x151cc1123000 - 0x151cc1258fff 0x151cc1259000 - 0x151cc1259fff 0x151cc125a000 - 0x151cc125dfff 0x151cc125e000 - 0x151cc125efff 0x151cc125f000 - 0x151cc125ffff 0x151cc1260000 - 0x151cc1261fff 0x151cc1262000 - 0x151cc1262fff 0x151cc1263000 - 0x151cc1263fff 0x151cc1264000 - 0x151cc1264fff 0x151cc1265000 - 0x151cc1266fff 0x151cc1267000 - 0x151cc1268fff 0x151cc1269000 - 0x151cc126afff 0x151cc126b000 - 0x151cc126bfff 0x151cc126c000 - 0x151cc126cfff 0x151cc126d000 - 0x151cc126dfff 0x151cc126e000 - 0x151cc126ffff 0x151cc1270000 - 0x151cc1271fff 0x151cc1272000 - 0x151cc1272fff 0x151cc1273000 - 0x151cc1273fff 0x151cc1274000 - 0x151cc1274fff 0x151cc1275000 - 0x151cc1282fff 0x151cc1283000 - 0x151cc1290fff 0x151cc1291000 - 0x151cc129efff 0x151cc129f000 - 0x151cc12a2fff 0x151cc12a3000 - 0x151cc12a3fff 0x151cc12a4000 - 0x151cc12a5fff 0x151cc12a6000 - 0x151cc12b9fff 0x151cc12ba000 - 0x151cc12d2fff 0x151cc12d3000 - 0x151cc12d3fff 0x151cc12d4000 - 0x151cc12d4fff 0x151cc12d5000 - 0x151cc12ddfff 0x151cc12de000 - 0x151cc12ecfff 0x151cc12ed000 - 0x151cc1388fff 0x151cc1389000 - 0x151cc1421fff 0x151cc1422000 - 0x151cc1422fff 0x151cc1423000 - 0x151cc1423fff 0x151cc1424000 - 0x151cc1439fff 0x151cc143a000 - 0x151cc1465fff 0x151cc1466000 - 0x151cc146efff 0x151cc146f000 - 0x151cc146ffff 0x151cc1470000 - 0x151cc1472fff 0x151cc1473000 - 0x151cc1478fff 0x151cc1479000 - 0x151cc147bfff 0x151cc147c000 - 0x151cc147cfff 0x151cc147d000 - 0x151cc147dfff 0x151cc147e000 - 0x151cc1484fff 0x151cc1485000 - 0x151cc1485fff 0x151cc1486000 - 0x151cc14a6fff 0x151cc14a7000 - 0x151cc14affff 0x151cc14b0000 - 0x151cc14b0fff 0x151cc14b1000 - 0x151cc14b2fff 0x7ffcd0c55000 - 0x7ffcd0c76fff 0x7ffcd0cd5000 - 0x7ffcd0cd8fff 0x7ffcd0cd9000 - 0x7ffcd0cdafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf/asdf.fas 0 errors, 3 warnings ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/asdf/link.sh . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x22bd000 - 0x22ddfff 0x100000000000 - 0x1000000bffff 0x14ed544f1000 - 0x14ed544f1fff 0x14ed544f2000 - 0x14ed54b9cfff 0x14ed54b9d000 - 0x14ed54bf1fff 0x14ed54bf2000 - 0x14ed54bf3fff 0x14ed54bf4000 - 0x14ed54c19fff 0x14ed54c1a000 - 0x14ed54d68fff 0x14ed54d69000 - 0x14ed54db4fff 0x14ed54db5000 - 0x14ed54db5fff 0x14ed54db6000 - 0x14ed54db8fff 0x14ed54db9000 - 0x14ed54dbbfff 0x14ed54dbc000 - 0x14ed54dbffff 0x14ed54dc0000 - 0x14ed54dc2fff 0x14ed54dc3000 - 0x14ed54dd4fff 0x14ed54dd5000 - 0x14ed54dd8fff 0x14ed54dd9000 - 0x14ed54dd9fff 0x14ed54dda000 - 0x14ed54ddafff 0x14ed54ddb000 - 0x14ed54debfff 0x14ed54dec000 - 0x14ed54e21fff 0x14ed54e22000 - 0x14ed54f57fff 0x14ed54f58000 - 0x14ed54f58fff 0x14ed54f59000 - 0x14ed54f5cfff 0x14ed54f5d000 - 0x14ed54f5dfff 0x14ed54f5e000 - 0x14ed54f5efff 0x14ed54f5f000 - 0x14ed54f60fff 0x14ed54f61000 - 0x14ed54f61fff 0x14ed54f62000 - 0x14ed54f62fff 0x14ed54f63000 - 0x14ed54f63fff 0x14ed54f64000 - 0x14ed54f65fff 0x14ed54f66000 - 0x14ed54f67fff 0x14ed54f68000 - 0x14ed54f69fff 0x14ed54f6a000 - 0x14ed54f6afff 0x14ed54f6b000 - 0x14ed54f6bfff 0x14ed54f6c000 - 0x14ed54f6cfff 0x14ed54f6d000 - 0x14ed54f6efff 0x14ed54f6f000 - 0x14ed54f70fff 0x14ed54f71000 - 0x14ed54f71fff 0x14ed54f72000 - 0x14ed54f72fff 0x14ed54f73000 - 0x14ed54f73fff 0x14ed54f74000 - 0x14ed54f81fff 0x14ed54f82000 - 0x14ed54f8ffff 0x14ed54f90000 - 0x14ed54f9dfff 0x14ed54f9e000 - 0x14ed54fa1fff 0x14ed54fa2000 - 0x14ed54fa2fff 0x14ed54fa3000 - 0x14ed54fa4fff 0x14ed54fa5000 - 0x14ed54fb8fff 0x14ed54fb9000 - 0x14ed54fd1fff 0x14ed54fd2000 - 0x14ed54fd2fff 0x14ed54fd3000 - 0x14ed54fd3fff 0x14ed54fd4000 - 0x14ed54fdcfff 0x14ed54fdd000 - 0x14ed54febfff 0x14ed54fec000 - 0x14ed55087fff 0x14ed55088000 - 0x14ed55120fff 0x14ed55121000 - 0x14ed55121fff 0x14ed55122000 - 0x14ed55122fff 0x14ed55123000 - 0x14ed55138fff 0x14ed55139000 - 0x14ed55164fff 0x14ed55165000 - 0x14ed5516dfff 0x14ed5516e000 - 0x14ed5516efff 0x14ed5516f000 - 0x14ed55171fff 0x14ed55172000 - 0x14ed55177fff 0x14ed55178000 - 0x14ed5517afff 0x14ed5517b000 - 0x14ed5517bfff 0x14ed5517c000 - 0x14ed5517cfff 0x14ed5517d000 - 0x14ed55183fff 0x14ed55184000 - 0x14ed55184fff 0x14ed55185000 - 0x14ed551a5fff 0x14ed551a6000 - 0x14ed551aefff 0x14ed551af000 - 0x14ed551affff 0x14ed551b0000 - 0x14ed551b1fff 0x7ffec7799000 - 0x7ffec77bafff 0x7ffec77bd000 - 0x7ffec77c0fff 0x7ffec77c1000 - 0x7ffec77c2fff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c" --> #P"bdb.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c bdb.m.c -o bdb.o /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c: In function ‘error_callback’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_txn_recover’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_dbe_get_options’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:1176:7: note: here 1176 | case 0: VALUES1(NIL); | ^~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:1176:97: warning: this statement may fall through [-Wimplicit-fallthrough=] 1176 | case 0: VALUES1(NIL); | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:1177:7: note: here 1177 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c: In function ‘dbt_to_object’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:1384:10: warning: this statement may fall through [-Wimplicit-fallthrough=] 1384 | if (key_type == -1) { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:1409:5: note: here 1409 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c: In function ‘C_subr_bdb_db_get_options’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:2120:7: note: here 2120 | case 0: VALUES1(NIL); | ^~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:2120:97: warning: this statement may fall through [-Wimplicit-fallthrough=] 2120 | case 0: VALUES1(NIL); | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/bdb.c:2121:7: note: here 2121 | default: NOTREACHED; | ^~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1416000 - 0x1436fff 0x100000000000 - 0x1000000bffff 0x148359675000 - 0x148359675fff 0x148359676000 - 0x148359d20fff 0x148359d21000 - 0x148359d75fff 0x148359d76000 - 0x148359d77fff 0x148359d78000 - 0x148359d9dfff 0x148359d9e000 - 0x148359eecfff 0x148359eed000 - 0x148359f38fff 0x148359f39000 - 0x148359f39fff 0x148359f3a000 - 0x148359f3cfff 0x148359f3d000 - 0x148359f3ffff 0x148359f40000 - 0x148359f43fff 0x148359f44000 - 0x148359f46fff 0x148359f47000 - 0x148359f58fff 0x148359f59000 - 0x148359f5cfff 0x148359f5d000 - 0x148359f5dfff 0x148359f5e000 - 0x148359f5efff 0x148359f5f000 - 0x148359f6ffff 0x148359f70000 - 0x148359fa5fff 0x148359fa6000 - 0x14835a0dbfff 0x14835a0dc000 - 0x14835a0dcfff 0x14835a0dd000 - 0x14835a0e0fff 0x14835a0e1000 - 0x14835a0e1fff 0x14835a0e2000 - 0x14835a0e2fff 0x14835a0e3000 - 0x14835a0e4fff 0x14835a0e5000 - 0x14835a0e5fff 0x14835a0e6000 - 0x14835a0e6fff 0x14835a0e7000 - 0x14835a0e7fff 0x14835a0e8000 - 0x14835a0e9fff 0x14835a0ea000 - 0x14835a0ebfff 0x14835a0ec000 - 0x14835a0edfff 0x14835a0ee000 - 0x14835a0eefff 0x14835a0ef000 - 0x14835a0effff 0x14835a0f0000 - 0x14835a0f0fff 0x14835a0f1000 - 0x14835a0f2fff 0x14835a0f3000 - 0x14835a0f4fff 0x14835a0f5000 - 0x14835a0f5fff 0x14835a0f6000 - 0x14835a0f6fff 0x14835a0f7000 - 0x14835a0f7fff 0x14835a0f8000 - 0x14835a105fff 0x14835a106000 - 0x14835a113fff 0x14835a114000 - 0x14835a121fff 0x14835a122000 - 0x14835a125fff 0x14835a126000 - 0x14835a126fff 0x14835a127000 - 0x14835a128fff 0x14835a129000 - 0x14835a13cfff 0x14835a13d000 - 0x14835a155fff 0x14835a156000 - 0x14835a156fff 0x14835a157000 - 0x14835a157fff 0x14835a158000 - 0x14835a160fff 0x14835a161000 - 0x14835a16ffff 0x14835a170000 - 0x14835a20bfff 0x14835a20c000 - 0x14835a2a4fff 0x14835a2a5000 - 0x14835a2a5fff 0x14835a2a6000 - 0x14835a2a6fff 0x14835a2a7000 - 0x14835a2bcfff 0x14835a2bd000 - 0x14835a2e8fff 0x14835a2e9000 - 0x14835a2f1fff 0x14835a2f2000 - 0x14835a2f2fff 0x14835a2f3000 - 0x14835a2f5fff 0x14835a2f6000 - 0x14835a2fbfff 0x14835a2fc000 - 0x14835a2fefff 0x14835a2ff000 - 0x14835a2fffff 0x14835a300000 - 0x14835a300fff 0x14835a301000 - 0x14835a307fff 0x14835a308000 - 0x14835a308fff 0x14835a309000 - 0x14835a329fff 0x14835a32a000 - 0x14835a332fff 0x14835a333000 - 0x14835a333fff 0x14835a334000 - 0x14835a335fff 0x7fff00be3000 - 0x7fff00c04fff 0x7fff00ced000 - 0x7fff00cf0fff 0x7fff00cf1000 - 0x7fff00cf2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/dbi.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0xe98000 - 0xeb8fff 0x100000000000 - 0x1000000bffff 0x14a5d9f91000 - 0x14a5d9f91fff 0x14a5d9f92000 - 0x14a5da63cfff 0x14a5da63d000 - 0x14a5da691fff 0x14a5da692000 - 0x14a5da693fff 0x14a5da694000 - 0x14a5da6b9fff 0x14a5da6ba000 - 0x14a5da808fff 0x14a5da809000 - 0x14a5da854fff 0x14a5da855000 - 0x14a5da855fff 0x14a5da856000 - 0x14a5da858fff 0x14a5da859000 - 0x14a5da85bfff 0x14a5da85c000 - 0x14a5da85ffff 0x14a5da860000 - 0x14a5da862fff 0x14a5da863000 - 0x14a5da874fff 0x14a5da875000 - 0x14a5da878fff 0x14a5da879000 - 0x14a5da879fff 0x14a5da87a000 - 0x14a5da87afff 0x14a5da87b000 - 0x14a5da88bfff 0x14a5da88c000 - 0x14a5da8c1fff 0x14a5da8c2000 - 0x14a5da9f7fff 0x14a5da9f8000 - 0x14a5da9f8fff 0x14a5da9f9000 - 0x14a5da9fcfff 0x14a5da9fd000 - 0x14a5da9fdfff 0x14a5da9fe000 - 0x14a5da9fefff 0x14a5da9ff000 - 0x14a5daa00fff 0x14a5daa01000 - 0x14a5daa01fff 0x14a5daa02000 - 0x14a5daa02fff 0x14a5daa03000 - 0x14a5daa03fff 0x14a5daa04000 - 0x14a5daa05fff 0x14a5daa06000 - 0x14a5daa07fff 0x14a5daa08000 - 0x14a5daa09fff 0x14a5daa0a000 - 0x14a5daa0afff 0x14a5daa0b000 - 0x14a5daa0bfff 0x14a5daa0c000 - 0x14a5daa0cfff 0x14a5daa0d000 - 0x14a5daa0efff 0x14a5daa0f000 - 0x14a5daa10fff 0x14a5daa11000 - 0x14a5daa11fff 0x14a5daa12000 - 0x14a5daa12fff 0x14a5daa13000 - 0x14a5daa13fff 0x14a5daa14000 - 0x14a5daa21fff 0x14a5daa22000 - 0x14a5daa2ffff 0x14a5daa30000 - 0x14a5daa3dfff 0x14a5daa3e000 - 0x14a5daa41fff 0x14a5daa42000 - 0x14a5daa42fff 0x14a5daa43000 - 0x14a5daa44fff 0x14a5daa45000 - 0x14a5daa58fff 0x14a5daa59000 - 0x14a5daa71fff 0x14a5daa72000 - 0x14a5daa72fff 0x14a5daa73000 - 0x14a5daa73fff 0x14a5daa74000 - 0x14a5daa7cfff 0x14a5daa7d000 - 0x14a5daa8bfff 0x14a5daa8c000 - 0x14a5dab27fff 0x14a5dab28000 - 0x14a5dabc0fff 0x14a5dabc1000 - 0x14a5dabc1fff 0x14a5dabc2000 - 0x14a5dabc2fff 0x14a5dabc3000 - 0x14a5dabd8fff 0x14a5dabd9000 - 0x14a5dac04fff 0x14a5dac05000 - 0x14a5dac0dfff 0x14a5dac0e000 - 0x14a5dac0efff 0x14a5dac0f000 - 0x14a5dac11fff 0x14a5dac12000 - 0x14a5dac17fff 0x14a5dac18000 - 0x14a5dac1afff 0x14a5dac1b000 - 0x14a5dac1bfff 0x14a5dac1c000 - 0x14a5dac1cfff 0x14a5dac1d000 - 0x14a5dac23fff 0x14a5dac24000 - 0x14a5dac24fff 0x14a5dac25000 - 0x14a5dac45fff 0x14a5dac46000 - 0x14a5dac4efff 0x14a5dac4f000 - 0x14a5dac4ffff 0x14a5dac50000 - 0x14a5dac51fff 0x7ffd966e9000 - 0x7ffd9670afff 0x7ffd9673f000 - 0x7ffd96742fff 0x7ffd96743000 - 0x7ffd96744fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/bindings/glibc/linux.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -b)/linkkit -c linux.c linux.c: In function ‘module__linux__init_function_2’: linux.c:979:3: warning: ‘readdir_r’ is deprecated [-Wdeprecated-declarations] 979 | register_foreign_function((void*)&readdir_r,"readdir_r",1024); | ^~~~~~~~~~~~~~~~~~~~~~~~~ In file included from linux.c:23: /usr/include/dirent.h:183:12: note: declared here 183 | extern int readdir_r (DIR *__restrict __dirp, | ^~~~~~~~~ linux.c:980:3: warning: ‘readdir64_r’ is deprecated [-Wdeprecated-declarations] 980 | register_foreign_function((void*)&readdir64_r,"readdir64_r",1024); | ^~~~~~~~~~~~~~~~~~~~~~~~~ In file included from linux.c:23: /usr/include/dirent.h:201:12: note: declared here 201 | extern int readdir64_r (DIR *__restrict __dirp, | ^~~~~~~~~~~ linux.c:1033:3: warning: ‘sigpause’ is deprecated: Use the sigsuspend function instead [-Wdeprecated-declarations] 1033 | register_foreign_function((void*)&sigpause,"sigpause",1024); | ^~~~~~~~~~~~~~~~~~~~~~~~~ In file included from /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib/signal.h:52, from /usr/include/sys/wait.h:36, from /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib/sys/wait.h:28, from linux.c:17: /usr/include/signal.h:151:12: note: declared here 151 | extern int sigpause (int __sig) __asm__ ("__xpg_sigpause") | ^~~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1e41000 - 0x1e61fff 0x100000000000 - 0x1000000bffff 0x145fefc2d000 - 0x145fefc2dfff 0x145fefc2e000 - 0x145ff02d8fff 0x145ff02d9000 - 0x145ff032dfff 0x145ff032e000 - 0x145ff032ffff 0x145ff0330000 - 0x145ff0355fff 0x145ff0356000 - 0x145ff04a4fff 0x145ff04a5000 - 0x145ff04f0fff 0x145ff04f1000 - 0x145ff04f1fff 0x145ff04f2000 - 0x145ff04f4fff 0x145ff04f5000 - 0x145ff04f7fff 0x145ff04f8000 - 0x145ff04fbfff 0x145ff04fc000 - 0x145ff04fefff 0x145ff04ff000 - 0x145ff0510fff 0x145ff0511000 - 0x145ff0514fff 0x145ff0515000 - 0x145ff0515fff 0x145ff0516000 - 0x145ff0516fff 0x145ff0517000 - 0x145ff0527fff 0x145ff0528000 - 0x145ff055dfff 0x145ff055e000 - 0x145ff0693fff 0x145ff0694000 - 0x145ff0694fff 0x145ff0695000 - 0x145ff0698fff 0x145ff0699000 - 0x145ff0699fff 0x145ff069a000 - 0x145ff069afff 0x145ff069b000 - 0x145ff069cfff 0x145ff069d000 - 0x145ff069dfff 0x145ff069e000 - 0x145ff069efff 0x145ff069f000 - 0x145ff069ffff 0x145ff06a0000 - 0x145ff06a1fff 0x145ff06a2000 - 0x145ff06a3fff 0x145ff06a4000 - 0x145ff06a5fff 0x145ff06a6000 - 0x145ff06a6fff 0x145ff06a7000 - 0x145ff06a7fff 0x145ff06a8000 - 0x145ff06a8fff 0x145ff06a9000 - 0x145ff06aafff 0x145ff06ab000 - 0x145ff06acfff 0x145ff06ad000 - 0x145ff06adfff 0x145ff06ae000 - 0x145ff06aefff 0x145ff06af000 - 0x145ff06affff 0x145ff06b0000 - 0x145ff06bdfff 0x145ff06be000 - 0x145ff06cbfff 0x145ff06cc000 - 0x145ff06d9fff 0x145ff06da000 - 0x145ff06ddfff 0x145ff06de000 - 0x145ff06defff 0x145ff06df000 - 0x145ff06e0fff 0x145ff06e1000 - 0x145ff06f4fff 0x145ff06f5000 - 0x145ff070dfff 0x145ff070e000 - 0x145ff070efff 0x145ff070f000 - 0x145ff070ffff 0x145ff0710000 - 0x145ff0718fff 0x145ff0719000 - 0x145ff0727fff 0x145ff0728000 - 0x145ff07c3fff 0x145ff07c4000 - 0x145ff085cfff 0x145ff085d000 - 0x145ff085dfff 0x145ff085e000 - 0x145ff085efff 0x145ff085f000 - 0x145ff0874fff 0x145ff0875000 - 0x145ff08a0fff 0x145ff08a1000 - 0x145ff08a9fff 0x145ff08aa000 - 0x145ff08aafff 0x145ff08ab000 - 0x145ff08adfff 0x145ff08ae000 - 0x145ff08b3fff 0x145ff08b4000 - 0x145ff08b6fff 0x145ff08b7000 - 0x145ff08b7fff 0x145ff08b8000 - 0x145ff08b8fff 0x145ff08b9000 - 0x145ff08bffff 0x145ff08c0000 - 0x145ff08c0fff 0x145ff08c1000 - 0x145ff08e1fff 0x145ff08e2000 - 0x145ff08eafff 0x145ff08eb000 - 0x145ff08ebfff 0x145ff08ec000 - 0x145ff08edfff 0x7ffceaf4b000 - 0x7ffceaf6cfff 0x7ffceaf99000 - 0x7ffceaf9cfff 0x7ffceaf9d000 - 0x7ffceaf9efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/bindings/glibc/wrap.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.lib ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.lib ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/wrap.fas 0 errors, 0 warnings ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/bindings/glibc/link.sh . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x2233000 - 0x2253fff 0x100000000000 - 0x1000000bffff 0x14d6c72a3000 - 0x14d6c72a3fff 0x14d6c72a4000 - 0x14d6c794efff 0x14d6c794f000 - 0x14d6c79a3fff 0x14d6c79a4000 - 0x14d6c79a5fff 0x14d6c79a6000 - 0x14d6c79cbfff 0x14d6c79cc000 - 0x14d6c7b1afff 0x14d6c7b1b000 - 0x14d6c7b66fff 0x14d6c7b67000 - 0x14d6c7b67fff 0x14d6c7b68000 - 0x14d6c7b6afff 0x14d6c7b6b000 - 0x14d6c7b6dfff 0x14d6c7b6e000 - 0x14d6c7b71fff 0x14d6c7b72000 - 0x14d6c7b74fff 0x14d6c7b75000 - 0x14d6c7b86fff 0x14d6c7b87000 - 0x14d6c7b8afff 0x14d6c7b8b000 - 0x14d6c7b8bfff 0x14d6c7b8c000 - 0x14d6c7b8cfff 0x14d6c7b8d000 - 0x14d6c7b9dfff 0x14d6c7b9e000 - 0x14d6c7bd3fff 0x14d6c7bd4000 - 0x14d6c7d09fff 0x14d6c7d0a000 - 0x14d6c7d0afff 0x14d6c7d0b000 - 0x14d6c7d0efff 0x14d6c7d0f000 - 0x14d6c7d0ffff 0x14d6c7d10000 - 0x14d6c7d10fff 0x14d6c7d11000 - 0x14d6c7d12fff 0x14d6c7d13000 - 0x14d6c7d13fff 0x14d6c7d14000 - 0x14d6c7d14fff 0x14d6c7d15000 - 0x14d6c7d15fff 0x14d6c7d16000 - 0x14d6c7d17fff 0x14d6c7d18000 - 0x14d6c7d19fff 0x14d6c7d1a000 - 0x14d6c7d1bfff 0x14d6c7d1c000 - 0x14d6c7d1cfff 0x14d6c7d1d000 - 0x14d6c7d1dfff 0x14d6c7d1e000 - 0x14d6c7d1efff 0x14d6c7d1f000 - 0x14d6c7d20fff 0x14d6c7d21000 - 0x14d6c7d22fff 0x14d6c7d23000 - 0x14d6c7d23fff 0x14d6c7d24000 - 0x14d6c7d24fff 0x14d6c7d25000 - 0x14d6c7d25fff 0x14d6c7d26000 - 0x14d6c7d33fff 0x14d6c7d34000 - 0x14d6c7d41fff 0x14d6c7d42000 - 0x14d6c7d4ffff 0x14d6c7d50000 - 0x14d6c7d53fff 0x14d6c7d54000 - 0x14d6c7d54fff 0x14d6c7d55000 - 0x14d6c7d56fff 0x14d6c7d57000 - 0x14d6c7d6afff 0x14d6c7d6b000 - 0x14d6c7d83fff 0x14d6c7d84000 - 0x14d6c7d84fff 0x14d6c7d85000 - 0x14d6c7d85fff 0x14d6c7d86000 - 0x14d6c7d8efff 0x14d6c7d8f000 - 0x14d6c7d9dfff 0x14d6c7d9e000 - 0x14d6c7e39fff 0x14d6c7e3a000 - 0x14d6c7ed2fff 0x14d6c7ed3000 - 0x14d6c7ed3fff 0x14d6c7ed4000 - 0x14d6c7ed4fff 0x14d6c7ed5000 - 0x14d6c7eeafff 0x14d6c7eeb000 - 0x14d6c7f16fff 0x14d6c7f17000 - 0x14d6c7f1ffff 0x14d6c7f20000 - 0x14d6c7f20fff 0x14d6c7f21000 - 0x14d6c7f23fff 0x14d6c7f24000 - 0x14d6c7f29fff 0x14d6c7f2a000 - 0x14d6c7f2cfff 0x14d6c7f2d000 - 0x14d6c7f2dfff 0x14d6c7f2e000 - 0x14d6c7f2efff 0x14d6c7f2f000 - 0x14d6c7f35fff 0x14d6c7f36000 - 0x14d6c7f36fff 0x14d6c7f37000 - 0x14d6c7f57fff 0x14d6c7f58000 - 0x14d6c7f60fff 0x14d6c7f61000 - 0x14d6c7f61fff 0x14d6c7f62000 - 0x14d6c7f63fff 0x7ffd5a81a000 - 0x7ffd5a83bfff 0x7ffd5a933000 - 0x7ffd5a936fff 0x7ffd5a937000 - 0x7ffd5a938fff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.lisp ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1c34000 - 0x1c54fff 0x100000000000 - 0x1000000bffff 0x1463dc949000 - 0x1463dc949fff 0x1463dc94a000 - 0x1463dcff4fff 0x1463dcff5000 - 0x1463dd049fff 0x1463dd04a000 - 0x1463dd04bfff 0x1463dd04c000 - 0x1463dd071fff 0x1463dd072000 - 0x1463dd1c0fff 0x1463dd1c1000 - 0x1463dd20cfff 0x1463dd20d000 - 0x1463dd20dfff 0x1463dd20e000 - 0x1463dd210fff 0x1463dd211000 - 0x1463dd213fff 0x1463dd214000 - 0x1463dd217fff 0x1463dd218000 - 0x1463dd21afff 0x1463dd21b000 - 0x1463dd22cfff 0x1463dd22d000 - 0x1463dd230fff 0x1463dd231000 - 0x1463dd231fff 0x1463dd232000 - 0x1463dd232fff 0x1463dd233000 - 0x1463dd243fff 0x1463dd244000 - 0x1463dd279fff 0x1463dd27a000 - 0x1463dd3affff 0x1463dd3b0000 - 0x1463dd3b0fff 0x1463dd3b1000 - 0x1463dd3b4fff 0x1463dd3b5000 - 0x1463dd3b5fff 0x1463dd3b6000 - 0x1463dd3b6fff 0x1463dd3b7000 - 0x1463dd3b8fff 0x1463dd3b9000 - 0x1463dd3b9fff 0x1463dd3ba000 - 0x1463dd3bafff 0x1463dd3bb000 - 0x1463dd3bbfff 0x1463dd3bc000 - 0x1463dd3bdfff 0x1463dd3be000 - 0x1463dd3bffff 0x1463dd3c0000 - 0x1463dd3c1fff 0x1463dd3c2000 - 0x1463dd3c2fff 0x1463dd3c3000 - 0x1463dd3c3fff 0x1463dd3c4000 - 0x1463dd3c4fff 0x1463dd3c5000 - 0x1463dd3c6fff 0x1463dd3c7000 - 0x1463dd3c8fff 0x1463dd3c9000 - 0x1463dd3c9fff 0x1463dd3ca000 - 0x1463dd3cafff 0x1463dd3cb000 - 0x1463dd3cbfff 0x1463dd3cc000 - 0x1463dd3d9fff 0x1463dd3da000 - 0x1463dd3e7fff 0x1463dd3e8000 - 0x1463dd3f5fff 0x1463dd3f6000 - 0x1463dd3f9fff 0x1463dd3fa000 - 0x1463dd3fafff 0x1463dd3fb000 - 0x1463dd3fcfff 0x1463dd3fd000 - 0x1463dd410fff 0x1463dd411000 - 0x1463dd429fff 0x1463dd42a000 - 0x1463dd42afff 0x1463dd42b000 - 0x1463dd42bfff 0x1463dd42c000 - 0x1463dd434fff 0x1463dd435000 - 0x1463dd443fff 0x1463dd444000 - 0x1463dd4dffff 0x1463dd4e0000 - 0x1463dd578fff 0x1463dd579000 - 0x1463dd579fff 0x1463dd57a000 - 0x1463dd57afff 0x1463dd57b000 - 0x1463dd590fff 0x1463dd591000 - 0x1463dd5bcfff 0x1463dd5bd000 - 0x1463dd5c5fff 0x1463dd5c6000 - 0x1463dd5c6fff 0x1463dd5c7000 - 0x1463dd5c9fff 0x1463dd5ca000 - 0x1463dd5cffff 0x1463dd5d0000 - 0x1463dd5d2fff 0x1463dd5d3000 - 0x1463dd5d3fff 0x1463dd5d4000 - 0x1463dd5d4fff 0x1463dd5d5000 - 0x1463dd5dbfff 0x1463dd5dc000 - 0x1463dd5dcfff 0x1463dd5dd000 - 0x1463dd5fdfff 0x1463dd5fe000 - 0x1463dd606fff 0x1463dd607000 - 0x1463dd607fff 0x1463dd608000 - 0x1463dd609fff 0x7fff63713000 - 0x7fff63734fff 0x7fff63780000 - 0x7fff63783fff 0x7fff63784000 - 0x7fff63785fff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/image.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.lib ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.lib ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x251f000 - 0x253ffff 0x100000000000 - 0x1000000bffff 0x1504759d3000 - 0x1504759d3fff 0x1504759d4000 - 0x15047607efff 0x15047607f000 - 0x1504760d3fff 0x1504760d4000 - 0x1504760d5fff 0x1504760d6000 - 0x1504760fbfff 0x1504760fc000 - 0x15047624afff 0x15047624b000 - 0x150476296fff 0x150476297000 - 0x150476297fff 0x150476298000 - 0x15047629afff 0x15047629b000 - 0x15047629dfff 0x15047629e000 - 0x1504762a1fff 0x1504762a2000 - 0x1504762a4fff 0x1504762a5000 - 0x1504762b6fff 0x1504762b7000 - 0x1504762bafff 0x1504762bb000 - 0x1504762bbfff 0x1504762bc000 - 0x1504762bcfff 0x1504762bd000 - 0x1504762cdfff 0x1504762ce000 - 0x150476303fff 0x150476304000 - 0x150476439fff 0x15047643a000 - 0x15047643afff 0x15047643b000 - 0x15047643efff 0x15047643f000 - 0x15047643ffff 0x150476440000 - 0x150476440fff 0x150476441000 - 0x150476442fff 0x150476443000 - 0x150476443fff 0x150476444000 - 0x150476444fff 0x150476445000 - 0x150476445fff 0x150476446000 - 0x150476447fff 0x150476448000 - 0x150476449fff 0x15047644a000 - 0x15047644bfff 0x15047644c000 - 0x15047644cfff 0x15047644d000 - 0x15047644dfff 0x15047644e000 - 0x15047644efff 0x15047644f000 - 0x150476450fff 0x150476451000 - 0x150476452fff 0x150476453000 - 0x150476453fff 0x150476454000 - 0x150476454fff 0x150476455000 - 0x150476455fff 0x150476456000 - 0x150476463fff 0x150476464000 - 0x150476471fff 0x150476472000 - 0x15047647ffff 0x150476480000 - 0x150476483fff 0x150476484000 - 0x150476484fff 0x150476485000 - 0x150476486fff 0x150476487000 - 0x15047649afff 0x15047649b000 - 0x1504764b3fff 0x1504764b4000 - 0x1504764b4fff 0x1504764b5000 - 0x1504764b5fff 0x1504764b6000 - 0x1504764befff 0x1504764bf000 - 0x1504764cdfff 0x1504764ce000 - 0x150476569fff 0x15047656a000 - 0x150476602fff 0x150476603000 - 0x150476603fff 0x150476604000 - 0x150476604fff 0x150476605000 - 0x15047661afff 0x15047661b000 - 0x150476646fff 0x150476647000 - 0x15047664ffff 0x150476650000 - 0x150476650fff 0x150476651000 - 0x150476653fff 0x150476654000 - 0x150476659fff 0x15047665a000 - 0x15047665cfff 0x15047665d000 - 0x15047665dfff 0x15047665e000 - 0x15047665efff 0x15047665f000 - 0x150476665fff 0x150476666000 - 0x150476666fff 0x150476667000 - 0x150476687fff 0x150476688000 - 0x150476690fff 0x150476691000 - 0x150476691fff 0x150476692000 - 0x150476693fff 0x7ffef3ba9000 - 0x7ffef3bcafff 0x7ffef3bcc000 - 0x7ffef3bcffff 0x7ffef3bd0000 - 0x7ffef3bd1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/resource.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.lib ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.lib ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f > genclx.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x8bb000 - 0x8dbfff 0x100000000000 - 0x1000000bffff 0x14f281c9b000 - 0x14f281c9bfff 0x14f281c9c000 - 0x14f282346fff 0x14f282347000 - 0x14f28239bfff 0x14f28239c000 - 0x14f28239dfff 0x14f28239e000 - 0x14f2823c3fff 0x14f2823c4000 - 0x14f282512fff 0x14f282513000 - 0x14f28255efff 0x14f28255f000 - 0x14f28255ffff 0x14f282560000 - 0x14f282562fff 0x14f282563000 - 0x14f282565fff 0x14f282566000 - 0x14f282569fff 0x14f28256a000 - 0x14f28256cfff 0x14f28256d000 - 0x14f28257efff 0x14f28257f000 - 0x14f282582fff 0x14f282583000 - 0x14f282583fff 0x14f282584000 - 0x14f282584fff 0x14f282585000 - 0x14f282595fff 0x14f282596000 - 0x14f2825cbfff 0x14f2825cc000 - 0x14f282701fff 0x14f282702000 - 0x14f282702fff 0x14f282703000 - 0x14f282706fff 0x14f282707000 - 0x14f282707fff 0x14f282708000 - 0x14f282708fff 0x14f282709000 - 0x14f28270afff 0x14f28270b000 - 0x14f28270bfff 0x14f28270c000 - 0x14f28270cfff 0x14f28270d000 - 0x14f28270dfff 0x14f28270e000 - 0x14f28270ffff 0x14f282710000 - 0x14f282711fff 0x14f282712000 - 0x14f282713fff 0x14f282714000 - 0x14f282714fff 0x14f282715000 - 0x14f282715fff 0x14f282716000 - 0x14f282716fff 0x14f282717000 - 0x14f282718fff 0x14f282719000 - 0x14f28271afff 0x14f28271b000 - 0x14f28271bfff 0x14f28271c000 - 0x14f28271cfff 0x14f28271d000 - 0x14f28271dfff 0x14f28271e000 - 0x14f28272bfff 0x14f28272c000 - 0x14f282739fff 0x14f28273a000 - 0x14f282747fff 0x14f282748000 - 0x14f28274bfff 0x14f28274c000 - 0x14f28274cfff 0x14f28274d000 - 0x14f28274efff 0x14f28274f000 - 0x14f282762fff 0x14f282763000 - 0x14f28277bfff 0x14f28277c000 - 0x14f28277cfff 0x14f28277d000 - 0x14f28277dfff 0x14f28277e000 - 0x14f282786fff 0x14f282787000 - 0x14f282795fff 0x14f282796000 - 0x14f282831fff 0x14f282832000 - 0x14f2828cafff 0x14f2828cb000 - 0x14f2828cbfff 0x14f2828cc000 - 0x14f2828ccfff 0x14f2828cd000 - 0x14f2828e2fff 0x14f2828e3000 - 0x14f28290efff 0x14f28290f000 - 0x14f282917fff 0x14f282918000 - 0x14f282918fff 0x14f282919000 - 0x14f28291bfff 0x14f28291c000 - 0x14f282921fff 0x14f282922000 - 0x14f282924fff 0x14f282925000 - 0x14f282925fff 0x14f282926000 - 0x14f282926fff 0x14f282927000 - 0x14f28292dfff 0x14f28292e000 - 0x14f282931fff 0x14f282932000 - 0x14f282933fff 0x14f282934000 - 0x14f282934fff 0x14f282935000 - 0x14f282955fff 0x14f282956000 - 0x14f28295efff 0x14f28295f000 - 0x14f28295ffff 0x14f282960000 - 0x14f282961fff 0x7fff1bdd5000 - 0x7fff1bdf6fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c clx.c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘get_color’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:1652:33: warning: unused parameter ‘dpy’ [-Wunused-parameter] 1652 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_event_mask’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_make_state_mask’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_open_display’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_gcontext_display’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_display_trace’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_gcontext_components’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_area’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:3608:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3608 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_copy_plane’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_line’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:3697:131: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3697 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_rectangle’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:3783:141: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 3783 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_arc’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyph’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4031:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4031 | { NOTIMPLEMENTED; } | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_glyphs’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4038:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4038 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyph’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4044:145: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4044 | { NOTIMPLEMENTED; } | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_draw_image_glyphs’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4049:147: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 4049 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_put_image’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4369:22: warning: variable ‘bg’ set but not used [-Wunused-but-set-variable] 4369 | | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:4369:19: warning: variable ‘fg’ set but not used [-Wunused-but-set-variable] 4369 | | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_extents’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_text_width’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_change_property’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:5417:143: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 5417 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_queue_event’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:6172:135: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6172 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_send_event’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:6268:133: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6268 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_global_pointer_position’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_if_inside’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:6414:157: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6414 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_warp_pointer_relative_if_inside’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:6434:175: warning: unused parameter ‘rest_args_pointer’ [-Wunused-parameter] 6434 | { | ^ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_set_pointer_mapping’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘keycode2keysym’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym__3Echaracter’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_keysym’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f: In function ‘C_subr_xlib_default_keysym_index’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:8084:12: warning: unused variable ‘dpy’ [-Wunused-variable] 8084 | Display *dpy = pop_display(); | ^~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.f:8083:11: warning: unused variable ‘keycode’ [-Wunused-variable] 8083 | KeyCode keycode = get_uint8(popSTACK()); | ^~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx-preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1e45000 - 0x1e65fff 0x100000000000 - 0x1000000bffff 0x146f76203000 - 0x146f76203fff 0x146f76204000 - 0x146f768aefff 0x146f768af000 - 0x146f76903fff 0x146f76904000 - 0x146f76905fff 0x146f76906000 - 0x146f7692bfff 0x146f7692c000 - 0x146f76a7afff 0x146f76a7b000 - 0x146f76ac6fff 0x146f76ac7000 - 0x146f76ac7fff 0x146f76ac8000 - 0x146f76acafff 0x146f76acb000 - 0x146f76acdfff 0x146f76ace000 - 0x146f76ad1fff 0x146f76ad2000 - 0x146f76ad4fff 0x146f76ad5000 - 0x146f76ae6fff 0x146f76ae7000 - 0x146f76aeafff 0x146f76aeb000 - 0x146f76aebfff 0x146f76aec000 - 0x146f76aecfff 0x146f76aed000 - 0x146f76afdfff 0x146f76afe000 - 0x146f76b33fff 0x146f76b34000 - 0x146f76c69fff 0x146f76c6a000 - 0x146f76c6afff 0x146f76c6b000 - 0x146f76c6efff 0x146f76c6f000 - 0x146f76c6ffff 0x146f76c70000 - 0x146f76c70fff 0x146f76c71000 - 0x146f76c72fff 0x146f76c73000 - 0x146f76c73fff 0x146f76c74000 - 0x146f76c74fff 0x146f76c75000 - 0x146f76c75fff 0x146f76c76000 - 0x146f76c77fff 0x146f76c78000 - 0x146f76c79fff 0x146f76c7a000 - 0x146f76c7bfff 0x146f76c7c000 - 0x146f76c7cfff 0x146f76c7d000 - 0x146f76c7dfff 0x146f76c7e000 - 0x146f76c7efff 0x146f76c7f000 - 0x146f76c80fff 0x146f76c81000 - 0x146f76c82fff 0x146f76c83000 - 0x146f76c83fff 0x146f76c84000 - 0x146f76c84fff 0x146f76c85000 - 0x146f76c85fff 0x146f76c86000 - 0x146f76c93fff 0x146f76c94000 - 0x146f76ca1fff 0x146f76ca2000 - 0x146f76caffff 0x146f76cb0000 - 0x146f76cb3fff 0x146f76cb4000 - 0x146f76cb4fff 0x146f76cb5000 - 0x146f76cb6fff 0x146f76cb7000 - 0x146f76ccafff 0x146f76ccb000 - 0x146f76ce3fff 0x146f76ce4000 - 0x146f76ce4fff 0x146f76ce5000 - 0x146f76ce5fff 0x146f76ce6000 - 0x146f76ceefff 0x146f76cef000 - 0x146f76cfdfff 0x146f76cfe000 - 0x146f76d99fff 0x146f76d9a000 - 0x146f76e32fff 0x146f76e33000 - 0x146f76e33fff 0x146f76e34000 - 0x146f76e34fff 0x146f76e35000 - 0x146f76e4afff 0x146f76e4b000 - 0x146f76e76fff 0x146f76e77000 - 0x146f76e7ffff 0x146f76e80000 - 0x146f76e80fff 0x146f76e81000 - 0x146f76e83fff 0x146f76e84000 - 0x146f76e89fff 0x146f76e8a000 - 0x146f76e8cfff 0x146f76e8d000 - 0x146f76e8dfff 0x146f76e8e000 - 0x146f76e8efff 0x146f76e8f000 - 0x146f76e95fff 0x146f76e96000 - 0x146f76e96fff 0x146f76e97000 - 0x146f76eb7fff 0x146f76eb8000 - 0x146f76ec0fff 0x146f76ec1000 - 0x146f76ec1fff 0x146f76ec2000 - 0x146f76ec3fff 0x7fff8cebe000 - 0x7fff8cedffff 0x7fff8cf81000 - 0x7fff8cf84fff 0x7fff8cf85000 - 0x7fff8cf86fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/dbus/dbus.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x7da000 - 0x7fafff 0x100000000000 - 0x1000000bffff 0x151ee462e000 - 0x151ee462efff 0x151ee462f000 - 0x151ee4cd9fff 0x151ee4cda000 - 0x151ee4d2efff 0x151ee4d2f000 - 0x151ee4d30fff 0x151ee4d31000 - 0x151ee4d56fff 0x151ee4d57000 - 0x151ee4ea5fff 0x151ee4ea6000 - 0x151ee4ef1fff 0x151ee4ef2000 - 0x151ee4ef2fff 0x151ee4ef3000 - 0x151ee4ef5fff 0x151ee4ef6000 - 0x151ee4ef8fff 0x151ee4ef9000 - 0x151ee4efcfff 0x151ee4efd000 - 0x151ee4efffff 0x151ee4f00000 - 0x151ee4f11fff 0x151ee4f12000 - 0x151ee4f15fff 0x151ee4f16000 - 0x151ee4f16fff 0x151ee4f17000 - 0x151ee4f17fff 0x151ee4f18000 - 0x151ee4f28fff 0x151ee4f29000 - 0x151ee4f5efff 0x151ee4f5f000 - 0x151ee5094fff 0x151ee5095000 - 0x151ee5095fff 0x151ee5096000 - 0x151ee5099fff 0x151ee509a000 - 0x151ee509afff 0x151ee509b000 - 0x151ee509bfff 0x151ee509c000 - 0x151ee509dfff 0x151ee509e000 - 0x151ee509efff 0x151ee509f000 - 0x151ee509ffff 0x151ee50a0000 - 0x151ee50a0fff 0x151ee50a1000 - 0x151ee50a2fff 0x151ee50a3000 - 0x151ee50a4fff 0x151ee50a5000 - 0x151ee50a6fff 0x151ee50a7000 - 0x151ee50a7fff 0x151ee50a8000 - 0x151ee50a8fff 0x151ee50a9000 - 0x151ee50a9fff 0x151ee50aa000 - 0x151ee50abfff 0x151ee50ac000 - 0x151ee50adfff 0x151ee50ae000 - 0x151ee50aefff 0x151ee50af000 - 0x151ee50affff 0x151ee50b0000 - 0x151ee50b0fff 0x151ee50b1000 - 0x151ee50befff 0x151ee50bf000 - 0x151ee50ccfff 0x151ee50cd000 - 0x151ee50dafff 0x151ee50db000 - 0x151ee50defff 0x151ee50df000 - 0x151ee50dffff 0x151ee50e0000 - 0x151ee50e1fff 0x151ee50e2000 - 0x151ee50f5fff 0x151ee50f6000 - 0x151ee510efff 0x151ee510f000 - 0x151ee510ffff 0x151ee5110000 - 0x151ee5110fff 0x151ee5111000 - 0x151ee5119fff 0x151ee511a000 - 0x151ee5128fff 0x151ee5129000 - 0x151ee51c4fff 0x151ee51c5000 - 0x151ee525dfff 0x151ee525e000 - 0x151ee525efff 0x151ee525f000 - 0x151ee525ffff 0x151ee5260000 - 0x151ee5275fff 0x151ee5276000 - 0x151ee52a1fff 0x151ee52a2000 - 0x151ee52aafff 0x151ee52ab000 - 0x151ee52abfff 0x151ee52ac000 - 0x151ee52aefff 0x151ee52af000 - 0x151ee52b4fff 0x151ee52b5000 - 0x151ee52b7fff 0x151ee52b8000 - 0x151ee52b8fff 0x151ee52b9000 - 0x151ee52b9fff 0x151ee52ba000 - 0x151ee52c0fff 0x151ee52c1000 - 0x151ee52c1fff 0x151ee52c2000 - 0x151ee52e2fff 0x151ee52e3000 - 0x151ee52ebfff 0x151ee52ec000 - 0x151ee52ecfff 0x151ee52ed000 - 0x151ee52eefff 0x7fffd28a6000 - 0x7fffd28c7fff 0x7fffd2987000 - 0x7fffd298afff 0x7fffd298b000 - 0x7fffd298cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -I.. -c fastcgi.c gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -I.. -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi_wrappers.c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi_wrappers.c:71:9: warning: no previous declaration for ‘fcgi_env’ [-Wmissing-declarations] 71 | char ** fcgi_env() { | ^~~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi_wrappers.c: In function ‘read_stdio’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi_wrappers.c: At top level: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1637000 - 0x1657fff 0x100000000000 - 0x1000000bffff 0x148a57950000 - 0x148a57950fff 0x148a57951000 - 0x148a57ffbfff 0x148a57ffc000 - 0x148a58050fff 0x148a58051000 - 0x148a58052fff 0x148a58053000 - 0x148a58078fff 0x148a58079000 - 0x148a581c7fff 0x148a581c8000 - 0x148a58213fff 0x148a58214000 - 0x148a58214fff 0x148a58215000 - 0x148a58217fff 0x148a58218000 - 0x148a5821afff 0x148a5821b000 - 0x148a5821efff 0x148a5821f000 - 0x148a58221fff 0x148a58222000 - 0x148a58233fff 0x148a58234000 - 0x148a58237fff 0x148a58238000 - 0x148a58238fff 0x148a58239000 - 0x148a58239fff 0x148a5823a000 - 0x148a5824afff 0x148a5824b000 - 0x148a58280fff 0x148a58281000 - 0x148a583b6fff 0x148a583b7000 - 0x148a583b7fff 0x148a583b8000 - 0x148a583bbfff 0x148a583bc000 - 0x148a583bcfff 0x148a583bd000 - 0x148a583bdfff 0x148a583be000 - 0x148a583bffff 0x148a583c0000 - 0x148a583c0fff 0x148a583c1000 - 0x148a583c1fff 0x148a583c2000 - 0x148a583c2fff 0x148a583c3000 - 0x148a583c4fff 0x148a583c5000 - 0x148a583c6fff 0x148a583c7000 - 0x148a583c8fff 0x148a583c9000 - 0x148a583c9fff 0x148a583ca000 - 0x148a583cafff 0x148a583cb000 - 0x148a583cbfff 0x148a583cc000 - 0x148a583cdfff 0x148a583ce000 - 0x148a583cffff 0x148a583d0000 - 0x148a583d0fff 0x148a583d1000 - 0x148a583d1fff 0x148a583d2000 - 0x148a583d2fff 0x148a583d3000 - 0x148a583e0fff 0x148a583e1000 - 0x148a583eefff 0x148a583ef000 - 0x148a583fcfff 0x148a583fd000 - 0x148a58400fff 0x148a58401000 - 0x148a58401fff 0x148a58402000 - 0x148a58403fff 0x148a58404000 - 0x148a58417fff 0x148a58418000 - 0x148a58430fff 0x148a58431000 - 0x148a58431fff 0x148a58432000 - 0x148a58432fff 0x148a58433000 - 0x148a5843bfff 0x148a5843c000 - 0x148a5844afff 0x148a5844b000 - 0x148a584e6fff 0x148a584e7000 - 0x148a5857ffff 0x148a58580000 - 0x148a58580fff 0x148a58581000 - 0x148a58581fff 0x148a58582000 - 0x148a58597fff 0x148a58598000 - 0x148a585c3fff 0x148a585c4000 - 0x148a585ccfff 0x148a585cd000 - 0x148a585cdfff 0x148a585ce000 - 0x148a585d0fff 0x148a585d1000 - 0x148a585d6fff 0x148a585d7000 - 0x148a585d9fff 0x148a585da000 - 0x148a585dafff 0x148a585db000 - 0x148a585dbfff 0x148a585dc000 - 0x148a585e2fff 0x148a585e3000 - 0x148a585e3fff 0x148a585e4000 - 0x148a58604fff 0x148a58605000 - 0x148a5860dfff 0x148a5860e000 - 0x148a5860efff 0x148a5860f000 - 0x148a58610fff 0x7ffe2f414000 - 0x7ffe2f435fff 0x7ffe2f440000 - 0x7ffe2f443fff 0x7ffe2f444000 - 0x7ffe2f445fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gdbm/gdbm.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm/gdbm.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x167e000 - 0x169efff 0x100000000000 - 0x1000000bffff 0x1516d2964000 - 0x1516d2964fff 0x1516d2965000 - 0x1516d300ffff 0x1516d3010000 - 0x1516d3064fff 0x1516d3065000 - 0x1516d3066fff 0x1516d3067000 - 0x1516d308cfff 0x1516d308d000 - 0x1516d31dbfff 0x1516d31dc000 - 0x1516d3227fff 0x1516d3228000 - 0x1516d3228fff 0x1516d3229000 - 0x1516d322bfff 0x1516d322c000 - 0x1516d322efff 0x1516d322f000 - 0x1516d3232fff 0x1516d3233000 - 0x1516d3235fff 0x1516d3236000 - 0x1516d3247fff 0x1516d3248000 - 0x1516d324bfff 0x1516d324c000 - 0x1516d324cfff 0x1516d324d000 - 0x1516d324dfff 0x1516d324e000 - 0x1516d325efff 0x1516d325f000 - 0x1516d3294fff 0x1516d3295000 - 0x1516d33cafff 0x1516d33cb000 - 0x1516d33cbfff 0x1516d33cc000 - 0x1516d33cffff 0x1516d33d0000 - 0x1516d33d0fff 0x1516d33d1000 - 0x1516d33d1fff 0x1516d33d2000 - 0x1516d33d3fff 0x1516d33d4000 - 0x1516d33d4fff 0x1516d33d5000 - 0x1516d33d5fff 0x1516d33d6000 - 0x1516d33d6fff 0x1516d33d7000 - 0x1516d33d8fff 0x1516d33d9000 - 0x1516d33dafff 0x1516d33db000 - 0x1516d33dcfff 0x1516d33dd000 - 0x1516d33ddfff 0x1516d33de000 - 0x1516d33defff 0x1516d33df000 - 0x1516d33dffff 0x1516d33e0000 - 0x1516d33e1fff 0x1516d33e2000 - 0x1516d33e3fff 0x1516d33e4000 - 0x1516d33e4fff 0x1516d33e5000 - 0x1516d33e5fff 0x1516d33e6000 - 0x1516d33e6fff 0x1516d33e7000 - 0x1516d33f4fff 0x1516d33f5000 - 0x1516d3402fff 0x1516d3403000 - 0x1516d3410fff 0x1516d3411000 - 0x1516d3414fff 0x1516d3415000 - 0x1516d3415fff 0x1516d3416000 - 0x1516d3417fff 0x1516d3418000 - 0x1516d342bfff 0x1516d342c000 - 0x1516d3444fff 0x1516d3445000 - 0x1516d3445fff 0x1516d3446000 - 0x1516d3446fff 0x1516d3447000 - 0x1516d344ffff 0x1516d3450000 - 0x1516d345efff 0x1516d345f000 - 0x1516d34fafff 0x1516d34fb000 - 0x1516d3593fff 0x1516d3594000 - 0x1516d3594fff 0x1516d3595000 - 0x1516d3595fff 0x1516d3596000 - 0x1516d35abfff 0x1516d35ac000 - 0x1516d35d7fff 0x1516d35d8000 - 0x1516d35e0fff 0x1516d35e1000 - 0x1516d35e1fff 0x1516d35e2000 - 0x1516d35e4fff 0x1516d35e5000 - 0x1516d35eafff 0x1516d35eb000 - 0x1516d35edfff 0x1516d35ee000 - 0x1516d35eefff 0x1516d35ef000 - 0x1516d35effff 0x1516d35f0000 - 0x1516d35f6fff 0x1516d35f7000 - 0x1516d35f7fff 0x1516d35f8000 - 0x1516d3618fff 0x1516d3619000 - 0x1516d3621fff 0x1516d3622000 - 0x1516d3622fff 0x1516d3623000 - 0x1516d3624fff 0x7ffcfacaf000 - 0x7ffcfacd0fff 0x7ffcfad3a000 - 0x7ffcfad3dfff 0x7ffcfad3e000 - 0x7ffcfad3ffff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gdbm/gdbm.c" --> #P"gdbm.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c gdbm.m.c -o gdbm.o ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gdbm/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x15c8000 - 0x15e8fff 0x100000000000 - 0x1000000bffff 0x14b28c0df000 - 0x14b28c0dffff 0x14b28c0e0000 - 0x14b28c78afff 0x14b28c78b000 - 0x14b28c7dffff 0x14b28c7e0000 - 0x14b28c7e1fff 0x14b28c7e2000 - 0x14b28c807fff 0x14b28c808000 - 0x14b28c956fff 0x14b28c957000 - 0x14b28c9a2fff 0x14b28c9a3000 - 0x14b28c9a3fff 0x14b28c9a4000 - 0x14b28c9a6fff 0x14b28c9a7000 - 0x14b28c9a9fff 0x14b28c9aa000 - 0x14b28c9adfff 0x14b28c9ae000 - 0x14b28c9b0fff 0x14b28c9b1000 - 0x14b28c9c2fff 0x14b28c9c3000 - 0x14b28c9c6fff 0x14b28c9c7000 - 0x14b28c9c7fff 0x14b28c9c8000 - 0x14b28c9c8fff 0x14b28c9c9000 - 0x14b28c9d9fff 0x14b28c9da000 - 0x14b28ca0ffff 0x14b28ca10000 - 0x14b28cb45fff 0x14b28cb46000 - 0x14b28cb46fff 0x14b28cb47000 - 0x14b28cb4afff 0x14b28cb4b000 - 0x14b28cb4bfff 0x14b28cb4c000 - 0x14b28cb4cfff 0x14b28cb4d000 - 0x14b28cb4efff 0x14b28cb4f000 - 0x14b28cb4ffff 0x14b28cb50000 - 0x14b28cb50fff 0x14b28cb51000 - 0x14b28cb51fff 0x14b28cb52000 - 0x14b28cb53fff 0x14b28cb54000 - 0x14b28cb55fff 0x14b28cb56000 - 0x14b28cb57fff 0x14b28cb58000 - 0x14b28cb58fff 0x14b28cb59000 - 0x14b28cb59fff 0x14b28cb5a000 - 0x14b28cb5afff 0x14b28cb5b000 - 0x14b28cb5cfff 0x14b28cb5d000 - 0x14b28cb5efff 0x14b28cb5f000 - 0x14b28cb5ffff 0x14b28cb60000 - 0x14b28cb60fff 0x14b28cb61000 - 0x14b28cb61fff 0x14b28cb62000 - 0x14b28cb6ffff 0x14b28cb70000 - 0x14b28cb7dfff 0x14b28cb7e000 - 0x14b28cb8bfff 0x14b28cb8c000 - 0x14b28cb8ffff 0x14b28cb90000 - 0x14b28cb90fff 0x14b28cb91000 - 0x14b28cb92fff 0x14b28cb93000 - 0x14b28cba6fff 0x14b28cba7000 - 0x14b28cbbffff 0x14b28cbc0000 - 0x14b28cbc0fff 0x14b28cbc1000 - 0x14b28cbc1fff 0x14b28cbc2000 - 0x14b28cbcafff 0x14b28cbcb000 - 0x14b28cbd9fff 0x14b28cbda000 - 0x14b28cc75fff 0x14b28cc76000 - 0x14b28cd0efff 0x14b28cd0f000 - 0x14b28cd0ffff 0x14b28cd10000 - 0x14b28cd10fff 0x14b28cd11000 - 0x14b28cd26fff 0x14b28cd27000 - 0x14b28cd52fff 0x14b28cd53000 - 0x14b28cd5bfff 0x14b28cd5c000 - 0x14b28cd5cfff 0x14b28cd5d000 - 0x14b28cd5ffff 0x14b28cd60000 - 0x14b28cd65fff 0x14b28cd66000 - 0x14b28cd68fff 0x14b28cd69000 - 0x14b28cd69fff 0x14b28cd6a000 - 0x14b28cd6afff 0x14b28cd6b000 - 0x14b28cd71fff 0x14b28cd72000 - 0x14b28cd72fff 0x14b28cd73000 - 0x14b28cd93fff 0x14b28cd94000 - 0x14b28cd9cfff 0x14b28cd9d000 - 0x14b28cd9dfff 0x14b28cd9e000 - 0x14b28cd9ffff 0x7ffe78f9f000 - 0x7ffe78fc0fff 0x7ffe78fe3000 - 0x7ffe78fe6fff 0x7ffe78fe7000 - 0x7ffe78fe8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/gtk.lisp ... ;; Reading 31,362 bytes from /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/gtk-server.cfg ;; Defined 335 functions ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -I/usr/include/gtk-2.0 -I/usr/lib64/gtk-2.0/include -I/usr/include/pango-1.0 -I/usr/include/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/libxml2 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/atk-1.0 -pthread \ -I/usr/include/libglade-2.0 -I/usr/include/gtk-2.0 -I/usr/lib64/gtk-2.0/include -I/usr/include/pango-1.0 -I/usr/include/glib-2.0 -I/usr/lib64/glib-2.0/include -I/usr/include/harfbuzz -I/usr/include/freetype2 -I/usr/include/libpng16 -I/usr/include/libmount -I/usr/include/blkid -I/usr/include/fribidi -I/usr/include/libxml2 -I/usr/include/cairo -I/usr/include/pixman-1 -I/usr/include/gdk-pixbuf-2.0 -I/usr/include/atk-1.0 -pthread -c gtk.c In file included from /usr/include/gtk-2.0/gtk/gtkobject.h:37, from /usr/include/gtk-2.0/gtk/gtkwidget.h:36, from /usr/include/gtk-2.0/gtk/gtkcontainer.h:35, from /usr/include/gtk-2.0/gtk/gtkbin.h:35, from /usr/include/gtk-2.0/gtk/gtkwindow.h:36, from /usr/include/gtk-2.0/gtk/gtkdialog.h:35, from /usr/include/gtk-2.0/gtk/gtkaboutdialog.h:32, from /usr/include/gtk-2.0/gtk/gtk.h:33, from gtk.c:104: /usr/include/gtk-2.0/gtk/gtktypeutils.h:236:1: warning: ‘GTypeDebugFlags’ is deprecated [-Wdeprecated-declarations] 236 | void gtk_type_init (GTypeDebugFlags debug_flags); | ^~~~ In file included from /usr/include/glib-2.0/gobject/gobject.h:24, from /usr/include/glib-2.0/gobject/gbinding.h:29, from /usr/include/glib-2.0/glib-object.h:22, from /usr/include/glib-2.0/gio/gioenums.h:28, from /usr/include/glib-2.0/gio/giotypes.h:28, from /usr/include/glib-2.0/gio/gio.h:26, from /usr/include/gtk-2.0/gdk/gdkapplaunchcontext.h:30, from /usr/include/gtk-2.0/gdk/gdk.h:32, from /usr/include/gtk-2.0/gtk/gtk.h:32, from gtk.c:104: /usr/include/glib-2.0/gobject/gtype.h:679:1: note: declared here 679 | { | ^ In file included from /usr/include/gtk-2.0/gtk/gtktoolitem.h:31, from /usr/include/gtk-2.0/gtk/gtktoolbutton.h:30, from /usr/include/gtk-2.0/gtk/gtkmenutoolbutton.h:30, from /usr/include/gtk-2.0/gtk/gtk.h:126, from gtk.c:104: /usr/include/gtk-2.0/gtk/gtktooltips.h:73:3: warning: ‘GTimeVal’ is deprecated: Use 'GDateTime' instead [-Wdeprecated-declarations] 73 | GTimeVal last_popdown; | ^~~~~~~~ In file included from /usr/include/glib-2.0/glib/galloca.h:32, from /usr/include/glib-2.0/glib.h:30, from /usr/include/glib-2.0/gobject/gbinding.h:28, from /usr/include/glib-2.0/glib-object.h:22, from /usr/include/glib-2.0/gio/gioenums.h:28, from /usr/include/glib-2.0/gio/giotypes.h:28, from /usr/include/glib-2.0/gio/gio.h:26, from /usr/include/gtk-2.0/gdk/gdkapplaunchcontext.h:30, from /usr/include/gtk-2.0/gdk/gdk.h:32, from /usr/include/gtk-2.0/gtk/gtk.h:32, from gtk.c:104: /usr/include/glib-2.0/glib/gtypes.h:547:8: note: declared here 547 | struct _GTimeVal | ^~~~~~~~~ ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x204c000 - 0x206cfff 0x100000000000 - 0x1000000bffff 0x15539aa2c000 - 0x15539aa2cfff 0x15539aa2d000 - 0x15539b0d7fff 0x15539b0d8000 - 0x15539b12cfff 0x15539b12d000 - 0x15539b12efff 0x15539b12f000 - 0x15539b154fff 0x15539b155000 - 0x15539b2a3fff 0x15539b2a4000 - 0x15539b2effff 0x15539b2f0000 - 0x15539b2f0fff 0x15539b2f1000 - 0x15539b2f3fff 0x15539b2f4000 - 0x15539b2f6fff 0x15539b2f7000 - 0x15539b2fafff 0x15539b2fb000 - 0x15539b2fdfff 0x15539b2fe000 - 0x15539b30ffff 0x15539b310000 - 0x15539b313fff 0x15539b314000 - 0x15539b314fff 0x15539b315000 - 0x15539b315fff 0x15539b316000 - 0x15539b326fff 0x15539b327000 - 0x15539b35cfff 0x15539b35d000 - 0x15539b492fff 0x15539b493000 - 0x15539b493fff 0x15539b494000 - 0x15539b497fff 0x15539b498000 - 0x15539b498fff 0x15539b499000 - 0x15539b499fff 0x15539b49a000 - 0x15539b49bfff 0x15539b49c000 - 0x15539b49cfff 0x15539b49d000 - 0x15539b49dfff 0x15539b49e000 - 0x15539b49efff 0x15539b49f000 - 0x15539b4a0fff 0x15539b4a1000 - 0x15539b4a2fff 0x15539b4a3000 - 0x15539b4a4fff 0x15539b4a5000 - 0x15539b4a5fff 0x15539b4a6000 - 0x15539b4a6fff 0x15539b4a7000 - 0x15539b4a7fff 0x15539b4a8000 - 0x15539b4a9fff 0x15539b4aa000 - 0x15539b4abfff 0x15539b4ac000 - 0x15539b4acfff 0x15539b4ad000 - 0x15539b4adfff 0x15539b4ae000 - 0x15539b4aefff 0x15539b4af000 - 0x15539b4bcfff 0x15539b4bd000 - 0x15539b4cafff 0x15539b4cb000 - 0x15539b4d8fff 0x15539b4d9000 - 0x15539b4dcfff 0x15539b4dd000 - 0x15539b4ddfff 0x15539b4de000 - 0x15539b4dffff 0x15539b4e0000 - 0x15539b4f3fff 0x15539b4f4000 - 0x15539b50cfff 0x15539b50d000 - 0x15539b50dfff 0x15539b50e000 - 0x15539b50efff 0x15539b50f000 - 0x15539b517fff 0x15539b518000 - 0x15539b526fff 0x15539b527000 - 0x15539b5c2fff 0x15539b5c3000 - 0x15539b65bfff 0x15539b65c000 - 0x15539b65cfff 0x15539b65d000 - 0x15539b65dfff 0x15539b65e000 - 0x15539b673fff 0x15539b674000 - 0x15539b69ffff 0x15539b6a0000 - 0x15539b6a8fff 0x15539b6a9000 - 0x15539b6a9fff 0x15539b6aa000 - 0x15539b6acfff 0x15539b6ad000 - 0x15539b6b2fff 0x15539b6b3000 - 0x15539b6b5fff 0x15539b6b6000 - 0x15539b6b6fff 0x15539b6b7000 - 0x15539b6b7fff 0x15539b6b8000 - 0x15539b6befff 0x15539b6bf000 - 0x15539b6bffff 0x15539b6c0000 - 0x15539b6e0fff 0x15539b6e1000 - 0x15539b6e9fff 0x15539b6ea000 - 0x15539b6eafff 0x15539b6eb000 - 0x15539b6ecfff 0x7ffc69b99000 - 0x7ffc69bbafff 0x7ffc69be5000 - 0x7ffc69be8fff 0x7ffc69be9000 - 0x7ffc69beafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/libsvm/libsvm.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/libsvm/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x7b0000 - 0x7d0fff 0x100000000000 - 0x1000000bffff 0x1482b7a0d000 - 0x1482b7a0dfff 0x1482b7a0e000 - 0x1482b80b8fff 0x1482b80b9000 - 0x1482b810dfff 0x1482b810e000 - 0x1482b810ffff 0x1482b8110000 - 0x1482b8135fff 0x1482b8136000 - 0x1482b8284fff 0x1482b8285000 - 0x1482b82d0fff 0x1482b82d1000 - 0x1482b82d1fff 0x1482b82d2000 - 0x1482b82d4fff 0x1482b82d5000 - 0x1482b82d7fff 0x1482b82d8000 - 0x1482b82dbfff 0x1482b82dc000 - 0x1482b82defff 0x1482b82df000 - 0x1482b82f0fff 0x1482b82f1000 - 0x1482b82f4fff 0x1482b82f5000 - 0x1482b82f5fff 0x1482b82f6000 - 0x1482b82f6fff 0x1482b82f7000 - 0x1482b8307fff 0x1482b8308000 - 0x1482b833dfff 0x1482b833e000 - 0x1482b8473fff 0x1482b8474000 - 0x1482b8474fff 0x1482b8475000 - 0x1482b8478fff 0x1482b8479000 - 0x1482b8479fff 0x1482b847a000 - 0x1482b847afff 0x1482b847b000 - 0x1482b847cfff 0x1482b847d000 - 0x1482b847dfff 0x1482b847e000 - 0x1482b847efff 0x1482b847f000 - 0x1482b847ffff 0x1482b8480000 - 0x1482b8481fff 0x1482b8482000 - 0x1482b8483fff 0x1482b8484000 - 0x1482b8485fff 0x1482b8486000 - 0x1482b8486fff 0x1482b8487000 - 0x1482b8487fff 0x1482b8488000 - 0x1482b8488fff 0x1482b8489000 - 0x1482b848afff 0x1482b848b000 - 0x1482b848cfff 0x1482b848d000 - 0x1482b848dfff 0x1482b848e000 - 0x1482b848efff 0x1482b848f000 - 0x1482b848ffff 0x1482b8490000 - 0x1482b849dfff 0x1482b849e000 - 0x1482b84abfff 0x1482b84ac000 - 0x1482b84b9fff 0x1482b84ba000 - 0x1482b84bdfff 0x1482b84be000 - 0x1482b84befff 0x1482b84bf000 - 0x1482b84c0fff 0x1482b84c1000 - 0x1482b84d4fff 0x1482b84d5000 - 0x1482b84edfff 0x1482b84ee000 - 0x1482b84eefff 0x1482b84ef000 - 0x1482b84effff 0x1482b84f0000 - 0x1482b84f8fff 0x1482b84f9000 - 0x1482b8507fff 0x1482b8508000 - 0x1482b85a3fff 0x1482b85a4000 - 0x1482b863cfff 0x1482b863d000 - 0x1482b863dfff 0x1482b863e000 - 0x1482b863efff 0x1482b863f000 - 0x1482b8654fff 0x1482b8655000 - 0x1482b8680fff 0x1482b8681000 - 0x1482b8689fff 0x1482b868a000 - 0x1482b868afff 0x1482b868b000 - 0x1482b868dfff 0x1482b868e000 - 0x1482b8693fff 0x1482b8694000 - 0x1482b8696fff 0x1482b8697000 - 0x1482b8697fff 0x1482b8698000 - 0x1482b8698fff 0x1482b8699000 - 0x1482b869ffff 0x1482b86a0000 - 0x1482b86a0fff 0x1482b86a1000 - 0x1482b86c1fff 0x1482b86c2000 - 0x1482b86cafff 0x1482b86cb000 - 0x1482b86cbfff 0x1482b86cc000 - 0x1482b86cdfff 0x7ffdd5ae3000 - 0x7ffdd5b04fff 0x7ffdd5bc7000 - 0x7ffdd5bcafff 0x7ffdd5bcb000 - 0x7ffdd5bccfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/desc2lisp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/desc2lisp.fas 0 errors, 0 warnings /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -i desc2lisp -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x969000 - 0x989fff 0x100000000000 - 0x1000000bffff 0x152ee88b9000 - 0x152ee88b9fff 0x152ee88ba000 - 0x152ee8f64fff 0x152ee8f65000 - 0x152ee8fb9fff 0x152ee8fba000 - 0x152ee8fbbfff 0x152ee8fbc000 - 0x152ee8fe1fff 0x152ee8fe2000 - 0x152ee9130fff 0x152ee9131000 - 0x152ee917cfff 0x152ee917d000 - 0x152ee917dfff 0x152ee917e000 - 0x152ee9180fff 0x152ee9181000 - 0x152ee9183fff 0x152ee9184000 - 0x152ee9187fff 0x152ee9188000 - 0x152ee918afff 0x152ee918b000 - 0x152ee919cfff 0x152ee919d000 - 0x152ee91a0fff 0x152ee91a1000 - 0x152ee91a1fff 0x152ee91a2000 - 0x152ee91a2fff 0x152ee91a3000 - 0x152ee91b3fff 0x152ee91b4000 - 0x152ee91e9fff 0x152ee91ea000 - 0x152ee931ffff 0x152ee9320000 - 0x152ee9320fff 0x152ee9321000 - 0x152ee9324fff 0x152ee9325000 - 0x152ee9325fff 0x152ee9326000 - 0x152ee9326fff 0x152ee9327000 - 0x152ee9328fff 0x152ee9329000 - 0x152ee9329fff 0x152ee932a000 - 0x152ee932afff 0x152ee932b000 - 0x152ee932bfff 0x152ee932c000 - 0x152ee932dfff 0x152ee932e000 - 0x152ee932ffff 0x152ee9330000 - 0x152ee9331fff 0x152ee9332000 - 0x152ee9332fff 0x152ee9333000 - 0x152ee9333fff 0x152ee9334000 - 0x152ee9334fff 0x152ee9335000 - 0x152ee9336fff 0x152ee9337000 - 0x152ee9338fff 0x152ee9339000 - 0x152ee9339fff 0x152ee933a000 - 0x152ee933afff 0x152ee933b000 - 0x152ee933bfff 0x152ee933c000 - 0x152ee9349fff 0x152ee934a000 - 0x152ee9357fff 0x152ee9358000 - 0x152ee9365fff 0x152ee9366000 - 0x152ee9369fff 0x152ee936a000 - 0x152ee936afff 0x152ee936b000 - 0x152ee936cfff 0x152ee936d000 - 0x152ee9380fff 0x152ee9381000 - 0x152ee9399fff 0x152ee939a000 - 0x152ee939afff 0x152ee939b000 - 0x152ee939bfff 0x152ee939c000 - 0x152ee93a4fff 0x152ee93a5000 - 0x152ee93b3fff 0x152ee93b4000 - 0x152ee944ffff 0x152ee9450000 - 0x152ee94e8fff 0x152ee94e9000 - 0x152ee94e9fff 0x152ee94ea000 - 0x152ee94eafff 0x152ee94eb000 - 0x152ee9500fff 0x152ee9501000 - 0x152ee952cfff 0x152ee952d000 - 0x152ee9535fff 0x152ee9536000 - 0x152ee9536fff 0x152ee9537000 - 0x152ee9539fff 0x152ee953a000 - 0x152ee953ffff 0x152ee9540000 - 0x152ee9542fff 0x152ee9543000 - 0x152ee9543fff 0x152ee9544000 - 0x152ee9544fff 0x152ee9545000 - 0x152ee954bfff 0x152ee954c000 - 0x152ee954cfff 0x152ee954d000 - 0x152ee956dfff 0x152ee956e000 - 0x152ee9576fff 0x152ee9577000 - 0x152ee9577fff 0x152ee9578000 - 0x152ee9579fff 0x7ffc46490000 - 0x7ffc464b1fff 0x7ffc464d4000 - 0x7ffc464d7fff 0x7ffc464d8000 - 0x7ffc464d9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/desc2lisp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/desc2lisp.fas ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/pari.lisp ... Reading "/usr/share/pari/pari.desc" (1,553,506 bytes) WARNING: Existing name: "arg" (arg :INTERNAL) WARNING: Existing name: "arity" (arity :INTERNAL) WARNING: Existing name: "default" (default :INTERNAL) WARNING: Existing name: "digits" (digits :INTERNAL) WARNING: Existing name: "prime" (prime :INTERNAL) WARNING: Existing name: "shift" (shift :INTERNAL) WARNING: Existing name: "sign" (sign :INTERNAL) Read 1,379 functions Ignored: non-basic: 147 no C-name: 102 programming/internals: 53 obsolete: 49 sums: 38 wrapped: 35 graphic: 35 programming/control: 29 programming/parallel: 11 Classes: basic: 1,232 gp2c_internal: 72 default: 46 header: 19 gp: 6 gp2c: 4 Sections: number_fields: 190 number_theoretical: 121 programming/specific: 90 linear_algebra: 88 elliptic_curves: 87 nil: 76 modular_forms: 71 transcendental: 70 algebras: 69 conversions: 61 polynomials: 60 programming/internals: 53 symbolic_operators: 47 default: 47 member_functions: 45 sums: 38 graphic: 35 modular_symbols: 32 programming/control: 29 l_functions: 28 combinatorics: 20 operators: 11 programming/parallel: 11 Emitted 1,019 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 nonrational endpoint (which may be missed or unduly" " included)." " \\bprog" " ? T = (x-1)*(x-2)*(x-3);" " ? polsturm(T)" " %2 = 3" " ? polsturm(T, [-oo,2])" " %3 = 2" " ? polsturm(T, [1/2,+oo])" " %4 = 3" " ? polsturm(T, [1, Pi]) \\\\ Pi inexact: not recommended !" " %5 = 3" " ? polsturm(T*1., [0, 4]) \\\\ T*1. inexact: not recommended !" " %6 = 3" " ? polsturm(T^2, [0, 4]) \\\\ not squarefree: roots are not repeated!" " %7 = 3" " @eprog" " %\\syn{NO}" " " " The library syntax is \\fun{long}{RgX_sturmpart}{GEN T, GEN ab} or" " \\fun{long}{sturm}{GEN T} (for the case \\kbd{ab = NULL}). The function" " \\fun{long}{sturmpart}{GEN T, GEN a, GEN b} is obsolete and deprecated." "") :wrapper nil :description nil :obsolete nil :variant nil) ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.c 0 errors, 9 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/cpari.c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x2587000 - 0x25a7fff 0x100000000000 - 0x1000000bffff 0x152b95090000 - 0x152b95090fff 0x152b95091000 - 0x152b9573bfff 0x152b9573c000 - 0x152b95790fff 0x152b95791000 - 0x152b95792fff 0x152b95793000 - 0x152b957b8fff 0x152b957b9000 - 0x152b95907fff 0x152b95908000 - 0x152b95953fff 0x152b95954000 - 0x152b95954fff 0x152b95955000 - 0x152b95957fff 0x152b95958000 - 0x152b9595afff 0x152b9595b000 - 0x152b9595efff 0x152b9595f000 - 0x152b95961fff 0x152b95962000 - 0x152b95973fff 0x152b95974000 - 0x152b95977fff 0x152b95978000 - 0x152b95978fff 0x152b95979000 - 0x152b95979fff 0x152b9597a000 - 0x152b9598afff 0x152b9598b000 - 0x152b959c0fff 0x152b959c1000 - 0x152b95af6fff 0x152b95af7000 - 0x152b95af7fff 0x152b95af8000 - 0x152b95afbfff 0x152b95afc000 - 0x152b95afcfff 0x152b95afd000 - 0x152b95afdfff 0x152b95afe000 - 0x152b95afffff 0x152b95b00000 - 0x152b95b00fff 0x152b95b01000 - 0x152b95b01fff 0x152b95b02000 - 0x152b95b02fff 0x152b95b03000 - 0x152b95b04fff 0x152b95b05000 - 0x152b95b06fff 0x152b95b07000 - 0x152b95b08fff 0x152b95b09000 - 0x152b95b09fff 0x152b95b0a000 - 0x152b95b0afff 0x152b95b0b000 - 0x152b95b0bfff 0x152b95b0c000 - 0x152b95b0dfff 0x152b95b0e000 - 0x152b95b0ffff 0x152b95b10000 - 0x152b95b10fff 0x152b95b11000 - 0x152b95b11fff 0x152b95b12000 - 0x152b95b12fff 0x152b95b13000 - 0x152b95b20fff 0x152b95b21000 - 0x152b95b2efff 0x152b95b2f000 - 0x152b95b3cfff 0x152b95b3d000 - 0x152b95b40fff 0x152b95b41000 - 0x152b95b41fff 0x152b95b42000 - 0x152b95b43fff 0x152b95b44000 - 0x152b95b57fff 0x152b95b58000 - 0x152b95b70fff 0x152b95b71000 - 0x152b95b71fff 0x152b95b72000 - 0x152b95b72fff 0x152b95b73000 - 0x152b95b7bfff 0x152b95b7c000 - 0x152b95b8afff 0x152b95b8b000 - 0x152b95c26fff 0x152b95c27000 - 0x152b95cbffff 0x152b95cc0000 - 0x152b95cc0fff 0x152b95cc1000 - 0x152b95cc1fff 0x152b95cc2000 - 0x152b95cd7fff 0x152b95cd8000 - 0x152b95d03fff 0x152b95d04000 - 0x152b95d0cfff 0x152b95d0d000 - 0x152b95d0dfff 0x152b95d0e000 - 0x152b95d10fff 0x152b95d11000 - 0x152b95d16fff 0x152b95d17000 - 0x152b95d19fff 0x152b95d1a000 - 0x152b95d1afff 0x152b95d1b000 - 0x152b95d1bfff 0x152b95d1c000 - 0x152b95d22fff 0x152b95d23000 - 0x152b95d23fff 0x152b95d24000 - 0x152b95d44fff 0x152b95d45000 - 0x152b95d4dfff 0x152b95d4e000 - 0x152b95d4efff 0x152b95d4f000 - 0x152b95d50fff 0x7ffeb36be000 - 0x7ffeb36dffff 0x7ffeb37ba000 - 0x7ffeb37bdfff 0x7ffeb37be000 - 0x7ffeb37bffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pcre/pcre.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x24a5000 - 0x24c5fff 0x100000000000 - 0x1000000bffff 0x146e6e054000 - 0x146e6e054fff 0x146e6e055000 - 0x146e6e6fffff 0x146e6e700000 - 0x146e6e754fff 0x146e6e755000 - 0x146e6e756fff 0x146e6e757000 - 0x146e6e77cfff 0x146e6e77d000 - 0x146e6e8cbfff 0x146e6e8cc000 - 0x146e6e917fff 0x146e6e918000 - 0x146e6e918fff 0x146e6e919000 - 0x146e6e91bfff 0x146e6e91c000 - 0x146e6e91efff 0x146e6e91f000 - 0x146e6e922fff 0x146e6e923000 - 0x146e6e925fff 0x146e6e926000 - 0x146e6e937fff 0x146e6e938000 - 0x146e6e93bfff 0x146e6e93c000 - 0x146e6e93cfff 0x146e6e93d000 - 0x146e6e93dfff 0x146e6e93e000 - 0x146e6e94efff 0x146e6e94f000 - 0x146e6e984fff 0x146e6e985000 - 0x146e6eabafff 0x146e6eabb000 - 0x146e6eabbfff 0x146e6eabc000 - 0x146e6eabffff 0x146e6eac0000 - 0x146e6eac0fff 0x146e6eac1000 - 0x146e6eac1fff 0x146e6eac2000 - 0x146e6eac3fff 0x146e6eac4000 - 0x146e6eac4fff 0x146e6eac5000 - 0x146e6eac5fff 0x146e6eac6000 - 0x146e6eac6fff 0x146e6eac7000 - 0x146e6eac8fff 0x146e6eac9000 - 0x146e6eacafff 0x146e6eacb000 - 0x146e6eaccfff 0x146e6eacd000 - 0x146e6eacdfff 0x146e6eace000 - 0x146e6eacefff 0x146e6eacf000 - 0x146e6eacffff 0x146e6ead0000 - 0x146e6ead1fff 0x146e6ead2000 - 0x146e6ead3fff 0x146e6ead4000 - 0x146e6ead4fff 0x146e6ead5000 - 0x146e6ead5fff 0x146e6ead6000 - 0x146e6ead6fff 0x146e6ead7000 - 0x146e6eae4fff 0x146e6eae5000 - 0x146e6eaf2fff 0x146e6eaf3000 - 0x146e6eb00fff 0x146e6eb01000 - 0x146e6eb04fff 0x146e6eb05000 - 0x146e6eb05fff 0x146e6eb06000 - 0x146e6eb07fff 0x146e6eb08000 - 0x146e6eb1bfff 0x146e6eb1c000 - 0x146e6eb34fff 0x146e6eb35000 - 0x146e6eb35fff 0x146e6eb36000 - 0x146e6eb36fff 0x146e6eb37000 - 0x146e6eb3ffff 0x146e6eb40000 - 0x146e6eb4efff 0x146e6eb4f000 - 0x146e6ebeafff 0x146e6ebeb000 - 0x146e6ec83fff 0x146e6ec84000 - 0x146e6ec84fff 0x146e6ec85000 - 0x146e6ec85fff 0x146e6ec86000 - 0x146e6ec9bfff 0x146e6ec9c000 - 0x146e6ecc7fff 0x146e6ecc8000 - 0x146e6ecd0fff 0x146e6ecd1000 - 0x146e6ecd1fff 0x146e6ecd2000 - 0x146e6ecd4fff 0x146e6ecd5000 - 0x146e6ecdafff 0x146e6ecdb000 - 0x146e6ecddfff 0x146e6ecde000 - 0x146e6ecdefff 0x146e6ecdf000 - 0x146e6ecdffff 0x146e6ece0000 - 0x146e6ece6fff 0x146e6ece7000 - 0x146e6ece7fff 0x146e6ece8000 - 0x146e6ed08fff 0x146e6ed09000 - 0x146e6ed11fff 0x146e6ed12000 - 0x146e6ed12fff 0x146e6ed13000 - 0x146e6ed14fff 0x7ffff91dc000 - 0x7ffff91fdfff 0x7ffff92c7000 - 0x7ffff92cafff 0x7ffff92cb000 - 0x7ffff92ccfff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pcre/cpcre.c" --> #P"cpcre.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c cpcre.m.c -o cpcre.o ln -s /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pcre/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x17ad000 - 0x17cdfff 0x100000000000 - 0x1000000bffff 0x149e6fb96000 - 0x149e6fb96fff 0x149e6fb97000 - 0x149e70241fff 0x149e70242000 - 0x149e70296fff 0x149e70297000 - 0x149e70298fff 0x149e70299000 - 0x149e702befff 0x149e702bf000 - 0x149e7040dfff 0x149e7040e000 - 0x149e70459fff 0x149e7045a000 - 0x149e7045afff 0x149e7045b000 - 0x149e7045dfff 0x149e7045e000 - 0x149e70460fff 0x149e70461000 - 0x149e70464fff 0x149e70465000 - 0x149e70467fff 0x149e70468000 - 0x149e70479fff 0x149e7047a000 - 0x149e7047dfff 0x149e7047e000 - 0x149e7047efff 0x149e7047f000 - 0x149e7047ffff 0x149e70480000 - 0x149e70490fff 0x149e70491000 - 0x149e704c6fff 0x149e704c7000 - 0x149e705fcfff 0x149e705fd000 - 0x149e705fdfff 0x149e705fe000 - 0x149e70601fff 0x149e70602000 - 0x149e70602fff 0x149e70603000 - 0x149e70603fff 0x149e70604000 - 0x149e70605fff 0x149e70606000 - 0x149e70606fff 0x149e70607000 - 0x149e70607fff 0x149e70608000 - 0x149e70608fff 0x149e70609000 - 0x149e7060afff 0x149e7060b000 - 0x149e7060cfff 0x149e7060d000 - 0x149e7060efff 0x149e7060f000 - 0x149e7060ffff 0x149e70610000 - 0x149e70610fff 0x149e70611000 - 0x149e70611fff 0x149e70612000 - 0x149e70613fff 0x149e70614000 - 0x149e70615fff 0x149e70616000 - 0x149e70616fff 0x149e70617000 - 0x149e70617fff 0x149e70618000 - 0x149e70618fff 0x149e70619000 - 0x149e70626fff 0x149e70627000 - 0x149e70634fff 0x149e70635000 - 0x149e70642fff 0x149e70643000 - 0x149e70646fff 0x149e70647000 - 0x149e70647fff 0x149e70648000 - 0x149e70649fff 0x149e7064a000 - 0x149e7065dfff 0x149e7065e000 - 0x149e70676fff 0x149e70677000 - 0x149e70677fff 0x149e70678000 - 0x149e70678fff 0x149e70679000 - 0x149e70681fff 0x149e70682000 - 0x149e70690fff 0x149e70691000 - 0x149e7072cfff 0x149e7072d000 - 0x149e707c5fff 0x149e707c6000 - 0x149e707c6fff 0x149e707c7000 - 0x149e707c7fff 0x149e707c8000 - 0x149e707ddfff 0x149e707de000 - 0x149e70809fff 0x149e7080a000 - 0x149e70812fff 0x149e70813000 - 0x149e70813fff 0x149e70814000 - 0x149e70816fff 0x149e70817000 - 0x149e7081cfff 0x149e7081d000 - 0x149e7081ffff 0x149e70820000 - 0x149e70820fff 0x149e70821000 - 0x149e70821fff 0x149e70822000 - 0x149e70828fff 0x149e70829000 - 0x149e70829fff 0x149e7082a000 - 0x149e7084afff 0x149e7084b000 - 0x149e70853fff 0x149e70854000 - 0x149e70854fff 0x149e70855000 - 0x149e70856fff 0x7fff52550000 - 0x7fff52571fff 0x7fff525bb000 - 0x7fff525befff 0x7fff525bf000 - 0x7fff525c0fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/postgresql/postgresql.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -I/usr/include/libsvm -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c postgresql.c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1c37000 - 0x1c57fff 0x100000000000 - 0x1000000bffff 0x1459f734e000 - 0x1459f734efff 0x1459f734f000 - 0x1459f79f9fff 0x1459f79fa000 - 0x1459f7a4efff 0x1459f7a4f000 - 0x1459f7a50fff 0x1459f7a51000 - 0x1459f7a76fff 0x1459f7a77000 - 0x1459f7bc5fff 0x1459f7bc6000 - 0x1459f7c11fff 0x1459f7c12000 - 0x1459f7c12fff 0x1459f7c13000 - 0x1459f7c15fff 0x1459f7c16000 - 0x1459f7c18fff 0x1459f7c19000 - 0x1459f7c1cfff 0x1459f7c1d000 - 0x1459f7c1ffff 0x1459f7c20000 - 0x1459f7c31fff 0x1459f7c32000 - 0x1459f7c35fff 0x1459f7c36000 - 0x1459f7c36fff 0x1459f7c37000 - 0x1459f7c37fff 0x1459f7c38000 - 0x1459f7c48fff 0x1459f7c49000 - 0x1459f7c7efff 0x1459f7c7f000 - 0x1459f7db4fff 0x1459f7db5000 - 0x1459f7db5fff 0x1459f7db6000 - 0x1459f7db9fff 0x1459f7dba000 - 0x1459f7dbafff 0x1459f7dbb000 - 0x1459f7dbbfff 0x1459f7dbc000 - 0x1459f7dbdfff 0x1459f7dbe000 - 0x1459f7dbefff 0x1459f7dbf000 - 0x1459f7dbffff 0x1459f7dc0000 - 0x1459f7dc0fff 0x1459f7dc1000 - 0x1459f7dc2fff 0x1459f7dc3000 - 0x1459f7dc4fff 0x1459f7dc5000 - 0x1459f7dc6fff 0x1459f7dc7000 - 0x1459f7dc7fff 0x1459f7dc8000 - 0x1459f7dc8fff 0x1459f7dc9000 - 0x1459f7dc9fff 0x1459f7dca000 - 0x1459f7dcbfff 0x1459f7dcc000 - 0x1459f7dcdfff 0x1459f7dce000 - 0x1459f7dcefff 0x1459f7dcf000 - 0x1459f7dcffff 0x1459f7dd0000 - 0x1459f7dd0fff 0x1459f7dd1000 - 0x1459f7ddefff 0x1459f7ddf000 - 0x1459f7decfff 0x1459f7ded000 - 0x1459f7dfafff 0x1459f7dfb000 - 0x1459f7dfefff 0x1459f7dff000 - 0x1459f7dfffff 0x1459f7e00000 - 0x1459f7e01fff 0x1459f7e02000 - 0x1459f7e15fff 0x1459f7e16000 - 0x1459f7e2efff 0x1459f7e2f000 - 0x1459f7e2ffff 0x1459f7e30000 - 0x1459f7e30fff 0x1459f7e31000 - 0x1459f7e39fff 0x1459f7e3a000 - 0x1459f7e48fff 0x1459f7e49000 - 0x1459f7ee4fff 0x1459f7ee5000 - 0x1459f7f7dfff 0x1459f7f7e000 - 0x1459f7f7efff 0x1459f7f7f000 - 0x1459f7f7ffff 0x1459f7f80000 - 0x1459f7f95fff 0x1459f7f96000 - 0x1459f7fc1fff 0x1459f7fc2000 - 0x1459f7fcafff 0x1459f7fcb000 - 0x1459f7fcbfff 0x1459f7fcc000 - 0x1459f7fcefff 0x1459f7fcf000 - 0x1459f7fd4fff 0x1459f7fd5000 - 0x1459f7fd7fff 0x1459f7fd8000 - 0x1459f7fd8fff 0x1459f7fd9000 - 0x1459f7fd9fff 0x1459f7fda000 - 0x1459f7fe0fff 0x1459f7fe1000 - 0x1459f7fe1fff 0x1459f7fe2000 - 0x1459f8002fff 0x1459f8003000 - 0x1459f800bfff 0x1459f800c000 - 0x1459f800cfff 0x1459f800d000 - 0x1459f800efff 0x7ffc5c77b000 - 0x7ffc5c79cfff 0x7ffc5c7d3000 - 0x7ffc5c7d6fff 0x7ffc5c7d7000 - 0x7ffc5c7d8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/postgresql/sql.lisp ... ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.lib ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.lib ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/sql.fas 0 errors, 0 warnings make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 build system type... (cached) x86_64-pc-linux-gnu checking host system type... (cached) x86_64-pc-linux-gnu checking for IPv4 sockets... (cached) yes checking for IPv6 sockets... (cached) yes checking for setsockopt... (cached) yes checking for getsockopt... (cached) yes checking for netinet/tcp.h... (cached) yes checking for setsockopt declaration... (cached) extern int setsockopt (int, int, int, const void*, unsigned int); checking 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1c57000 - 0x1c77fff 0x100000000000 - 0x1000000bffff 0x14cdfd733000 - 0x14cdfd733fff 0x14cdfd734000 - 0x14cdfdddefff 0x14cdfdddf000 - 0x14cdfde33fff 0x14cdfde34000 - 0x14cdfde35fff 0x14cdfde36000 - 0x14cdfde5bfff 0x14cdfde5c000 - 0x14cdfdfaafff 0x14cdfdfab000 - 0x14cdfdff6fff 0x14cdfdff7000 - 0x14cdfdff7fff 0x14cdfdff8000 - 0x14cdfdffafff 0x14cdfdffb000 - 0x14cdfdffdfff 0x14cdfdffe000 - 0x14cdfe001fff 0x14cdfe002000 - 0x14cdfe004fff 0x14cdfe005000 - 0x14cdfe016fff 0x14cdfe017000 - 0x14cdfe01afff 0x14cdfe01b000 - 0x14cdfe01bfff 0x14cdfe01c000 - 0x14cdfe01cfff 0x14cdfe01d000 - 0x14cdfe02dfff 0x14cdfe02e000 - 0x14cdfe063fff 0x14cdfe064000 - 0x14cdfe199fff 0x14cdfe19a000 - 0x14cdfe19afff 0x14cdfe19b000 - 0x14cdfe19efff 0x14cdfe19f000 - 0x14cdfe19ffff 0x14cdfe1a0000 - 0x14cdfe1a0fff 0x14cdfe1a1000 - 0x14cdfe1a2fff 0x14cdfe1a3000 - 0x14cdfe1a3fff 0x14cdfe1a4000 - 0x14cdfe1a4fff 0x14cdfe1a5000 - 0x14cdfe1a5fff 0x14cdfe1a6000 - 0x14cdfe1a7fff 0x14cdfe1a8000 - 0x14cdfe1a9fff 0x14cdfe1aa000 - 0x14cdfe1abfff 0x14cdfe1ac000 - 0x14cdfe1acfff 0x14cdfe1ad000 - 0x14cdfe1adfff 0x14cdfe1ae000 - 0x14cdfe1aefff 0x14cdfe1af000 - 0x14cdfe1b0fff 0x14cdfe1b1000 - 0x14cdfe1b2fff 0x14cdfe1b3000 - 0x14cdfe1b3fff 0x14cdfe1b4000 - 0x14cdfe1b4fff 0x14cdfe1b5000 - 0x14cdfe1b5fff 0x14cdfe1b6000 - 0x14cdfe1c3fff 0x14cdfe1c4000 - 0x14cdfe1d1fff 0x14cdfe1d2000 - 0x14cdfe1dffff 0x14cdfe1e0000 - 0x14cdfe1e3fff 0x14cdfe1e4000 - 0x14cdfe1e4fff 0x14cdfe1e5000 - 0x14cdfe1e6fff 0x14cdfe1e7000 - 0x14cdfe1fafff 0x14cdfe1fb000 - 0x14cdfe213fff 0x14cdfe214000 - 0x14cdfe214fff 0x14cdfe215000 - 0x14cdfe215fff 0x14cdfe216000 - 0x14cdfe21efff 0x14cdfe21f000 - 0x14cdfe22dfff 0x14cdfe22e000 - 0x14cdfe2c9fff 0x14cdfe2ca000 - 0x14cdfe362fff 0x14cdfe363000 - 0x14cdfe363fff 0x14cdfe364000 - 0x14cdfe364fff 0x14cdfe365000 - 0x14cdfe37afff 0x14cdfe37b000 - 0x14cdfe3a6fff 0x14cdfe3a7000 - 0x14cdfe3affff 0x14cdfe3b0000 - 0x14cdfe3b0fff 0x14cdfe3b1000 - 0x14cdfe3b3fff 0x14cdfe3b4000 - 0x14cdfe3b9fff 0x14cdfe3ba000 - 0x14cdfe3bcfff 0x14cdfe3bd000 - 0x14cdfe3bdfff 0x14cdfe3be000 - 0x14cdfe3befff 0x14cdfe3bf000 - 0x14cdfe3c5fff 0x14cdfe3c6000 - 0x14cdfe3c6fff 0x14cdfe3c7000 - 0x14cdfe3e7fff 0x14cdfe3e8000 - 0x14cdfe3f0fff 0x14cdfe3f1000 - 0x14cdfe3f1fff 0x14cdfe3f2000 - 0x14cdfe3f3fff 0x7fff605be000 - 0x7fff605dffff 0x7fff605f3000 - 0x7fff605f6fff 0x7fff605f7000 - 0x7fff605f8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/sock.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -C /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit/modprep /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1abb000 - 0x1adbfff 0x100000000000 - 0x1000000bffff 0x14df9b450000 - 0x14df9b450fff 0x14df9b451000 - 0x14df9bafbfff 0x14df9bafc000 - 0x14df9bb50fff 0x14df9bb51000 - 0x14df9bb52fff 0x14df9bb53000 - 0x14df9bb78fff 0x14df9bb79000 - 0x14df9bcc7fff 0x14df9bcc8000 - 0x14df9bd13fff 0x14df9bd14000 - 0x14df9bd14fff 0x14df9bd15000 - 0x14df9bd17fff 0x14df9bd18000 - 0x14df9bd1afff 0x14df9bd1b000 - 0x14df9bd1efff 0x14df9bd1f000 - 0x14df9bd21fff 0x14df9bd22000 - 0x14df9bd33fff 0x14df9bd34000 - 0x14df9bd37fff 0x14df9bd38000 - 0x14df9bd38fff 0x14df9bd39000 - 0x14df9bd39fff 0x14df9bd3a000 - 0x14df9bd4afff 0x14df9bd4b000 - 0x14df9bd80fff 0x14df9bd81000 - 0x14df9beb6fff 0x14df9beb7000 - 0x14df9beb7fff 0x14df9beb8000 - 0x14df9bebbfff 0x14df9bebc000 - 0x14df9bebcfff 0x14df9bebd000 - 0x14df9bebdfff 0x14df9bebe000 - 0x14df9bebffff 0x14df9bec0000 - 0x14df9bec0fff 0x14df9bec1000 - 0x14df9bec1fff 0x14df9bec2000 - 0x14df9bec2fff 0x14df9bec3000 - 0x14df9bec4fff 0x14df9bec5000 - 0x14df9bec6fff 0x14df9bec7000 - 0x14df9bec8fff 0x14df9bec9000 - 0x14df9bec9fff 0x14df9beca000 - 0x14df9becafff 0x14df9becb000 - 0x14df9becbfff 0x14df9becc000 - 0x14df9becdfff 0x14df9bece000 - 0x14df9becffff 0x14df9bed0000 - 0x14df9bed0fff 0x14df9bed1000 - 0x14df9bed1fff 0x14df9bed2000 - 0x14df9bed2fff 0x14df9bed3000 - 0x14df9bee0fff 0x14df9bee1000 - 0x14df9beeefff 0x14df9beef000 - 0x14df9befcfff 0x14df9befd000 - 0x14df9bf00fff 0x14df9bf01000 - 0x14df9bf01fff 0x14df9bf02000 - 0x14df9bf03fff 0x14df9bf04000 - 0x14df9bf17fff 0x14df9bf18000 - 0x14df9bf30fff 0x14df9bf31000 - 0x14df9bf31fff 0x14df9bf32000 - 0x14df9bf32fff 0x14df9bf33000 - 0x14df9bf3bfff 0x14df9bf3c000 - 0x14df9bf4afff 0x14df9bf4b000 - 0x14df9bfe6fff 0x14df9bfe7000 - 0x14df9c07ffff 0x14df9c080000 - 0x14df9c080fff 0x14df9c081000 - 0x14df9c081fff 0x14df9c082000 - 0x14df9c097fff 0x14df9c098000 - 0x14df9c0c3fff 0x14df9c0c4000 - 0x14df9c0ccfff 0x14df9c0cd000 - 0x14df9c0cdfff 0x14df9c0ce000 - 0x14df9c0d0fff 0x14df9c0d1000 - 0x14df9c0d6fff 0x14df9c0d7000 - 0x14df9c0d9fff 0x14df9c0da000 - 0x14df9c0dafff 0x14df9c0db000 - 0x14df9c0dbfff 0x14df9c0dc000 - 0x14df9c0e2fff 0x14df9c0e3000 - 0x14df9c0e3fff 0x14df9c0e4000 - 0x14df9c104fff 0x14df9c105000 - 0x14df9c10dfff 0x14df9c10e000 - 0x14df9c10efff 0x14df9c10f000 - 0x14df9c110fff 0x7fff277ab000 - 0x7fff277ccfff 0x7fff277cf000 - 0x7fff277d2fff 0x7fff277d3000 - 0x7fff277d4fff 0xffffffffff600000 - 0xffffffffff600fff ;; MODPREP: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c" --> #P"rawsock.m.c" ;; MODPREP: reading "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c": 59,766 bytes, 1,489 lines WARNING: "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit \ -c rawsock.m.c -o rawsock.o /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_recvfrom’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c:962:9: warning: unused variable ‘buffer’ [-Wunused-variable] 962 | void *buffer; | ^~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_read’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c:1051:13: warning: unused variable ‘pinned_count’ [-Wunused-variable] 1051 | ssize_t pinned_count = retval; | ^~~~~~~~~~~~ /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/rawsock.c: In function ‘C_subr_rawsock_sock_write’: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/preload.lisp . make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 3813868800) (memory 3814145132) checking for CLISP libdir... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/ checking for CLISP linking set... (cached) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -K base -E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc -q -c /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x8a5000 - 0x8c5fff 0x100000000000 - 0x1000000bffff 0x14d94a1f5000 - 0x14d94a1f5fff 0x14d94a1f6000 - 0x14d94a8a0fff 0x14d94a8a1000 - 0x14d94a8f5fff 0x14d94a8f6000 - 0x14d94a8f7fff 0x14d94a8f8000 - 0x14d94a91dfff 0x14d94a91e000 - 0x14d94aa6cfff 0x14d94aa6d000 - 0x14d94aab8fff 0x14d94aab9000 - 0x14d94aab9fff 0x14d94aaba000 - 0x14d94aabcfff 0x14d94aabd000 - 0x14d94aabffff 0x14d94aac0000 - 0x14d94aac3fff 0x14d94aac4000 - 0x14d94aac6fff 0x14d94aac7000 - 0x14d94aad8fff 0x14d94aad9000 - 0x14d94aadcfff 0x14d94aadd000 - 0x14d94aaddfff 0x14d94aade000 - 0x14d94aadefff 0x14d94aadf000 - 0x14d94aaeffff 0x14d94aaf0000 - 0x14d94ab25fff 0x14d94ab26000 - 0x14d94ac5bfff 0x14d94ac5c000 - 0x14d94ac5cfff 0x14d94ac5d000 - 0x14d94ac60fff 0x14d94ac61000 - 0x14d94ac61fff 0x14d94ac62000 - 0x14d94ac62fff 0x14d94ac63000 - 0x14d94ac64fff 0x14d94ac65000 - 0x14d94ac65fff 0x14d94ac66000 - 0x14d94ac66fff 0x14d94ac67000 - 0x14d94ac67fff 0x14d94ac68000 - 0x14d94ac69fff 0x14d94ac6a000 - 0x14d94ac6bfff 0x14d94ac6c000 - 0x14d94ac6dfff 0x14d94ac6e000 - 0x14d94ac6efff 0x14d94ac6f000 - 0x14d94ac6ffff 0x14d94ac70000 - 0x14d94ac70fff 0x14d94ac71000 - 0x14d94ac72fff 0x14d94ac73000 - 0x14d94ac74fff 0x14d94ac75000 - 0x14d94ac75fff 0x14d94ac76000 - 0x14d94ac76fff 0x14d94ac77000 - 0x14d94ac77fff 0x14d94ac78000 - 0x14d94ac85fff 0x14d94ac86000 - 0x14d94ac93fff 0x14d94ac94000 - 0x14d94aca1fff 0x14d94aca2000 - 0x14d94aca5fff 0x14d94aca6000 - 0x14d94aca6fff 0x14d94aca7000 - 0x14d94aca8fff 0x14d94aca9000 - 0x14d94acbcfff 0x14d94acbd000 - 0x14d94acd5fff 0x14d94acd6000 - 0x14d94acd6fff 0x14d94acd7000 - 0x14d94acd7fff 0x14d94acd8000 - 0x14d94ace0fff 0x14d94ace1000 - 0x14d94aceffff 0x14d94acf0000 - 0x14d94ad8bfff 0x14d94ad8c000 - 0x14d94ae24fff 0x14d94ae25000 - 0x14d94ae25fff 0x14d94ae26000 - 0x14d94ae26fff 0x14d94ae27000 - 0x14d94ae3cfff 0x14d94ae3d000 - 0x14d94ae68fff 0x14d94ae69000 - 0x14d94ae71fff 0x14d94ae72000 - 0x14d94ae72fff 0x14d94ae73000 - 0x14d94ae75fff 0x14d94ae76000 - 0x14d94ae7bfff 0x14d94ae7c000 - 0x14d94ae7efff 0x14d94ae7f000 - 0x14d94ae7ffff 0x14d94ae80000 - 0x14d94ae80fff 0x14d94ae81000 - 0x14d94ae87fff 0x14d94ae88000 - 0x14d94ae88fff 0x14d94ae89000 - 0x14d94aea9fff 0x14d94aeaa000 - 0x14d94aeb2fff 0x14d94aeb3000 - 0x14d94aeb3fff 0x14d94aeb4000 - 0x14d94aeb5fff 0x7ffce8791000 - 0x7ffce87b2fff 0x7ffce87e6000 - 0x7ffce87e9fff 0x7ffce87ea000 - 0x7ffce87ebfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/zlib/zlib.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.fas ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.c 0 errors, 0 warnings gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c zlib.c make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' rm -rf full rm -rf dynmod; mkdir dynmod MAKE=make CLISP="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' gcc -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' gcc -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' gcc -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-zlib.so gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1c9e000 - 0x1cbefff 0x100000000000 - 0x1000000bffff 0x14a9ad4ea000 - 0x14a9ad4eafff 0x14a9ad4eb000 - 0x14a9adb95fff 0x14a9adb96000 - 0x14a9adbeafff 0x14a9adbeb000 - 0x14a9adbecfff 0x14a9adbed000 - 0x14a9adc12fff 0x14a9adc13000 - 0x14a9add61fff 0x14a9add62000 - 0x14a9addadfff 0x14a9addae000 - 0x14a9addaefff 0x14a9addaf000 - 0x14a9addb1fff 0x14a9addb2000 - 0x14a9addb4fff 0x14a9addb5000 - 0x14a9addb8fff 0x14a9addb9000 - 0x14a9addbbfff 0x14a9addbc000 - 0x14a9addcdfff 0x14a9addce000 - 0x14a9addd1fff 0x14a9addd2000 - 0x14a9addd2fff 0x14a9addd3000 - 0x14a9addd3fff 0x14a9addd4000 - 0x14a9adde4fff 0x14a9adde5000 - 0x14a9ade1afff 0x14a9ade1b000 - 0x14a9adf50fff 0x14a9adf51000 - 0x14a9adf51fff 0x14a9adf52000 - 0x14a9adf55fff 0x14a9adf56000 - 0x14a9adf56fff 0x14a9adf57000 - 0x14a9adf57fff 0x14a9adf58000 - 0x14a9adf59fff 0x14a9adf5a000 - 0x14a9adf5afff 0x14a9adf5b000 - 0x14a9adf5bfff 0x14a9adf5c000 - 0x14a9adf5cfff 0x14a9adf5d000 - 0x14a9adf5efff 0x14a9adf5f000 - 0x14a9adf60fff 0x14a9adf61000 - 0x14a9adf62fff 0x14a9adf63000 - 0x14a9adf63fff 0x14a9adf64000 - 0x14a9adf64fff 0x14a9adf65000 - 0x14a9adf65fff 0x14a9adf66000 - 0x14a9adf67fff 0x14a9adf68000 - 0x14a9adf69fff 0x14a9adf6a000 - 0x14a9adf6afff 0x14a9adf6b000 - 0x14a9adf6bfff 0x14a9adf6c000 - 0x14a9adf6cfff 0x14a9adf6d000 - 0x14a9adf7afff 0x14a9adf7b000 - 0x14a9adf88fff 0x14a9adf89000 - 0x14a9adf96fff 0x14a9adf97000 - 0x14a9adf9afff 0x14a9adf9b000 - 0x14a9adf9bfff 0x14a9adf9c000 - 0x14a9adf9dfff 0x14a9adf9e000 - 0x14a9adfb1fff 0x14a9adfb2000 - 0x14a9adfcafff 0x14a9adfcb000 - 0x14a9adfcbfff 0x14a9adfcc000 - 0x14a9adfccfff 0x14a9adfcd000 - 0x14a9adfd5fff 0x14a9adfd6000 - 0x14a9adfe4fff 0x14a9adfe5000 - 0x14a9ae080fff 0x14a9ae081000 - 0x14a9ae119fff 0x14a9ae11a000 - 0x14a9ae11afff 0x14a9ae11b000 - 0x14a9ae11bfff 0x14a9ae11c000 - 0x14a9ae131fff 0x14a9ae132000 - 0x14a9ae15dfff 0x14a9ae15e000 - 0x14a9ae166fff 0x14a9ae167000 - 0x14a9ae167fff 0x14a9ae168000 - 0x14a9ae16afff 0x14a9ae16b000 - 0x14a9ae170fff 0x14a9ae171000 - 0x14a9ae173fff 0x14a9ae174000 - 0x14a9ae174fff 0x14a9ae175000 - 0x14a9ae175fff 0x14a9ae176000 - 0x14a9ae17cfff 0x14a9ae17d000 - 0x14a9ae17dfff 0x14a9ae17e000 - 0x14a9ae19efff 0x14a9ae19f000 - 0x14a9ae1a7fff 0x14a9ae1a8000 - 0x14a9ae1a8fff 0x14a9ae1a9000 - 0x14a9ae1aafff 0x7ffdb8318000 - 0x7ffdb8338fff 0x7ffdb83c5000 - 0x7ffdb83c8fff 0x7ffdb83c9000 - 0x7ffdb83cafff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/preload.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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,804,200 bytes) Bytes permanently allocated: 180,216 Bytes currently in use: 3,615,880 Bytes available until next GC: 899,860 3615880 ; 899860 ; 180216 ; 1 ; 582000 ; 7104 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 - 0x44ffff 0x450000 - 0x5befff 0x5bf000 - 0x63afff 0x63c000 - 0x672fff 0x673000 - 0x6b0fff 0x6b1000 - 0x6d7fff 0xa74000 - 0xab5fff 0x100000000000 - 0x1000000bffff 0x154149fe4000 - 0x154149fe4fff 0x154149fe5000 - 0x15414a68ffff 0x15414a690000 - 0x15414a6e4fff 0x15414a6e5000 - 0x15414a6eefff 0x15414a6ef000 - 0x15414a6f2fff 0x15414a6f3000 - 0x15414a704fff 0x15414a705000 - 0x15414a70dfff 0x15414a70e000 - 0x15414a70efff 0x15414a70f000 - 0x15414a70ffff 0x15414a710000 - 0x15414a711fff 0x15414a712000 - 0x15414a712fff 0x15414a713000 - 0x15414a713fff 0x15414a714000 - 0x15414a732fff 0x15414a733000 - 0x15414a733fff 0x15414a734000 - 0x15414a734fff 0x15414a735000 - 0x15414a736fff 0x15414a737000 - 0x15414a73afff 0x15414a73b000 - 0x15414a73bfff 0x15414a73c000 - 0x15414a73cfff 0x15414a73d000 - 0x15414a73dfff 0x15414a73e000 - 0x15414a73ffff 0x15414a740000 - 0x15414a7a8fff 0x15414a7a9000 - 0x15414a7d1fff 0x15414a7d2000 - 0x15414a7d2fff 0x15414a7d3000 - 0x15414a7d3fff 0x15414a7d4000 - 0x15414a7dafff 0x15414a7db000 - 0x15414a7f8fff 0x15414a7f9000 - 0x15414a801fff 0x15414a802000 - 0x15414a802fff 0x15414a803000 - 0x15414a806fff 0x15414a807000 - 0x15414a807fff 0x15414a808000 - 0x15414a813fff 0x15414a814000 - 0x15414a8eafff 0x15414a8eb000 - 0x15414a923fff 0x15414a924000 - 0x15414a925fff 0x15414a926000 - 0x15414a92afff 0x15414a92b000 - 0x15414a92dfff 0x15414a92e000 - 0x15414a92ffff 0x15414a930000 - 0x15414a946fff 0x15414a947000 - 0x15414a948fff 0x15414a949000 - 0x15414a949fff 0x15414a94a000 - 0x15414a94afff 0x15414a94b000 - 0x15414a94bfff 0x15414a94c000 - 0x15414a950fff 0x15414a951000 - 0x15414a9f2fff 0x15414a9f3000 - 0x15414a9fffff 0x15414aa00000 - 0x15414aa00fff 0x15414aa01000 - 0x15414aa01fff 0x15414aa02000 - 0x15414aa02fff 0x15414aa03000 - 0x15414aa0afff 0x15414aa0b000 - 0x15414aa0dfff 0x15414aa0e000 - 0x15414aa0efff 0x15414aa0f000 - 0x15414aa0ffff 0x15414aa10000 - 0x15414aa11fff 0x15414aa12000 - 0x15414aa1efff 0x15414aa1f000 - 0x15414aa20fff 0x15414aa21000 - 0x15414aa21fff 0x15414aa22000 - 0x15414aa22fff 0x15414aa23000 - 0x15414aa25fff 0x15414aa26000 - 0x15414aa3cfff 0x15414aa3d000 - 0x15414aa40fff 0x15414aa41000 - 0x15414aa42fff 0x15414aa43000 - 0x15414aa43fff 0x15414aa44000 - 0x15414aa46fff 0x15414aa47000 - 0x15414aa61fff 0x15414aa62000 - 0x15414aa6cfff 0x15414aa6d000 - 0x15414aa6dfff 0x15414aa6e000 - 0x15414aa6efff 0x15414aa6f000 - 0x15414aa71fff 0x15414aa72000 - 0x15414aa73fff 0x15414aa74000 - 0x15414aa77fff 0x15414aa78000 - 0x15414aa7afff 0x15414aa7b000 - 0x15414aa7bfff 0x15414aa7c000 - 0x15414aa7cfff 0x15414aa7d000 - 0x15414aa7efff 0x15414aa7f000 - 0x15414aa83fff 0x15414aa84000 - 0x15414aa98fff 0x15414aa99000 - 0x15414aa99fff 0x15414aa9a000 - 0x15414aa9afff 0x15414aa9b000 - 0x15414aaa1fff 0x15414aaa2000 - 0x15414aabbfff 0x15414aabc000 - 0x15414aac3fff 0x15414aac4000 - 0x15414aac4fff 0x15414aac5000 - 0x15414aac5fff 0x15414aac6000 - 0x15414aac7fff 0x15414aac8000 - 0x15414aad0fff 0x15414aad1000 - 0x15414aafafff 0x15414aafb000 - 0x15414ab06fff 0x15414ab07000 - 0x15414ab08fff 0x15414ab09000 - 0x15414ab09fff 0x15414ab0a000 - 0x15414ab0cfff 0x15414ab0d000 - 0x15414ab10fff 0x15414ab11000 - 0x15414ab12fff 0x15414ab13000 - 0x15414ab13fff 0x15414ab14000 - 0x15414ab14fff 0x15414ab15000 - 0x15414ab16fff 0x15414ab17000 - 0x15414ab1bfff 0x15414ab1c000 - 0x15414ab20fff 0x15414ab21000 - 0x15414ab22fff 0x15414ab23000 - 0x15414ab23fff 0x15414ab24000 - 0x15414ab24fff 0x15414ab25000 - 0x15414ab25fff 0x15414ab26000 - 0x15414ab26fff 0x15414ab27000 - 0x15414ab27fff 0x15414ab28000 - 0x15414ab28fff 0x15414ab29000 - 0x15414ab29fff 0x15414ab2a000 - 0x15414ab2afff 0x15414ab2b000 - 0x15414ab35fff 0x15414ab36000 - 0x15414abbcfff 0x15414abbd000 - 0x15414abcefff 0x15414abcf000 - 0x15414abd6fff 0x15414abd7000 - 0x15414abd7fff 0x15414abd8000 - 0x15414abdcfff 0x15414abdd000 - 0x15414abeefff 0x15414abef000 - 0x15414abf4fff 0x15414abf5000 - 0x15414abf5fff 0x15414abf6000 - 0x15414abf6fff 0x15414abf7000 - 0x15414abf9fff 0x15414abfa000 - 0x15414ac01fff 0x15414ac02000 - 0x15414ac04fff 0x15414ac05000 - 0x15414ac05fff 0x15414ac06000 - 0x15414ac06fff 0x15414ac07000 - 0x15414ac07fff 0x15414ac08000 - 0x15414ac09fff 0x15414ac0a000 - 0x15414ac0dfff 0x15414ac0e000 - 0x15414ac1bfff 0x15414ac1c000 - 0x15414ac1efff 0x15414ac1f000 - 0x15414ac1ffff 0x15414ac20000 - 0x15414ac20fff 0x15414ac21000 - 0x15414ac21fff 0x15414ac22000 - 0x15414ac23fff 0x15414ac24000 - 0x15414ac25fff 0x15414ac26000 - 0x15414ac27fff 0x15414ac28000 - 0x15414ac28fff 0x15414ac29000 - 0x15414ac29fff 0x15414ac2a000 - 0x15414ac2afff 0x15414ac2b000 - 0x15414ac2efff 0x15414ac2f000 - 0x15414ac36fff 0x15414ac37000 - 0x15414ac39fff 0x15414ac3a000 - 0x15414ac3afff 0x15414ac3b000 - 0x15414ac3bfff 0x15414ac3c000 - 0x15414ac3dfff 0x15414ac3e000 - 0x15414ac3efff 0x15414ac3f000 - 0x15414ac3ffff 0x15414ac40000 - 0x15414ac40fff 0x15414ac41000 - 0x15414ac41fff 0x15414ac42000 - 0x15414ac46fff 0x15414ac47000 - 0x15414ac52fff 0x15414ac53000 - 0x15414ac56fff 0x15414ac57000 - 0x15414ac58fff 0x15414ac59000 - 0x15414ac59fff 0x15414ac5a000 - 0x15414ac7cfff 0x15414ac7d000 - 0x15414ace0fff 0x15414ace1000 - 0x15414ad1efff 0x15414ad1f000 - 0x15414ad1ffff 0x15414ad20000 - 0x15414ad2dfff 0x15414ad2e000 - 0x15414ad2ffff 0x15414ad30000 - 0x15414ad31fff 0x15414ad32000 - 0x15414ad3dfff 0x15414ad3e000 - 0x15414ad50fff 0x15414ad51000 - 0x15414ad59fff 0x15414ad5a000 - 0x15414ad5afff 0x15414ad5b000 - 0x15414ad5bfff 0x15414ad5c000 - 0x15414ad6dfff 0x15414ad6e000 - 0x15414ade8fff 0x15414ade9000 - 0x15414ae11fff 0x15414ae12000 - 0x15414ae15fff 0x15414ae16000 - 0x15414ae16fff 0x15414ae17000 - 0x15414ae17fff 0x15414ae18000 - 0x15414ae24fff 0x15414ae25000 - 0x15414aea8fff 0x15414aea9000 - 0x15414aed1fff 0x15414aed2000 - 0x15414aed2fff 0x15414aed3000 - 0x15414aed9fff 0x15414aeda000 - 0x15414aedafff 0x15414aedb000 - 0x15414aee3fff 0x15414aee4000 - 0x15414af74fff 0x15414af75000 - 0x15414afa5fff 0x15414afa6000 - 0x15414afa6fff 0x15414afa7000 - 0x15414afa7fff 0x15414afa8000 - 0x15414afa8fff 0x15414afa9000 - 0x15414afd6fff 0x15414afd7000 - 0x15414b0d9fff 0x15414b0da000 - 0x15414b123fff 0x15414b124000 - 0x15414b124fff 0x15414b125000 - 0x15414b12dfff 0x15414b12e000 - 0x15414b12efff 0x15414b12f000 - 0x15414b132fff 0x15414b133000 - 0x15414b134fff 0x15414b135000 - 0x15414b139fff 0x15414b13a000 - 0x15414b13afff 0x15414b13b000 - 0x15414b13bfff 0x15414b13c000 - 0x15414b13cfff 0x15414b13d000 - 0x15414b13dfff 0x15414b13e000 - 0x15414b142fff 0x15414b143000 - 0x15414b16afff 0x15414b16b000 - 0x15414b174fff 0x15414b175000 - 0x15414b175fff 0x15414b176000 - 0x15414b176fff 0x15414b177000 - 0x15414b177fff 0x15414b178000 - 0x15414b178fff 0x15414b179000 - 0x15414b179fff 0x15414b17a000 - 0x15414b17afff 0x15414b17b000 - 0x15414b17bfff 0x15414b17c000 - 0x15414b17cfff 0x15414b17d000 - 0x15414b17dfff 0x15414b17e000 - 0x15414b17efff 0x15414b17f000 - 0x15414b17ffff 0x15414b180000 - 0x15414b180fff 0x15414b181000 - 0x15414b183fff 0x15414b184000 - 0x15414b189fff 0x15414b18a000 - 0x15414b18bfff 0x15414b18c000 - 0x15414b18cfff 0x15414b18d000 - 0x15414b18dfff 0x15414b18e000 - 0x15414b18ffff 0x15414b190000 - 0x15414b196fff 0x15414b197000 - 0x15414b198fff 0x15414b199000 - 0x15414b199fff 0x15414b19a000 - 0x15414b19afff 0x15414b19b000 - 0x15414b19cfff 0x15414b19d000 - 0x15414b19efff 0x15414b19f000 - 0x15414b1a9fff 0x15414b1aa000 - 0x15414b1acfff 0x15414b1ad000 - 0x15414b1adfff 0x15414b1ae000 - 0x15414b1aefff 0x15414b1af000 - 0x15414b1affff 0x15414b1b0000 - 0x15414b1b0fff 0x15414b1b1000 - 0x15414b1b1fff 0x15414b1b2000 - 0x15414b1b2fff 0x15414b1b3000 - 0x15414b1b3fff 0x15414b1b4000 - 0x15414b1b5fff 0x15414b1b6000 - 0x15414b1bcfff 0x15414b1bd000 - 0x15414b1befff 0x15414b1bf000 - 0x15414b1bffff 0x15414b1c0000 - 0x15414b1c0fff 0x15414b1c1000 - 0x15414b1c7fff 0x15414b1c8000 - 0x15414b1f1fff 0x15414b1f2000 - 0x15414b208fff 0x15414b209000 - 0x15414b20afff 0x15414b20b000 - 0x15414b20bfff 0x15414b20c000 - 0x15414b219fff 0x15414b21a000 - 0x15414b241fff 0x15414b242000 - 0x15414b258fff 0x15414b259000 - 0x15414b259fff 0x15414b25a000 - 0x15414b25cfff 0x15414b25d000 - 0x15414b25dfff 0x15414b25e000 - 0x15414b264fff 0x15414b265000 - 0x15414b270fff 0x15414b271000 - 0x15414b274fff 0x15414b275000 - 0x15414b275fff 0x15414b276000 - 0x15414b276fff 0x15414b277000 - 0x15414b279fff 0x15414b27a000 - 0x15414b2b0fff 0x15414b2b1000 - 0x15414b3b2fff 0x15414b3b3000 - 0x15414b433fff 0x15414b434000 - 0x15414b434fff 0x15414b435000 - 0x15414b43bfff 0x15414b43c000 - 0x15414b43cfff 0x15414b43d000 - 0x15414b43efff 0x15414b43f000 - 0x15414b44ffff 0x15414b450000 - 0x15414b51ffff 0x15414b520000 - 0x15414b553fff 0x15414b554000 - 0x15414b557fff 0x15414b558000 - 0x15414b558fff 0x15414b559000 - 0x15414b559fff 0x15414b55a000 - 0x15414b563fff 0x15414b564000 - 0x15414b572fff 0x15414b573000 - 0x15414b57efff 0x15414b57f000 - 0x15414b581fff 0x15414b582000 - 0x15414b582fff 0x15414b583000 - 0x15414b584fff 0x15414b585000 - 0x15414b587fff 0x15414b588000 - 0x15414b588fff 0x15414b589000 - 0x15414b589fff 0x15414b58a000 - 0x15414b58afff 0x15414b58b000 - 0x15414b58bfff 0x15414b58c000 - 0x15414b590fff 0x15414b591000 - 0x15414b598fff 0x15414b599000 - 0x15414b59afff 0x15414b59b000 - 0x15414b59bfff 0x15414b59c000 - 0x15414b59cfff 0x15414b59d000 - 0x15414b59dfff 0x15414b59e000 - 0x15414b59efff 0x15414b59f000 - 0x15414b5a0fff 0x15414b5a1000 - 0x15414b5a1fff 0x15414b5a2000 - 0x15414b5a2fff 0x15414b5a3000 - 0x15414b5a3fff 0x15414b5a4000 - 0x15414b5a5fff 0x15414b5a6000 - 0x15414b63bfff 0x15414b63c000 - 0x15414b72bfff 0x15414b72c000 - 0x15414b77cfff 0x15414b77d000 - 0x15414b787fff 0x15414b788000 - 0x15414b78afff 0x15414b78b000 - 0x15414b78dfff 0x15414b78e000 - 0x15414b79efff 0x15414b79f000 - 0x15414b817fff 0x15414b818000 - 0x15414b82efff 0x15414b82f000 - 0x15414b82ffff 0x15414b830000 - 0x15414b831fff 0x15414b832000 - 0x15414b832fff 0x15414b833000 - 0x15414b839fff 0x15414b83a000 - 0x15414b849fff 0x15414b84a000 - 0x15414b84efff 0x15414b84f000 - 0x15414b84ffff 0x15414b850000 - 0x15414b850fff 0x15414b851000 - 0x15414b854fff 0x15414b855000 - 0x15414b863fff 0x15414b864000 - 0x15414b897fff 0x15414b898000 - 0x15414b8a6fff 0x15414b8a7000 - 0x15414b8a7fff 0x15414b8a8000 - 0x15414b8a9fff 0x15414b8aa000 - 0x15414b8aafff 0x15414b8ab000 - 0x15414b8acfff 0x15414b8ad000 - 0x15414b8b8fff 0x15414b8b9000 - 0x15414b8f0fff 0x15414b8f1000 - 0x15414b8fcfff 0x15414b8fd000 - 0x15414b8fdfff 0x15414b8fe000 - 0x15414b8fffff 0x15414b900000 - 0x15414b900fff 0x15414b901000 - 0x15414b97afff 0x15414b97b000 - 0x15414bb27fff 0x15414bb28000 - 0x15414bbb8fff 0x15414bbb9000 - 0x15414bbe4fff 0x15414bbe5000 - 0x15414bbe8fff 0x15414bbe9000 - 0x15414bbeefff 0x15414bbef000 - 0x15414bc0bfff 0x15414bc0c000 - 0x15414bc63fff 0x15414bc64000 - 0x15414bc7cfff 0x15414bc7d000 - 0x15414bc7dfff 0x15414bc7e000 - 0x15414bc86fff 0x15414bc87000 - 0x15414bc8afff 0x15414bc8b000 - 0x15414bcb0fff 0x15414bcb1000 - 0x15414bdfffff 0x15414be00000 - 0x15414be4bfff 0x15414be4c000 - 0x15414be4cfff 0x15414be4d000 - 0x15414be4ffff 0x15414be50000 - 0x15414be52fff 0x15414be53000 - 0x15414be56fff 0x15414be57000 - 0x15414be59fff 0x15414be5a000 - 0x15414be6bfff 0x15414be6c000 - 0x15414be6ffff 0x15414be70000 - 0x15414be70fff 0x15414be71000 - 0x15414be71fff 0x15414be72000 - 0x15414be82fff 0x15414be83000 - 0x15414beb8fff 0x15414beb9000 - 0x15414bfeefff 0x15414bfef000 - 0x15414bfeffff 0x15414bff0000 - 0x15414bff3fff 0x15414bff4000 - 0x15414bff4fff 0x15414bff5000 - 0x15414bff5fff 0x15414bff6000 - 0x15414bff7fff 0x15414bff8000 - 0x15414bff8fff 0x15414bff9000 - 0x15414bff9fff 0x15414bffa000 - 0x15414bffafff 0x15414bffb000 - 0x15414bffcfff 0x15414bffd000 - 0x15414bffefff 0x15414bfff000 - 0x15414bffffff 0x15414c000000 - 0x15414c000fff 0x15414c001000 - 0x15414c003fff 0x15414c004000 - 0x15414c005fff 0x15414c006000 - 0x15414c007fff 0x15414c008000 - 0x15414c008fff 0x15414c009000 - 0x15414c009fff 0x15414c00a000 - 0x15414c00afff 0x15414c00b000 - 0x15414c018fff 0x15414c019000 - 0x15414c026fff 0x15414c027000 - 0x15414c034fff 0x15414c035000 - 0x15414c038fff 0x15414c039000 - 0x15414c039fff 0x15414c03a000 - 0x15414c03bfff 0x15414c03c000 - 0x15414c04ffff 0x15414c050000 - 0x15414c068fff 0x15414c069000 - 0x15414c069fff 0x15414c06a000 - 0x15414c06afff 0x15414c06b000 - 0x15414c073fff 0x15414c074000 - 0x15414c089fff 0x15414c08a000 - 0x15414c0b5fff 0x15414c0b6000 - 0x15414c0befff 0x15414c0bf000 - 0x15414c0bffff 0x15414c0c0000 - 0x15414c0c2fff 0x15414c0c3000 - 0x15414c0c8fff 0x15414c0c9000 - 0x15414c0c9fff 0x15414c0ca000 - 0x15414c0f3fff 0x15414c0f4000 - 0x15414c23cfff 0x15414c23d000 - 0x15414c282fff 0x15414c283000 - 0x15414c283fff 0x15414c284000 - 0x15414c28dfff 0x15414c28e000 - 0x15414c28efff 0x15414c28f000 - 0x15414c29dfff 0x15414c29e000 - 0x15414c339fff 0x15414c33a000 - 0x15414c3d2fff 0x15414c3d3000 - 0x15414c3d3fff 0x15414c3d4000 - 0x15414c3d4fff 0x15414c3d5000 - 0x15414c3d6fff 0x15414c3d7000 - 0x15414c3f2fff 0x15414c3f3000 - 0x15414c482fff 0x15414c483000 - 0x15414c515fff 0x15414c516000 - 0x15414c516fff 0x15414c517000 - 0x15414c519fff 0x15414c51a000 - 0x15414c51dfff 0x15414c51e000 - 0x15414c51efff 0x15414c51f000 - 0x15414c51ffff 0x15414c520000 - 0x15414c520fff 0x15414c521000 - 0x15414c521fff 0x15414c522000 - 0x15414c522fff 0x15414c523000 - 0x15414c526fff 0x15414c527000 - 0x15414c531fff 0x15414c532000 - 0x15414c535fff 0x15414c536000 - 0x15414c536fff 0x15414c537000 - 0x15414c537fff 0x15414c538000 - 0x15414c53afff 0x15414c53b000 - 0x15414c546fff 0x15414c547000 - 0x15414c549fff 0x15414c54a000 - 0x15414c54afff 0x15414c54b000 - 0x15414c54bfff 0x15414c54c000 - 0x15414c558fff 0x15414c559000 - 0x15414c586fff 0x15414c587000 - 0x15414c598fff 0x15414c599000 - 0x15414c599fff 0x15414c59a000 - 0x15414c59bfff 0x15414c59c000 - 0x15414c59cfff 0x15414c59d000 - 0x15414c59ffff 0x15414c5a0000 - 0x15414c5a5fff 0x15414c5a6000 - 0x15414c5a7fff 0x15414c5a8000 - 0x15414c5a8fff 0x15414c5a9000 - 0x15414c5a9fff 0x15414c5aa000 - 0x15414c5aafff 0x15414c5ab000 - 0x15414c5acfff 0x15414c5ad000 - 0x15414c5affff 0x15414c5b0000 - 0x15414c5b7fff 0x15414c5b8000 - 0x15414c5bafff 0x15414c5bb000 - 0x15414c5bbfff 0x15414c5bc000 - 0x15414c5bcfff 0x15414c5bd000 - 0x15414c5c4fff 0x15414c5c5000 - 0x15414c5d1fff 0x15414c5d2000 - 0x15414c5d5fff 0x15414c5d6000 - 0x15414c5d7fff 0x15414c5d8000 - 0x15414c5d8fff 0x15414c5d9000 - 0x15414c5f4fff 0x15414c5f5000 - 0x15414c67cfff 0x15414c67d000 - 0x15414c703fff 0x15414c704000 - 0x15414c704fff 0x15414c705000 - 0x15414c705fff 0x15414c706000 - 0x15414c706fff 0x15414c707000 - 0x15414c707fff 0x15414c708000 - 0x15414c715fff 0x15414c716000 - 0x15414c744fff 0x15414c745000 - 0x15414c75cfff 0x15414c75d000 - 0x15414c75ffff 0x15414c760000 - 0x15414c760fff 0x15414c761000 - 0x15414c767fff 0x15414c768000 - 0x15414c77ffff 0x15414c780000 - 0x15414c788fff 0x15414c789000 - 0x15414c789fff 0x15414c78a000 - 0x15414c78afff 0x15414c78b000 - 0x15414c78bfff 0x15414c78c000 - 0x15414c7a8fff 0x15414c7a9000 - 0x15414c818fff 0x15414c819000 - 0x15414c855fff 0x15414c856000 - 0x15414c856fff 0x15414c857000 - 0x15414c85bfff 0x15414c85c000 - 0x15414c85cfff 0x15414c85d000 - 0x15414c85efff 0x15414c85f000 - 0x15414c8c1fff 0x15414c8c2000 - 0x15414cb86fff 0x15414cb87000 - 0x15414cd01fff 0x15414cd02000 - 0x15414cd02fff 0x15414cd03000 - 0x15414cd0cfff 0x15414cd0d000 - 0x15414cd0dfff 0x15414cd0e000 - 0x15414cd0ffff 0x15414cd10000 - 0x15414cd12fff 0x15414cd13000 - 0x15414cd1cfff 0x15414cd1d000 - 0x15414cd1efff 0x15414cd1f000 - 0x15414cd1ffff 0x15414cd20000 - 0x15414cd20fff 0x15414cd21000 - 0x15414cdaefff 0x15414cdaf000 - 0x15414d42afff 0x15414d42b000 - 0x15414d54efff 0x15414d54f000 - 0x15414d559fff 0x15414d55a000 - 0x15414d57efff 0x15414d57f000 - 0x15414d580fff 0x15414d581000 - 0x15414d5d6fff 0x15414d5d7000 - 0x15414d5f4fff 0x15414d5f5000 - 0x15414d5f5fff 0x15414d5f6000 - 0x15414d5f6fff 0x15414d5f7000 - 0x15414d5f7fff 0x15414d5f8000 - 0x15414d601fff 0x15414d602000 - 0x15414d623fff 0x15414d624000 - 0x15414d641fff 0x15414d642000 - 0x15414d642fff 0x15414d643000 - 0x15414d645fff 0x15414d646000 - 0x15414d646fff 0x15414d647000 - 0x15414d649fff 0x15414d64a000 - 0x15414d657fff 0x15414d658000 - 0x15414d65dfff 0x15414d65e000 - 0x15414d65efff 0x15414d65f000 - 0x15414d65ffff 0x15414d660000 - 0x15414d662fff 0x15414d663000 - 0x15414d663fff 0x15414d664000 - 0x15414d664fff 0x15414d665000 - 0x15414d66bfff 0x15414d66c000 - 0x15414d66cfff 0x15414d66d000 - 0x15414d68dfff 0x15414d68e000 - 0x15414d696fff 0x15414d697000 - 0x15414d697fff 0x15414d698000 - 0x15414d699fff 0x7fff1c5c3000 - 0x7fff1c5e3fff 0x7fff1c5e7000 - 0x7fff1c5eafff 0x7fff1c5eb000 - 0x7fff1c5ecfff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf/asdf.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf/asdf.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db/dbi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db/dbi.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.fas ... WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/wrap.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/wrap.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.fas ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/image.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/image.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/resource.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/resource.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm/gdbm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm/gdbm.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre/pcre.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre/pcre.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/sql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/sql.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock/sock.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock/sock.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.fas ;; Wrote the memory image into full/lispinit.mem (9,910,904 bytes) Bytes permanently allocated: 209,952 Bytes currently in use: 9,682,592 Bytes available until next GC: 2,416,538 9682592 ; 2416538 ; 209952 ; 49 ; 61893216 ; 297042 ===> 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 - 0x5d4fff 0x1957000 - 0x1977fff 0x100000000000 - 0x1000000bffff 0x14d46aa09000 - 0x14d46aa09fff 0x14d46aa0a000 - 0x14d46b0b4fff 0x14d46b0b5000 - 0x14d46b109fff 0x14d46b10a000 - 0x14d46b10cfff 0x14d46b10d000 - 0x14d46b132fff 0x14d46b133000 - 0x14d46b281fff 0x14d46b282000 - 0x14d46b2cdfff 0x14d46b2ce000 - 0x14d46b2cefff 0x14d46b2cf000 - 0x14d46b2d1fff 0x14d46b2d2000 - 0x14d46b2d4fff 0x14d46b2d5000 - 0x14d46b2d8fff 0x14d46b2d9000 - 0x14d46b2dbfff 0x14d46b2dc000 - 0x14d46b2edfff 0x14d46b2ee000 - 0x14d46b2f1fff 0x14d46b2f2000 - 0x14d46b2f2fff 0x14d46b2f3000 - 0x14d46b2f3fff 0x14d46b2f4000 - 0x14d46b2f5fff 0x14d46b2f6000 - 0x14d46b306fff 0x14d46b307000 - 0x14d46b33cfff 0x14d46b33d000 - 0x14d46b472fff 0x14d46b473000 - 0x14d46b473fff 0x14d46b474000 - 0x14d46b477fff 0x14d46b478000 - 0x14d46b478fff 0x14d46b479000 - 0x14d46b479fff 0x14d46b47a000 - 0x14d46b47bfff 0x14d46b47c000 - 0x14d46b47cfff 0x14d46b47d000 - 0x14d46b47dfff 0x14d46b47e000 - 0x14d46b47efff 0x14d46b47f000 - 0x14d46b480fff 0x14d46b481000 - 0x14d46b482fff 0x14d46b483000 - 0x14d46b483fff 0x14d46b484000 - 0x14d46b484fff 0x14d46b485000 - 0x14d46b485fff 0x14d46b486000 - 0x14d46b487fff 0x14d46b488000 - 0x14d46b489fff 0x14d46b48a000 - 0x14d46b48afff 0x14d46b48b000 - 0x14d46b48bfff 0x14d46b48c000 - 0x14d46b48cfff 0x14d46b48d000 - 0x14d46b49afff 0x14d46b49b000 - 0x14d46b4a8fff 0x14d46b4a9000 - 0x14d46b4b6fff 0x14d46b4b7000 - 0x14d46b4bafff 0x14d46b4bb000 - 0x14d46b4bbfff 0x14d46b4bc000 - 0x14d46b4d1fff 0x14d46b4d2000 - 0x14d46b4fdfff 0x14d46b4fe000 - 0x14d46b506fff 0x14d46b507000 - 0x14d46b507fff 0x14d46b508000 - 0x14d46b50afff 0x14d46b50b000 - 0x14d46b510fff 0x14d46b511000 - 0x14d46b513fff 0x14d46b514000 - 0x14d46b514fff 0x14d46b515000 - 0x14d46b515fff 0x14d46b516000 - 0x14d46b51cfff 0x14d46b51d000 - 0x14d46b51dfff 0x14d46b51e000 - 0x14d46b53efff 0x14d46b53f000 - 0x14d46b547fff 0x14d46b548000 - 0x14d46b548fff 0x14d46b549000 - 0x14d46b54afff 0x7ffded354000 - 0x7ffded374fff 0x7ffded3d1000 - 0x7ffded3d4fff 0x7ffded3d5000 - 0x7ffded3d6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/init.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x8ad000 - 0x8cdfff 0x100000000000 - 0x1000000bffff 0x147b56f36000 - 0x147b56f36fff 0x147b56f37000 - 0x147b575e1fff 0x147b575e2000 - 0x147b57636fff 0x147b57637000 - 0x147b57639fff 0x147b5763a000 - 0x147b5765ffff 0x147b57660000 - 0x147b577aefff 0x147b577af000 - 0x147b577fafff 0x147b577fb000 - 0x147b577fbfff 0x147b577fc000 - 0x147b577fefff 0x147b577ff000 - 0x147b57801fff 0x147b57802000 - 0x147b57805fff 0x147b57806000 - 0x147b57808fff 0x147b57809000 - 0x147b5781afff 0x147b5781b000 - 0x147b5781efff 0x147b5781f000 - 0x147b5781ffff 0x147b57820000 - 0x147b57820fff 0x147b57821000 - 0x147b57822fff 0x147b57823000 - 0x147b57833fff 0x147b57834000 - 0x147b57869fff 0x147b5786a000 - 0x147b5799ffff 0x147b579a0000 - 0x147b579a0fff 0x147b579a1000 - 0x147b579a4fff 0x147b579a5000 - 0x147b579a5fff 0x147b579a6000 - 0x147b579a6fff 0x147b579a7000 - 0x147b579a8fff 0x147b579a9000 - 0x147b579a9fff 0x147b579aa000 - 0x147b579aafff 0x147b579ab000 - 0x147b579abfff 0x147b579ac000 - 0x147b579adfff 0x147b579ae000 - 0x147b579affff 0x147b579b0000 - 0x147b579b0fff 0x147b579b1000 - 0x147b579b1fff 0x147b579b2000 - 0x147b579b2fff 0x147b579b3000 - 0x147b579b4fff 0x147b579b5000 - 0x147b579b6fff 0x147b579b7000 - 0x147b579b7fff 0x147b579b8000 - 0x147b579b8fff 0x147b579b9000 - 0x147b579b9fff 0x147b579ba000 - 0x147b579c7fff 0x147b579c8000 - 0x147b579d5fff 0x147b579d6000 - 0x147b579e3fff 0x147b579e4000 - 0x147b579e7fff 0x147b579e8000 - 0x147b579e8fff 0x147b579e9000 - 0x147b579fefff 0x147b579ff000 - 0x147b57a2afff 0x147b57a2b000 - 0x147b57a33fff 0x147b57a34000 - 0x147b57a34fff 0x147b57a35000 - 0x147b57a37fff 0x147b57a38000 - 0x147b57a3dfff 0x147b57a3e000 - 0x147b57a40fff 0x147b57a41000 - 0x147b57a41fff 0x147b57a42000 - 0x147b57a42fff 0x147b57a43000 - 0x147b57a49fff 0x147b57a4a000 - 0x147b57a4afff 0x147b57a4b000 - 0x147b57a6bfff 0x147b57a6c000 - 0x147b57a74fff 0x147b57a75000 - 0x147b57a75fff 0x147b57a76000 - 0x147b57a77fff 0x7ffe23e12000 - 0x7ffe23e32fff 0x7ffe23fd7000 - 0x7ffe23fdafff 0x7ffe23fdb000 - 0x7ffe23fdcfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defseq.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1466000 - 0x1486fff 0x100000000000 - 0x1000000bffff 0x14b5fb1a5000 - 0x14b5fb1a5fff 0x14b5fb1a6000 - 0x14b5fb850fff 0x14b5fb851000 - 0x14b5fb8a5fff 0x14b5fb8a6000 - 0x14b5fb8a8fff 0x14b5fb8a9000 - 0x14b5fb8cefff 0x14b5fb8cf000 - 0x14b5fba1dfff 0x14b5fba1e000 - 0x14b5fba69fff 0x14b5fba6a000 - 0x14b5fba6afff 0x14b5fba6b000 - 0x14b5fba6dfff 0x14b5fba6e000 - 0x14b5fba70fff 0x14b5fba71000 - 0x14b5fba74fff 0x14b5fba75000 - 0x14b5fba77fff 0x14b5fba78000 - 0x14b5fba89fff 0x14b5fba8a000 - 0x14b5fba8dfff 0x14b5fba8e000 - 0x14b5fba8efff 0x14b5fba8f000 - 0x14b5fba8ffff 0x14b5fba90000 - 0x14b5fba91fff 0x14b5fba92000 - 0x14b5fbaa2fff 0x14b5fbaa3000 - 0x14b5fbad8fff 0x14b5fbad9000 - 0x14b5fbc0efff 0x14b5fbc0f000 - 0x14b5fbc0ffff 0x14b5fbc10000 - 0x14b5fbc13fff 0x14b5fbc14000 - 0x14b5fbc14fff 0x14b5fbc15000 - 0x14b5fbc15fff 0x14b5fbc16000 - 0x14b5fbc17fff 0x14b5fbc18000 - 0x14b5fbc18fff 0x14b5fbc19000 - 0x14b5fbc19fff 0x14b5fbc1a000 - 0x14b5fbc1afff 0x14b5fbc1b000 - 0x14b5fbc1cfff 0x14b5fbc1d000 - 0x14b5fbc1efff 0x14b5fbc1f000 - 0x14b5fbc1ffff 0x14b5fbc20000 - 0x14b5fbc20fff 0x14b5fbc21000 - 0x14b5fbc21fff 0x14b5fbc22000 - 0x14b5fbc23fff 0x14b5fbc24000 - 0x14b5fbc25fff 0x14b5fbc26000 - 0x14b5fbc26fff 0x14b5fbc27000 - 0x14b5fbc27fff 0x14b5fbc28000 - 0x14b5fbc28fff 0x14b5fbc29000 - 0x14b5fbc36fff 0x14b5fbc37000 - 0x14b5fbc44fff 0x14b5fbc45000 - 0x14b5fbc52fff 0x14b5fbc53000 - 0x14b5fbc56fff 0x14b5fbc57000 - 0x14b5fbc57fff 0x14b5fbc58000 - 0x14b5fbc6dfff 0x14b5fbc6e000 - 0x14b5fbc99fff 0x14b5fbc9a000 - 0x14b5fbca2fff 0x14b5fbca3000 - 0x14b5fbca3fff 0x14b5fbca4000 - 0x14b5fbca6fff 0x14b5fbca7000 - 0x14b5fbcacfff 0x14b5fbcad000 - 0x14b5fbcaffff 0x14b5fbcb0000 - 0x14b5fbcb0fff 0x14b5fbcb1000 - 0x14b5fbcb1fff 0x14b5fbcb2000 - 0x14b5fbcb8fff 0x14b5fbcb9000 - 0x14b5fbcb9fff 0x14b5fbcba000 - 0x14b5fbcdafff 0x14b5fbcdb000 - 0x14b5fbce3fff 0x14b5fbce4000 - 0x14b5fbce4fff 0x14b5fbce5000 - 0x14b5fbce6fff 0x7fff3185e000 - 0x7fff3187efff 0x7fff31915000 - 0x7fff31918fff 0x7fff31919000 - 0x7fff3191afff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/backquote.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2274000 - 0x2294fff 0x100000000000 - 0x1000000bffff 0x145d7e004000 - 0x145d7e004fff 0x145d7e005000 - 0x145d7e6affff 0x145d7e6b0000 - 0x145d7e704fff 0x145d7e705000 - 0x145d7e707fff 0x145d7e708000 - 0x145d7e72dfff 0x145d7e72e000 - 0x145d7e87cfff 0x145d7e87d000 - 0x145d7e8c8fff 0x145d7e8c9000 - 0x145d7e8c9fff 0x145d7e8ca000 - 0x145d7e8ccfff 0x145d7e8cd000 - 0x145d7e8cffff 0x145d7e8d0000 - 0x145d7e8d3fff 0x145d7e8d4000 - 0x145d7e8d6fff 0x145d7e8d7000 - 0x145d7e8e8fff 0x145d7e8e9000 - 0x145d7e8ecfff 0x145d7e8ed000 - 0x145d7e8edfff 0x145d7e8ee000 - 0x145d7e8eefff 0x145d7e8ef000 - 0x145d7e8f0fff 0x145d7e8f1000 - 0x145d7e901fff 0x145d7e902000 - 0x145d7e937fff 0x145d7e938000 - 0x145d7ea6dfff 0x145d7ea6e000 - 0x145d7ea6efff 0x145d7ea6f000 - 0x145d7ea72fff 0x145d7ea73000 - 0x145d7ea73fff 0x145d7ea74000 - 0x145d7ea74fff 0x145d7ea75000 - 0x145d7ea76fff 0x145d7ea77000 - 0x145d7ea77fff 0x145d7ea78000 - 0x145d7ea78fff 0x145d7ea79000 - 0x145d7ea79fff 0x145d7ea7a000 - 0x145d7ea7bfff 0x145d7ea7c000 - 0x145d7ea7dfff 0x145d7ea7e000 - 0x145d7ea7efff 0x145d7ea7f000 - 0x145d7ea7ffff 0x145d7ea80000 - 0x145d7ea80fff 0x145d7ea81000 - 0x145d7ea82fff 0x145d7ea83000 - 0x145d7ea84fff 0x145d7ea85000 - 0x145d7ea85fff 0x145d7ea86000 - 0x145d7ea86fff 0x145d7ea87000 - 0x145d7ea87fff 0x145d7ea88000 - 0x145d7ea95fff 0x145d7ea96000 - 0x145d7eaa3fff 0x145d7eaa4000 - 0x145d7eab1fff 0x145d7eab2000 - 0x145d7eab5fff 0x145d7eab6000 - 0x145d7eab6fff 0x145d7eab7000 - 0x145d7eaccfff 0x145d7eacd000 - 0x145d7eaf8fff 0x145d7eaf9000 - 0x145d7eb01fff 0x145d7eb02000 - 0x145d7eb02fff 0x145d7eb03000 - 0x145d7eb05fff 0x145d7eb06000 - 0x145d7eb0bfff 0x145d7eb0c000 - 0x145d7eb0efff 0x145d7eb0f000 - 0x145d7eb0ffff 0x145d7eb10000 - 0x145d7eb10fff 0x145d7eb11000 - 0x145d7eb17fff 0x145d7eb18000 - 0x145d7eb18fff 0x145d7eb19000 - 0x145d7eb39fff 0x145d7eb3a000 - 0x145d7eb42fff 0x145d7eb43000 - 0x145d7eb43fff 0x145d7eb44000 - 0x145d7eb45fff 0x7ffdb5193000 - 0x7ffdb51b3fff 0x7ffdb51c1000 - 0x7ffdb51c4fff 0x7ffdb51c5000 - 0x7ffdb51c6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defmacro.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x227c000 - 0x229cfff 0x100000000000 - 0x1000000bffff 0x14ceaf3eb000 - 0x14ceaf3ebfff 0x14ceaf3ec000 - 0x14ceafa96fff 0x14ceafa97000 - 0x14ceafaebfff 0x14ceafaec000 - 0x14ceafaeefff 0x14ceafaef000 - 0x14ceafb14fff 0x14ceafb15000 - 0x14ceafc63fff 0x14ceafc64000 - 0x14ceafcaffff 0x14ceafcb0000 - 0x14ceafcb0fff 0x14ceafcb1000 - 0x14ceafcb3fff 0x14ceafcb4000 - 0x14ceafcb6fff 0x14ceafcb7000 - 0x14ceafcbafff 0x14ceafcbb000 - 0x14ceafcbdfff 0x14ceafcbe000 - 0x14ceafccffff 0x14ceafcd0000 - 0x14ceafcd3fff 0x14ceafcd4000 - 0x14ceafcd4fff 0x14ceafcd5000 - 0x14ceafcd5fff 0x14ceafcd6000 - 0x14ceafcd7fff 0x14ceafcd8000 - 0x14ceafce8fff 0x14ceafce9000 - 0x14ceafd1efff 0x14ceafd1f000 - 0x14ceafe54fff 0x14ceafe55000 - 0x14ceafe55fff 0x14ceafe56000 - 0x14ceafe59fff 0x14ceafe5a000 - 0x14ceafe5afff 0x14ceafe5b000 - 0x14ceafe5bfff 0x14ceafe5c000 - 0x14ceafe5dfff 0x14ceafe5e000 - 0x14ceafe5efff 0x14ceafe5f000 - 0x14ceafe5ffff 0x14ceafe60000 - 0x14ceafe60fff 0x14ceafe61000 - 0x14ceafe62fff 0x14ceafe63000 - 0x14ceafe64fff 0x14ceafe65000 - 0x14ceafe65fff 0x14ceafe66000 - 0x14ceafe66fff 0x14ceafe67000 - 0x14ceafe67fff 0x14ceafe68000 - 0x14ceafe69fff 0x14ceafe6a000 - 0x14ceafe6bfff 0x14ceafe6c000 - 0x14ceafe6cfff 0x14ceafe6d000 - 0x14ceafe6dfff 0x14ceafe6e000 - 0x14ceafe6efff 0x14ceafe6f000 - 0x14ceafe7cfff 0x14ceafe7d000 - 0x14ceafe8afff 0x14ceafe8b000 - 0x14ceafe98fff 0x14ceafe99000 - 0x14ceafe9cfff 0x14ceafe9d000 - 0x14ceafe9dfff 0x14ceafe9e000 - 0x14ceafeb3fff 0x14ceafeb4000 - 0x14ceafedffff 0x14ceafee0000 - 0x14ceafee8fff 0x14ceafee9000 - 0x14ceafee9fff 0x14ceafeea000 - 0x14ceafeecfff 0x14ceafeed000 - 0x14ceafef2fff 0x14ceafef3000 - 0x14ceafef5fff 0x14ceafef6000 - 0x14ceafef6fff 0x14ceafef7000 - 0x14ceafef7fff 0x14ceafef8000 - 0x14ceafefefff 0x14ceafeff000 - 0x14ceafefffff 0x14ceaff00000 - 0x14ceaff20fff 0x14ceaff21000 - 0x14ceaff29fff 0x14ceaff2a000 - 0x14ceaff2afff 0x14ceaff2b000 - 0x14ceaff2cfff 0x7fffeccc1000 - 0x7fffecce1fff 0x7fffeccee000 - 0x7fffeccf1fff 0x7fffeccf2000 - 0x7fffeccf3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x19d4000 - 0x19f4fff 0x100000000000 - 0x1000000bffff 0x148cb4664000 - 0x148cb4664fff 0x148cb4665000 - 0x148cb4d0ffff 0x148cb4d10000 - 0x148cb4d64fff 0x148cb4d65000 - 0x148cb4d67fff 0x148cb4d68000 - 0x148cb4d8dfff 0x148cb4d8e000 - 0x148cb4edcfff 0x148cb4edd000 - 0x148cb4f28fff 0x148cb4f29000 - 0x148cb4f29fff 0x148cb4f2a000 - 0x148cb4f2cfff 0x148cb4f2d000 - 0x148cb4f2ffff 0x148cb4f30000 - 0x148cb4f33fff 0x148cb4f34000 - 0x148cb4f36fff 0x148cb4f37000 - 0x148cb4f48fff 0x148cb4f49000 - 0x148cb4f4cfff 0x148cb4f4d000 - 0x148cb4f4dfff 0x148cb4f4e000 - 0x148cb4f4efff 0x148cb4f4f000 - 0x148cb4f50fff 0x148cb4f51000 - 0x148cb4f61fff 0x148cb4f62000 - 0x148cb4f97fff 0x148cb4f98000 - 0x148cb50cdfff 0x148cb50ce000 - 0x148cb50cefff 0x148cb50cf000 - 0x148cb50d2fff 0x148cb50d3000 - 0x148cb50d3fff 0x148cb50d4000 - 0x148cb50d4fff 0x148cb50d5000 - 0x148cb50d6fff 0x148cb50d7000 - 0x148cb50d7fff 0x148cb50d8000 - 0x148cb50d8fff 0x148cb50d9000 - 0x148cb50d9fff 0x148cb50da000 - 0x148cb50dbfff 0x148cb50dc000 - 0x148cb50ddfff 0x148cb50de000 - 0x148cb50defff 0x148cb50df000 - 0x148cb50dffff 0x148cb50e0000 - 0x148cb50e0fff 0x148cb50e1000 - 0x148cb50e2fff 0x148cb50e3000 - 0x148cb50e4fff 0x148cb50e5000 - 0x148cb50e5fff 0x148cb50e6000 - 0x148cb50e6fff 0x148cb50e7000 - 0x148cb50e7fff 0x148cb50e8000 - 0x148cb50f5fff 0x148cb50f6000 - 0x148cb5103fff 0x148cb5104000 - 0x148cb5111fff 0x148cb5112000 - 0x148cb5115fff 0x148cb5116000 - 0x148cb5116fff 0x148cb5117000 - 0x148cb512cfff 0x148cb512d000 - 0x148cb5158fff 0x148cb5159000 - 0x148cb5161fff 0x148cb5162000 - 0x148cb5162fff 0x148cb5163000 - 0x148cb5165fff 0x148cb5166000 - 0x148cb516bfff 0x148cb516c000 - 0x148cb516efff 0x148cb516f000 - 0x148cb516ffff 0x148cb5170000 - 0x148cb5170fff 0x148cb5171000 - 0x148cb5177fff 0x148cb5178000 - 0x148cb5178fff 0x148cb5179000 - 0x148cb5199fff 0x148cb519a000 - 0x148cb51a2fff 0x148cb51a3000 - 0x148cb51a3fff 0x148cb51a4000 - 0x148cb51a5fff 0x7ffff5f93000 - 0x7ffff5fb3fff 0x7ffff5fe8000 - 0x7ffff5febfff 0x7ffff5fec000 - 0x7ffff5fedfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xccc000 - 0xcecfff 0x100000000000 - 0x1000000bffff 0x154d77d8e000 - 0x154d77d8efff 0x154d77d8f000 - 0x154d78439fff 0x154d7843a000 - 0x154d7848efff 0x154d7848f000 - 0x154d78491fff 0x154d78492000 - 0x154d784b7fff 0x154d784b8000 - 0x154d78606fff 0x154d78607000 - 0x154d78652fff 0x154d78653000 - 0x154d78653fff 0x154d78654000 - 0x154d78656fff 0x154d78657000 - 0x154d78659fff 0x154d7865a000 - 0x154d7865dfff 0x154d7865e000 - 0x154d78660fff 0x154d78661000 - 0x154d78672fff 0x154d78673000 - 0x154d78676fff 0x154d78677000 - 0x154d78677fff 0x154d78678000 - 0x154d78678fff 0x154d78679000 - 0x154d7867afff 0x154d7867b000 - 0x154d7868bfff 0x154d7868c000 - 0x154d786c1fff 0x154d786c2000 - 0x154d787f7fff 0x154d787f8000 - 0x154d787f8fff 0x154d787f9000 - 0x154d787fcfff 0x154d787fd000 - 0x154d787fdfff 0x154d787fe000 - 0x154d787fefff 0x154d787ff000 - 0x154d78800fff 0x154d78801000 - 0x154d78801fff 0x154d78802000 - 0x154d78802fff 0x154d78803000 - 0x154d78803fff 0x154d78804000 - 0x154d78805fff 0x154d78806000 - 0x154d78807fff 0x154d78808000 - 0x154d78808fff 0x154d78809000 - 0x154d78809fff 0x154d7880a000 - 0x154d7880afff 0x154d7880b000 - 0x154d7880cfff 0x154d7880d000 - 0x154d7880efff 0x154d7880f000 - 0x154d7880ffff 0x154d78810000 - 0x154d78810fff 0x154d78811000 - 0x154d78811fff 0x154d78812000 - 0x154d7881ffff 0x154d78820000 - 0x154d7882dfff 0x154d7882e000 - 0x154d7883bfff 0x154d7883c000 - 0x154d7883ffff 0x154d78840000 - 0x154d78840fff 0x154d78841000 - 0x154d78856fff 0x154d78857000 - 0x154d78882fff 0x154d78883000 - 0x154d7888bfff 0x154d7888c000 - 0x154d7888cfff 0x154d7888d000 - 0x154d7888ffff 0x154d78890000 - 0x154d78895fff 0x154d78896000 - 0x154d78898fff 0x154d78899000 - 0x154d78899fff 0x154d7889a000 - 0x154d7889afff 0x154d7889b000 - 0x154d788a1fff 0x154d788a2000 - 0x154d788a2fff 0x154d788a3000 - 0x154d788c3fff 0x154d788c4000 - 0x154d788ccfff 0x154d788cd000 - 0x154d788cdfff 0x154d788ce000 - 0x154d788cffff 0x7fff846b7000 - 0x7fff846d7fff 0x7fff847cd000 - 0x7fff847d0fff 0x7fff847d1000 - 0x7fff847d2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1829000 - 0x1849fff 0x100000000000 - 0x1000000bffff 0x14f668df6000 - 0x14f668df6fff 0x14f668df7000 - 0x14f6694a1fff 0x14f6694a2000 - 0x14f6694f6fff 0x14f6694f7000 - 0x14f6694f9fff 0x14f6694fa000 - 0x14f66951ffff 0x14f669520000 - 0x14f66966efff 0x14f66966f000 - 0x14f6696bafff 0x14f6696bb000 - 0x14f6696bbfff 0x14f6696bc000 - 0x14f6696befff 0x14f6696bf000 - 0x14f6696c1fff 0x14f6696c2000 - 0x14f6696c5fff 0x14f6696c6000 - 0x14f6696c8fff 0x14f6696c9000 - 0x14f6696dafff 0x14f6696db000 - 0x14f6696defff 0x14f6696df000 - 0x14f6696dffff 0x14f6696e0000 - 0x14f6696e0fff 0x14f6696e1000 - 0x14f6696e2fff 0x14f6696e3000 - 0x14f6696f3fff 0x14f6696f4000 - 0x14f669729fff 0x14f66972a000 - 0x14f66985ffff 0x14f669860000 - 0x14f669860fff 0x14f669861000 - 0x14f669864fff 0x14f669865000 - 0x14f669865fff 0x14f669866000 - 0x14f669866fff 0x14f669867000 - 0x14f669868fff 0x14f669869000 - 0x14f669869fff 0x14f66986a000 - 0x14f66986afff 0x14f66986b000 - 0x14f66986bfff 0x14f66986c000 - 0x14f66986dfff 0x14f66986e000 - 0x14f66986ffff 0x14f669870000 - 0x14f669870fff 0x14f669871000 - 0x14f669871fff 0x14f669872000 - 0x14f669872fff 0x14f669873000 - 0x14f669874fff 0x14f669875000 - 0x14f669876fff 0x14f669877000 - 0x14f669877fff 0x14f669878000 - 0x14f669878fff 0x14f669879000 - 0x14f669879fff 0x14f66987a000 - 0x14f669887fff 0x14f669888000 - 0x14f669895fff 0x14f669896000 - 0x14f6698a3fff 0x14f6698a4000 - 0x14f6698a7fff 0x14f6698a8000 - 0x14f6698a8fff 0x14f6698a9000 - 0x14f6698befff 0x14f6698bf000 - 0x14f6698eafff 0x14f6698eb000 - 0x14f6698f3fff 0x14f6698f4000 - 0x14f6698f4fff 0x14f6698f5000 - 0x14f6698f7fff 0x14f6698f8000 - 0x14f6698fdfff 0x14f6698fe000 - 0x14f669900fff 0x14f669901000 - 0x14f669901fff 0x14f669902000 - 0x14f669902fff 0x14f669903000 - 0x14f669909fff 0x14f66990a000 - 0x14f66990afff 0x14f66990b000 - 0x14f66992bfff 0x14f66992c000 - 0x14f669934fff 0x14f669935000 - 0x14f669935fff 0x14f669936000 - 0x14f669937fff 0x7ffc78fc2000 - 0x7ffc78fe2fff 0x7ffc78fe3000 - 0x7ffc78fe6fff 0x7ffc78fe7000 - 0x7ffc78fe8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/lambdalist.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x768000 - 0x788fff 0x100000000000 - 0x1000000bffff 0x153f06e87000 - 0x153f06e87fff 0x153f06e88000 - 0x153f07532fff 0x153f07533000 - 0x153f07587fff 0x153f07588000 - 0x153f0758afff 0x153f0758b000 - 0x153f075b0fff 0x153f075b1000 - 0x153f076fffff 0x153f07700000 - 0x153f0774bfff 0x153f0774c000 - 0x153f0774cfff 0x153f0774d000 - 0x153f0774ffff 0x153f07750000 - 0x153f07752fff 0x153f07753000 - 0x153f07756fff 0x153f07757000 - 0x153f07759fff 0x153f0775a000 - 0x153f0776bfff 0x153f0776c000 - 0x153f0776ffff 0x153f07770000 - 0x153f07770fff 0x153f07771000 - 0x153f07771fff 0x153f07772000 - 0x153f07773fff 0x153f07774000 - 0x153f07784fff 0x153f07785000 - 0x153f077bafff 0x153f077bb000 - 0x153f078f0fff 0x153f078f1000 - 0x153f078f1fff 0x153f078f2000 - 0x153f078f5fff 0x153f078f6000 - 0x153f078f6fff 0x153f078f7000 - 0x153f078f7fff 0x153f078f8000 - 0x153f078f9fff 0x153f078fa000 - 0x153f078fafff 0x153f078fb000 - 0x153f078fbfff 0x153f078fc000 - 0x153f078fcfff 0x153f078fd000 - 0x153f078fefff 0x153f078ff000 - 0x153f07900fff 0x153f07901000 - 0x153f07901fff 0x153f07902000 - 0x153f07902fff 0x153f07903000 - 0x153f07903fff 0x153f07904000 - 0x153f07905fff 0x153f07906000 - 0x153f07907fff 0x153f07908000 - 0x153f07908fff 0x153f07909000 - 0x153f07909fff 0x153f0790a000 - 0x153f0790afff 0x153f0790b000 - 0x153f07918fff 0x153f07919000 - 0x153f07926fff 0x153f07927000 - 0x153f07934fff 0x153f07935000 - 0x153f07938fff 0x153f07939000 - 0x153f07939fff 0x153f0793a000 - 0x153f0794ffff 0x153f07950000 - 0x153f0797bfff 0x153f0797c000 - 0x153f07984fff 0x153f07985000 - 0x153f07985fff 0x153f07986000 - 0x153f07988fff 0x153f07989000 - 0x153f0798efff 0x153f0798f000 - 0x153f07991fff 0x153f07992000 - 0x153f07992fff 0x153f07993000 - 0x153f07993fff 0x153f07994000 - 0x153f0799afff 0x153f0799b000 - 0x153f0799bfff 0x153f0799c000 - 0x153f079bcfff 0x153f079bd000 - 0x153f079c5fff 0x153f079c6000 - 0x153f079c6fff 0x153f079c7000 - 0x153f079c8fff 0x7fff7c443000 - 0x7fff7c463fff 0x7fff7c5af000 - 0x7fff7c5b2fff 0x7fff7c5b3000 - 0x7fff7c5b4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/places.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1a7f000 - 0x1a9ffff 0x100000000000 - 0x1000000bffff 0x145d3e386000 - 0x145d3e386fff 0x145d3e387000 - 0x145d3ea31fff 0x145d3ea32000 - 0x145d3ea86fff 0x145d3ea87000 - 0x145d3ea89fff 0x145d3ea8a000 - 0x145d3eaaffff 0x145d3eab0000 - 0x145d3ebfefff 0x145d3ebff000 - 0x145d3ec4afff 0x145d3ec4b000 - 0x145d3ec4bfff 0x145d3ec4c000 - 0x145d3ec4efff 0x145d3ec4f000 - 0x145d3ec51fff 0x145d3ec52000 - 0x145d3ec55fff 0x145d3ec56000 - 0x145d3ec58fff 0x145d3ec59000 - 0x145d3ec6afff 0x145d3ec6b000 - 0x145d3ec6efff 0x145d3ec6f000 - 0x145d3ec6ffff 0x145d3ec70000 - 0x145d3ec70fff 0x145d3ec71000 - 0x145d3ec72fff 0x145d3ec73000 - 0x145d3ec83fff 0x145d3ec84000 - 0x145d3ecb9fff 0x145d3ecba000 - 0x145d3edeffff 0x145d3edf0000 - 0x145d3edf0fff 0x145d3edf1000 - 0x145d3edf4fff 0x145d3edf5000 - 0x145d3edf5fff 0x145d3edf6000 - 0x145d3edf6fff 0x145d3edf7000 - 0x145d3edf8fff 0x145d3edf9000 - 0x145d3edf9fff 0x145d3edfa000 - 0x145d3edfafff 0x145d3edfb000 - 0x145d3edfbfff 0x145d3edfc000 - 0x145d3edfdfff 0x145d3edfe000 - 0x145d3edfffff 0x145d3ee00000 - 0x145d3ee00fff 0x145d3ee01000 - 0x145d3ee01fff 0x145d3ee02000 - 0x145d3ee02fff 0x145d3ee03000 - 0x145d3ee04fff 0x145d3ee05000 - 0x145d3ee06fff 0x145d3ee07000 - 0x145d3ee07fff 0x145d3ee08000 - 0x145d3ee08fff 0x145d3ee09000 - 0x145d3ee09fff 0x145d3ee0a000 - 0x145d3ee17fff 0x145d3ee18000 - 0x145d3ee25fff 0x145d3ee26000 - 0x145d3ee33fff 0x145d3ee34000 - 0x145d3ee37fff 0x145d3ee38000 - 0x145d3ee38fff 0x145d3ee39000 - 0x145d3ee4efff 0x145d3ee4f000 - 0x145d3ee7afff 0x145d3ee7b000 - 0x145d3ee83fff 0x145d3ee84000 - 0x145d3ee84fff 0x145d3ee85000 - 0x145d3ee87fff 0x145d3ee88000 - 0x145d3ee8dfff 0x145d3ee8e000 - 0x145d3ee90fff 0x145d3ee91000 - 0x145d3ee91fff 0x145d3ee92000 - 0x145d3ee92fff 0x145d3ee93000 - 0x145d3ee99fff 0x145d3ee9a000 - 0x145d3ee9afff 0x145d3ee9b000 - 0x145d3eebbfff 0x145d3eebc000 - 0x145d3eec4fff 0x145d3eec5000 - 0x145d3eec5fff 0x145d3eec6000 - 0x145d3eec7fff 0x7ffd4b9c4000 - 0x7ffd4b9e4fff 0x7ffd4b9f1000 - 0x7ffd4b9f4fff 0x7ffd4b9f5000 - 0x7ffd4b9f6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/floatprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x89a000 - 0x8bafff 0x100000000000 - 0x1000000bffff 0x14f892740000 - 0x14f892740fff 0x14f892741000 - 0x14f892debfff 0x14f892dec000 - 0x14f892e40fff 0x14f892e41000 - 0x14f892e43fff 0x14f892e44000 - 0x14f892e69fff 0x14f892e6a000 - 0x14f892fb8fff 0x14f892fb9000 - 0x14f893004fff 0x14f893005000 - 0x14f893005fff 0x14f893006000 - 0x14f893008fff 0x14f893009000 - 0x14f89300bfff 0x14f89300c000 - 0x14f89300ffff 0x14f893010000 - 0x14f893012fff 0x14f893013000 - 0x14f893024fff 0x14f893025000 - 0x14f893028fff 0x14f893029000 - 0x14f893029fff 0x14f89302a000 - 0x14f89302afff 0x14f89302b000 - 0x14f89302cfff 0x14f89302d000 - 0x14f89303dfff 0x14f89303e000 - 0x14f893073fff 0x14f893074000 - 0x14f8931a9fff 0x14f8931aa000 - 0x14f8931aafff 0x14f8931ab000 - 0x14f8931aefff 0x14f8931af000 - 0x14f8931affff 0x14f8931b0000 - 0x14f8931b0fff 0x14f8931b1000 - 0x14f8931b2fff 0x14f8931b3000 - 0x14f8931b3fff 0x14f8931b4000 - 0x14f8931b4fff 0x14f8931b5000 - 0x14f8931b5fff 0x14f8931b6000 - 0x14f8931b7fff 0x14f8931b8000 - 0x14f8931b9fff 0x14f8931ba000 - 0x14f8931bafff 0x14f8931bb000 - 0x14f8931bbfff 0x14f8931bc000 - 0x14f8931bcfff 0x14f8931bd000 - 0x14f8931befff 0x14f8931bf000 - 0x14f8931c0fff 0x14f8931c1000 - 0x14f8931c1fff 0x14f8931c2000 - 0x14f8931c2fff 0x14f8931c3000 - 0x14f8931c3fff 0x14f8931c4000 - 0x14f8931d1fff 0x14f8931d2000 - 0x14f8931dffff 0x14f8931e0000 - 0x14f8931edfff 0x14f8931ee000 - 0x14f8931f1fff 0x14f8931f2000 - 0x14f8931f2fff 0x14f8931f3000 - 0x14f893208fff 0x14f893209000 - 0x14f893234fff 0x14f893235000 - 0x14f89323dfff 0x14f89323e000 - 0x14f89323efff 0x14f89323f000 - 0x14f893241fff 0x14f893242000 - 0x14f893247fff 0x14f893248000 - 0x14f89324afff 0x14f89324b000 - 0x14f89324bfff 0x14f89324c000 - 0x14f89324cfff 0x14f89324d000 - 0x14f893253fff 0x14f893254000 - 0x14f893254fff 0x14f893255000 - 0x14f893275fff 0x14f893276000 - 0x14f89327efff 0x14f89327f000 - 0x14f89327ffff 0x14f893280000 - 0x14f893281fff 0x7ffeb0fb3000 - 0x7ffeb0fd3fff 0x7ffeb0ff5000 - 0x7ffeb0ff8fff 0x7ffeb0ff9000 - 0x7ffeb0ffafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defpackage.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1408000 - 0x1428fff 0x100000000000 - 0x1000000bffff 0x146c6a39e000 - 0x146c6a39efff 0x146c6a39f000 - 0x146c6aa49fff 0x146c6aa4a000 - 0x146c6aa9efff 0x146c6aa9f000 - 0x146c6aaa1fff 0x146c6aaa2000 - 0x146c6aac7fff 0x146c6aac8000 - 0x146c6ac16fff 0x146c6ac17000 - 0x146c6ac62fff 0x146c6ac63000 - 0x146c6ac63fff 0x146c6ac64000 - 0x146c6ac66fff 0x146c6ac67000 - 0x146c6ac69fff 0x146c6ac6a000 - 0x146c6ac6dfff 0x146c6ac6e000 - 0x146c6ac70fff 0x146c6ac71000 - 0x146c6ac82fff 0x146c6ac83000 - 0x146c6ac86fff 0x146c6ac87000 - 0x146c6ac87fff 0x146c6ac88000 - 0x146c6ac88fff 0x146c6ac89000 - 0x146c6ac8afff 0x146c6ac8b000 - 0x146c6ac9bfff 0x146c6ac9c000 - 0x146c6acd1fff 0x146c6acd2000 - 0x146c6ae07fff 0x146c6ae08000 - 0x146c6ae08fff 0x146c6ae09000 - 0x146c6ae0cfff 0x146c6ae0d000 - 0x146c6ae0dfff 0x146c6ae0e000 - 0x146c6ae0efff 0x146c6ae0f000 - 0x146c6ae10fff 0x146c6ae11000 - 0x146c6ae11fff 0x146c6ae12000 - 0x146c6ae12fff 0x146c6ae13000 - 0x146c6ae13fff 0x146c6ae14000 - 0x146c6ae15fff 0x146c6ae16000 - 0x146c6ae17fff 0x146c6ae18000 - 0x146c6ae18fff 0x146c6ae19000 - 0x146c6ae19fff 0x146c6ae1a000 - 0x146c6ae1afff 0x146c6ae1b000 - 0x146c6ae1cfff 0x146c6ae1d000 - 0x146c6ae1efff 0x146c6ae1f000 - 0x146c6ae1ffff 0x146c6ae20000 - 0x146c6ae20fff 0x146c6ae21000 - 0x146c6ae21fff 0x146c6ae22000 - 0x146c6ae2ffff 0x146c6ae30000 - 0x146c6ae3dfff 0x146c6ae3e000 - 0x146c6ae4bfff 0x146c6ae4c000 - 0x146c6ae4ffff 0x146c6ae50000 - 0x146c6ae50fff 0x146c6ae51000 - 0x146c6ae66fff 0x146c6ae67000 - 0x146c6ae92fff 0x146c6ae93000 - 0x146c6ae9bfff 0x146c6ae9c000 - 0x146c6ae9cfff 0x146c6ae9d000 - 0x146c6ae9ffff 0x146c6aea0000 - 0x146c6aea5fff 0x146c6aea6000 - 0x146c6aea8fff 0x146c6aea9000 - 0x146c6aea9fff 0x146c6aeaa000 - 0x146c6aeaafff 0x146c6aeab000 - 0x146c6aeb1fff 0x146c6aeb2000 - 0x146c6aeb2fff 0x146c6aeb3000 - 0x146c6aed3fff 0x146c6aed4000 - 0x146c6aedcfff 0x146c6aedd000 - 0x146c6aeddfff 0x146c6aede000 - 0x146c6aedffff 0x7ffe22d50000 - 0x7ffe22d70fff 0x7ffe22d78000 - 0x7ffe22d7bfff 0x7ffe22d7c000 - 0x7ffe22d7dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/type.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2517000 - 0x2537fff 0x100000000000 - 0x1000000bffff 0x155074d93000 - 0x155074d93fff 0x155074d94000 - 0x15507543efff 0x15507543f000 - 0x155075493fff 0x155075494000 - 0x155075496fff 0x155075497000 - 0x1550754bcfff 0x1550754bd000 - 0x15507560bfff 0x15507560c000 - 0x155075657fff 0x155075658000 - 0x155075658fff 0x155075659000 - 0x15507565bfff 0x15507565c000 - 0x15507565efff 0x15507565f000 - 0x155075662fff 0x155075663000 - 0x155075665fff 0x155075666000 - 0x155075677fff 0x155075678000 - 0x15507567bfff 0x15507567c000 - 0x15507567cfff 0x15507567d000 - 0x15507567dfff 0x15507567e000 - 0x15507567ffff 0x155075680000 - 0x155075690fff 0x155075691000 - 0x1550756c6fff 0x1550756c7000 - 0x1550757fcfff 0x1550757fd000 - 0x1550757fdfff 0x1550757fe000 - 0x155075801fff 0x155075802000 - 0x155075802fff 0x155075803000 - 0x155075803fff 0x155075804000 - 0x155075805fff 0x155075806000 - 0x155075806fff 0x155075807000 - 0x155075807fff 0x155075808000 - 0x155075808fff 0x155075809000 - 0x15507580afff 0x15507580b000 - 0x15507580cfff 0x15507580d000 - 0x15507580dfff 0x15507580e000 - 0x15507580efff 0x15507580f000 - 0x15507580ffff 0x155075810000 - 0x155075811fff 0x155075812000 - 0x155075813fff 0x155075814000 - 0x155075814fff 0x155075815000 - 0x155075815fff 0x155075816000 - 0x155075816fff 0x155075817000 - 0x155075824fff 0x155075825000 - 0x155075832fff 0x155075833000 - 0x155075840fff 0x155075841000 - 0x155075844fff 0x155075845000 - 0x155075845fff 0x155075846000 - 0x15507585bfff 0x15507585c000 - 0x155075887fff 0x155075888000 - 0x155075890fff 0x155075891000 - 0x155075891fff 0x155075892000 - 0x155075894fff 0x155075895000 - 0x15507589afff 0x15507589b000 - 0x15507589dfff 0x15507589e000 - 0x15507589efff 0x15507589f000 - 0x15507589ffff 0x1550758a0000 - 0x1550758a6fff 0x1550758a7000 - 0x1550758a7fff 0x1550758a8000 - 0x1550758c8fff 0x1550758c9000 - 0x1550758d1fff 0x1550758d2000 - 0x1550758d2fff 0x1550758d3000 - 0x1550758d4fff 0x7fffdcb9c000 - 0x7fffdcbbcfff 0x7fffdcbc4000 - 0x7fffdcbc7fff 0x7fffdcbc8000 - 0x7fffdcbc9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/subtypep.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x12db000 - 0x12fbfff 0x100000000000 - 0x1000000bffff 0x153d1ff6a000 - 0x153d1ff6afff 0x153d1ff6b000 - 0x153d20615fff 0x153d20616000 - 0x153d2066afff 0x153d2066b000 - 0x153d2066dfff 0x153d2066e000 - 0x153d20693fff 0x153d20694000 - 0x153d207e2fff 0x153d207e3000 - 0x153d2082efff 0x153d2082f000 - 0x153d2082ffff 0x153d20830000 - 0x153d20832fff 0x153d20833000 - 0x153d20835fff 0x153d20836000 - 0x153d20839fff 0x153d2083a000 - 0x153d2083cfff 0x153d2083d000 - 0x153d2084efff 0x153d2084f000 - 0x153d20852fff 0x153d20853000 - 0x153d20853fff 0x153d20854000 - 0x153d20854fff 0x153d20855000 - 0x153d20856fff 0x153d20857000 - 0x153d20867fff 0x153d20868000 - 0x153d2089dfff 0x153d2089e000 - 0x153d209d3fff 0x153d209d4000 - 0x153d209d4fff 0x153d209d5000 - 0x153d209d8fff 0x153d209d9000 - 0x153d209d9fff 0x153d209da000 - 0x153d209dafff 0x153d209db000 - 0x153d209dcfff 0x153d209dd000 - 0x153d209ddfff 0x153d209de000 - 0x153d209defff 0x153d209df000 - 0x153d209dffff 0x153d209e0000 - 0x153d209e1fff 0x153d209e2000 - 0x153d209e3fff 0x153d209e4000 - 0x153d209e4fff 0x153d209e5000 - 0x153d209e5fff 0x153d209e6000 - 0x153d209e6fff 0x153d209e7000 - 0x153d209e8fff 0x153d209e9000 - 0x153d209eafff 0x153d209eb000 - 0x153d209ebfff 0x153d209ec000 - 0x153d209ecfff 0x153d209ed000 - 0x153d209edfff 0x153d209ee000 - 0x153d209fbfff 0x153d209fc000 - 0x153d20a09fff 0x153d20a0a000 - 0x153d20a17fff 0x153d20a18000 - 0x153d20a1bfff 0x153d20a1c000 - 0x153d20a1cfff 0x153d20a1d000 - 0x153d20a32fff 0x153d20a33000 - 0x153d20a5efff 0x153d20a5f000 - 0x153d20a67fff 0x153d20a68000 - 0x153d20a68fff 0x153d20a69000 - 0x153d20a6bfff 0x153d20a6c000 - 0x153d20a71fff 0x153d20a72000 - 0x153d20a74fff 0x153d20a75000 - 0x153d20a75fff 0x153d20a76000 - 0x153d20a76fff 0x153d20a77000 - 0x153d20a7dfff 0x153d20a7e000 - 0x153d20a7efff 0x153d20a7f000 - 0x153d20a9ffff 0x153d20aa0000 - 0x153d20aa8fff 0x153d20aa9000 - 0x153d20aa9fff 0x153d20aaa000 - 0x153d20aabfff 0x7fff6137a000 - 0x7fff6139afff 0x7fff613ca000 - 0x7fff613cdfff 0x7fff613ce000 - 0x7fff613cffff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-package.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x86f000 - 0x88ffff 0x100000000000 - 0x1000000bffff 0x14cdcd58c000 - 0x14cdcd58cfff 0x14cdcd58d000 - 0x14cdcdc37fff 0x14cdcdc38000 - 0x14cdcdc8cfff 0x14cdcdc8d000 - 0x14cdcdc8ffff 0x14cdcdc90000 - 0x14cdcdcb5fff 0x14cdcdcb6000 - 0x14cdcde04fff 0x14cdcde05000 - 0x14cdcde50fff 0x14cdcde51000 - 0x14cdcde51fff 0x14cdcde52000 - 0x14cdcde54fff 0x14cdcde55000 - 0x14cdcde57fff 0x14cdcde58000 - 0x14cdcde5bfff 0x14cdcde5c000 - 0x14cdcde5efff 0x14cdcde5f000 - 0x14cdcde70fff 0x14cdcde71000 - 0x14cdcde74fff 0x14cdcde75000 - 0x14cdcde75fff 0x14cdcde76000 - 0x14cdcde76fff 0x14cdcde77000 - 0x14cdcde78fff 0x14cdcde79000 - 0x14cdcde89fff 0x14cdcde8a000 - 0x14cdcdebffff 0x14cdcdec0000 - 0x14cdcdff5fff 0x14cdcdff6000 - 0x14cdcdff6fff 0x14cdcdff7000 - 0x14cdcdffafff 0x14cdcdffb000 - 0x14cdcdffbfff 0x14cdcdffc000 - 0x14cdcdffcfff 0x14cdcdffd000 - 0x14cdcdffefff 0x14cdcdfff000 - 0x14cdcdffffff 0x14cdce000000 - 0x14cdce000fff 0x14cdce001000 - 0x14cdce001fff 0x14cdce002000 - 0x14cdce003fff 0x14cdce004000 - 0x14cdce005fff 0x14cdce006000 - 0x14cdce006fff 0x14cdce007000 - 0x14cdce007fff 0x14cdce008000 - 0x14cdce008fff 0x14cdce009000 - 0x14cdce00afff 0x14cdce00b000 - 0x14cdce00cfff 0x14cdce00d000 - 0x14cdce00dfff 0x14cdce00e000 - 0x14cdce00efff 0x14cdce00f000 - 0x14cdce00ffff 0x14cdce010000 - 0x14cdce01dfff 0x14cdce01e000 - 0x14cdce02bfff 0x14cdce02c000 - 0x14cdce039fff 0x14cdce03a000 - 0x14cdce03dfff 0x14cdce03e000 - 0x14cdce03efff 0x14cdce03f000 - 0x14cdce054fff 0x14cdce055000 - 0x14cdce080fff 0x14cdce081000 - 0x14cdce089fff 0x14cdce08a000 - 0x14cdce08afff 0x14cdce08b000 - 0x14cdce08dfff 0x14cdce08e000 - 0x14cdce093fff 0x14cdce094000 - 0x14cdce096fff 0x14cdce097000 - 0x14cdce097fff 0x14cdce098000 - 0x14cdce098fff 0x14cdce099000 - 0x14cdce09ffff 0x14cdce0a0000 - 0x14cdce0a0fff 0x14cdce0a1000 - 0x14cdce0c1fff 0x14cdce0c2000 - 0x14cdce0cafff 0x14cdce0cb000 - 0x14cdce0cbfff 0x14cdce0cc000 - 0x14cdce0cdfff 0x7ffe964ed000 - 0x7ffe9650dfff 0x7ffe96597000 - 0x7ffe9659afff 0x7ffe9659b000 - 0x7ffe9659cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-macros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x111b000 - 0x113bfff 0x100000000000 - 0x1000000bffff 0x148ba71ad000 - 0x148ba71adfff 0x148ba71ae000 - 0x148ba7858fff 0x148ba7859000 - 0x148ba78adfff 0x148ba78ae000 - 0x148ba78b0fff 0x148ba78b1000 - 0x148ba78d6fff 0x148ba78d7000 - 0x148ba7a25fff 0x148ba7a26000 - 0x148ba7a71fff 0x148ba7a72000 - 0x148ba7a72fff 0x148ba7a73000 - 0x148ba7a75fff 0x148ba7a76000 - 0x148ba7a78fff 0x148ba7a79000 - 0x148ba7a7cfff 0x148ba7a7d000 - 0x148ba7a7ffff 0x148ba7a80000 - 0x148ba7a91fff 0x148ba7a92000 - 0x148ba7a95fff 0x148ba7a96000 - 0x148ba7a96fff 0x148ba7a97000 - 0x148ba7a97fff 0x148ba7a98000 - 0x148ba7a99fff 0x148ba7a9a000 - 0x148ba7aaafff 0x148ba7aab000 - 0x148ba7ae0fff 0x148ba7ae1000 - 0x148ba7c16fff 0x148ba7c17000 - 0x148ba7c17fff 0x148ba7c18000 - 0x148ba7c1bfff 0x148ba7c1c000 - 0x148ba7c1cfff 0x148ba7c1d000 - 0x148ba7c1dfff 0x148ba7c1e000 - 0x148ba7c1ffff 0x148ba7c20000 - 0x148ba7c20fff 0x148ba7c21000 - 0x148ba7c21fff 0x148ba7c22000 - 0x148ba7c22fff 0x148ba7c23000 - 0x148ba7c24fff 0x148ba7c25000 - 0x148ba7c26fff 0x148ba7c27000 - 0x148ba7c27fff 0x148ba7c28000 - 0x148ba7c28fff 0x148ba7c29000 - 0x148ba7c29fff 0x148ba7c2a000 - 0x148ba7c2bfff 0x148ba7c2c000 - 0x148ba7c2dfff 0x148ba7c2e000 - 0x148ba7c2efff 0x148ba7c2f000 - 0x148ba7c2ffff 0x148ba7c30000 - 0x148ba7c30fff 0x148ba7c31000 - 0x148ba7c3efff 0x148ba7c3f000 - 0x148ba7c4cfff 0x148ba7c4d000 - 0x148ba7c5afff 0x148ba7c5b000 - 0x148ba7c5efff 0x148ba7c5f000 - 0x148ba7c5ffff 0x148ba7c60000 - 0x148ba7c75fff 0x148ba7c76000 - 0x148ba7ca1fff 0x148ba7ca2000 - 0x148ba7caafff 0x148ba7cab000 - 0x148ba7cabfff 0x148ba7cac000 - 0x148ba7caefff 0x148ba7caf000 - 0x148ba7cb4fff 0x148ba7cb5000 - 0x148ba7cb7fff 0x148ba7cb8000 - 0x148ba7cb8fff 0x148ba7cb9000 - 0x148ba7cb9fff 0x148ba7cba000 - 0x148ba7cc0fff 0x148ba7cc1000 - 0x148ba7cc1fff 0x148ba7cc2000 - 0x148ba7ce2fff 0x148ba7ce3000 - 0x148ba7cebfff 0x148ba7cec000 - 0x148ba7cecfff 0x148ba7ced000 - 0x148ba7ceefff 0x7ffcf39ee000 - 0x7ffcf3a0efff 0x7ffcf3b53000 - 0x7ffcf3b56fff 0x7ffcf3b57000 - 0x7ffcf3b58fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class0.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xb1b000 - 0xb3bfff 0x100000000000 - 0x1000000bffff 0x14ef1082c000 - 0x14ef1082cfff 0x14ef1082d000 - 0x14ef10ed7fff 0x14ef10ed8000 - 0x14ef10f2cfff 0x14ef10f2d000 - 0x14ef10f2ffff 0x14ef10f30000 - 0x14ef10f55fff 0x14ef10f56000 - 0x14ef110a4fff 0x14ef110a5000 - 0x14ef110f0fff 0x14ef110f1000 - 0x14ef110f1fff 0x14ef110f2000 - 0x14ef110f4fff 0x14ef110f5000 - 0x14ef110f7fff 0x14ef110f8000 - 0x14ef110fbfff 0x14ef110fc000 - 0x14ef110fefff 0x14ef110ff000 - 0x14ef11110fff 0x14ef11111000 - 0x14ef11114fff 0x14ef11115000 - 0x14ef11115fff 0x14ef11116000 - 0x14ef11116fff 0x14ef11117000 - 0x14ef11118fff 0x14ef11119000 - 0x14ef11129fff 0x14ef1112a000 - 0x14ef1115ffff 0x14ef11160000 - 0x14ef11295fff 0x14ef11296000 - 0x14ef11296fff 0x14ef11297000 - 0x14ef1129afff 0x14ef1129b000 - 0x14ef1129bfff 0x14ef1129c000 - 0x14ef1129cfff 0x14ef1129d000 - 0x14ef1129efff 0x14ef1129f000 - 0x14ef1129ffff 0x14ef112a0000 - 0x14ef112a0fff 0x14ef112a1000 - 0x14ef112a1fff 0x14ef112a2000 - 0x14ef112a3fff 0x14ef112a4000 - 0x14ef112a5fff 0x14ef112a6000 - 0x14ef112a6fff 0x14ef112a7000 - 0x14ef112a7fff 0x14ef112a8000 - 0x14ef112a8fff 0x14ef112a9000 - 0x14ef112aafff 0x14ef112ab000 - 0x14ef112acfff 0x14ef112ad000 - 0x14ef112adfff 0x14ef112ae000 - 0x14ef112aefff 0x14ef112af000 - 0x14ef112affff 0x14ef112b0000 - 0x14ef112bdfff 0x14ef112be000 - 0x14ef112cbfff 0x14ef112cc000 - 0x14ef112d9fff 0x14ef112da000 - 0x14ef112ddfff 0x14ef112de000 - 0x14ef112defff 0x14ef112df000 - 0x14ef112f4fff 0x14ef112f5000 - 0x14ef11320fff 0x14ef11321000 - 0x14ef11329fff 0x14ef1132a000 - 0x14ef1132afff 0x14ef1132b000 - 0x14ef1132dfff 0x14ef1132e000 - 0x14ef11333fff 0x14ef11334000 - 0x14ef11336fff 0x14ef11337000 - 0x14ef11337fff 0x14ef11338000 - 0x14ef11338fff 0x14ef11339000 - 0x14ef1133ffff 0x14ef11340000 - 0x14ef11340fff 0x14ef11341000 - 0x14ef11361fff 0x14ef11362000 - 0x14ef1136afff 0x14ef1136b000 - 0x14ef1136bfff 0x14ef1136c000 - 0x14ef1136dfff 0x7ffd65e37000 - 0x7ffd65e57fff 0x7ffd65f44000 - 0x7ffd65f47fff 0x7ffd65f48000 - 0x7ffd65f49fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-metaobject1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xca9000 - 0xcc9fff 0x100000000000 - 0x1000000bffff 0x14d141d23000 - 0x14d141d23fff 0x14d141d24000 - 0x14d1423cefff 0x14d1423cf000 - 0x14d142423fff 0x14d142424000 - 0x14d142426fff 0x14d142427000 - 0x14d14244cfff 0x14d14244d000 - 0x14d14259bfff 0x14d14259c000 - 0x14d1425e7fff 0x14d1425e8000 - 0x14d1425e8fff 0x14d1425e9000 - 0x14d1425ebfff 0x14d1425ec000 - 0x14d1425eefff 0x14d1425ef000 - 0x14d1425f2fff 0x14d1425f3000 - 0x14d1425f5fff 0x14d1425f6000 - 0x14d142607fff 0x14d142608000 - 0x14d14260bfff 0x14d14260c000 - 0x14d14260cfff 0x14d14260d000 - 0x14d14260dfff 0x14d14260e000 - 0x14d14260ffff 0x14d142610000 - 0x14d142620fff 0x14d142621000 - 0x14d142656fff 0x14d142657000 - 0x14d14278cfff 0x14d14278d000 - 0x14d14278dfff 0x14d14278e000 - 0x14d142791fff 0x14d142792000 - 0x14d142792fff 0x14d142793000 - 0x14d142793fff 0x14d142794000 - 0x14d142795fff 0x14d142796000 - 0x14d142796fff 0x14d142797000 - 0x14d142797fff 0x14d142798000 - 0x14d142798fff 0x14d142799000 - 0x14d14279afff 0x14d14279b000 - 0x14d14279cfff 0x14d14279d000 - 0x14d14279dfff 0x14d14279e000 - 0x14d14279efff 0x14d14279f000 - 0x14d14279ffff 0x14d1427a0000 - 0x14d1427a1fff 0x14d1427a2000 - 0x14d1427a3fff 0x14d1427a4000 - 0x14d1427a4fff 0x14d1427a5000 - 0x14d1427a5fff 0x14d1427a6000 - 0x14d1427a6fff 0x14d1427a7000 - 0x14d1427b4fff 0x14d1427b5000 - 0x14d1427c2fff 0x14d1427c3000 - 0x14d1427d0fff 0x14d1427d1000 - 0x14d1427d4fff 0x14d1427d5000 - 0x14d1427d5fff 0x14d1427d6000 - 0x14d1427ebfff 0x14d1427ec000 - 0x14d142817fff 0x14d142818000 - 0x14d142820fff 0x14d142821000 - 0x14d142821fff 0x14d142822000 - 0x14d142824fff 0x14d142825000 - 0x14d14282afff 0x14d14282b000 - 0x14d14282dfff 0x14d14282e000 - 0x14d14282efff 0x14d14282f000 - 0x14d14282ffff 0x14d142830000 - 0x14d142836fff 0x14d142837000 - 0x14d142837fff 0x14d142838000 - 0x14d142858fff 0x14d142859000 - 0x14d142861fff 0x14d142862000 - 0x14d142862fff 0x14d142863000 - 0x14d142864fff 0x7ffe523ab000 - 0x7ffe523cbfff 0x7ffe523de000 - 0x7ffe523e1fff 0x7ffe523e2000 - 0x7ffe523e3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1c8c000 - 0x1cacfff 0x100000000000 - 0x1000000bffff 0x151a781d3000 - 0x151a781d3fff 0x151a781d4000 - 0x151a7887efff 0x151a7887f000 - 0x151a788d3fff 0x151a788d4000 - 0x151a788d6fff 0x151a788d7000 - 0x151a788fcfff 0x151a788fd000 - 0x151a78a4bfff 0x151a78a4c000 - 0x151a78a97fff 0x151a78a98000 - 0x151a78a98fff 0x151a78a99000 - 0x151a78a9bfff 0x151a78a9c000 - 0x151a78a9efff 0x151a78a9f000 - 0x151a78aa2fff 0x151a78aa3000 - 0x151a78aa5fff 0x151a78aa6000 - 0x151a78ab7fff 0x151a78ab8000 - 0x151a78abbfff 0x151a78abc000 - 0x151a78abcfff 0x151a78abd000 - 0x151a78abdfff 0x151a78abe000 - 0x151a78abffff 0x151a78ac0000 - 0x151a78ad0fff 0x151a78ad1000 - 0x151a78b06fff 0x151a78b07000 - 0x151a78c3cfff 0x151a78c3d000 - 0x151a78c3dfff 0x151a78c3e000 - 0x151a78c41fff 0x151a78c42000 - 0x151a78c42fff 0x151a78c43000 - 0x151a78c43fff 0x151a78c44000 - 0x151a78c45fff 0x151a78c46000 - 0x151a78c46fff 0x151a78c47000 - 0x151a78c47fff 0x151a78c48000 - 0x151a78c48fff 0x151a78c49000 - 0x151a78c4afff 0x151a78c4b000 - 0x151a78c4cfff 0x151a78c4d000 - 0x151a78c4dfff 0x151a78c4e000 - 0x151a78c4efff 0x151a78c4f000 - 0x151a78c4ffff 0x151a78c50000 - 0x151a78c51fff 0x151a78c52000 - 0x151a78c53fff 0x151a78c54000 - 0x151a78c54fff 0x151a78c55000 - 0x151a78c55fff 0x151a78c56000 - 0x151a78c56fff 0x151a78c57000 - 0x151a78c64fff 0x151a78c65000 - 0x151a78c72fff 0x151a78c73000 - 0x151a78c80fff 0x151a78c81000 - 0x151a78c84fff 0x151a78c85000 - 0x151a78c85fff 0x151a78c86000 - 0x151a78c9bfff 0x151a78c9c000 - 0x151a78cc7fff 0x151a78cc8000 - 0x151a78cd0fff 0x151a78cd1000 - 0x151a78cd1fff 0x151a78cd2000 - 0x151a78cd4fff 0x151a78cd5000 - 0x151a78cdafff 0x151a78cdb000 - 0x151a78cddfff 0x151a78cde000 - 0x151a78cdefff 0x151a78cdf000 - 0x151a78cdffff 0x151a78ce0000 - 0x151a78ce6fff 0x151a78ce7000 - 0x151a78ce7fff 0x151a78ce8000 - 0x151a78d08fff 0x151a78d09000 - 0x151a78d11fff 0x151a78d12000 - 0x151a78d12fff 0x151a78d13000 - 0x151a78d14fff 0x7fff8ff78000 - 0x7fff8ff98fff 0x7fff8ffb3000 - 0x7fff8ffb6fff 0x7fff8ffb7000 - 0x7fff8ffb8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1190000 - 0x11b0fff 0x100000000000 - 0x1000000bffff 0x14a0e9845000 - 0x14a0e9845fff 0x14a0e9846000 - 0x14a0e9ef0fff 0x14a0e9ef1000 - 0x14a0e9f45fff 0x14a0e9f46000 - 0x14a0e9f48fff 0x14a0e9f49000 - 0x14a0e9f6efff 0x14a0e9f6f000 - 0x14a0ea0bdfff 0x14a0ea0be000 - 0x14a0ea109fff 0x14a0ea10a000 - 0x14a0ea10afff 0x14a0ea10b000 - 0x14a0ea10dfff 0x14a0ea10e000 - 0x14a0ea110fff 0x14a0ea111000 - 0x14a0ea114fff 0x14a0ea115000 - 0x14a0ea117fff 0x14a0ea118000 - 0x14a0ea129fff 0x14a0ea12a000 - 0x14a0ea12dfff 0x14a0ea12e000 - 0x14a0ea12efff 0x14a0ea12f000 - 0x14a0ea12ffff 0x14a0ea130000 - 0x14a0ea131fff 0x14a0ea132000 - 0x14a0ea142fff 0x14a0ea143000 - 0x14a0ea178fff 0x14a0ea179000 - 0x14a0ea2aefff 0x14a0ea2af000 - 0x14a0ea2affff 0x14a0ea2b0000 - 0x14a0ea2b3fff 0x14a0ea2b4000 - 0x14a0ea2b4fff 0x14a0ea2b5000 - 0x14a0ea2b5fff 0x14a0ea2b6000 - 0x14a0ea2b7fff 0x14a0ea2b8000 - 0x14a0ea2b8fff 0x14a0ea2b9000 - 0x14a0ea2b9fff 0x14a0ea2ba000 - 0x14a0ea2bafff 0x14a0ea2bb000 - 0x14a0ea2bcfff 0x14a0ea2bd000 - 0x14a0ea2befff 0x14a0ea2bf000 - 0x14a0ea2bffff 0x14a0ea2c0000 - 0x14a0ea2c0fff 0x14a0ea2c1000 - 0x14a0ea2c1fff 0x14a0ea2c2000 - 0x14a0ea2c3fff 0x14a0ea2c4000 - 0x14a0ea2c5fff 0x14a0ea2c6000 - 0x14a0ea2c6fff 0x14a0ea2c7000 - 0x14a0ea2c7fff 0x14a0ea2c8000 - 0x14a0ea2c8fff 0x14a0ea2c9000 - 0x14a0ea2d6fff 0x14a0ea2d7000 - 0x14a0ea2e4fff 0x14a0ea2e5000 - 0x14a0ea2f2fff 0x14a0ea2f3000 - 0x14a0ea2f6fff 0x14a0ea2f7000 - 0x14a0ea2f7fff 0x14a0ea2f8000 - 0x14a0ea30dfff 0x14a0ea30e000 - 0x14a0ea339fff 0x14a0ea33a000 - 0x14a0ea342fff 0x14a0ea343000 - 0x14a0ea343fff 0x14a0ea344000 - 0x14a0ea346fff 0x14a0ea347000 - 0x14a0ea34cfff 0x14a0ea34d000 - 0x14a0ea34ffff 0x14a0ea350000 - 0x14a0ea350fff 0x14a0ea351000 - 0x14a0ea351fff 0x14a0ea352000 - 0x14a0ea358fff 0x14a0ea359000 - 0x14a0ea359fff 0x14a0ea35a000 - 0x14a0ea37afff 0x14a0ea37b000 - 0x14a0ea383fff 0x14a0ea384000 - 0x14a0ea384fff 0x14a0ea385000 - 0x14a0ea386fff 0x7ffe76332000 - 0x7ffe76352fff 0x7ffe763e9000 - 0x7ffe763ecfff 0x7ffe763ed000 - 0x7ffe763eefff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1928000 - 0x1948fff 0x100000000000 - 0x1000000bffff 0x153884801000 - 0x153884801fff 0x153884802000 - 0x153884eacfff 0x153884ead000 - 0x153884f01fff 0x153884f02000 - 0x153884f04fff 0x153884f05000 - 0x153884f2afff 0x153884f2b000 - 0x153885079fff 0x15388507a000 - 0x1538850c5fff 0x1538850c6000 - 0x1538850c6fff 0x1538850c7000 - 0x1538850c9fff 0x1538850ca000 - 0x1538850ccfff 0x1538850cd000 - 0x1538850d0fff 0x1538850d1000 - 0x1538850d3fff 0x1538850d4000 - 0x1538850e5fff 0x1538850e6000 - 0x1538850e9fff 0x1538850ea000 - 0x1538850eafff 0x1538850eb000 - 0x1538850ebfff 0x1538850ec000 - 0x1538850edfff 0x1538850ee000 - 0x1538850fefff 0x1538850ff000 - 0x153885134fff 0x153885135000 - 0x15388526afff 0x15388526b000 - 0x15388526bfff 0x15388526c000 - 0x15388526ffff 0x153885270000 - 0x153885270fff 0x153885271000 - 0x153885271fff 0x153885272000 - 0x153885273fff 0x153885274000 - 0x153885274fff 0x153885275000 - 0x153885275fff 0x153885276000 - 0x153885276fff 0x153885277000 - 0x153885278fff 0x153885279000 - 0x15388527afff 0x15388527b000 - 0x15388527bfff 0x15388527c000 - 0x15388527cfff 0x15388527d000 - 0x15388527dfff 0x15388527e000 - 0x15388527ffff 0x153885280000 - 0x153885281fff 0x153885282000 - 0x153885282fff 0x153885283000 - 0x153885283fff 0x153885284000 - 0x153885284fff 0x153885285000 - 0x153885292fff 0x153885293000 - 0x1538852a0fff 0x1538852a1000 - 0x1538852aefff 0x1538852af000 - 0x1538852b2fff 0x1538852b3000 - 0x1538852b3fff 0x1538852b4000 - 0x1538852c9fff 0x1538852ca000 - 0x1538852f5fff 0x1538852f6000 - 0x1538852fefff 0x1538852ff000 - 0x1538852fffff 0x153885300000 - 0x153885302fff 0x153885303000 - 0x153885308fff 0x153885309000 - 0x15388530bfff 0x15388530c000 - 0x15388530cfff 0x15388530d000 - 0x15388530dfff 0x15388530e000 - 0x153885314fff 0x153885315000 - 0x153885315fff 0x153885316000 - 0x153885336fff 0x153885337000 - 0x15388533ffff 0x153885340000 - 0x153885340fff 0x153885341000 - 0x153885342fff 0x7ffd9b508000 - 0x7ffd9b528fff 0x7ffd9b529000 - 0x7ffd9b52cfff 0x7ffd9b52d000 - 0x7ffd9b52efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x78f000 - 0x7affff 0x100000000000 - 0x1000000bffff 0x14961c5a5000 - 0x14961c5a5fff 0x14961c5a6000 - 0x14961cc50fff 0x14961cc51000 - 0x14961cca5fff 0x14961cca6000 - 0x14961cca8fff 0x14961cca9000 - 0x14961cccefff 0x14961cccf000 - 0x14961ce1dfff 0x14961ce1e000 - 0x14961ce69fff 0x14961ce6a000 - 0x14961ce6afff 0x14961ce6b000 - 0x14961ce6dfff 0x14961ce6e000 - 0x14961ce70fff 0x14961ce71000 - 0x14961ce74fff 0x14961ce75000 - 0x14961ce77fff 0x14961ce78000 - 0x14961ce89fff 0x14961ce8a000 - 0x14961ce8dfff 0x14961ce8e000 - 0x14961ce8efff 0x14961ce8f000 - 0x14961ce8ffff 0x14961ce90000 - 0x14961ce91fff 0x14961ce92000 - 0x14961cea2fff 0x14961cea3000 - 0x14961ced8fff 0x14961ced9000 - 0x14961d00efff 0x14961d00f000 - 0x14961d00ffff 0x14961d010000 - 0x14961d013fff 0x14961d014000 - 0x14961d014fff 0x14961d015000 - 0x14961d015fff 0x14961d016000 - 0x14961d017fff 0x14961d018000 - 0x14961d018fff 0x14961d019000 - 0x14961d019fff 0x14961d01a000 - 0x14961d01afff 0x14961d01b000 - 0x14961d01cfff 0x14961d01d000 - 0x14961d01efff 0x14961d01f000 - 0x14961d01ffff 0x14961d020000 - 0x14961d020fff 0x14961d021000 - 0x14961d021fff 0x14961d022000 - 0x14961d023fff 0x14961d024000 - 0x14961d025fff 0x14961d026000 - 0x14961d026fff 0x14961d027000 - 0x14961d027fff 0x14961d028000 - 0x14961d028fff 0x14961d029000 - 0x14961d036fff 0x14961d037000 - 0x14961d044fff 0x14961d045000 - 0x14961d052fff 0x14961d053000 - 0x14961d056fff 0x14961d057000 - 0x14961d057fff 0x14961d058000 - 0x14961d06dfff 0x14961d06e000 - 0x14961d099fff 0x14961d09a000 - 0x14961d0a2fff 0x14961d0a3000 - 0x14961d0a3fff 0x14961d0a4000 - 0x14961d0a6fff 0x14961d0a7000 - 0x14961d0acfff 0x14961d0ad000 - 0x14961d0affff 0x14961d0b0000 - 0x14961d0b0fff 0x14961d0b1000 - 0x14961d0b1fff 0x14961d0b2000 - 0x14961d0b8fff 0x14961d0b9000 - 0x14961d0b9fff 0x14961d0ba000 - 0x14961d0dafff 0x14961d0db000 - 0x14961d0e3fff 0x14961d0e4000 - 0x14961d0e4fff 0x14961d0e5000 - 0x14961d0e6fff 0x7ffced172000 - 0x7ffced192fff 0x7ffced1a9000 - 0x7ffced1acfff 0x7ffced1ad000 - 0x7ffced1aefff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1869000 - 0x1889fff 0x100000000000 - 0x1000000bffff 0x148f872fa000 - 0x148f872fafff 0x148f872fb000 - 0x148f879a5fff 0x148f879a6000 - 0x148f879fafff 0x148f879fb000 - 0x148f879fdfff 0x148f879fe000 - 0x148f87a23fff 0x148f87a24000 - 0x148f87b72fff 0x148f87b73000 - 0x148f87bbefff 0x148f87bbf000 - 0x148f87bbffff 0x148f87bc0000 - 0x148f87bc2fff 0x148f87bc3000 - 0x148f87bc5fff 0x148f87bc6000 - 0x148f87bc9fff 0x148f87bca000 - 0x148f87bccfff 0x148f87bcd000 - 0x148f87bdefff 0x148f87bdf000 - 0x148f87be2fff 0x148f87be3000 - 0x148f87be3fff 0x148f87be4000 - 0x148f87be4fff 0x148f87be5000 - 0x148f87be6fff 0x148f87be7000 - 0x148f87bf7fff 0x148f87bf8000 - 0x148f87c2dfff 0x148f87c2e000 - 0x148f87d63fff 0x148f87d64000 - 0x148f87d64fff 0x148f87d65000 - 0x148f87d68fff 0x148f87d69000 - 0x148f87d69fff 0x148f87d6a000 - 0x148f87d6afff 0x148f87d6b000 - 0x148f87d6cfff 0x148f87d6d000 - 0x148f87d6dfff 0x148f87d6e000 - 0x148f87d6efff 0x148f87d6f000 - 0x148f87d6ffff 0x148f87d70000 - 0x148f87d71fff 0x148f87d72000 - 0x148f87d73fff 0x148f87d74000 - 0x148f87d74fff 0x148f87d75000 - 0x148f87d75fff 0x148f87d76000 - 0x148f87d76fff 0x148f87d77000 - 0x148f87d78fff 0x148f87d79000 - 0x148f87d7afff 0x148f87d7b000 - 0x148f87d7bfff 0x148f87d7c000 - 0x148f87d7cfff 0x148f87d7d000 - 0x148f87d7dfff 0x148f87d7e000 - 0x148f87d8bfff 0x148f87d8c000 - 0x148f87d99fff 0x148f87d9a000 - 0x148f87da7fff 0x148f87da8000 - 0x148f87dabfff 0x148f87dac000 - 0x148f87dacfff 0x148f87dad000 - 0x148f87dc2fff 0x148f87dc3000 - 0x148f87deefff 0x148f87def000 - 0x148f87df7fff 0x148f87df8000 - 0x148f87df8fff 0x148f87df9000 - 0x148f87dfbfff 0x148f87dfc000 - 0x148f87e01fff 0x148f87e02000 - 0x148f87e04fff 0x148f87e05000 - 0x148f87e05fff 0x148f87e06000 - 0x148f87e06fff 0x148f87e07000 - 0x148f87e0dfff 0x148f87e0e000 - 0x148f87e0efff 0x148f87e0f000 - 0x148f87e2ffff 0x148f87e30000 - 0x148f87e38fff 0x148f87e39000 - 0x148f87e39fff 0x148f87e3a000 - 0x148f87e3bfff 0x7ffe58cca000 - 0x7ffe58ceafff 0x7ffe58d10000 - 0x7ffe58d13fff 0x7ffe58d14000 - 0x7ffe58d15fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x116a000 - 0x118afff 0x100000000000 - 0x1000000bffff 0x14a2324b8000 - 0x14a2324b8fff 0x14a2324b9000 - 0x14a232b63fff 0x14a232b64000 - 0x14a232bb8fff 0x14a232bb9000 - 0x14a232bbbfff 0x14a232bbc000 - 0x14a232be1fff 0x14a232be2000 - 0x14a232d30fff 0x14a232d31000 - 0x14a232d7cfff 0x14a232d7d000 - 0x14a232d7dfff 0x14a232d7e000 - 0x14a232d80fff 0x14a232d81000 - 0x14a232d83fff 0x14a232d84000 - 0x14a232d87fff 0x14a232d88000 - 0x14a232d8afff 0x14a232d8b000 - 0x14a232d9cfff 0x14a232d9d000 - 0x14a232da0fff 0x14a232da1000 - 0x14a232da1fff 0x14a232da2000 - 0x14a232da2fff 0x14a232da3000 - 0x14a232da4fff 0x14a232da5000 - 0x14a232db5fff 0x14a232db6000 - 0x14a232debfff 0x14a232dec000 - 0x14a232f21fff 0x14a232f22000 - 0x14a232f22fff 0x14a232f23000 - 0x14a232f26fff 0x14a232f27000 - 0x14a232f27fff 0x14a232f28000 - 0x14a232f28fff 0x14a232f29000 - 0x14a232f2afff 0x14a232f2b000 - 0x14a232f2bfff 0x14a232f2c000 - 0x14a232f2cfff 0x14a232f2d000 - 0x14a232f2dfff 0x14a232f2e000 - 0x14a232f2ffff 0x14a232f30000 - 0x14a232f31fff 0x14a232f32000 - 0x14a232f32fff 0x14a232f33000 - 0x14a232f33fff 0x14a232f34000 - 0x14a232f34fff 0x14a232f35000 - 0x14a232f36fff 0x14a232f37000 - 0x14a232f38fff 0x14a232f39000 - 0x14a232f39fff 0x14a232f3a000 - 0x14a232f3afff 0x14a232f3b000 - 0x14a232f3bfff 0x14a232f3c000 - 0x14a232f49fff 0x14a232f4a000 - 0x14a232f57fff 0x14a232f58000 - 0x14a232f65fff 0x14a232f66000 - 0x14a232f69fff 0x14a232f6a000 - 0x14a232f6afff 0x14a232f6b000 - 0x14a232f80fff 0x14a232f81000 - 0x14a232facfff 0x14a232fad000 - 0x14a232fb5fff 0x14a232fb6000 - 0x14a232fb6fff 0x14a232fb7000 - 0x14a232fb9fff 0x14a232fba000 - 0x14a232fbffff 0x14a232fc0000 - 0x14a232fc2fff 0x14a232fc3000 - 0x14a232fc3fff 0x14a232fc4000 - 0x14a232fc4fff 0x14a232fc5000 - 0x14a232fcbfff 0x14a232fcc000 - 0x14a232fccfff 0x14a232fcd000 - 0x14a232fedfff 0x14a232fee000 - 0x14a232ff6fff 0x14a232ff7000 - 0x14a232ff7fff 0x14a232ff8000 - 0x14a232ff9fff 0x7ffd7fcde000 - 0x7ffd7fcfefff 0x7ffd7fd2f000 - 0x7ffd7fd32fff 0x7ffd7fd33000 - 0x7ffd7fd34fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defstruct.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x25b3000 - 0x25d3fff 0x100000000000 - 0x1000000bffff 0x1487a9553000 - 0x1487a9553fff 0x1487a9554000 - 0x1487a9bfefff 0x1487a9bff000 - 0x1487a9c53fff 0x1487a9c54000 - 0x1487a9c56fff 0x1487a9c57000 - 0x1487a9c7cfff 0x1487a9c7d000 - 0x1487a9dcbfff 0x1487a9dcc000 - 0x1487a9e17fff 0x1487a9e18000 - 0x1487a9e18fff 0x1487a9e19000 - 0x1487a9e1bfff 0x1487a9e1c000 - 0x1487a9e1efff 0x1487a9e1f000 - 0x1487a9e22fff 0x1487a9e23000 - 0x1487a9e25fff 0x1487a9e26000 - 0x1487a9e37fff 0x1487a9e38000 - 0x1487a9e3bfff 0x1487a9e3c000 - 0x1487a9e3cfff 0x1487a9e3d000 - 0x1487a9e3dfff 0x1487a9e3e000 - 0x1487a9e3ffff 0x1487a9e40000 - 0x1487a9e50fff 0x1487a9e51000 - 0x1487a9e86fff 0x1487a9e87000 - 0x1487a9fbcfff 0x1487a9fbd000 - 0x1487a9fbdfff 0x1487a9fbe000 - 0x1487a9fc1fff 0x1487a9fc2000 - 0x1487a9fc2fff 0x1487a9fc3000 - 0x1487a9fc3fff 0x1487a9fc4000 - 0x1487a9fc5fff 0x1487a9fc6000 - 0x1487a9fc6fff 0x1487a9fc7000 - 0x1487a9fc7fff 0x1487a9fc8000 - 0x1487a9fc8fff 0x1487a9fc9000 - 0x1487a9fcafff 0x1487a9fcb000 - 0x1487a9fccfff 0x1487a9fcd000 - 0x1487a9fcdfff 0x1487a9fce000 - 0x1487a9fcefff 0x1487a9fcf000 - 0x1487a9fcffff 0x1487a9fd0000 - 0x1487a9fd1fff 0x1487a9fd2000 - 0x1487a9fd3fff 0x1487a9fd4000 - 0x1487a9fd4fff 0x1487a9fd5000 - 0x1487a9fd5fff 0x1487a9fd6000 - 0x1487a9fd6fff 0x1487a9fd7000 - 0x1487a9fe4fff 0x1487a9fe5000 - 0x1487a9ff2fff 0x1487a9ff3000 - 0x1487aa000fff 0x1487aa001000 - 0x1487aa004fff 0x1487aa005000 - 0x1487aa005fff 0x1487aa006000 - 0x1487aa01bfff 0x1487aa01c000 - 0x1487aa047fff 0x1487aa048000 - 0x1487aa050fff 0x1487aa051000 - 0x1487aa051fff 0x1487aa052000 - 0x1487aa054fff 0x1487aa055000 - 0x1487aa05afff 0x1487aa05b000 - 0x1487aa05dfff 0x1487aa05e000 - 0x1487aa05efff 0x1487aa05f000 - 0x1487aa05ffff 0x1487aa060000 - 0x1487aa066fff 0x1487aa067000 - 0x1487aa067fff 0x1487aa068000 - 0x1487aa088fff 0x1487aa089000 - 0x1487aa091fff 0x1487aa092000 - 0x1487aa092fff 0x1487aa093000 - 0x1487aa094fff 0x7fff9f160000 - 0x7fff9f180fff 0x7fff9f1c6000 - 0x7fff9f1c9fff 0x7fff9f1ca000 - 0x7fff9f1cbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1f25000 - 0x1f45fff 0x100000000000 - 0x1000000bffff 0x148c31d89000 - 0x148c31d89fff 0x148c31d8a000 - 0x148c32434fff 0x148c32435000 - 0x148c32489fff 0x148c3248a000 - 0x148c3248cfff 0x148c3248d000 - 0x148c324b2fff 0x148c324b3000 - 0x148c32601fff 0x148c32602000 - 0x148c3264dfff 0x148c3264e000 - 0x148c3264efff 0x148c3264f000 - 0x148c32651fff 0x148c32652000 - 0x148c32654fff 0x148c32655000 - 0x148c32658fff 0x148c32659000 - 0x148c3265bfff 0x148c3265c000 - 0x148c3266dfff 0x148c3266e000 - 0x148c32671fff 0x148c32672000 - 0x148c32672fff 0x148c32673000 - 0x148c32673fff 0x148c32674000 - 0x148c32675fff 0x148c32676000 - 0x148c32686fff 0x148c32687000 - 0x148c326bcfff 0x148c326bd000 - 0x148c327f2fff 0x148c327f3000 - 0x148c327f3fff 0x148c327f4000 - 0x148c327f7fff 0x148c327f8000 - 0x148c327f8fff 0x148c327f9000 - 0x148c327f9fff 0x148c327fa000 - 0x148c327fbfff 0x148c327fc000 - 0x148c327fcfff 0x148c327fd000 - 0x148c327fdfff 0x148c327fe000 - 0x148c327fefff 0x148c327ff000 - 0x148c32800fff 0x148c32801000 - 0x148c32802fff 0x148c32803000 - 0x148c32803fff 0x148c32804000 - 0x148c32804fff 0x148c32805000 - 0x148c32805fff 0x148c32806000 - 0x148c32807fff 0x148c32808000 - 0x148c32809fff 0x148c3280a000 - 0x148c3280afff 0x148c3280b000 - 0x148c3280bfff 0x148c3280c000 - 0x148c3280cfff 0x148c3280d000 - 0x148c3281afff 0x148c3281b000 - 0x148c32828fff 0x148c32829000 - 0x148c32836fff 0x148c32837000 - 0x148c3283afff 0x148c3283b000 - 0x148c3283bfff 0x148c3283c000 - 0x148c32851fff 0x148c32852000 - 0x148c3287dfff 0x148c3287e000 - 0x148c32886fff 0x148c32887000 - 0x148c32887fff 0x148c32888000 - 0x148c3288afff 0x148c3288b000 - 0x148c32890fff 0x148c32891000 - 0x148c32893fff 0x148c32894000 - 0x148c32894fff 0x148c32895000 - 0x148c32895fff 0x148c32896000 - 0x148c3289cfff 0x148c3289d000 - 0x148c3289dfff 0x148c3289e000 - 0x148c328befff 0x148c328bf000 - 0x148c328c7fff 0x148c328c8000 - 0x148c328c8fff 0x148c328c9000 - 0x148c328cafff 0x7ffea6438000 - 0x7ffea6458fff 0x7ffea651c000 - 0x7ffea651ffff 0x7ffea6520000 - 0x7ffea6521fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/international.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2415000 - 0x2435fff 0x100000000000 - 0x1000000bffff 0x1486f983e000 - 0x1486f983efff 0x1486f983f000 - 0x1486f9ee9fff 0x1486f9eea000 - 0x1486f9f3efff 0x1486f9f3f000 - 0x1486f9f41fff 0x1486f9f42000 - 0x1486f9f67fff 0x1486f9f68000 - 0x1486fa0b6fff 0x1486fa0b7000 - 0x1486fa102fff 0x1486fa103000 - 0x1486fa103fff 0x1486fa104000 - 0x1486fa106fff 0x1486fa107000 - 0x1486fa109fff 0x1486fa10a000 - 0x1486fa10dfff 0x1486fa10e000 - 0x1486fa110fff 0x1486fa111000 - 0x1486fa122fff 0x1486fa123000 - 0x1486fa126fff 0x1486fa127000 - 0x1486fa127fff 0x1486fa128000 - 0x1486fa128fff 0x1486fa129000 - 0x1486fa12afff 0x1486fa12b000 - 0x1486fa13bfff 0x1486fa13c000 - 0x1486fa171fff 0x1486fa172000 - 0x1486fa2a7fff 0x1486fa2a8000 - 0x1486fa2a8fff 0x1486fa2a9000 - 0x1486fa2acfff 0x1486fa2ad000 - 0x1486fa2adfff 0x1486fa2ae000 - 0x1486fa2aefff 0x1486fa2af000 - 0x1486fa2b0fff 0x1486fa2b1000 - 0x1486fa2b1fff 0x1486fa2b2000 - 0x1486fa2b2fff 0x1486fa2b3000 - 0x1486fa2b3fff 0x1486fa2b4000 - 0x1486fa2b5fff 0x1486fa2b6000 - 0x1486fa2b7fff 0x1486fa2b8000 - 0x1486fa2b8fff 0x1486fa2b9000 - 0x1486fa2b9fff 0x1486fa2ba000 - 0x1486fa2bafff 0x1486fa2bb000 - 0x1486fa2bcfff 0x1486fa2bd000 - 0x1486fa2befff 0x1486fa2bf000 - 0x1486fa2bffff 0x1486fa2c0000 - 0x1486fa2c0fff 0x1486fa2c1000 - 0x1486fa2c1fff 0x1486fa2c2000 - 0x1486fa2cffff 0x1486fa2d0000 - 0x1486fa2ddfff 0x1486fa2de000 - 0x1486fa2ebfff 0x1486fa2ec000 - 0x1486fa2effff 0x1486fa2f0000 - 0x1486fa2f0fff 0x1486fa2f1000 - 0x1486fa306fff 0x1486fa307000 - 0x1486fa332fff 0x1486fa333000 - 0x1486fa33bfff 0x1486fa33c000 - 0x1486fa33cfff 0x1486fa33d000 - 0x1486fa33ffff 0x1486fa340000 - 0x1486fa345fff 0x1486fa346000 - 0x1486fa348fff 0x1486fa349000 - 0x1486fa349fff 0x1486fa34a000 - 0x1486fa34afff 0x1486fa34b000 - 0x1486fa351fff 0x1486fa352000 - 0x1486fa352fff 0x1486fa353000 - 0x1486fa373fff 0x1486fa374000 - 0x1486fa37cfff 0x1486fa37d000 - 0x1486fa37dfff 0x1486fa37e000 - 0x1486fa37ffff 0x7ffc8584e000 - 0x7ffc8586efff 0x7ffc85967000 - 0x7ffc8596afff 0x7ffc8596b000 - 0x7ffc8596cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1dc8000 - 0x1de8fff 0x100000000000 - 0x1000000bffff 0x14a6673cc000 - 0x14a6673ccfff 0x14a6673cd000 - 0x14a667a77fff 0x14a667a78000 - 0x14a667accfff 0x14a667acd000 - 0x14a667acffff 0x14a667ad0000 - 0x14a667af5fff 0x14a667af6000 - 0x14a667c44fff 0x14a667c45000 - 0x14a667c90fff 0x14a667c91000 - 0x14a667c91fff 0x14a667c92000 - 0x14a667c94fff 0x14a667c95000 - 0x14a667c97fff 0x14a667c98000 - 0x14a667c9bfff 0x14a667c9c000 - 0x14a667c9efff 0x14a667c9f000 - 0x14a667cb0fff 0x14a667cb1000 - 0x14a667cb4fff 0x14a667cb5000 - 0x14a667cb5fff 0x14a667cb6000 - 0x14a667cb6fff 0x14a667cb7000 - 0x14a667cb8fff 0x14a667cb9000 - 0x14a667cc9fff 0x14a667cca000 - 0x14a667cfffff 0x14a667d00000 - 0x14a667e35fff 0x14a667e36000 - 0x14a667e36fff 0x14a667e37000 - 0x14a667e3afff 0x14a667e3b000 - 0x14a667e3bfff 0x14a667e3c000 - 0x14a667e3cfff 0x14a667e3d000 - 0x14a667e3efff 0x14a667e3f000 - 0x14a667e3ffff 0x14a667e40000 - 0x14a667e40fff 0x14a667e41000 - 0x14a667e41fff 0x14a667e42000 - 0x14a667e43fff 0x14a667e44000 - 0x14a667e45fff 0x14a667e46000 - 0x14a667e46fff 0x14a667e47000 - 0x14a667e47fff 0x14a667e48000 - 0x14a667e48fff 0x14a667e49000 - 0x14a667e4afff 0x14a667e4b000 - 0x14a667e4cfff 0x14a667e4d000 - 0x14a667e4dfff 0x14a667e4e000 - 0x14a667e4efff 0x14a667e4f000 - 0x14a667e4ffff 0x14a667e50000 - 0x14a667e5dfff 0x14a667e5e000 - 0x14a667e6bfff 0x14a667e6c000 - 0x14a667e79fff 0x14a667e7a000 - 0x14a667e7dfff 0x14a667e7e000 - 0x14a667e7efff 0x14a667e7f000 - 0x14a667e94fff 0x14a667e95000 - 0x14a667ec0fff 0x14a667ec1000 - 0x14a667ec9fff 0x14a667eca000 - 0x14a667ecafff 0x14a667ecb000 - 0x14a667ecdfff 0x14a667ece000 - 0x14a667ed3fff 0x14a667ed4000 - 0x14a667ed6fff 0x14a667ed7000 - 0x14a667ed7fff 0x14a667ed8000 - 0x14a667ed8fff 0x14a667ed9000 - 0x14a667edffff 0x14a667ee0000 - 0x14a667ee0fff 0x14a667ee1000 - 0x14a667f01fff 0x14a667f02000 - 0x14a667f0afff 0x14a667f0b000 - 0x14a667f0bfff 0x14a667f0c000 - 0x14a667f0dfff 0x7ffd2c7d5000 - 0x7ffd2c7f5fff 0x7ffd2c7f9000 - 0x7ffd2c7fcfff 0x7ffd2c7fd000 - 0x7ffd2c7fefff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/functions.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x22f3000 - 0x2313fff 0x100000000000 - 0x1000000bffff 0x147b34afb000 - 0x147b34afbfff 0x147b34afc000 - 0x147b351a6fff 0x147b351a7000 - 0x147b351fbfff 0x147b351fc000 - 0x147b351fefff 0x147b351ff000 - 0x147b35224fff 0x147b35225000 - 0x147b35373fff 0x147b35374000 - 0x147b353bffff 0x147b353c0000 - 0x147b353c0fff 0x147b353c1000 - 0x147b353c3fff 0x147b353c4000 - 0x147b353c6fff 0x147b353c7000 - 0x147b353cafff 0x147b353cb000 - 0x147b353cdfff 0x147b353ce000 - 0x147b353dffff 0x147b353e0000 - 0x147b353e3fff 0x147b353e4000 - 0x147b353e4fff 0x147b353e5000 - 0x147b353e5fff 0x147b353e6000 - 0x147b353e7fff 0x147b353e8000 - 0x147b353f8fff 0x147b353f9000 - 0x147b3542efff 0x147b3542f000 - 0x147b35564fff 0x147b35565000 - 0x147b35565fff 0x147b35566000 - 0x147b35569fff 0x147b3556a000 - 0x147b3556afff 0x147b3556b000 - 0x147b3556bfff 0x147b3556c000 - 0x147b3556dfff 0x147b3556e000 - 0x147b3556efff 0x147b3556f000 - 0x147b3556ffff 0x147b35570000 - 0x147b35570fff 0x147b35571000 - 0x147b35572fff 0x147b35573000 - 0x147b35574fff 0x147b35575000 - 0x147b35575fff 0x147b35576000 - 0x147b35576fff 0x147b35577000 - 0x147b35577fff 0x147b35578000 - 0x147b35579fff 0x147b3557a000 - 0x147b3557bfff 0x147b3557c000 - 0x147b3557cfff 0x147b3557d000 - 0x147b3557dfff 0x147b3557e000 - 0x147b3557efff 0x147b3557f000 - 0x147b3558cfff 0x147b3558d000 - 0x147b3559afff 0x147b3559b000 - 0x147b355a8fff 0x147b355a9000 - 0x147b355acfff 0x147b355ad000 - 0x147b355adfff 0x147b355ae000 - 0x147b355c3fff 0x147b355c4000 - 0x147b355effff 0x147b355f0000 - 0x147b355f8fff 0x147b355f9000 - 0x147b355f9fff 0x147b355fa000 - 0x147b355fcfff 0x147b355fd000 - 0x147b35602fff 0x147b35603000 - 0x147b35605fff 0x147b35606000 - 0x147b35606fff 0x147b35607000 - 0x147b35607fff 0x147b35608000 - 0x147b3560efff 0x147b3560f000 - 0x147b3560ffff 0x147b35610000 - 0x147b35630fff 0x147b35631000 - 0x147b35639fff 0x147b3563a000 - 0x147b3563afff 0x147b3563b000 - 0x147b3563cfff 0x7ffef686a000 - 0x7ffef688afff 0x7ffef68ec000 - 0x7ffef68effff 0x7ffef68f0000 - 0x7ffef68f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/trace.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1fa6000 - 0x1fc6fff 0x100000000000 - 0x1000000bffff 0x1509d6324000 - 0x1509d6324fff 0x1509d6325000 - 0x1509d69cffff 0x1509d69d0000 - 0x1509d6a24fff 0x1509d6a25000 - 0x1509d6a27fff 0x1509d6a28000 - 0x1509d6a4dfff 0x1509d6a4e000 - 0x1509d6b9cfff 0x1509d6b9d000 - 0x1509d6be8fff 0x1509d6be9000 - 0x1509d6be9fff 0x1509d6bea000 - 0x1509d6becfff 0x1509d6bed000 - 0x1509d6beffff 0x1509d6bf0000 - 0x1509d6bf3fff 0x1509d6bf4000 - 0x1509d6bf6fff 0x1509d6bf7000 - 0x1509d6c08fff 0x1509d6c09000 - 0x1509d6c0cfff 0x1509d6c0d000 - 0x1509d6c0dfff 0x1509d6c0e000 - 0x1509d6c0efff 0x1509d6c0f000 - 0x1509d6c10fff 0x1509d6c11000 - 0x1509d6c21fff 0x1509d6c22000 - 0x1509d6c57fff 0x1509d6c58000 - 0x1509d6d8dfff 0x1509d6d8e000 - 0x1509d6d8efff 0x1509d6d8f000 - 0x1509d6d92fff 0x1509d6d93000 - 0x1509d6d93fff 0x1509d6d94000 - 0x1509d6d94fff 0x1509d6d95000 - 0x1509d6d96fff 0x1509d6d97000 - 0x1509d6d97fff 0x1509d6d98000 - 0x1509d6d98fff 0x1509d6d99000 - 0x1509d6d99fff 0x1509d6d9a000 - 0x1509d6d9bfff 0x1509d6d9c000 - 0x1509d6d9dfff 0x1509d6d9e000 - 0x1509d6d9efff 0x1509d6d9f000 - 0x1509d6d9ffff 0x1509d6da0000 - 0x1509d6da0fff 0x1509d6da1000 - 0x1509d6da2fff 0x1509d6da3000 - 0x1509d6da4fff 0x1509d6da5000 - 0x1509d6da5fff 0x1509d6da6000 - 0x1509d6da6fff 0x1509d6da7000 - 0x1509d6da7fff 0x1509d6da8000 - 0x1509d6db5fff 0x1509d6db6000 - 0x1509d6dc3fff 0x1509d6dc4000 - 0x1509d6dd1fff 0x1509d6dd2000 - 0x1509d6dd5fff 0x1509d6dd6000 - 0x1509d6dd6fff 0x1509d6dd7000 - 0x1509d6decfff 0x1509d6ded000 - 0x1509d6e18fff 0x1509d6e19000 - 0x1509d6e21fff 0x1509d6e22000 - 0x1509d6e22fff 0x1509d6e23000 - 0x1509d6e25fff 0x1509d6e26000 - 0x1509d6e2bfff 0x1509d6e2c000 - 0x1509d6e2efff 0x1509d6e2f000 - 0x1509d6e2ffff 0x1509d6e30000 - 0x1509d6e30fff 0x1509d6e31000 - 0x1509d6e37fff 0x1509d6e38000 - 0x1509d6e38fff 0x1509d6e39000 - 0x1509d6e59fff 0x1509d6e5a000 - 0x1509d6e62fff 0x1509d6e63000 - 0x1509d6e63fff 0x1509d6e64000 - 0x1509d6e65fff 0x7ffc95499000 - 0x7ffc954b9fff 0x7ffc9555f000 - 0x7ffc95562fff 0x7ffc95563000 - 0x7ffc95564fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/cmacros.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1594000 - 0x15b4fff 0x100000000000 - 0x1000000bffff 0x1535c6616000 - 0x1535c6616fff 0x1535c6617000 - 0x1535c6cc1fff 0x1535c6cc2000 - 0x1535c6d16fff 0x1535c6d17000 - 0x1535c6d19fff 0x1535c6d1a000 - 0x1535c6d3ffff 0x1535c6d40000 - 0x1535c6e8efff 0x1535c6e8f000 - 0x1535c6edafff 0x1535c6edb000 - 0x1535c6edbfff 0x1535c6edc000 - 0x1535c6edefff 0x1535c6edf000 - 0x1535c6ee1fff 0x1535c6ee2000 - 0x1535c6ee5fff 0x1535c6ee6000 - 0x1535c6ee8fff 0x1535c6ee9000 - 0x1535c6efafff 0x1535c6efb000 - 0x1535c6efefff 0x1535c6eff000 - 0x1535c6efffff 0x1535c6f00000 - 0x1535c6f00fff 0x1535c6f01000 - 0x1535c6f02fff 0x1535c6f03000 - 0x1535c6f13fff 0x1535c6f14000 - 0x1535c6f49fff 0x1535c6f4a000 - 0x1535c707ffff 0x1535c7080000 - 0x1535c7080fff 0x1535c7081000 - 0x1535c7084fff 0x1535c7085000 - 0x1535c7085fff 0x1535c7086000 - 0x1535c7086fff 0x1535c7087000 - 0x1535c7088fff 0x1535c7089000 - 0x1535c7089fff 0x1535c708a000 - 0x1535c708afff 0x1535c708b000 - 0x1535c708bfff 0x1535c708c000 - 0x1535c708dfff 0x1535c708e000 - 0x1535c708ffff 0x1535c7090000 - 0x1535c7090fff 0x1535c7091000 - 0x1535c7091fff 0x1535c7092000 - 0x1535c7092fff 0x1535c7093000 - 0x1535c7094fff 0x1535c7095000 - 0x1535c7096fff 0x1535c7097000 - 0x1535c7097fff 0x1535c7098000 - 0x1535c7098fff 0x1535c7099000 - 0x1535c7099fff 0x1535c709a000 - 0x1535c70a7fff 0x1535c70a8000 - 0x1535c70b5fff 0x1535c70b6000 - 0x1535c70c3fff 0x1535c70c4000 - 0x1535c70c7fff 0x1535c70c8000 - 0x1535c70c8fff 0x1535c70c9000 - 0x1535c70defff 0x1535c70df000 - 0x1535c710afff 0x1535c710b000 - 0x1535c7113fff 0x1535c7114000 - 0x1535c7114fff 0x1535c7115000 - 0x1535c7117fff 0x1535c7118000 - 0x1535c711dfff 0x1535c711e000 - 0x1535c7120fff 0x1535c7121000 - 0x1535c7121fff 0x1535c7122000 - 0x1535c7122fff 0x1535c7123000 - 0x1535c7129fff 0x1535c712a000 - 0x1535c712afff 0x1535c712b000 - 0x1535c714bfff 0x1535c714c000 - 0x1535c7154fff 0x1535c7155000 - 0x1535c7155fff 0x1535c7156000 - 0x1535c7157fff 0x7fff194c3000 - 0x7fff194e3fff 0x7fff194e8000 - 0x7fff194ebfff 0x7fff194ec000 - 0x7fff194edfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/compiler.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x130b000 - 0x132bfff 0x100000000000 - 0x1000000bffff 0x14cfa95e9000 - 0x14cfa95e9fff 0x14cfa95ea000 - 0x14cfa9c94fff 0x14cfa9c95000 - 0x14cfa9ce9fff 0x14cfa9cea000 - 0x14cfa9cecfff 0x14cfa9ced000 - 0x14cfa9d12fff 0x14cfa9d13000 - 0x14cfa9e61fff 0x14cfa9e62000 - 0x14cfa9eadfff 0x14cfa9eae000 - 0x14cfa9eaefff 0x14cfa9eaf000 - 0x14cfa9eb1fff 0x14cfa9eb2000 - 0x14cfa9eb4fff 0x14cfa9eb5000 - 0x14cfa9eb8fff 0x14cfa9eb9000 - 0x14cfa9ebbfff 0x14cfa9ebc000 - 0x14cfa9ecdfff 0x14cfa9ece000 - 0x14cfa9ed1fff 0x14cfa9ed2000 - 0x14cfa9ed2fff 0x14cfa9ed3000 - 0x14cfa9ed3fff 0x14cfa9ed4000 - 0x14cfa9ed5fff 0x14cfa9ed6000 - 0x14cfa9ee6fff 0x14cfa9ee7000 - 0x14cfa9f1cfff 0x14cfa9f1d000 - 0x14cfaa052fff 0x14cfaa053000 - 0x14cfaa053fff 0x14cfaa054000 - 0x14cfaa057fff 0x14cfaa058000 - 0x14cfaa058fff 0x14cfaa059000 - 0x14cfaa059fff 0x14cfaa05a000 - 0x14cfaa05bfff 0x14cfaa05c000 - 0x14cfaa05cfff 0x14cfaa05d000 - 0x14cfaa05dfff 0x14cfaa05e000 - 0x14cfaa05efff 0x14cfaa05f000 - 0x14cfaa060fff 0x14cfaa061000 - 0x14cfaa062fff 0x14cfaa063000 - 0x14cfaa063fff 0x14cfaa064000 - 0x14cfaa064fff 0x14cfaa065000 - 0x14cfaa065fff 0x14cfaa066000 - 0x14cfaa067fff 0x14cfaa068000 - 0x14cfaa069fff 0x14cfaa06a000 - 0x14cfaa06afff 0x14cfaa06b000 - 0x14cfaa06bfff 0x14cfaa06c000 - 0x14cfaa06cfff 0x14cfaa06d000 - 0x14cfaa07afff 0x14cfaa07b000 - 0x14cfaa088fff 0x14cfaa089000 - 0x14cfaa096fff 0x14cfaa097000 - 0x14cfaa09afff 0x14cfaa09b000 - 0x14cfaa09bfff 0x14cfaa09c000 - 0x14cfaa0b1fff 0x14cfaa0b2000 - 0x14cfaa0ddfff 0x14cfaa0de000 - 0x14cfaa0e6fff 0x14cfaa0e7000 - 0x14cfaa0e7fff 0x14cfaa0e8000 - 0x14cfaa0eafff 0x14cfaa0eb000 - 0x14cfaa0f0fff 0x14cfaa0f1000 - 0x14cfaa0f3fff 0x14cfaa0f4000 - 0x14cfaa0f4fff 0x14cfaa0f5000 - 0x14cfaa0f5fff 0x14cfaa0f6000 - 0x14cfaa0fcfff 0x14cfaa0fd000 - 0x14cfaa0fdfff 0x14cfaa0fe000 - 0x14cfaa11efff 0x14cfaa11f000 - 0x14cfaa127fff 0x14cfaa128000 - 0x14cfaa128fff 0x14cfaa129000 - 0x14cfaa12afff 0x7fff10987000 - 0x7fff109a7fff 0x7fff109ec000 - 0x7fff109effff 0x7fff109f0000 - 0x7fff109f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/defs2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1e1c000 - 0x1e3cfff 0x100000000000 - 0x1000000bffff 0x147873e2c000 - 0x147873e2cfff 0x147873e2d000 - 0x1478744d7fff 0x1478744d8000 - 0x14787452cfff 0x14787452d000 - 0x14787452ffff 0x147874530000 - 0x147874555fff 0x147874556000 - 0x1478746a4fff 0x1478746a5000 - 0x1478746f0fff 0x1478746f1000 - 0x1478746f1fff 0x1478746f2000 - 0x1478746f4fff 0x1478746f5000 - 0x1478746f7fff 0x1478746f8000 - 0x1478746fbfff 0x1478746fc000 - 0x1478746fefff 0x1478746ff000 - 0x147874710fff 0x147874711000 - 0x147874714fff 0x147874715000 - 0x147874715fff 0x147874716000 - 0x147874716fff 0x147874717000 - 0x147874718fff 0x147874719000 - 0x147874729fff 0x14787472a000 - 0x14787475ffff 0x147874760000 - 0x147874895fff 0x147874896000 - 0x147874896fff 0x147874897000 - 0x14787489afff 0x14787489b000 - 0x14787489bfff 0x14787489c000 - 0x14787489cfff 0x14787489d000 - 0x14787489efff 0x14787489f000 - 0x14787489ffff 0x1478748a0000 - 0x1478748a0fff 0x1478748a1000 - 0x1478748a1fff 0x1478748a2000 - 0x1478748a3fff 0x1478748a4000 - 0x1478748a5fff 0x1478748a6000 - 0x1478748a6fff 0x1478748a7000 - 0x1478748a7fff 0x1478748a8000 - 0x1478748a8fff 0x1478748a9000 - 0x1478748aafff 0x1478748ab000 - 0x1478748acfff 0x1478748ad000 - 0x1478748adfff 0x1478748ae000 - 0x1478748aefff 0x1478748af000 - 0x1478748affff 0x1478748b0000 - 0x1478748bdfff 0x1478748be000 - 0x1478748cbfff 0x1478748cc000 - 0x1478748d9fff 0x1478748da000 - 0x1478748ddfff 0x1478748de000 - 0x1478748defff 0x1478748df000 - 0x1478748f4fff 0x1478748f5000 - 0x147874920fff 0x147874921000 - 0x147874929fff 0x14787492a000 - 0x14787492afff 0x14787492b000 - 0x14787492dfff 0x14787492e000 - 0x147874933fff 0x147874934000 - 0x147874936fff 0x147874937000 - 0x147874937fff 0x147874938000 - 0x147874938fff 0x147874939000 - 0x14787493ffff 0x147874940000 - 0x147874940fff 0x147874941000 - 0x147874961fff 0x147874962000 - 0x14787496afff 0x14787496b000 - 0x14787496bfff 0x14787496c000 - 0x14787496dfff 0x7ffc22388000 - 0x7ffc223a8fff 0x7ffc223ef000 - 0x7ffc223f2fff 0x7ffc223f3000 - 0x7ffc223f4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x134a000 - 0x136afff 0x100000000000 - 0x1000000bffff 0x14a1572bd000 - 0x14a1572bdfff 0x14a1572be000 - 0x14a157968fff 0x14a157969000 - 0x14a1579bdfff 0x14a1579be000 - 0x14a1579c0fff 0x14a1579c1000 - 0x14a1579e6fff 0x14a1579e7000 - 0x14a157b35fff 0x14a157b36000 - 0x14a157b81fff 0x14a157b82000 - 0x14a157b82fff 0x14a157b83000 - 0x14a157b85fff 0x14a157b86000 - 0x14a157b88fff 0x14a157b89000 - 0x14a157b8cfff 0x14a157b8d000 - 0x14a157b8ffff 0x14a157b90000 - 0x14a157ba1fff 0x14a157ba2000 - 0x14a157ba5fff 0x14a157ba6000 - 0x14a157ba6fff 0x14a157ba7000 - 0x14a157ba7fff 0x14a157ba8000 - 0x14a157ba9fff 0x14a157baa000 - 0x14a157bbafff 0x14a157bbb000 - 0x14a157bf0fff 0x14a157bf1000 - 0x14a157d26fff 0x14a157d27000 - 0x14a157d27fff 0x14a157d28000 - 0x14a157d2bfff 0x14a157d2c000 - 0x14a157d2cfff 0x14a157d2d000 - 0x14a157d2dfff 0x14a157d2e000 - 0x14a157d2ffff 0x14a157d30000 - 0x14a157d30fff 0x14a157d31000 - 0x14a157d31fff 0x14a157d32000 - 0x14a157d32fff 0x14a157d33000 - 0x14a157d34fff 0x14a157d35000 - 0x14a157d36fff 0x14a157d37000 - 0x14a157d37fff 0x14a157d38000 - 0x14a157d38fff 0x14a157d39000 - 0x14a157d39fff 0x14a157d3a000 - 0x14a157d3bfff 0x14a157d3c000 - 0x14a157d3dfff 0x14a157d3e000 - 0x14a157d3efff 0x14a157d3f000 - 0x14a157d3ffff 0x14a157d40000 - 0x14a157d40fff 0x14a157d41000 - 0x14a157d4efff 0x14a157d4f000 - 0x14a157d5cfff 0x14a157d5d000 - 0x14a157d6afff 0x14a157d6b000 - 0x14a157d6efff 0x14a157d6f000 - 0x14a157d6ffff 0x14a157d70000 - 0x14a157d85fff 0x14a157d86000 - 0x14a157db1fff 0x14a157db2000 - 0x14a157dbafff 0x14a157dbb000 - 0x14a157dbbfff 0x14a157dbc000 - 0x14a157dbefff 0x14a157dbf000 - 0x14a157dc4fff 0x14a157dc5000 - 0x14a157dc7fff 0x14a157dc8000 - 0x14a157dc8fff 0x14a157dc9000 - 0x14a157dc9fff 0x14a157dca000 - 0x14a157dd0fff 0x14a157dd1000 - 0x14a157dd1fff 0x14a157dd2000 - 0x14a157df2fff 0x14a157df3000 - 0x14a157dfbfff 0x14a157dfc000 - 0x14a157dfcfff 0x14a157dfd000 - 0x14a157dfefff 0x7ffe074b3000 - 0x7ffe074d3fff 0x7ffe07513000 - 0x7ffe07516fff 0x7ffe07517000 - 0x7ffe07518fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1cbf000 - 0x1cdffff 0x100000000000 - 0x1000000bffff 0x14d9bfe55000 - 0x14d9bfe55fff 0x14d9bfe56000 - 0x14d9c0500fff 0x14d9c0501000 - 0x14d9c0555fff 0x14d9c0556000 - 0x14d9c0558fff 0x14d9c0559000 - 0x14d9c057efff 0x14d9c057f000 - 0x14d9c06cdfff 0x14d9c06ce000 - 0x14d9c0719fff 0x14d9c071a000 - 0x14d9c071afff 0x14d9c071b000 - 0x14d9c071dfff 0x14d9c071e000 - 0x14d9c0720fff 0x14d9c0721000 - 0x14d9c0724fff 0x14d9c0725000 - 0x14d9c0727fff 0x14d9c0728000 - 0x14d9c0739fff 0x14d9c073a000 - 0x14d9c073dfff 0x14d9c073e000 - 0x14d9c073efff 0x14d9c073f000 - 0x14d9c073ffff 0x14d9c0740000 - 0x14d9c0741fff 0x14d9c0742000 - 0x14d9c0752fff 0x14d9c0753000 - 0x14d9c0788fff 0x14d9c0789000 - 0x14d9c08befff 0x14d9c08bf000 - 0x14d9c08bffff 0x14d9c08c0000 - 0x14d9c08c3fff 0x14d9c08c4000 - 0x14d9c08c4fff 0x14d9c08c5000 - 0x14d9c08c5fff 0x14d9c08c6000 - 0x14d9c08c7fff 0x14d9c08c8000 - 0x14d9c08c8fff 0x14d9c08c9000 - 0x14d9c08c9fff 0x14d9c08ca000 - 0x14d9c08cafff 0x14d9c08cb000 - 0x14d9c08ccfff 0x14d9c08cd000 - 0x14d9c08cefff 0x14d9c08cf000 - 0x14d9c08cffff 0x14d9c08d0000 - 0x14d9c08d0fff 0x14d9c08d1000 - 0x14d9c08d1fff 0x14d9c08d2000 - 0x14d9c08d3fff 0x14d9c08d4000 - 0x14d9c08d5fff 0x14d9c08d6000 - 0x14d9c08d6fff 0x14d9c08d7000 - 0x14d9c08d7fff 0x14d9c08d8000 - 0x14d9c08d8fff 0x14d9c08d9000 - 0x14d9c08e6fff 0x14d9c08e7000 - 0x14d9c08f4fff 0x14d9c08f5000 - 0x14d9c0902fff 0x14d9c0903000 - 0x14d9c0906fff 0x14d9c0907000 - 0x14d9c0907fff 0x14d9c0908000 - 0x14d9c091dfff 0x14d9c091e000 - 0x14d9c0949fff 0x14d9c094a000 - 0x14d9c0952fff 0x14d9c0953000 - 0x14d9c0953fff 0x14d9c0954000 - 0x14d9c0956fff 0x14d9c0957000 - 0x14d9c095cfff 0x14d9c095d000 - 0x14d9c095ffff 0x14d9c0960000 - 0x14d9c0960fff 0x14d9c0961000 - 0x14d9c0961fff 0x14d9c0962000 - 0x14d9c0968fff 0x14d9c0969000 - 0x14d9c0969fff 0x14d9c096a000 - 0x14d9c098afff 0x14d9c098b000 - 0x14d9c0993fff 0x14d9c0994000 - 0x14d9c0994fff 0x14d9c0995000 - 0x14d9c0996fff 0x7ffcaca2e000 - 0x7ffcaca4efff 0x7ffcaca51000 - 0x7ffcaca54fff 0x7ffcaca55000 - 0x7ffcaca56fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-stablehash2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x155d000 - 0x157dfff 0x100000000000 - 0x1000000bffff 0x154e730f4000 - 0x154e730f4fff 0x154e730f5000 - 0x154e7379ffff 0x154e737a0000 - 0x154e737f4fff 0x154e737f5000 - 0x154e737f7fff 0x154e737f8000 - 0x154e7381dfff 0x154e7381e000 - 0x154e7396cfff 0x154e7396d000 - 0x154e739b8fff 0x154e739b9000 - 0x154e739b9fff 0x154e739ba000 - 0x154e739bcfff 0x154e739bd000 - 0x154e739bffff 0x154e739c0000 - 0x154e739c3fff 0x154e739c4000 - 0x154e739c6fff 0x154e739c7000 - 0x154e739d8fff 0x154e739d9000 - 0x154e739dcfff 0x154e739dd000 - 0x154e739ddfff 0x154e739de000 - 0x154e739defff 0x154e739df000 - 0x154e739e0fff 0x154e739e1000 - 0x154e739f1fff 0x154e739f2000 - 0x154e73a27fff 0x154e73a28000 - 0x154e73b5dfff 0x154e73b5e000 - 0x154e73b5efff 0x154e73b5f000 - 0x154e73b62fff 0x154e73b63000 - 0x154e73b63fff 0x154e73b64000 - 0x154e73b64fff 0x154e73b65000 - 0x154e73b66fff 0x154e73b67000 - 0x154e73b67fff 0x154e73b68000 - 0x154e73b68fff 0x154e73b69000 - 0x154e73b69fff 0x154e73b6a000 - 0x154e73b6bfff 0x154e73b6c000 - 0x154e73b6dfff 0x154e73b6e000 - 0x154e73b6efff 0x154e73b6f000 - 0x154e73b6ffff 0x154e73b70000 - 0x154e73b70fff 0x154e73b71000 - 0x154e73b72fff 0x154e73b73000 - 0x154e73b74fff 0x154e73b75000 - 0x154e73b75fff 0x154e73b76000 - 0x154e73b76fff 0x154e73b77000 - 0x154e73b77fff 0x154e73b78000 - 0x154e73b85fff 0x154e73b86000 - 0x154e73b93fff 0x154e73b94000 - 0x154e73ba1fff 0x154e73ba2000 - 0x154e73ba5fff 0x154e73ba6000 - 0x154e73ba6fff 0x154e73ba7000 - 0x154e73bbcfff 0x154e73bbd000 - 0x154e73be8fff 0x154e73be9000 - 0x154e73bf1fff 0x154e73bf2000 - 0x154e73bf2fff 0x154e73bf3000 - 0x154e73bf5fff 0x154e73bf6000 - 0x154e73bfbfff 0x154e73bfc000 - 0x154e73bfefff 0x154e73bff000 - 0x154e73bfffff 0x154e73c00000 - 0x154e73c00fff 0x154e73c01000 - 0x154e73c07fff 0x154e73c08000 - 0x154e73c08fff 0x154e73c09000 - 0x154e73c29fff 0x154e73c2a000 - 0x154e73c32fff 0x154e73c33000 - 0x154e73c33fff 0x154e73c34000 - 0x154e73c35fff 0x7fff2cf64000 - 0x7fff2cf84fff 0x7fff2cf95000 - 0x7fff2cf98fff 0x7fff2cf99000 - 0x7fff2cf9afff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xa33000 - 0xa53fff 0x100000000000 - 0x1000000bffff 0x14bdbe156000 - 0x14bdbe156fff 0x14bdbe157000 - 0x14bdbe801fff 0x14bdbe802000 - 0x14bdbe856fff 0x14bdbe857000 - 0x14bdbe859fff 0x14bdbe85a000 - 0x14bdbe87ffff 0x14bdbe880000 - 0x14bdbe9cefff 0x14bdbe9cf000 - 0x14bdbea1afff 0x14bdbea1b000 - 0x14bdbea1bfff 0x14bdbea1c000 - 0x14bdbea1efff 0x14bdbea1f000 - 0x14bdbea21fff 0x14bdbea22000 - 0x14bdbea25fff 0x14bdbea26000 - 0x14bdbea28fff 0x14bdbea29000 - 0x14bdbea3afff 0x14bdbea3b000 - 0x14bdbea3efff 0x14bdbea3f000 - 0x14bdbea3ffff 0x14bdbea40000 - 0x14bdbea40fff 0x14bdbea41000 - 0x14bdbea42fff 0x14bdbea43000 - 0x14bdbea53fff 0x14bdbea54000 - 0x14bdbea89fff 0x14bdbea8a000 - 0x14bdbebbffff 0x14bdbebc0000 - 0x14bdbebc0fff 0x14bdbebc1000 - 0x14bdbebc4fff 0x14bdbebc5000 - 0x14bdbebc5fff 0x14bdbebc6000 - 0x14bdbebc6fff 0x14bdbebc7000 - 0x14bdbebc8fff 0x14bdbebc9000 - 0x14bdbebc9fff 0x14bdbebca000 - 0x14bdbebcafff 0x14bdbebcb000 - 0x14bdbebcbfff 0x14bdbebcc000 - 0x14bdbebcdfff 0x14bdbebce000 - 0x14bdbebcffff 0x14bdbebd0000 - 0x14bdbebd0fff 0x14bdbebd1000 - 0x14bdbebd1fff 0x14bdbebd2000 - 0x14bdbebd2fff 0x14bdbebd3000 - 0x14bdbebd4fff 0x14bdbebd5000 - 0x14bdbebd6fff 0x14bdbebd7000 - 0x14bdbebd7fff 0x14bdbebd8000 - 0x14bdbebd8fff 0x14bdbebd9000 - 0x14bdbebd9fff 0x14bdbebda000 - 0x14bdbebe7fff 0x14bdbebe8000 - 0x14bdbebf5fff 0x14bdbebf6000 - 0x14bdbec03fff 0x14bdbec04000 - 0x14bdbec07fff 0x14bdbec08000 - 0x14bdbec08fff 0x14bdbec09000 - 0x14bdbec1efff 0x14bdbec1f000 - 0x14bdbec4afff 0x14bdbec4b000 - 0x14bdbec53fff 0x14bdbec54000 - 0x14bdbec54fff 0x14bdbec55000 - 0x14bdbec57fff 0x14bdbec58000 - 0x14bdbec5dfff 0x14bdbec5e000 - 0x14bdbec60fff 0x14bdbec61000 - 0x14bdbec61fff 0x14bdbec62000 - 0x14bdbec62fff 0x14bdbec63000 - 0x14bdbec69fff 0x14bdbec6a000 - 0x14bdbec6afff 0x14bdbec6b000 - 0x14bdbec8bfff 0x14bdbec8c000 - 0x14bdbec94fff 0x14bdbec95000 - 0x14bdbec95fff 0x14bdbec96000 - 0x14bdbec97fff 0x7ffff70ab000 - 0x7ffff70cbfff 0x7ffff7179000 - 0x7ffff717cfff 0x7ffff717d000 - 0x7ffff717efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-specializer3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1134000 - 0x1154fff 0x100000000000 - 0x1000000bffff 0x14b30897e000 - 0x14b30897efff 0x14b30897f000 - 0x14b309029fff 0x14b30902a000 - 0x14b30907efff 0x14b30907f000 - 0x14b309081fff 0x14b309082000 - 0x14b3090a7fff 0x14b3090a8000 - 0x14b3091f6fff 0x14b3091f7000 - 0x14b309242fff 0x14b309243000 - 0x14b309243fff 0x14b309244000 - 0x14b309246fff 0x14b309247000 - 0x14b309249fff 0x14b30924a000 - 0x14b30924dfff 0x14b30924e000 - 0x14b309250fff 0x14b309251000 - 0x14b309262fff 0x14b309263000 - 0x14b309266fff 0x14b309267000 - 0x14b309267fff 0x14b309268000 - 0x14b309268fff 0x14b309269000 - 0x14b30926afff 0x14b30926b000 - 0x14b30927bfff 0x14b30927c000 - 0x14b3092b1fff 0x14b3092b2000 - 0x14b3093e7fff 0x14b3093e8000 - 0x14b3093e8fff 0x14b3093e9000 - 0x14b3093ecfff 0x14b3093ed000 - 0x14b3093edfff 0x14b3093ee000 - 0x14b3093eefff 0x14b3093ef000 - 0x14b3093f0fff 0x14b3093f1000 - 0x14b3093f1fff 0x14b3093f2000 - 0x14b3093f2fff 0x14b3093f3000 - 0x14b3093f3fff 0x14b3093f4000 - 0x14b3093f5fff 0x14b3093f6000 - 0x14b3093f7fff 0x14b3093f8000 - 0x14b3093f8fff 0x14b3093f9000 - 0x14b3093f9fff 0x14b3093fa000 - 0x14b3093fafff 0x14b3093fb000 - 0x14b3093fcfff 0x14b3093fd000 - 0x14b3093fefff 0x14b3093ff000 - 0x14b3093fffff 0x14b309400000 - 0x14b309400fff 0x14b309401000 - 0x14b309401fff 0x14b309402000 - 0x14b30940ffff 0x14b309410000 - 0x14b30941dfff 0x14b30941e000 - 0x14b30942bfff 0x14b30942c000 - 0x14b30942ffff 0x14b309430000 - 0x14b309430fff 0x14b309431000 - 0x14b309446fff 0x14b309447000 - 0x14b309472fff 0x14b309473000 - 0x14b30947bfff 0x14b30947c000 - 0x14b30947cfff 0x14b30947d000 - 0x14b30947ffff 0x14b309480000 - 0x14b309485fff 0x14b309486000 - 0x14b309488fff 0x14b309489000 - 0x14b309489fff 0x14b30948a000 - 0x14b30948afff 0x14b30948b000 - 0x14b309491fff 0x14b309492000 - 0x14b309492fff 0x14b309493000 - 0x14b3094b3fff 0x14b3094b4000 - 0x14b3094bcfff 0x14b3094bd000 - 0x14b3094bdfff 0x14b3094be000 - 0x14b3094bffff 0x7ffd41493000 - 0x7ffd414b3fff 0x7ffd4158f000 - 0x7ffd41592fff 0x7ffd41593000 - 0x7ffd41594fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xe5f000 - 0xe7ffff 0x100000000000 - 0x1000000bffff 0x14bd79431000 - 0x14bd79431fff 0x14bd79432000 - 0x14bd79adcfff 0x14bd79add000 - 0x14bd79b31fff 0x14bd79b32000 - 0x14bd79b34fff 0x14bd79b35000 - 0x14bd79b5afff 0x14bd79b5b000 - 0x14bd79ca9fff 0x14bd79caa000 - 0x14bd79cf5fff 0x14bd79cf6000 - 0x14bd79cf6fff 0x14bd79cf7000 - 0x14bd79cf9fff 0x14bd79cfa000 - 0x14bd79cfcfff 0x14bd79cfd000 - 0x14bd79d00fff 0x14bd79d01000 - 0x14bd79d03fff 0x14bd79d04000 - 0x14bd79d15fff 0x14bd79d16000 - 0x14bd79d19fff 0x14bd79d1a000 - 0x14bd79d1afff 0x14bd79d1b000 - 0x14bd79d1bfff 0x14bd79d1c000 - 0x14bd79d1dfff 0x14bd79d1e000 - 0x14bd79d2efff 0x14bd79d2f000 - 0x14bd79d64fff 0x14bd79d65000 - 0x14bd79e9afff 0x14bd79e9b000 - 0x14bd79e9bfff 0x14bd79e9c000 - 0x14bd79e9ffff 0x14bd79ea0000 - 0x14bd79ea0fff 0x14bd79ea1000 - 0x14bd79ea1fff 0x14bd79ea2000 - 0x14bd79ea3fff 0x14bd79ea4000 - 0x14bd79ea4fff 0x14bd79ea5000 - 0x14bd79ea5fff 0x14bd79ea6000 - 0x14bd79ea6fff 0x14bd79ea7000 - 0x14bd79ea8fff 0x14bd79ea9000 - 0x14bd79eaafff 0x14bd79eab000 - 0x14bd79eabfff 0x14bd79eac000 - 0x14bd79eacfff 0x14bd79ead000 - 0x14bd79eadfff 0x14bd79eae000 - 0x14bd79eaffff 0x14bd79eb0000 - 0x14bd79eb1fff 0x14bd79eb2000 - 0x14bd79eb2fff 0x14bd79eb3000 - 0x14bd79eb3fff 0x14bd79eb4000 - 0x14bd79eb4fff 0x14bd79eb5000 - 0x14bd79ec2fff 0x14bd79ec3000 - 0x14bd79ed0fff 0x14bd79ed1000 - 0x14bd79edefff 0x14bd79edf000 - 0x14bd79ee2fff 0x14bd79ee3000 - 0x14bd79ee3fff 0x14bd79ee4000 - 0x14bd79ef9fff 0x14bd79efa000 - 0x14bd79f25fff 0x14bd79f26000 - 0x14bd79f2efff 0x14bd79f2f000 - 0x14bd79f2ffff 0x14bd79f30000 - 0x14bd79f32fff 0x14bd79f33000 - 0x14bd79f38fff 0x14bd79f39000 - 0x14bd79f3bfff 0x14bd79f3c000 - 0x14bd79f3cfff 0x14bd79f3d000 - 0x14bd79f3dfff 0x14bd79f3e000 - 0x14bd79f44fff 0x14bd79f45000 - 0x14bd79f45fff 0x14bd79f46000 - 0x14bd79f66fff 0x14bd79f67000 - 0x14bd79f6ffff 0x14bd79f70000 - 0x14bd79f70fff 0x14bd79f71000 - 0x14bd79f72fff 0x7ffd6d803000 - 0x7ffd6d823fff 0x7ffd6d876000 - 0x7ffd6d879fff 0x7ffd6d87a000 - 0x7ffd6d87bfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xcb2000 - 0xcd2fff 0x100000000000 - 0x1000000bffff 0x153b39c3e000 - 0x153b39c3efff 0x153b39c3f000 - 0x153b3a2e9fff 0x153b3a2ea000 - 0x153b3a33efff 0x153b3a33f000 - 0x153b3a341fff 0x153b3a342000 - 0x153b3a367fff 0x153b3a368000 - 0x153b3a4b6fff 0x153b3a4b7000 - 0x153b3a502fff 0x153b3a503000 - 0x153b3a503fff 0x153b3a504000 - 0x153b3a506fff 0x153b3a507000 - 0x153b3a509fff 0x153b3a50a000 - 0x153b3a50dfff 0x153b3a50e000 - 0x153b3a510fff 0x153b3a511000 - 0x153b3a522fff 0x153b3a523000 - 0x153b3a526fff 0x153b3a527000 - 0x153b3a527fff 0x153b3a528000 - 0x153b3a528fff 0x153b3a529000 - 0x153b3a52afff 0x153b3a52b000 - 0x153b3a53bfff 0x153b3a53c000 - 0x153b3a571fff 0x153b3a572000 - 0x153b3a6a7fff 0x153b3a6a8000 - 0x153b3a6a8fff 0x153b3a6a9000 - 0x153b3a6acfff 0x153b3a6ad000 - 0x153b3a6adfff 0x153b3a6ae000 - 0x153b3a6aefff 0x153b3a6af000 - 0x153b3a6b0fff 0x153b3a6b1000 - 0x153b3a6b1fff 0x153b3a6b2000 - 0x153b3a6b2fff 0x153b3a6b3000 - 0x153b3a6b3fff 0x153b3a6b4000 - 0x153b3a6b5fff 0x153b3a6b6000 - 0x153b3a6b7fff 0x153b3a6b8000 - 0x153b3a6b8fff 0x153b3a6b9000 - 0x153b3a6b9fff 0x153b3a6ba000 - 0x153b3a6bafff 0x153b3a6bb000 - 0x153b3a6bcfff 0x153b3a6bd000 - 0x153b3a6befff 0x153b3a6bf000 - 0x153b3a6bffff 0x153b3a6c0000 - 0x153b3a6c0fff 0x153b3a6c1000 - 0x153b3a6c1fff 0x153b3a6c2000 - 0x153b3a6cffff 0x153b3a6d0000 - 0x153b3a6ddfff 0x153b3a6de000 - 0x153b3a6ebfff 0x153b3a6ec000 - 0x153b3a6effff 0x153b3a6f0000 - 0x153b3a6f0fff 0x153b3a6f1000 - 0x153b3a706fff 0x153b3a707000 - 0x153b3a732fff 0x153b3a733000 - 0x153b3a73bfff 0x153b3a73c000 - 0x153b3a73cfff 0x153b3a73d000 - 0x153b3a73ffff 0x153b3a740000 - 0x153b3a745fff 0x153b3a746000 - 0x153b3a748fff 0x153b3a749000 - 0x153b3a749fff 0x153b3a74a000 - 0x153b3a74afff 0x153b3a74b000 - 0x153b3a751fff 0x153b3a752000 - 0x153b3a752fff 0x153b3a753000 - 0x153b3a773fff 0x153b3a774000 - 0x153b3a77cfff 0x153b3a77d000 - 0x153b3a77dfff 0x153b3a77e000 - 0x153b3a77ffff 0x7fff46187000 - 0x7fff461a7fff 0x7fff461b0000 - 0x7fff461b3fff 0x7fff461b4000 - 0x7fff461b5fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-class6.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xe81000 - 0xea1fff 0x100000000000 - 0x1000000bffff 0x146375c4c000 - 0x146375c4cfff 0x146375c4d000 - 0x1463762f7fff 0x1463762f8000 - 0x14637634cfff 0x14637634d000 - 0x14637634ffff 0x146376350000 - 0x146376375fff 0x146376376000 - 0x1463764c4fff 0x1463764c5000 - 0x146376510fff 0x146376511000 - 0x146376511fff 0x146376512000 - 0x146376514fff 0x146376515000 - 0x146376517fff 0x146376518000 - 0x14637651bfff 0x14637651c000 - 0x14637651efff 0x14637651f000 - 0x146376530fff 0x146376531000 - 0x146376534fff 0x146376535000 - 0x146376535fff 0x146376536000 - 0x146376536fff 0x146376537000 - 0x146376538fff 0x146376539000 - 0x146376549fff 0x14637654a000 - 0x14637657ffff 0x146376580000 - 0x1463766b5fff 0x1463766b6000 - 0x1463766b6fff 0x1463766b7000 - 0x1463766bafff 0x1463766bb000 - 0x1463766bbfff 0x1463766bc000 - 0x1463766bcfff 0x1463766bd000 - 0x1463766befff 0x1463766bf000 - 0x1463766bffff 0x1463766c0000 - 0x1463766c0fff 0x1463766c1000 - 0x1463766c1fff 0x1463766c2000 - 0x1463766c3fff 0x1463766c4000 - 0x1463766c5fff 0x1463766c6000 - 0x1463766c6fff 0x1463766c7000 - 0x1463766c7fff 0x1463766c8000 - 0x1463766c8fff 0x1463766c9000 - 0x1463766cafff 0x1463766cb000 - 0x1463766ccfff 0x1463766cd000 - 0x1463766cdfff 0x1463766ce000 - 0x1463766cefff 0x1463766cf000 - 0x1463766cffff 0x1463766d0000 - 0x1463766ddfff 0x1463766de000 - 0x1463766ebfff 0x1463766ec000 - 0x1463766f9fff 0x1463766fa000 - 0x1463766fdfff 0x1463766fe000 - 0x1463766fefff 0x1463766ff000 - 0x146376714fff 0x146376715000 - 0x146376740fff 0x146376741000 - 0x146376749fff 0x14637674a000 - 0x14637674afff 0x14637674b000 - 0x14637674dfff 0x14637674e000 - 0x146376753fff 0x146376754000 - 0x146376756fff 0x146376757000 - 0x146376757fff 0x146376758000 - 0x146376758fff 0x146376759000 - 0x14637675ffff 0x146376760000 - 0x146376760fff 0x146376761000 - 0x146376781fff 0x146376782000 - 0x14637678afff 0x14637678b000 - 0x14637678bfff 0x14637678c000 - 0x14637678dfff 0x7ffebf0a5000 - 0x7ffebf0c5fff 0x7ffebf136000 - 0x7ffebf139fff 0x7ffebf13a000 - 0x7ffebf13bfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xec6000 - 0xee6fff 0x100000000000 - 0x1000000bffff 0x14c7c4574000 - 0x14c7c4574fff 0x14c7c4575000 - 0x14c7c4c1ffff 0x14c7c4c20000 - 0x14c7c4c74fff 0x14c7c4c75000 - 0x14c7c4c77fff 0x14c7c4c78000 - 0x14c7c4c9dfff 0x14c7c4c9e000 - 0x14c7c4decfff 0x14c7c4ded000 - 0x14c7c4e38fff 0x14c7c4e39000 - 0x14c7c4e39fff 0x14c7c4e3a000 - 0x14c7c4e3cfff 0x14c7c4e3d000 - 0x14c7c4e3ffff 0x14c7c4e40000 - 0x14c7c4e43fff 0x14c7c4e44000 - 0x14c7c4e46fff 0x14c7c4e47000 - 0x14c7c4e58fff 0x14c7c4e59000 - 0x14c7c4e5cfff 0x14c7c4e5d000 - 0x14c7c4e5dfff 0x14c7c4e5e000 - 0x14c7c4e5efff 0x14c7c4e5f000 - 0x14c7c4e60fff 0x14c7c4e61000 - 0x14c7c4e71fff 0x14c7c4e72000 - 0x14c7c4ea7fff 0x14c7c4ea8000 - 0x14c7c4fddfff 0x14c7c4fde000 - 0x14c7c4fdefff 0x14c7c4fdf000 - 0x14c7c4fe2fff 0x14c7c4fe3000 - 0x14c7c4fe3fff 0x14c7c4fe4000 - 0x14c7c4fe4fff 0x14c7c4fe5000 - 0x14c7c4fe6fff 0x14c7c4fe7000 - 0x14c7c4fe7fff 0x14c7c4fe8000 - 0x14c7c4fe8fff 0x14c7c4fe9000 - 0x14c7c4fe9fff 0x14c7c4fea000 - 0x14c7c4febfff 0x14c7c4fec000 - 0x14c7c4fedfff 0x14c7c4fee000 - 0x14c7c4feefff 0x14c7c4fef000 - 0x14c7c4feffff 0x14c7c4ff0000 - 0x14c7c4ff0fff 0x14c7c4ff1000 - 0x14c7c4ff2fff 0x14c7c4ff3000 - 0x14c7c4ff4fff 0x14c7c4ff5000 - 0x14c7c4ff5fff 0x14c7c4ff6000 - 0x14c7c4ff6fff 0x14c7c4ff7000 - 0x14c7c4ff7fff 0x14c7c4ff8000 - 0x14c7c5005fff 0x14c7c5006000 - 0x14c7c5013fff 0x14c7c5014000 - 0x14c7c5021fff 0x14c7c5022000 - 0x14c7c5025fff 0x14c7c5026000 - 0x14c7c5026fff 0x14c7c5027000 - 0x14c7c503cfff 0x14c7c503d000 - 0x14c7c5068fff 0x14c7c5069000 - 0x14c7c5071fff 0x14c7c5072000 - 0x14c7c5072fff 0x14c7c5073000 - 0x14c7c5075fff 0x14c7c5076000 - 0x14c7c507bfff 0x14c7c507c000 - 0x14c7c507efff 0x14c7c507f000 - 0x14c7c507ffff 0x14c7c5080000 - 0x14c7c5080fff 0x14c7c5081000 - 0x14c7c5087fff 0x14c7c5088000 - 0x14c7c5088fff 0x14c7c5089000 - 0x14c7c50a9fff 0x14c7c50aa000 - 0x14c7c50b2fff 0x14c7c50b3000 - 0x14c7c50b3fff 0x14c7c50b4000 - 0x14c7c50b5fff 0x7ffc48b3d000 - 0x7ffc48b5dfff 0x7ffc48b72000 - 0x7ffc48b75fff 0x7ffc48b76000 - 0x7ffc48b77fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slotdef3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1e4e000 - 0x1e6efff 0x100000000000 - 0x1000000bffff 0x153787e49000 - 0x153787e49fff 0x153787e4a000 - 0x1537884f4fff 0x1537884f5000 - 0x153788549fff 0x15378854a000 - 0x15378854cfff 0x15378854d000 - 0x153788572fff 0x153788573000 - 0x1537886c1fff 0x1537886c2000 - 0x15378870dfff 0x15378870e000 - 0x15378870efff 0x15378870f000 - 0x153788711fff 0x153788712000 - 0x153788714fff 0x153788715000 - 0x153788718fff 0x153788719000 - 0x15378871bfff 0x15378871c000 - 0x15378872dfff 0x15378872e000 - 0x153788731fff 0x153788732000 - 0x153788732fff 0x153788733000 - 0x153788733fff 0x153788734000 - 0x153788735fff 0x153788736000 - 0x153788746fff 0x153788747000 - 0x15378877cfff 0x15378877d000 - 0x1537888b2fff 0x1537888b3000 - 0x1537888b3fff 0x1537888b4000 - 0x1537888b7fff 0x1537888b8000 - 0x1537888b8fff 0x1537888b9000 - 0x1537888b9fff 0x1537888ba000 - 0x1537888bbfff 0x1537888bc000 - 0x1537888bcfff 0x1537888bd000 - 0x1537888bdfff 0x1537888be000 - 0x1537888befff 0x1537888bf000 - 0x1537888c0fff 0x1537888c1000 - 0x1537888c2fff 0x1537888c3000 - 0x1537888c3fff 0x1537888c4000 - 0x1537888c4fff 0x1537888c5000 - 0x1537888c5fff 0x1537888c6000 - 0x1537888c7fff 0x1537888c8000 - 0x1537888c9fff 0x1537888ca000 - 0x1537888cafff 0x1537888cb000 - 0x1537888cbfff 0x1537888cc000 - 0x1537888ccfff 0x1537888cd000 - 0x1537888dafff 0x1537888db000 - 0x1537888e8fff 0x1537888e9000 - 0x1537888f6fff 0x1537888f7000 - 0x1537888fafff 0x1537888fb000 - 0x1537888fbfff 0x1537888fc000 - 0x153788911fff 0x153788912000 - 0x15378893dfff 0x15378893e000 - 0x153788946fff 0x153788947000 - 0x153788947fff 0x153788948000 - 0x15378894afff 0x15378894b000 - 0x153788950fff 0x153788951000 - 0x153788953fff 0x153788954000 - 0x153788954fff 0x153788955000 - 0x153788955fff 0x153788956000 - 0x15378895cfff 0x15378895d000 - 0x15378895dfff 0x15378895e000 - 0x15378897efff 0x15378897f000 - 0x153788987fff 0x153788988000 - 0x153788988fff 0x153788989000 - 0x15378898afff 0x7ffddeaa4000 - 0x7ffddeac4fff 0x7ffddeb08000 - 0x7ffddeb0bfff 0x7ffddeb0c000 - 0x7ffddeb0dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots1.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xa56000 - 0xa76fff 0x100000000000 - 0x1000000bffff 0x14a3acb40000 - 0x14a3acb40fff 0x14a3acb41000 - 0x14a3ad1ebfff 0x14a3ad1ec000 - 0x14a3ad240fff 0x14a3ad241000 - 0x14a3ad243fff 0x14a3ad244000 - 0x14a3ad269fff 0x14a3ad26a000 - 0x14a3ad3b8fff 0x14a3ad3b9000 - 0x14a3ad404fff 0x14a3ad405000 - 0x14a3ad405fff 0x14a3ad406000 - 0x14a3ad408fff 0x14a3ad409000 - 0x14a3ad40bfff 0x14a3ad40c000 - 0x14a3ad40ffff 0x14a3ad410000 - 0x14a3ad412fff 0x14a3ad413000 - 0x14a3ad424fff 0x14a3ad425000 - 0x14a3ad428fff 0x14a3ad429000 - 0x14a3ad429fff 0x14a3ad42a000 - 0x14a3ad42afff 0x14a3ad42b000 - 0x14a3ad42cfff 0x14a3ad42d000 - 0x14a3ad43dfff 0x14a3ad43e000 - 0x14a3ad473fff 0x14a3ad474000 - 0x14a3ad5a9fff 0x14a3ad5aa000 - 0x14a3ad5aafff 0x14a3ad5ab000 - 0x14a3ad5aefff 0x14a3ad5af000 - 0x14a3ad5affff 0x14a3ad5b0000 - 0x14a3ad5b0fff 0x14a3ad5b1000 - 0x14a3ad5b2fff 0x14a3ad5b3000 - 0x14a3ad5b3fff 0x14a3ad5b4000 - 0x14a3ad5b4fff 0x14a3ad5b5000 - 0x14a3ad5b5fff 0x14a3ad5b6000 - 0x14a3ad5b7fff 0x14a3ad5b8000 - 0x14a3ad5b9fff 0x14a3ad5ba000 - 0x14a3ad5bafff 0x14a3ad5bb000 - 0x14a3ad5bbfff 0x14a3ad5bc000 - 0x14a3ad5bcfff 0x14a3ad5bd000 - 0x14a3ad5befff 0x14a3ad5bf000 - 0x14a3ad5c0fff 0x14a3ad5c1000 - 0x14a3ad5c1fff 0x14a3ad5c2000 - 0x14a3ad5c2fff 0x14a3ad5c3000 - 0x14a3ad5c3fff 0x14a3ad5c4000 - 0x14a3ad5d1fff 0x14a3ad5d2000 - 0x14a3ad5dffff 0x14a3ad5e0000 - 0x14a3ad5edfff 0x14a3ad5ee000 - 0x14a3ad5f1fff 0x14a3ad5f2000 - 0x14a3ad5f2fff 0x14a3ad5f3000 - 0x14a3ad608fff 0x14a3ad609000 - 0x14a3ad634fff 0x14a3ad635000 - 0x14a3ad63dfff 0x14a3ad63e000 - 0x14a3ad63efff 0x14a3ad63f000 - 0x14a3ad641fff 0x14a3ad642000 - 0x14a3ad647fff 0x14a3ad648000 - 0x14a3ad64afff 0x14a3ad64b000 - 0x14a3ad64bfff 0x14a3ad64c000 - 0x14a3ad64cfff 0x14a3ad64d000 - 0x14a3ad653fff 0x14a3ad654000 - 0x14a3ad654fff 0x14a3ad655000 - 0x14a3ad675fff 0x14a3ad676000 - 0x14a3ad67efff 0x14a3ad67f000 - 0x14a3ad67ffff 0x14a3ad680000 - 0x14a3ad681fff 0x7ffdef593000 - 0x7ffdef5b3fff 0x7ffdef5e3000 - 0x7ffdef5e6fff 0x7ffdef5e7000 - 0x7ffdef5e8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-slots2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xa45000 - 0xa65fff 0x100000000000 - 0x1000000bffff 0x14acc270e000 - 0x14acc270efff 0x14acc270f000 - 0x14acc2db9fff 0x14acc2dba000 - 0x14acc2e0efff 0x14acc2e0f000 - 0x14acc2e11fff 0x14acc2e12000 - 0x14acc2e37fff 0x14acc2e38000 - 0x14acc2f86fff 0x14acc2f87000 - 0x14acc2fd2fff 0x14acc2fd3000 - 0x14acc2fd3fff 0x14acc2fd4000 - 0x14acc2fd6fff 0x14acc2fd7000 - 0x14acc2fd9fff 0x14acc2fda000 - 0x14acc2fddfff 0x14acc2fde000 - 0x14acc2fe0fff 0x14acc2fe1000 - 0x14acc2ff2fff 0x14acc2ff3000 - 0x14acc2ff6fff 0x14acc2ff7000 - 0x14acc2ff7fff 0x14acc2ff8000 - 0x14acc2ff8fff 0x14acc2ff9000 - 0x14acc2ffafff 0x14acc2ffb000 - 0x14acc300bfff 0x14acc300c000 - 0x14acc3041fff 0x14acc3042000 - 0x14acc3177fff 0x14acc3178000 - 0x14acc3178fff 0x14acc3179000 - 0x14acc317cfff 0x14acc317d000 - 0x14acc317dfff 0x14acc317e000 - 0x14acc317efff 0x14acc317f000 - 0x14acc3180fff 0x14acc3181000 - 0x14acc3181fff 0x14acc3182000 - 0x14acc3182fff 0x14acc3183000 - 0x14acc3183fff 0x14acc3184000 - 0x14acc3185fff 0x14acc3186000 - 0x14acc3187fff 0x14acc3188000 - 0x14acc3188fff 0x14acc3189000 - 0x14acc3189fff 0x14acc318a000 - 0x14acc318afff 0x14acc318b000 - 0x14acc318cfff 0x14acc318d000 - 0x14acc318efff 0x14acc318f000 - 0x14acc318ffff 0x14acc3190000 - 0x14acc3190fff 0x14acc3191000 - 0x14acc3191fff 0x14acc3192000 - 0x14acc319ffff 0x14acc31a0000 - 0x14acc31adfff 0x14acc31ae000 - 0x14acc31bbfff 0x14acc31bc000 - 0x14acc31bffff 0x14acc31c0000 - 0x14acc31c0fff 0x14acc31c1000 - 0x14acc31d6fff 0x14acc31d7000 - 0x14acc3202fff 0x14acc3203000 - 0x14acc320bfff 0x14acc320c000 - 0x14acc320cfff 0x14acc320d000 - 0x14acc320ffff 0x14acc3210000 - 0x14acc3215fff 0x14acc3216000 - 0x14acc3218fff 0x14acc3219000 - 0x14acc3219fff 0x14acc321a000 - 0x14acc321afff 0x14acc321b000 - 0x14acc3221fff 0x14acc3222000 - 0x14acc3222fff 0x14acc3223000 - 0x14acc3243fff 0x14acc3244000 - 0x14acc324cfff 0x14acc324d000 - 0x14acc324dfff 0x14acc324e000 - 0x14acc324ffff 0x7ffde458a000 - 0x7ffde45aafff 0x7ffde45d2000 - 0x7ffde45d5fff 0x7ffde45d6000 - 0x7ffde45d7fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xbd3000 - 0xbf3fff 0x100000000000 - 0x1000000bffff 0x149daacd8000 - 0x149daacd8fff 0x149daacd9000 - 0x149dab383fff 0x149dab384000 - 0x149dab3d8fff 0x149dab3d9000 - 0x149dab3dbfff 0x149dab3dc000 - 0x149dab401fff 0x149dab402000 - 0x149dab550fff 0x149dab551000 - 0x149dab59cfff 0x149dab59d000 - 0x149dab59dfff 0x149dab59e000 - 0x149dab5a0fff 0x149dab5a1000 - 0x149dab5a3fff 0x149dab5a4000 - 0x149dab5a7fff 0x149dab5a8000 - 0x149dab5aafff 0x149dab5ab000 - 0x149dab5bcfff 0x149dab5bd000 - 0x149dab5c0fff 0x149dab5c1000 - 0x149dab5c1fff 0x149dab5c2000 - 0x149dab5c2fff 0x149dab5c3000 - 0x149dab5c4fff 0x149dab5c5000 - 0x149dab5d5fff 0x149dab5d6000 - 0x149dab60bfff 0x149dab60c000 - 0x149dab741fff 0x149dab742000 - 0x149dab742fff 0x149dab743000 - 0x149dab746fff 0x149dab747000 - 0x149dab747fff 0x149dab748000 - 0x149dab748fff 0x149dab749000 - 0x149dab74afff 0x149dab74b000 - 0x149dab74bfff 0x149dab74c000 - 0x149dab74cfff 0x149dab74d000 - 0x149dab74dfff 0x149dab74e000 - 0x149dab74ffff 0x149dab750000 - 0x149dab751fff 0x149dab752000 - 0x149dab752fff 0x149dab753000 - 0x149dab753fff 0x149dab754000 - 0x149dab754fff 0x149dab755000 - 0x149dab756fff 0x149dab757000 - 0x149dab758fff 0x149dab759000 - 0x149dab759fff 0x149dab75a000 - 0x149dab75afff 0x149dab75b000 - 0x149dab75bfff 0x149dab75c000 - 0x149dab769fff 0x149dab76a000 - 0x149dab777fff 0x149dab778000 - 0x149dab785fff 0x149dab786000 - 0x149dab789fff 0x149dab78a000 - 0x149dab78afff 0x149dab78b000 - 0x149dab7a0fff 0x149dab7a1000 - 0x149dab7ccfff 0x149dab7cd000 - 0x149dab7d5fff 0x149dab7d6000 - 0x149dab7d6fff 0x149dab7d7000 - 0x149dab7d9fff 0x149dab7da000 - 0x149dab7dffff 0x149dab7e0000 - 0x149dab7e2fff 0x149dab7e3000 - 0x149dab7e3fff 0x149dab7e4000 - 0x149dab7e4fff 0x149dab7e5000 - 0x149dab7ebfff 0x149dab7ec000 - 0x149dab7ecfff 0x149dab7ed000 - 0x149dab80dfff 0x149dab80e000 - 0x149dab816fff 0x149dab817000 - 0x149dab817fff 0x149dab818000 - 0x149dab819fff 0x7ffe9829a000 - 0x7ffe982bafff 0x7ffe983bf000 - 0x7ffe983c2fff 0x7ffe983c3000 - 0x7ffe983c4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xb69000 - 0xb89fff 0x100000000000 - 0x1000000bffff 0x14887b317000 - 0x14887b317fff 0x14887b318000 - 0x14887b9c2fff 0x14887b9c3000 - 0x14887ba17fff 0x14887ba18000 - 0x14887ba1afff 0x14887ba1b000 - 0x14887ba40fff 0x14887ba41000 - 0x14887bb8ffff 0x14887bb90000 - 0x14887bbdbfff 0x14887bbdc000 - 0x14887bbdcfff 0x14887bbdd000 - 0x14887bbdffff 0x14887bbe0000 - 0x14887bbe2fff 0x14887bbe3000 - 0x14887bbe6fff 0x14887bbe7000 - 0x14887bbe9fff 0x14887bbea000 - 0x14887bbfbfff 0x14887bbfc000 - 0x14887bbfffff 0x14887bc00000 - 0x14887bc00fff 0x14887bc01000 - 0x14887bc01fff 0x14887bc02000 - 0x14887bc03fff 0x14887bc04000 - 0x14887bc14fff 0x14887bc15000 - 0x14887bc4afff 0x14887bc4b000 - 0x14887bd80fff 0x14887bd81000 - 0x14887bd81fff 0x14887bd82000 - 0x14887bd85fff 0x14887bd86000 - 0x14887bd86fff 0x14887bd87000 - 0x14887bd87fff 0x14887bd88000 - 0x14887bd89fff 0x14887bd8a000 - 0x14887bd8afff 0x14887bd8b000 - 0x14887bd8bfff 0x14887bd8c000 - 0x14887bd8cfff 0x14887bd8d000 - 0x14887bd8efff 0x14887bd8f000 - 0x14887bd90fff 0x14887bd91000 - 0x14887bd91fff 0x14887bd92000 - 0x14887bd92fff 0x14887bd93000 - 0x14887bd93fff 0x14887bd94000 - 0x14887bd95fff 0x14887bd96000 - 0x14887bd97fff 0x14887bd98000 - 0x14887bd98fff 0x14887bd99000 - 0x14887bd99fff 0x14887bd9a000 - 0x14887bd9afff 0x14887bd9b000 - 0x14887bda8fff 0x14887bda9000 - 0x14887bdb6fff 0x14887bdb7000 - 0x14887bdc4fff 0x14887bdc5000 - 0x14887bdc8fff 0x14887bdc9000 - 0x14887bdc9fff 0x14887bdca000 - 0x14887bddffff 0x14887bde0000 - 0x14887be0bfff 0x14887be0c000 - 0x14887be14fff 0x14887be15000 - 0x14887be15fff 0x14887be16000 - 0x14887be18fff 0x14887be19000 - 0x14887be1efff 0x14887be1f000 - 0x14887be21fff 0x14887be22000 - 0x14887be22fff 0x14887be23000 - 0x14887be23fff 0x14887be24000 - 0x14887be2afff 0x14887be2b000 - 0x14887be2bfff 0x14887be2c000 - 0x14887be4cfff 0x14887be4d000 - 0x14887be55fff 0x14887be56000 - 0x14887be56fff 0x14887be57000 - 0x14887be58fff 0x7fff891c1000 - 0x7fff891e1fff 0x7fff891f3000 - 0x7fff891f6fff 0x7fff891f7000 - 0x7fff891f8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1760000 - 0x1780fff 0x100000000000 - 0x1000000bffff 0x150150a54000 - 0x150150a54fff 0x150150a55000 - 0x1501510fffff 0x150151100000 - 0x150151154fff 0x150151155000 - 0x150151157fff 0x150151158000 - 0x15015117dfff 0x15015117e000 - 0x1501512ccfff 0x1501512cd000 - 0x150151318fff 0x150151319000 - 0x150151319fff 0x15015131a000 - 0x15015131cfff 0x15015131d000 - 0x15015131ffff 0x150151320000 - 0x150151323fff 0x150151324000 - 0x150151326fff 0x150151327000 - 0x150151338fff 0x150151339000 - 0x15015133cfff 0x15015133d000 - 0x15015133dfff 0x15015133e000 - 0x15015133efff 0x15015133f000 - 0x150151340fff 0x150151341000 - 0x150151351fff 0x150151352000 - 0x150151387fff 0x150151388000 - 0x1501514bdfff 0x1501514be000 - 0x1501514befff 0x1501514bf000 - 0x1501514c2fff 0x1501514c3000 - 0x1501514c3fff 0x1501514c4000 - 0x1501514c4fff 0x1501514c5000 - 0x1501514c6fff 0x1501514c7000 - 0x1501514c7fff 0x1501514c8000 - 0x1501514c8fff 0x1501514c9000 - 0x1501514c9fff 0x1501514ca000 - 0x1501514cbfff 0x1501514cc000 - 0x1501514cdfff 0x1501514ce000 - 0x1501514cefff 0x1501514cf000 - 0x1501514cffff 0x1501514d0000 - 0x1501514d0fff 0x1501514d1000 - 0x1501514d2fff 0x1501514d3000 - 0x1501514d4fff 0x1501514d5000 - 0x1501514d5fff 0x1501514d6000 - 0x1501514d6fff 0x1501514d7000 - 0x1501514d7fff 0x1501514d8000 - 0x1501514e5fff 0x1501514e6000 - 0x1501514f3fff 0x1501514f4000 - 0x150151501fff 0x150151502000 - 0x150151505fff 0x150151506000 - 0x150151506fff 0x150151507000 - 0x15015151cfff 0x15015151d000 - 0x150151548fff 0x150151549000 - 0x150151551fff 0x150151552000 - 0x150151552fff 0x150151553000 - 0x150151555fff 0x150151556000 - 0x15015155bfff 0x15015155c000 - 0x15015155efff 0x15015155f000 - 0x15015155ffff 0x150151560000 - 0x150151560fff 0x150151561000 - 0x150151567fff 0x150151568000 - 0x150151568fff 0x150151569000 - 0x150151589fff 0x15015158a000 - 0x150151592fff 0x150151593000 - 0x150151593fff 0x150151594000 - 0x150151595fff 0x7fffb9770000 - 0x7fffb9790fff 0x7fffb9798000 - 0x7fffb979bfff 0x7fffb979c000 - 0x7fffb979dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-method4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xec7000 - 0xee7fff 0x100000000000 - 0x1000000bffff 0x14fc03ca9000 - 0x14fc03ca9fff 0x14fc03caa000 - 0x14fc04354fff 0x14fc04355000 - 0x14fc043a9fff 0x14fc043aa000 - 0x14fc043acfff 0x14fc043ad000 - 0x14fc043d2fff 0x14fc043d3000 - 0x14fc04521fff 0x14fc04522000 - 0x14fc0456dfff 0x14fc0456e000 - 0x14fc0456efff 0x14fc0456f000 - 0x14fc04571fff 0x14fc04572000 - 0x14fc04574fff 0x14fc04575000 - 0x14fc04578fff 0x14fc04579000 - 0x14fc0457bfff 0x14fc0457c000 - 0x14fc0458dfff 0x14fc0458e000 - 0x14fc04591fff 0x14fc04592000 - 0x14fc04592fff 0x14fc04593000 - 0x14fc04593fff 0x14fc04594000 - 0x14fc04595fff 0x14fc04596000 - 0x14fc045a6fff 0x14fc045a7000 - 0x14fc045dcfff 0x14fc045dd000 - 0x14fc04712fff 0x14fc04713000 - 0x14fc04713fff 0x14fc04714000 - 0x14fc04717fff 0x14fc04718000 - 0x14fc04718fff 0x14fc04719000 - 0x14fc04719fff 0x14fc0471a000 - 0x14fc0471bfff 0x14fc0471c000 - 0x14fc0471cfff 0x14fc0471d000 - 0x14fc0471dfff 0x14fc0471e000 - 0x14fc0471efff 0x14fc0471f000 - 0x14fc04720fff 0x14fc04721000 - 0x14fc04722fff 0x14fc04723000 - 0x14fc04723fff 0x14fc04724000 - 0x14fc04724fff 0x14fc04725000 - 0x14fc04725fff 0x14fc04726000 - 0x14fc04727fff 0x14fc04728000 - 0x14fc04729fff 0x14fc0472a000 - 0x14fc0472afff 0x14fc0472b000 - 0x14fc0472bfff 0x14fc0472c000 - 0x14fc0472cfff 0x14fc0472d000 - 0x14fc0473afff 0x14fc0473b000 - 0x14fc04748fff 0x14fc04749000 - 0x14fc04756fff 0x14fc04757000 - 0x14fc0475afff 0x14fc0475b000 - 0x14fc0475bfff 0x14fc0475c000 - 0x14fc04771fff 0x14fc04772000 - 0x14fc0479dfff 0x14fc0479e000 - 0x14fc047a6fff 0x14fc047a7000 - 0x14fc047a7fff 0x14fc047a8000 - 0x14fc047aafff 0x14fc047ab000 - 0x14fc047b0fff 0x14fc047b1000 - 0x14fc047b3fff 0x14fc047b4000 - 0x14fc047b4fff 0x14fc047b5000 - 0x14fc047b5fff 0x14fc047b6000 - 0x14fc047bcfff 0x14fc047bd000 - 0x14fc047bdfff 0x14fc047be000 - 0x14fc047defff 0x14fc047df000 - 0x14fc047e7fff 0x14fc047e8000 - 0x14fc047e8fff 0x14fc047e9000 - 0x14fc047eafff 0x7ffc931e1000 - 0x7ffc93201fff 0x7ffc93373000 - 0x7ffc93376fff 0x7ffc93377000 - 0x7ffc93378fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb1.lisp ... WARNING: Redefining metaobject class # has no effect. ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1045000 - 0x1065fff 0x100000000000 - 0x1000000bffff 0x153cabab1000 - 0x153cabab1fff 0x153cabab2000 - 0x153cac15cfff 0x153cac15d000 - 0x153cac1b1fff 0x153cac1b2000 - 0x153cac1b4fff 0x153cac1b5000 - 0x153cac1dafff 0x153cac1db000 - 0x153cac329fff 0x153cac32a000 - 0x153cac375fff 0x153cac376000 - 0x153cac376fff 0x153cac377000 - 0x153cac379fff 0x153cac37a000 - 0x153cac37cfff 0x153cac37d000 - 0x153cac380fff 0x153cac381000 - 0x153cac383fff 0x153cac384000 - 0x153cac395fff 0x153cac396000 - 0x153cac399fff 0x153cac39a000 - 0x153cac39afff 0x153cac39b000 - 0x153cac39bfff 0x153cac39c000 - 0x153cac39dfff 0x153cac39e000 - 0x153cac3aefff 0x153cac3af000 - 0x153cac3e4fff 0x153cac3e5000 - 0x153cac51afff 0x153cac51b000 - 0x153cac51bfff 0x153cac51c000 - 0x153cac51ffff 0x153cac520000 - 0x153cac520fff 0x153cac521000 - 0x153cac521fff 0x153cac522000 - 0x153cac523fff 0x153cac524000 - 0x153cac524fff 0x153cac525000 - 0x153cac525fff 0x153cac526000 - 0x153cac526fff 0x153cac527000 - 0x153cac528fff 0x153cac529000 - 0x153cac52afff 0x153cac52b000 - 0x153cac52bfff 0x153cac52c000 - 0x153cac52cfff 0x153cac52d000 - 0x153cac52dfff 0x153cac52e000 - 0x153cac52ffff 0x153cac530000 - 0x153cac531fff 0x153cac532000 - 0x153cac532fff 0x153cac533000 - 0x153cac533fff 0x153cac534000 - 0x153cac534fff 0x153cac535000 - 0x153cac542fff 0x153cac543000 - 0x153cac550fff 0x153cac551000 - 0x153cac55efff 0x153cac55f000 - 0x153cac562fff 0x153cac563000 - 0x153cac563fff 0x153cac564000 - 0x153cac579fff 0x153cac57a000 - 0x153cac5a5fff 0x153cac5a6000 - 0x153cac5aefff 0x153cac5af000 - 0x153cac5affff 0x153cac5b0000 - 0x153cac5b2fff 0x153cac5b3000 - 0x153cac5b8fff 0x153cac5b9000 - 0x153cac5bbfff 0x153cac5bc000 - 0x153cac5bcfff 0x153cac5bd000 - 0x153cac5bdfff 0x153cac5be000 - 0x153cac5c4fff 0x153cac5c5000 - 0x153cac5c5fff 0x153cac5c6000 - 0x153cac5e6fff 0x153cac5e7000 - 0x153cac5effff 0x153cac5f0000 - 0x153cac5f0fff 0x153cac5f1000 - 0x153cac5f2fff 0x7ffe17935000 - 0x7ffe17955fff 0x7ffe17964000 - 0x7ffe17967fff 0x7ffe17968000 - 0x7ffe17969fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x22f5000 - 0x2315fff 0x100000000000 - 0x1000000bffff 0x1516f98c7000 - 0x1516f98c7fff 0x1516f98c8000 - 0x1516f9f72fff 0x1516f9f73000 - 0x1516f9fc7fff 0x1516f9fc8000 - 0x1516f9fcafff 0x1516f9fcb000 - 0x1516f9ff0fff 0x1516f9ff1000 - 0x1516fa13ffff 0x1516fa140000 - 0x1516fa18bfff 0x1516fa18c000 - 0x1516fa18cfff 0x1516fa18d000 - 0x1516fa18ffff 0x1516fa190000 - 0x1516fa192fff 0x1516fa193000 - 0x1516fa196fff 0x1516fa197000 - 0x1516fa199fff 0x1516fa19a000 - 0x1516fa1abfff 0x1516fa1ac000 - 0x1516fa1affff 0x1516fa1b0000 - 0x1516fa1b0fff 0x1516fa1b1000 - 0x1516fa1b1fff 0x1516fa1b2000 - 0x1516fa1b3fff 0x1516fa1b4000 - 0x1516fa1c4fff 0x1516fa1c5000 - 0x1516fa1fafff 0x1516fa1fb000 - 0x1516fa330fff 0x1516fa331000 - 0x1516fa331fff 0x1516fa332000 - 0x1516fa335fff 0x1516fa336000 - 0x1516fa336fff 0x1516fa337000 - 0x1516fa337fff 0x1516fa338000 - 0x1516fa339fff 0x1516fa33a000 - 0x1516fa33afff 0x1516fa33b000 - 0x1516fa33bfff 0x1516fa33c000 - 0x1516fa33cfff 0x1516fa33d000 - 0x1516fa33efff 0x1516fa33f000 - 0x1516fa340fff 0x1516fa341000 - 0x1516fa341fff 0x1516fa342000 - 0x1516fa342fff 0x1516fa343000 - 0x1516fa343fff 0x1516fa344000 - 0x1516fa345fff 0x1516fa346000 - 0x1516fa347fff 0x1516fa348000 - 0x1516fa348fff 0x1516fa349000 - 0x1516fa349fff 0x1516fa34a000 - 0x1516fa34afff 0x1516fa34b000 - 0x1516fa358fff 0x1516fa359000 - 0x1516fa366fff 0x1516fa367000 - 0x1516fa374fff 0x1516fa375000 - 0x1516fa378fff 0x1516fa379000 - 0x1516fa379fff 0x1516fa37a000 - 0x1516fa38ffff 0x1516fa390000 - 0x1516fa3bbfff 0x1516fa3bc000 - 0x1516fa3c4fff 0x1516fa3c5000 - 0x1516fa3c5fff 0x1516fa3c6000 - 0x1516fa3c8fff 0x1516fa3c9000 - 0x1516fa3cefff 0x1516fa3cf000 - 0x1516fa3d1fff 0x1516fa3d2000 - 0x1516fa3d2fff 0x1516fa3d3000 - 0x1516fa3d3fff 0x1516fa3d4000 - 0x1516fa3dafff 0x1516fa3db000 - 0x1516fa3dbfff 0x1516fa3dc000 - 0x1516fa3fcfff 0x1516fa3fd000 - 0x1516fa405fff 0x1516fa406000 - 0x1516fa406fff 0x1516fa407000 - 0x1516fa408fff 0x7ffef4541000 - 0x7ffef4561fff 0x7ffef4569000 - 0x7ffef456cfff 0x7ffef456d000 - 0x7ffef456efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x179c000 - 0x17bcfff 0x100000000000 - 0x1000000bffff 0x155507e9f000 - 0x155507e9ffff 0x155507ea0000 - 0x15550854afff 0x15550854b000 - 0x15550859ffff 0x1555085a0000 - 0x1555085a2fff 0x1555085a3000 - 0x1555085c8fff 0x1555085c9000 - 0x155508717fff 0x155508718000 - 0x155508763fff 0x155508764000 - 0x155508764fff 0x155508765000 - 0x155508767fff 0x155508768000 - 0x15550876afff 0x15550876b000 - 0x15550876efff 0x15550876f000 - 0x155508771fff 0x155508772000 - 0x155508783fff 0x155508784000 - 0x155508787fff 0x155508788000 - 0x155508788fff 0x155508789000 - 0x155508789fff 0x15550878a000 - 0x15550878bfff 0x15550878c000 - 0x15550879cfff 0x15550879d000 - 0x1555087d2fff 0x1555087d3000 - 0x155508908fff 0x155508909000 - 0x155508909fff 0x15550890a000 - 0x15550890dfff 0x15550890e000 - 0x15550890efff 0x15550890f000 - 0x15550890ffff 0x155508910000 - 0x155508911fff 0x155508912000 - 0x155508912fff 0x155508913000 - 0x155508913fff 0x155508914000 - 0x155508914fff 0x155508915000 - 0x155508916fff 0x155508917000 - 0x155508918fff 0x155508919000 - 0x155508919fff 0x15550891a000 - 0x15550891afff 0x15550891b000 - 0x15550891bfff 0x15550891c000 - 0x15550891dfff 0x15550891e000 - 0x15550891ffff 0x155508920000 - 0x155508920fff 0x155508921000 - 0x155508921fff 0x155508922000 - 0x155508922fff 0x155508923000 - 0x155508930fff 0x155508931000 - 0x15550893efff 0x15550893f000 - 0x15550894cfff 0x15550894d000 - 0x155508950fff 0x155508951000 - 0x155508951fff 0x155508952000 - 0x155508967fff 0x155508968000 - 0x155508993fff 0x155508994000 - 0x15550899cfff 0x15550899d000 - 0x15550899dfff 0x15550899e000 - 0x1555089a0fff 0x1555089a1000 - 0x1555089a6fff 0x1555089a7000 - 0x1555089a9fff 0x1555089aa000 - 0x1555089aafff 0x1555089ab000 - 0x1555089abfff 0x1555089ac000 - 0x1555089b2fff 0x1555089b3000 - 0x1555089b3fff 0x1555089b4000 - 0x1555089d4fff 0x1555089d5000 - 0x1555089ddfff 0x1555089de000 - 0x1555089defff 0x1555089df000 - 0x1555089e0fff 0x7fff13903000 - 0x7fff13923fff 0x7fff13979000 - 0x7fff1397cfff 0x7fff1397d000 - 0x7fff1397efff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-methcomb4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1385000 - 0x13a5fff 0x100000000000 - 0x1000000bffff 0x149676391000 - 0x149676391fff 0x149676392000 - 0x149676a3cfff 0x149676a3d000 - 0x149676a91fff 0x149676a92000 - 0x149676a94fff 0x149676a95000 - 0x149676abafff 0x149676abb000 - 0x149676c09fff 0x149676c0a000 - 0x149676c55fff 0x149676c56000 - 0x149676c56fff 0x149676c57000 - 0x149676c59fff 0x149676c5a000 - 0x149676c5cfff 0x149676c5d000 - 0x149676c60fff 0x149676c61000 - 0x149676c63fff 0x149676c64000 - 0x149676c75fff 0x149676c76000 - 0x149676c79fff 0x149676c7a000 - 0x149676c7afff 0x149676c7b000 - 0x149676c7bfff 0x149676c7c000 - 0x149676c7dfff 0x149676c7e000 - 0x149676c8efff 0x149676c8f000 - 0x149676cc4fff 0x149676cc5000 - 0x149676dfafff 0x149676dfb000 - 0x149676dfbfff 0x149676dfc000 - 0x149676dfffff 0x149676e00000 - 0x149676e00fff 0x149676e01000 - 0x149676e01fff 0x149676e02000 - 0x149676e03fff 0x149676e04000 - 0x149676e04fff 0x149676e05000 - 0x149676e05fff 0x149676e06000 - 0x149676e06fff 0x149676e07000 - 0x149676e08fff 0x149676e09000 - 0x149676e0afff 0x149676e0b000 - 0x149676e0bfff 0x149676e0c000 - 0x149676e0cfff 0x149676e0d000 - 0x149676e0dfff 0x149676e0e000 - 0x149676e0ffff 0x149676e10000 - 0x149676e11fff 0x149676e12000 - 0x149676e12fff 0x149676e13000 - 0x149676e13fff 0x149676e14000 - 0x149676e14fff 0x149676e15000 - 0x149676e22fff 0x149676e23000 - 0x149676e30fff 0x149676e31000 - 0x149676e3efff 0x149676e3f000 - 0x149676e42fff 0x149676e43000 - 0x149676e43fff 0x149676e44000 - 0x149676e59fff 0x149676e5a000 - 0x149676e85fff 0x149676e86000 - 0x149676e8efff 0x149676e8f000 - 0x149676e8ffff 0x149676e90000 - 0x149676e92fff 0x149676e93000 - 0x149676e98fff 0x149676e99000 - 0x149676e9bfff 0x149676e9c000 - 0x149676e9cfff 0x149676e9d000 - 0x149676e9dfff 0x149676e9e000 - 0x149676ea4fff 0x149676ea5000 - 0x149676ea5fff 0x149676ea6000 - 0x149676ec6fff 0x149676ec7000 - 0x149676ecffff 0x149676ed0000 - 0x149676ed0fff 0x149676ed1000 - 0x149676ed2fff 0x7ffe51429000 - 0x7ffe51449fff 0x7ffe51461000 - 0x7ffe51464fff 0x7ffe51465000 - 0x7ffe51466fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x247b000 - 0x249bfff 0x100000000000 - 0x1000000bffff 0x155207db2000 - 0x155207db2fff 0x155207db3000 - 0x15520845dfff 0x15520845e000 - 0x1552084b2fff 0x1552084b3000 - 0x1552084b5fff 0x1552084b6000 - 0x1552084dbfff 0x1552084dc000 - 0x15520862afff 0x15520862b000 - 0x155208676fff 0x155208677000 - 0x155208677fff 0x155208678000 - 0x15520867afff 0x15520867b000 - 0x15520867dfff 0x15520867e000 - 0x155208681fff 0x155208682000 - 0x155208684fff 0x155208685000 - 0x155208696fff 0x155208697000 - 0x15520869afff 0x15520869b000 - 0x15520869bfff 0x15520869c000 - 0x15520869cfff 0x15520869d000 - 0x15520869efff 0x15520869f000 - 0x1552086affff 0x1552086b0000 - 0x1552086e5fff 0x1552086e6000 - 0x15520881bfff 0x15520881c000 - 0x15520881cfff 0x15520881d000 - 0x155208820fff 0x155208821000 - 0x155208821fff 0x155208822000 - 0x155208822fff 0x155208823000 - 0x155208824fff 0x155208825000 - 0x155208825fff 0x155208826000 - 0x155208826fff 0x155208827000 - 0x155208827fff 0x155208828000 - 0x155208829fff 0x15520882a000 - 0x15520882bfff 0x15520882c000 - 0x15520882cfff 0x15520882d000 - 0x15520882dfff 0x15520882e000 - 0x15520882efff 0x15520882f000 - 0x155208830fff 0x155208831000 - 0x155208832fff 0x155208833000 - 0x155208833fff 0x155208834000 - 0x155208834fff 0x155208835000 - 0x155208835fff 0x155208836000 - 0x155208843fff 0x155208844000 - 0x155208851fff 0x155208852000 - 0x15520885ffff 0x155208860000 - 0x155208863fff 0x155208864000 - 0x155208864fff 0x155208865000 - 0x15520887afff 0x15520887b000 - 0x1552088a6fff 0x1552088a7000 - 0x1552088affff 0x1552088b0000 - 0x1552088b0fff 0x1552088b1000 - 0x1552088b3fff 0x1552088b4000 - 0x1552088b9fff 0x1552088ba000 - 0x1552088bcfff 0x1552088bd000 - 0x1552088bdfff 0x1552088be000 - 0x1552088befff 0x1552088bf000 - 0x1552088c5fff 0x1552088c6000 - 0x1552088c6fff 0x1552088c7000 - 0x1552088e7fff 0x1552088e8000 - 0x1552088f0fff 0x1552088f1000 - 0x1552088f1fff 0x1552088f2000 - 0x1552088f3fff 0x7ffe0a623000 - 0x7ffe0a643fff 0x7ffe0a660000 - 0x7ffe0a663fff 0x7ffe0a664000 - 0x7ffe0a665fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2a.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x179f000 - 0x17bffff 0x100000000000 - 0x1000000bffff 0x15015f5a8000 - 0x15015f5a8fff 0x15015f5a9000 - 0x15015fc53fff 0x15015fc54000 - 0x15015fca8fff 0x15015fca9000 - 0x15015fcabfff 0x15015fcac000 - 0x15015fcd1fff 0x15015fcd2000 - 0x15015fe20fff 0x15015fe21000 - 0x15015fe6cfff 0x15015fe6d000 - 0x15015fe6dfff 0x15015fe6e000 - 0x15015fe70fff 0x15015fe71000 - 0x15015fe73fff 0x15015fe74000 - 0x15015fe77fff 0x15015fe78000 - 0x15015fe7afff 0x15015fe7b000 - 0x15015fe8cfff 0x15015fe8d000 - 0x15015fe90fff 0x15015fe91000 - 0x15015fe91fff 0x15015fe92000 - 0x15015fe92fff 0x15015fe93000 - 0x15015fe94fff 0x15015fe95000 - 0x15015fea5fff 0x15015fea6000 - 0x15015fedbfff 0x15015fedc000 - 0x150160011fff 0x150160012000 - 0x150160012fff 0x150160013000 - 0x150160016fff 0x150160017000 - 0x150160017fff 0x150160018000 - 0x150160018fff 0x150160019000 - 0x15016001afff 0x15016001b000 - 0x15016001bfff 0x15016001c000 - 0x15016001cfff 0x15016001d000 - 0x15016001dfff 0x15016001e000 - 0x15016001ffff 0x150160020000 - 0x150160021fff 0x150160022000 - 0x150160022fff 0x150160023000 - 0x150160023fff 0x150160024000 - 0x150160024fff 0x150160025000 - 0x150160026fff 0x150160027000 - 0x150160028fff 0x150160029000 - 0x150160029fff 0x15016002a000 - 0x15016002afff 0x15016002b000 - 0x15016002bfff 0x15016002c000 - 0x150160039fff 0x15016003a000 - 0x150160047fff 0x150160048000 - 0x150160055fff 0x150160056000 - 0x150160059fff 0x15016005a000 - 0x15016005afff 0x15016005b000 - 0x150160070fff 0x150160071000 - 0x15016009cfff 0x15016009d000 - 0x1501600a5fff 0x1501600a6000 - 0x1501600a6fff 0x1501600a7000 - 0x1501600a9fff 0x1501600aa000 - 0x1501600affff 0x1501600b0000 - 0x1501600b2fff 0x1501600b3000 - 0x1501600b3fff 0x1501600b4000 - 0x1501600b4fff 0x1501600b5000 - 0x1501600bbfff 0x1501600bc000 - 0x1501600bcfff 0x1501600bd000 - 0x1501600ddfff 0x1501600de000 - 0x1501600e6fff 0x1501600e7000 - 0x1501600e7fff 0x1501600e8000 - 0x1501600e9fff 0x7fff72b7d000 - 0x7fff72b9dfff 0x7fff72b9e000 - 0x7fff72ba1fff 0x7fff72ba2000 - 0x7fff72ba3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun2b.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x14cd000 - 0x14edfff 0x100000000000 - 0x1000000bffff 0x14c7f839e000 - 0x14c7f839efff 0x14c7f839f000 - 0x14c7f8a49fff 0x14c7f8a4a000 - 0x14c7f8a9efff 0x14c7f8a9f000 - 0x14c7f8aa1fff 0x14c7f8aa2000 - 0x14c7f8ac7fff 0x14c7f8ac8000 - 0x14c7f8c16fff 0x14c7f8c17000 - 0x14c7f8c62fff 0x14c7f8c63000 - 0x14c7f8c63fff 0x14c7f8c64000 - 0x14c7f8c66fff 0x14c7f8c67000 - 0x14c7f8c69fff 0x14c7f8c6a000 - 0x14c7f8c6dfff 0x14c7f8c6e000 - 0x14c7f8c70fff 0x14c7f8c71000 - 0x14c7f8c82fff 0x14c7f8c83000 - 0x14c7f8c86fff 0x14c7f8c87000 - 0x14c7f8c87fff 0x14c7f8c88000 - 0x14c7f8c88fff 0x14c7f8c89000 - 0x14c7f8c8afff 0x14c7f8c8b000 - 0x14c7f8c9bfff 0x14c7f8c9c000 - 0x14c7f8cd1fff 0x14c7f8cd2000 - 0x14c7f8e07fff 0x14c7f8e08000 - 0x14c7f8e08fff 0x14c7f8e09000 - 0x14c7f8e0cfff 0x14c7f8e0d000 - 0x14c7f8e0dfff 0x14c7f8e0e000 - 0x14c7f8e0efff 0x14c7f8e0f000 - 0x14c7f8e10fff 0x14c7f8e11000 - 0x14c7f8e11fff 0x14c7f8e12000 - 0x14c7f8e12fff 0x14c7f8e13000 - 0x14c7f8e13fff 0x14c7f8e14000 - 0x14c7f8e15fff 0x14c7f8e16000 - 0x14c7f8e17fff 0x14c7f8e18000 - 0x14c7f8e18fff 0x14c7f8e19000 - 0x14c7f8e19fff 0x14c7f8e1a000 - 0x14c7f8e1afff 0x14c7f8e1b000 - 0x14c7f8e1cfff 0x14c7f8e1d000 - 0x14c7f8e1efff 0x14c7f8e1f000 - 0x14c7f8e1ffff 0x14c7f8e20000 - 0x14c7f8e20fff 0x14c7f8e21000 - 0x14c7f8e21fff 0x14c7f8e22000 - 0x14c7f8e2ffff 0x14c7f8e30000 - 0x14c7f8e3dfff 0x14c7f8e3e000 - 0x14c7f8e4bfff 0x14c7f8e4c000 - 0x14c7f8e4ffff 0x14c7f8e50000 - 0x14c7f8e50fff 0x14c7f8e51000 - 0x14c7f8e66fff 0x14c7f8e67000 - 0x14c7f8e92fff 0x14c7f8e93000 - 0x14c7f8e9bfff 0x14c7f8e9c000 - 0x14c7f8e9cfff 0x14c7f8e9d000 - 0x14c7f8e9ffff 0x14c7f8ea0000 - 0x14c7f8ea5fff 0x14c7f8ea6000 - 0x14c7f8ea8fff 0x14c7f8ea9000 - 0x14c7f8ea9fff 0x14c7f8eaa000 - 0x14c7f8eaafff 0x14c7f8eab000 - 0x14c7f8eb1fff 0x14c7f8eb2000 - 0x14c7f8eb2fff 0x14c7f8eb3000 - 0x14c7f8ed3fff 0x14c7f8ed4000 - 0x14c7f8edcfff 0x14c7f8edd000 - 0x14c7f8eddfff 0x14c7f8ede000 - 0x14c7f8edffff 0x7fff0e613000 - 0x7fff0e633fff 0x7fff0e678000 - 0x7fff0e67bfff 0x7fff0e67c000 - 0x7fff0e67dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xdbb000 - 0xddbfff 0x100000000000 - 0x1000000bffff 0x155457fef000 - 0x155457feffff 0x155457ff0000 - 0x15545869afff 0x15545869b000 - 0x1554586effff 0x1554586f0000 - 0x1554586f2fff 0x1554586f3000 - 0x155458718fff 0x155458719000 - 0x155458867fff 0x155458868000 - 0x1554588b3fff 0x1554588b4000 - 0x1554588b4fff 0x1554588b5000 - 0x1554588b7fff 0x1554588b8000 - 0x1554588bafff 0x1554588bb000 - 0x1554588befff 0x1554588bf000 - 0x1554588c1fff 0x1554588c2000 - 0x1554588d3fff 0x1554588d4000 - 0x1554588d7fff 0x1554588d8000 - 0x1554588d8fff 0x1554588d9000 - 0x1554588d9fff 0x1554588da000 - 0x1554588dbfff 0x1554588dc000 - 0x1554588ecfff 0x1554588ed000 - 0x155458922fff 0x155458923000 - 0x155458a58fff 0x155458a59000 - 0x155458a59fff 0x155458a5a000 - 0x155458a5dfff 0x155458a5e000 - 0x155458a5efff 0x155458a5f000 - 0x155458a5ffff 0x155458a60000 - 0x155458a61fff 0x155458a62000 - 0x155458a62fff 0x155458a63000 - 0x155458a63fff 0x155458a64000 - 0x155458a64fff 0x155458a65000 - 0x155458a66fff 0x155458a67000 - 0x155458a68fff 0x155458a69000 - 0x155458a69fff 0x155458a6a000 - 0x155458a6afff 0x155458a6b000 - 0x155458a6bfff 0x155458a6c000 - 0x155458a6dfff 0x155458a6e000 - 0x155458a6ffff 0x155458a70000 - 0x155458a70fff 0x155458a71000 - 0x155458a71fff 0x155458a72000 - 0x155458a72fff 0x155458a73000 - 0x155458a80fff 0x155458a81000 - 0x155458a8efff 0x155458a8f000 - 0x155458a9cfff 0x155458a9d000 - 0x155458aa0fff 0x155458aa1000 - 0x155458aa1fff 0x155458aa2000 - 0x155458ab7fff 0x155458ab8000 - 0x155458ae3fff 0x155458ae4000 - 0x155458aecfff 0x155458aed000 - 0x155458aedfff 0x155458aee000 - 0x155458af0fff 0x155458af1000 - 0x155458af6fff 0x155458af7000 - 0x155458af9fff 0x155458afa000 - 0x155458afafff 0x155458afb000 - 0x155458afbfff 0x155458afc000 - 0x155458b02fff 0x155458b03000 - 0x155458b03fff 0x155458b04000 - 0x155458b24fff 0x155458b25000 - 0x155458b2dfff 0x155458b2e000 - 0x155458b2efff 0x155458b2f000 - 0x155458b30fff 0x7ffcd7c30000 - 0x7ffcd7c50fff 0x7ffcd7de6000 - 0x7ffcd7de9fff 0x7ffcd7dea000 - 0x7ffcd7debfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun4.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x19fe000 - 0x1a1efff 0x100000000000 - 0x1000000bffff 0x1487344eb000 - 0x1487344ebfff 0x1487344ec000 - 0x148734b96fff 0x148734b97000 - 0x148734bebfff 0x148734bec000 - 0x148734beefff 0x148734bef000 - 0x148734c14fff 0x148734c15000 - 0x148734d63fff 0x148734d64000 - 0x148734daffff 0x148734db0000 - 0x148734db0fff 0x148734db1000 - 0x148734db3fff 0x148734db4000 - 0x148734db6fff 0x148734db7000 - 0x148734dbafff 0x148734dbb000 - 0x148734dbdfff 0x148734dbe000 - 0x148734dcffff 0x148734dd0000 - 0x148734dd3fff 0x148734dd4000 - 0x148734dd4fff 0x148734dd5000 - 0x148734dd5fff 0x148734dd6000 - 0x148734dd7fff 0x148734dd8000 - 0x148734de8fff 0x148734de9000 - 0x148734e1efff 0x148734e1f000 - 0x148734f54fff 0x148734f55000 - 0x148734f55fff 0x148734f56000 - 0x148734f59fff 0x148734f5a000 - 0x148734f5afff 0x148734f5b000 - 0x148734f5bfff 0x148734f5c000 - 0x148734f5dfff 0x148734f5e000 - 0x148734f5efff 0x148734f5f000 - 0x148734f5ffff 0x148734f60000 - 0x148734f60fff 0x148734f61000 - 0x148734f62fff 0x148734f63000 - 0x148734f64fff 0x148734f65000 - 0x148734f65fff 0x148734f66000 - 0x148734f66fff 0x148734f67000 - 0x148734f67fff 0x148734f68000 - 0x148734f69fff 0x148734f6a000 - 0x148734f6bfff 0x148734f6c000 - 0x148734f6cfff 0x148734f6d000 - 0x148734f6dfff 0x148734f6e000 - 0x148734f6efff 0x148734f6f000 - 0x148734f7cfff 0x148734f7d000 - 0x148734f8afff 0x148734f8b000 - 0x148734f98fff 0x148734f99000 - 0x148734f9cfff 0x148734f9d000 - 0x148734f9dfff 0x148734f9e000 - 0x148734fb3fff 0x148734fb4000 - 0x148734fdffff 0x148734fe0000 - 0x148734fe8fff 0x148734fe9000 - 0x148734fe9fff 0x148734fea000 - 0x148734fecfff 0x148734fed000 - 0x148734ff2fff 0x148734ff3000 - 0x148734ff5fff 0x148734ff6000 - 0x148734ff6fff 0x148734ff7000 - 0x148734ff7fff 0x148734ff8000 - 0x148734ffefff 0x148734fff000 - 0x148734ffffff 0x148735000000 - 0x148735020fff 0x148735021000 - 0x148735029fff 0x14873502a000 - 0x14873502afff 0x14873502b000 - 0x14873502cfff 0x7fff1d9c9000 - 0x7fff1d9e9fff 0x7fff1d9f0000 - 0x7fff1d9f3fff 0x7fff1d9f4000 - 0x7fff1d9f5fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-genfun5.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1e13000 - 0x1e33fff 0x100000000000 - 0x1000000bffff 0x149069d9a000 - 0x149069d9afff 0x149069d9b000 - 0x14906a445fff 0x14906a446000 - 0x14906a49afff 0x14906a49b000 - 0x14906a49dfff 0x14906a49e000 - 0x14906a4c3fff 0x14906a4c4000 - 0x14906a612fff 0x14906a613000 - 0x14906a65efff 0x14906a65f000 - 0x14906a65ffff 0x14906a660000 - 0x14906a662fff 0x14906a663000 - 0x14906a665fff 0x14906a666000 - 0x14906a669fff 0x14906a66a000 - 0x14906a66cfff 0x14906a66d000 - 0x14906a67efff 0x14906a67f000 - 0x14906a682fff 0x14906a683000 - 0x14906a683fff 0x14906a684000 - 0x14906a684fff 0x14906a685000 - 0x14906a686fff 0x14906a687000 - 0x14906a697fff 0x14906a698000 - 0x14906a6cdfff 0x14906a6ce000 - 0x14906a803fff 0x14906a804000 - 0x14906a804fff 0x14906a805000 - 0x14906a808fff 0x14906a809000 - 0x14906a809fff 0x14906a80a000 - 0x14906a80afff 0x14906a80b000 - 0x14906a80cfff 0x14906a80d000 - 0x14906a80dfff 0x14906a80e000 - 0x14906a80efff 0x14906a80f000 - 0x14906a80ffff 0x14906a810000 - 0x14906a811fff 0x14906a812000 - 0x14906a813fff 0x14906a814000 - 0x14906a814fff 0x14906a815000 - 0x14906a815fff 0x14906a816000 - 0x14906a816fff 0x14906a817000 - 0x14906a818fff 0x14906a819000 - 0x14906a81afff 0x14906a81b000 - 0x14906a81bfff 0x14906a81c000 - 0x14906a81cfff 0x14906a81d000 - 0x14906a81dfff 0x14906a81e000 - 0x14906a82bfff 0x14906a82c000 - 0x14906a839fff 0x14906a83a000 - 0x14906a847fff 0x14906a848000 - 0x14906a84bfff 0x14906a84c000 - 0x14906a84cfff 0x14906a84d000 - 0x14906a862fff 0x14906a863000 - 0x14906a88efff 0x14906a88f000 - 0x14906a897fff 0x14906a898000 - 0x14906a898fff 0x14906a899000 - 0x14906a89bfff 0x14906a89c000 - 0x14906a8a1fff 0x14906a8a2000 - 0x14906a8a4fff 0x14906a8a5000 - 0x14906a8a5fff 0x14906a8a6000 - 0x14906a8a6fff 0x14906a8a7000 - 0x14906a8adfff 0x14906a8ae000 - 0x14906a8aefff 0x14906a8af000 - 0x14906a8cffff 0x14906a8d0000 - 0x14906a8d8fff 0x14906a8d9000 - 0x14906a8d9fff 0x14906a8da000 - 0x14906a8dbfff 0x7ffcf3032000 - 0x7ffcf3052fff 0x7ffcf30bd000 - 0x7ffcf30c0fff 0x7ffcf30c1000 - 0x7ffcf30c2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-dependent.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xfdf000 - 0xffffff 0x100000000000 - 0x1000000bffff 0x14de21ee5000 - 0x14de21ee5fff 0x14de21ee6000 - 0x14de22590fff 0x14de22591000 - 0x14de225e5fff 0x14de225e6000 - 0x14de225e8fff 0x14de225e9000 - 0x14de2260efff 0x14de2260f000 - 0x14de2275dfff 0x14de2275e000 - 0x14de227a9fff 0x14de227aa000 - 0x14de227aafff 0x14de227ab000 - 0x14de227adfff 0x14de227ae000 - 0x14de227b0fff 0x14de227b1000 - 0x14de227b4fff 0x14de227b5000 - 0x14de227b7fff 0x14de227b8000 - 0x14de227c9fff 0x14de227ca000 - 0x14de227cdfff 0x14de227ce000 - 0x14de227cefff 0x14de227cf000 - 0x14de227cffff 0x14de227d0000 - 0x14de227d1fff 0x14de227d2000 - 0x14de227e2fff 0x14de227e3000 - 0x14de22818fff 0x14de22819000 - 0x14de2294efff 0x14de2294f000 - 0x14de2294ffff 0x14de22950000 - 0x14de22953fff 0x14de22954000 - 0x14de22954fff 0x14de22955000 - 0x14de22955fff 0x14de22956000 - 0x14de22957fff 0x14de22958000 - 0x14de22958fff 0x14de22959000 - 0x14de22959fff 0x14de2295a000 - 0x14de2295afff 0x14de2295b000 - 0x14de2295cfff 0x14de2295d000 - 0x14de2295efff 0x14de2295f000 - 0x14de2295ffff 0x14de22960000 - 0x14de22960fff 0x14de22961000 - 0x14de22961fff 0x14de22962000 - 0x14de22963fff 0x14de22964000 - 0x14de22965fff 0x14de22966000 - 0x14de22966fff 0x14de22967000 - 0x14de22967fff 0x14de22968000 - 0x14de22968fff 0x14de22969000 - 0x14de22976fff 0x14de22977000 - 0x14de22984fff 0x14de22985000 - 0x14de22992fff 0x14de22993000 - 0x14de22996fff 0x14de22997000 - 0x14de22997fff 0x14de22998000 - 0x14de229adfff 0x14de229ae000 - 0x14de229d9fff 0x14de229da000 - 0x14de229e2fff 0x14de229e3000 - 0x14de229e3fff 0x14de229e4000 - 0x14de229e6fff 0x14de229e7000 - 0x14de229ecfff 0x14de229ed000 - 0x14de229effff 0x14de229f0000 - 0x14de229f0fff 0x14de229f1000 - 0x14de229f1fff 0x14de229f2000 - 0x14de229f8fff 0x14de229f9000 - 0x14de229f9fff 0x14de229fa000 - 0x14de22a1afff 0x14de22a1b000 - 0x14de22a23fff 0x14de22a24000 - 0x14de22a24fff 0x14de22a25000 - 0x14de22a26fff 0x7ffd840d2000 - 0x7ffd840f2fff 0x7ffd841dd000 - 0x7ffd841e0fff 0x7ffd841e1000 - 0x7ffd841e2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-print.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x11ed000 - 0x120dfff 0x100000000000 - 0x1000000bffff 0x14a033e7c000 - 0x14a033e7cfff 0x14a033e7d000 - 0x14a034527fff 0x14a034528000 - 0x14a03457cfff 0x14a03457d000 - 0x14a03457ffff 0x14a034580000 - 0x14a0345a5fff 0x14a0345a6000 - 0x14a0346f4fff 0x14a0346f5000 - 0x14a034740fff 0x14a034741000 - 0x14a034741fff 0x14a034742000 - 0x14a034744fff 0x14a034745000 - 0x14a034747fff 0x14a034748000 - 0x14a03474bfff 0x14a03474c000 - 0x14a03474efff 0x14a03474f000 - 0x14a034760fff 0x14a034761000 - 0x14a034764fff 0x14a034765000 - 0x14a034765fff 0x14a034766000 - 0x14a034766fff 0x14a034767000 - 0x14a034768fff 0x14a034769000 - 0x14a034779fff 0x14a03477a000 - 0x14a0347affff 0x14a0347b0000 - 0x14a0348e5fff 0x14a0348e6000 - 0x14a0348e6fff 0x14a0348e7000 - 0x14a0348eafff 0x14a0348eb000 - 0x14a0348ebfff 0x14a0348ec000 - 0x14a0348ecfff 0x14a0348ed000 - 0x14a0348eefff 0x14a0348ef000 - 0x14a0348effff 0x14a0348f0000 - 0x14a0348f0fff 0x14a0348f1000 - 0x14a0348f1fff 0x14a0348f2000 - 0x14a0348f3fff 0x14a0348f4000 - 0x14a0348f5fff 0x14a0348f6000 - 0x14a0348f6fff 0x14a0348f7000 - 0x14a0348f7fff 0x14a0348f8000 - 0x14a0348f8fff 0x14a0348f9000 - 0x14a0348fafff 0x14a0348fb000 - 0x14a0348fcfff 0x14a0348fd000 - 0x14a0348fdfff 0x14a0348fe000 - 0x14a0348fefff 0x14a0348ff000 - 0x14a0348fffff 0x14a034900000 - 0x14a03490dfff 0x14a03490e000 - 0x14a03491bfff 0x14a03491c000 - 0x14a034929fff 0x14a03492a000 - 0x14a03492dfff 0x14a03492e000 - 0x14a03492efff 0x14a03492f000 - 0x14a034944fff 0x14a034945000 - 0x14a034970fff 0x14a034971000 - 0x14a034979fff 0x14a03497a000 - 0x14a03497afff 0x14a03497b000 - 0x14a03497dfff 0x14a03497e000 - 0x14a034983fff 0x14a034984000 - 0x14a034986fff 0x14a034987000 - 0x14a034987fff 0x14a034988000 - 0x14a034988fff 0x14a034989000 - 0x14a03498ffff 0x14a034990000 - 0x14a034990fff 0x14a034991000 - 0x14a0349b1fff 0x14a0349b2000 - 0x14a0349bafff 0x14a0349bb000 - 0x14a0349bbfff 0x14a0349bc000 - 0x14a0349bdfff 0x7fffa3bf4000 - 0x7fffa3c14fff 0x7fffa3ce8000 - 0x7fffa3cebfff 0x7fffa3cec000 - 0x7fffa3cedfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clos-custom.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x17ff000 - 0x181ffff 0x100000000000 - 0x1000000bffff 0x149ceab4a000 - 0x149ceab4afff 0x149ceab4b000 - 0x149ceb1f5fff 0x149ceb1f6000 - 0x149ceb24afff 0x149ceb24b000 - 0x149ceb24dfff 0x149ceb24e000 - 0x149ceb273fff 0x149ceb274000 - 0x149ceb3c2fff 0x149ceb3c3000 - 0x149ceb40efff 0x149ceb40f000 - 0x149ceb40ffff 0x149ceb410000 - 0x149ceb412fff 0x149ceb413000 - 0x149ceb415fff 0x149ceb416000 - 0x149ceb419fff 0x149ceb41a000 - 0x149ceb41cfff 0x149ceb41d000 - 0x149ceb42efff 0x149ceb42f000 - 0x149ceb432fff 0x149ceb433000 - 0x149ceb433fff 0x149ceb434000 - 0x149ceb434fff 0x149ceb435000 - 0x149ceb436fff 0x149ceb437000 - 0x149ceb447fff 0x149ceb448000 - 0x149ceb47dfff 0x149ceb47e000 - 0x149ceb5b3fff 0x149ceb5b4000 - 0x149ceb5b4fff 0x149ceb5b5000 - 0x149ceb5b8fff 0x149ceb5b9000 - 0x149ceb5b9fff 0x149ceb5ba000 - 0x149ceb5bafff 0x149ceb5bb000 - 0x149ceb5bcfff 0x149ceb5bd000 - 0x149ceb5bdfff 0x149ceb5be000 - 0x149ceb5befff 0x149ceb5bf000 - 0x149ceb5bffff 0x149ceb5c0000 - 0x149ceb5c1fff 0x149ceb5c2000 - 0x149ceb5c3fff 0x149ceb5c4000 - 0x149ceb5c4fff 0x149ceb5c5000 - 0x149ceb5c5fff 0x149ceb5c6000 - 0x149ceb5c6fff 0x149ceb5c7000 - 0x149ceb5c8fff 0x149ceb5c9000 - 0x149ceb5cafff 0x149ceb5cb000 - 0x149ceb5cbfff 0x149ceb5cc000 - 0x149ceb5ccfff 0x149ceb5cd000 - 0x149ceb5cdfff 0x149ceb5ce000 - 0x149ceb5dbfff 0x149ceb5dc000 - 0x149ceb5e9fff 0x149ceb5ea000 - 0x149ceb5f7fff 0x149ceb5f8000 - 0x149ceb5fbfff 0x149ceb5fc000 - 0x149ceb5fcfff 0x149ceb5fd000 - 0x149ceb612fff 0x149ceb613000 - 0x149ceb63efff 0x149ceb63f000 - 0x149ceb647fff 0x149ceb648000 - 0x149ceb648fff 0x149ceb649000 - 0x149ceb64bfff 0x149ceb64c000 - 0x149ceb651fff 0x149ceb652000 - 0x149ceb654fff 0x149ceb655000 - 0x149ceb655fff 0x149ceb656000 - 0x149ceb656fff 0x149ceb657000 - 0x149ceb65dfff 0x149ceb65e000 - 0x149ceb65efff 0x149ceb65f000 - 0x149ceb67ffff 0x149ceb680000 - 0x149ceb688fff 0x149ceb689000 - 0x149ceb689fff 0x149ceb68a000 - 0x149ceb68bfff 0x7fff4746d000 - 0x7fff4748dfff 0x7fff475a3000 - 0x7fff475a6fff 0x7fff475a7000 - 0x7fff475a8fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/documentation.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xf99000 - 0xfb9fff 0x100000000000 - 0x1000000bffff 0x153355a00000 - 0x153355a00fff 0x153355a01000 - 0x1533560abfff 0x1533560ac000 - 0x153356100fff 0x153356101000 - 0x153356103fff 0x153356104000 - 0x153356129fff 0x15335612a000 - 0x153356278fff 0x153356279000 - 0x1533562c4fff 0x1533562c5000 - 0x1533562c5fff 0x1533562c6000 - 0x1533562c8fff 0x1533562c9000 - 0x1533562cbfff 0x1533562cc000 - 0x1533562cffff 0x1533562d0000 - 0x1533562d2fff 0x1533562d3000 - 0x1533562e4fff 0x1533562e5000 - 0x1533562e8fff 0x1533562e9000 - 0x1533562e9fff 0x1533562ea000 - 0x1533562eafff 0x1533562eb000 - 0x1533562ecfff 0x1533562ed000 - 0x1533562fdfff 0x1533562fe000 - 0x153356333fff 0x153356334000 - 0x153356469fff 0x15335646a000 - 0x15335646afff 0x15335646b000 - 0x15335646efff 0x15335646f000 - 0x15335646ffff 0x153356470000 - 0x153356470fff 0x153356471000 - 0x153356472fff 0x153356473000 - 0x153356473fff 0x153356474000 - 0x153356474fff 0x153356475000 - 0x153356475fff 0x153356476000 - 0x153356477fff 0x153356478000 - 0x153356479fff 0x15335647a000 - 0x15335647afff 0x15335647b000 - 0x15335647bfff 0x15335647c000 - 0x15335647cfff 0x15335647d000 - 0x15335647efff 0x15335647f000 - 0x153356480fff 0x153356481000 - 0x153356481fff 0x153356482000 - 0x153356482fff 0x153356483000 - 0x153356483fff 0x153356484000 - 0x153356491fff 0x153356492000 - 0x15335649ffff 0x1533564a0000 - 0x1533564adfff 0x1533564ae000 - 0x1533564b1fff 0x1533564b2000 - 0x1533564b2fff 0x1533564b3000 - 0x1533564c8fff 0x1533564c9000 - 0x1533564f4fff 0x1533564f5000 - 0x1533564fdfff 0x1533564fe000 - 0x1533564fefff 0x1533564ff000 - 0x153356501fff 0x153356502000 - 0x153356507fff 0x153356508000 - 0x15335650afff 0x15335650b000 - 0x15335650bfff 0x15335650c000 - 0x15335650cfff 0x15335650d000 - 0x153356513fff 0x153356514000 - 0x153356514fff 0x153356515000 - 0x153356535fff 0x153356536000 - 0x15335653efff 0x15335653f000 - 0x15335653ffff 0x153356540000 - 0x153356541fff 0x7ffe4ea7b000 - 0x7ffe4ea9bfff 0x7ffe4eaa1000 - 0x7ffe4eaa4fff 0x7ffe4eaa5000 - 0x7ffe4eaa6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/fill-out.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x191e000 - 0x193efff 0x100000000000 - 0x1000000bffff 0x14a4f534f000 - 0x14a4f534ffff 0x14a4f5350000 - 0x14a4f59fafff 0x14a4f59fb000 - 0x14a4f5a4ffff 0x14a4f5a50000 - 0x14a4f5a52fff 0x14a4f5a53000 - 0x14a4f5a78fff 0x14a4f5a79000 - 0x14a4f5bc7fff 0x14a4f5bc8000 - 0x14a4f5c13fff 0x14a4f5c14000 - 0x14a4f5c14fff 0x14a4f5c15000 - 0x14a4f5c17fff 0x14a4f5c18000 - 0x14a4f5c1afff 0x14a4f5c1b000 - 0x14a4f5c1efff 0x14a4f5c1f000 - 0x14a4f5c21fff 0x14a4f5c22000 - 0x14a4f5c33fff 0x14a4f5c34000 - 0x14a4f5c37fff 0x14a4f5c38000 - 0x14a4f5c38fff 0x14a4f5c39000 - 0x14a4f5c39fff 0x14a4f5c3a000 - 0x14a4f5c3bfff 0x14a4f5c3c000 - 0x14a4f5c4cfff 0x14a4f5c4d000 - 0x14a4f5c82fff 0x14a4f5c83000 - 0x14a4f5db8fff 0x14a4f5db9000 - 0x14a4f5db9fff 0x14a4f5dba000 - 0x14a4f5dbdfff 0x14a4f5dbe000 - 0x14a4f5dbefff 0x14a4f5dbf000 - 0x14a4f5dbffff 0x14a4f5dc0000 - 0x14a4f5dc1fff 0x14a4f5dc2000 - 0x14a4f5dc2fff 0x14a4f5dc3000 - 0x14a4f5dc3fff 0x14a4f5dc4000 - 0x14a4f5dc4fff 0x14a4f5dc5000 - 0x14a4f5dc6fff 0x14a4f5dc7000 - 0x14a4f5dc8fff 0x14a4f5dc9000 - 0x14a4f5dc9fff 0x14a4f5dca000 - 0x14a4f5dcafff 0x14a4f5dcb000 - 0x14a4f5dcbfff 0x14a4f5dcc000 - 0x14a4f5dcdfff 0x14a4f5dce000 - 0x14a4f5dcffff 0x14a4f5dd0000 - 0x14a4f5dd0fff 0x14a4f5dd1000 - 0x14a4f5dd1fff 0x14a4f5dd2000 - 0x14a4f5dd2fff 0x14a4f5dd3000 - 0x14a4f5de0fff 0x14a4f5de1000 - 0x14a4f5deefff 0x14a4f5def000 - 0x14a4f5dfcfff 0x14a4f5dfd000 - 0x14a4f5e00fff 0x14a4f5e01000 - 0x14a4f5e01fff 0x14a4f5e02000 - 0x14a4f5e17fff 0x14a4f5e18000 - 0x14a4f5e43fff 0x14a4f5e44000 - 0x14a4f5e4cfff 0x14a4f5e4d000 - 0x14a4f5e4dfff 0x14a4f5e4e000 - 0x14a4f5e50fff 0x14a4f5e51000 - 0x14a4f5e56fff 0x14a4f5e57000 - 0x14a4f5e59fff 0x14a4f5e5a000 - 0x14a4f5e5afff 0x14a4f5e5b000 - 0x14a4f5e5bfff 0x14a4f5e5c000 - 0x14a4f5e62fff 0x14a4f5e63000 - 0x14a4f5e63fff 0x14a4f5e64000 - 0x14a4f5e84fff 0x14a4f5e85000 - 0x14a4f5e8dfff 0x14a4f5e8e000 - 0x14a4f5e8efff 0x14a4f5e8f000 - 0x14a4f5e90fff 0x7fff9fa47000 - 0x7fff9fa67fff 0x7fff9fadb000 - 0x7fff9fadefff 0x7fff9fadf000 - 0x7fff9fae0fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/disassem.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x16b7000 - 0x16d7fff 0x100000000000 - 0x1000000bffff 0x154d3631c000 - 0x154d3631cfff 0x154d3631d000 - 0x154d369c7fff 0x154d369c8000 - 0x154d36a1cfff 0x154d36a1d000 - 0x154d36a1ffff 0x154d36a20000 - 0x154d36a45fff 0x154d36a46000 - 0x154d36b94fff 0x154d36b95000 - 0x154d36be0fff 0x154d36be1000 - 0x154d36be1fff 0x154d36be2000 - 0x154d36be4fff 0x154d36be5000 - 0x154d36be7fff 0x154d36be8000 - 0x154d36bebfff 0x154d36bec000 - 0x154d36beefff 0x154d36bef000 - 0x154d36c00fff 0x154d36c01000 - 0x154d36c04fff 0x154d36c05000 - 0x154d36c05fff 0x154d36c06000 - 0x154d36c06fff 0x154d36c07000 - 0x154d36c08fff 0x154d36c09000 - 0x154d36c19fff 0x154d36c1a000 - 0x154d36c4ffff 0x154d36c50000 - 0x154d36d85fff 0x154d36d86000 - 0x154d36d86fff 0x154d36d87000 - 0x154d36d8afff 0x154d36d8b000 - 0x154d36d8bfff 0x154d36d8c000 - 0x154d36d8cfff 0x154d36d8d000 - 0x154d36d8efff 0x154d36d8f000 - 0x154d36d8ffff 0x154d36d90000 - 0x154d36d90fff 0x154d36d91000 - 0x154d36d91fff 0x154d36d92000 - 0x154d36d93fff 0x154d36d94000 - 0x154d36d95fff 0x154d36d96000 - 0x154d36d96fff 0x154d36d97000 - 0x154d36d97fff 0x154d36d98000 - 0x154d36d98fff 0x154d36d99000 - 0x154d36d9afff 0x154d36d9b000 - 0x154d36d9cfff 0x154d36d9d000 - 0x154d36d9dfff 0x154d36d9e000 - 0x154d36d9efff 0x154d36d9f000 - 0x154d36d9ffff 0x154d36da0000 - 0x154d36dadfff 0x154d36dae000 - 0x154d36dbbfff 0x154d36dbc000 - 0x154d36dc9fff 0x154d36dca000 - 0x154d36dcdfff 0x154d36dce000 - 0x154d36dcefff 0x154d36dcf000 - 0x154d36de4fff 0x154d36de5000 - 0x154d36e10fff 0x154d36e11000 - 0x154d36e19fff 0x154d36e1a000 - 0x154d36e1afff 0x154d36e1b000 - 0x154d36e1dfff 0x154d36e1e000 - 0x154d36e23fff 0x154d36e24000 - 0x154d36e26fff 0x154d36e27000 - 0x154d36e27fff 0x154d36e28000 - 0x154d36e28fff 0x154d36e29000 - 0x154d36e2ffff 0x154d36e30000 - 0x154d36e30fff 0x154d36e31000 - 0x154d36e51fff 0x154d36e52000 - 0x154d36e5afff 0x154d36e5b000 - 0x154d36e5bfff 0x154d36e5c000 - 0x154d36e5dfff 0x7ffd38ed2000 - 0x7ffd38ef2fff 0x7ffd38fa4000 - 0x7ffd38fa7fff 0x7ffd38fa8000 - 0x7ffd38fa9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/condition.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xffd000 - 0x101dfff 0x100000000000 - 0x1000000bffff 0x1539d29d4000 - 0x1539d29d4fff 0x1539d29d5000 - 0x1539d307ffff 0x1539d3080000 - 0x1539d30d4fff 0x1539d30d5000 - 0x1539d30d7fff 0x1539d30d8000 - 0x1539d30fdfff 0x1539d30fe000 - 0x1539d324cfff 0x1539d324d000 - 0x1539d3298fff 0x1539d3299000 - 0x1539d3299fff 0x1539d329a000 - 0x1539d329cfff 0x1539d329d000 - 0x1539d329ffff 0x1539d32a0000 - 0x1539d32a3fff 0x1539d32a4000 - 0x1539d32a6fff 0x1539d32a7000 - 0x1539d32b8fff 0x1539d32b9000 - 0x1539d32bcfff 0x1539d32bd000 - 0x1539d32bdfff 0x1539d32be000 - 0x1539d32befff 0x1539d32bf000 - 0x1539d32c0fff 0x1539d32c1000 - 0x1539d32d1fff 0x1539d32d2000 - 0x1539d3307fff 0x1539d3308000 - 0x1539d343dfff 0x1539d343e000 - 0x1539d343efff 0x1539d343f000 - 0x1539d3442fff 0x1539d3443000 - 0x1539d3443fff 0x1539d3444000 - 0x1539d3444fff 0x1539d3445000 - 0x1539d3446fff 0x1539d3447000 - 0x1539d3447fff 0x1539d3448000 - 0x1539d3448fff 0x1539d3449000 - 0x1539d3449fff 0x1539d344a000 - 0x1539d344bfff 0x1539d344c000 - 0x1539d344dfff 0x1539d344e000 - 0x1539d344efff 0x1539d344f000 - 0x1539d344ffff 0x1539d3450000 - 0x1539d3450fff 0x1539d3451000 - 0x1539d3452fff 0x1539d3453000 - 0x1539d3454fff 0x1539d3455000 - 0x1539d3455fff 0x1539d3456000 - 0x1539d3456fff 0x1539d3457000 - 0x1539d3457fff 0x1539d3458000 - 0x1539d3465fff 0x1539d3466000 - 0x1539d3473fff 0x1539d3474000 - 0x1539d3481fff 0x1539d3482000 - 0x1539d3485fff 0x1539d3486000 - 0x1539d3486fff 0x1539d3487000 - 0x1539d349cfff 0x1539d349d000 - 0x1539d34c8fff 0x1539d34c9000 - 0x1539d34d1fff 0x1539d34d2000 - 0x1539d34d2fff 0x1539d34d3000 - 0x1539d34d5fff 0x1539d34d6000 - 0x1539d34dbfff 0x1539d34dc000 - 0x1539d34defff 0x1539d34df000 - 0x1539d34dffff 0x1539d34e0000 - 0x1539d34e0fff 0x1539d34e1000 - 0x1539d34e7fff 0x1539d34e8000 - 0x1539d34e8fff 0x1539d34e9000 - 0x1539d3509fff 0x1539d350a000 - 0x1539d3512fff 0x1539d3513000 - 0x1539d3513fff 0x1539d3514000 - 0x1539d3515fff 0x7ffeaeeb1000 - 0x7ffeaeed1fff 0x7ffeaeff2000 - 0x7ffeaeff5fff 0x7ffeaeff6000 - 0x7ffeaeff7fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/loadform.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xf8c000 - 0xfacfff 0x100000000000 - 0x1000000bffff 0x14b587b90000 - 0x14b587b90fff 0x14b587b91000 - 0x14b58823bfff 0x14b58823c000 - 0x14b588290fff 0x14b588291000 - 0x14b588293fff 0x14b588294000 - 0x14b5882b9fff 0x14b5882ba000 - 0x14b588408fff 0x14b588409000 - 0x14b588454fff 0x14b588455000 - 0x14b588455fff 0x14b588456000 - 0x14b588458fff 0x14b588459000 - 0x14b58845bfff 0x14b58845c000 - 0x14b58845ffff 0x14b588460000 - 0x14b588462fff 0x14b588463000 - 0x14b588474fff 0x14b588475000 - 0x14b588478fff 0x14b588479000 - 0x14b588479fff 0x14b58847a000 - 0x14b58847afff 0x14b58847b000 - 0x14b58847cfff 0x14b58847d000 - 0x14b58848dfff 0x14b58848e000 - 0x14b5884c3fff 0x14b5884c4000 - 0x14b5885f9fff 0x14b5885fa000 - 0x14b5885fafff 0x14b5885fb000 - 0x14b5885fefff 0x14b5885ff000 - 0x14b5885fffff 0x14b588600000 - 0x14b588600fff 0x14b588601000 - 0x14b588602fff 0x14b588603000 - 0x14b588603fff 0x14b588604000 - 0x14b588604fff 0x14b588605000 - 0x14b588605fff 0x14b588606000 - 0x14b588607fff 0x14b588608000 - 0x14b588609fff 0x14b58860a000 - 0x14b58860afff 0x14b58860b000 - 0x14b58860bfff 0x14b58860c000 - 0x14b58860cfff 0x14b58860d000 - 0x14b58860efff 0x14b58860f000 - 0x14b588610fff 0x14b588611000 - 0x14b588611fff 0x14b588612000 - 0x14b588612fff 0x14b588613000 - 0x14b588613fff 0x14b588614000 - 0x14b588621fff 0x14b588622000 - 0x14b58862ffff 0x14b588630000 - 0x14b58863dfff 0x14b58863e000 - 0x14b588641fff 0x14b588642000 - 0x14b588642fff 0x14b588643000 - 0x14b588658fff 0x14b588659000 - 0x14b588684fff 0x14b588685000 - 0x14b58868dfff 0x14b58868e000 - 0x14b58868efff 0x14b58868f000 - 0x14b588691fff 0x14b588692000 - 0x14b588697fff 0x14b588698000 - 0x14b58869afff 0x14b58869b000 - 0x14b58869bfff 0x14b58869c000 - 0x14b58869cfff 0x14b58869d000 - 0x14b5886a3fff 0x14b5886a4000 - 0x14b5886a4fff 0x14b5886a5000 - 0x14b5886c5fff 0x14b5886c6000 - 0x14b5886cefff 0x14b5886cf000 - 0x14b5886cffff 0x14b5886d0000 - 0x14b5886d1fff 0x7ffd67254000 - 0x7ffd67274fff 0x7ffd672f4000 - 0x7ffd672f7fff 0x7ffd672f8000 - 0x7ffd672f9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gstream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x188d000 - 0x18adfff 0x100000000000 - 0x1000000bffff 0x1501fe699000 - 0x1501fe699fff 0x1501fe69a000 - 0x1501fed44fff 0x1501fed45000 - 0x1501fed99fff 0x1501fed9a000 - 0x1501fed9cfff 0x1501fed9d000 - 0x1501fedc2fff 0x1501fedc3000 - 0x1501fef11fff 0x1501fef12000 - 0x1501fef5dfff 0x1501fef5e000 - 0x1501fef5efff 0x1501fef5f000 - 0x1501fef61fff 0x1501fef62000 - 0x1501fef64fff 0x1501fef65000 - 0x1501fef68fff 0x1501fef69000 - 0x1501fef6bfff 0x1501fef6c000 - 0x1501fef7dfff 0x1501fef7e000 - 0x1501fef81fff 0x1501fef82000 - 0x1501fef82fff 0x1501fef83000 - 0x1501fef83fff 0x1501fef84000 - 0x1501fef85fff 0x1501fef86000 - 0x1501fef96fff 0x1501fef97000 - 0x1501fefccfff 0x1501fefcd000 - 0x1501ff102fff 0x1501ff103000 - 0x1501ff103fff 0x1501ff104000 - 0x1501ff107fff 0x1501ff108000 - 0x1501ff108fff 0x1501ff109000 - 0x1501ff109fff 0x1501ff10a000 - 0x1501ff10bfff 0x1501ff10c000 - 0x1501ff10cfff 0x1501ff10d000 - 0x1501ff10dfff 0x1501ff10e000 - 0x1501ff10efff 0x1501ff10f000 - 0x1501ff110fff 0x1501ff111000 - 0x1501ff112fff 0x1501ff113000 - 0x1501ff113fff 0x1501ff114000 - 0x1501ff114fff 0x1501ff115000 - 0x1501ff115fff 0x1501ff116000 - 0x1501ff117fff 0x1501ff118000 - 0x1501ff119fff 0x1501ff11a000 - 0x1501ff11afff 0x1501ff11b000 - 0x1501ff11bfff 0x1501ff11c000 - 0x1501ff11cfff 0x1501ff11d000 - 0x1501ff12afff 0x1501ff12b000 - 0x1501ff138fff 0x1501ff139000 - 0x1501ff146fff 0x1501ff147000 - 0x1501ff14afff 0x1501ff14b000 - 0x1501ff14bfff 0x1501ff14c000 - 0x1501ff161fff 0x1501ff162000 - 0x1501ff18dfff 0x1501ff18e000 - 0x1501ff196fff 0x1501ff197000 - 0x1501ff197fff 0x1501ff198000 - 0x1501ff19afff 0x1501ff19b000 - 0x1501ff1a0fff 0x1501ff1a1000 - 0x1501ff1a3fff 0x1501ff1a4000 - 0x1501ff1a4fff 0x1501ff1a5000 - 0x1501ff1a5fff 0x1501ff1a6000 - 0x1501ff1acfff 0x1501ff1ad000 - 0x1501ff1adfff 0x1501ff1ae000 - 0x1501ff1cefff 0x1501ff1cf000 - 0x1501ff1d7fff 0x1501ff1d8000 - 0x1501ff1d8fff 0x1501ff1d9000 - 0x1501ff1dafff 0x7fff2133f000 - 0x7fff2135ffff 0x7fff213ed000 - 0x7fff213f0fff 0x7fff213f1000 - 0x7fff213f2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/xcharin.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1f3e000 - 0x1f5efff 0x100000000000 - 0x1000000bffff 0x1474fec4e000 - 0x1474fec4efff 0x1474fec4f000 - 0x1474ff2f9fff 0x1474ff2fa000 - 0x1474ff34efff 0x1474ff34f000 - 0x1474ff351fff 0x1474ff352000 - 0x1474ff377fff 0x1474ff378000 - 0x1474ff4c6fff 0x1474ff4c7000 - 0x1474ff512fff 0x1474ff513000 - 0x1474ff513fff 0x1474ff514000 - 0x1474ff516fff 0x1474ff517000 - 0x1474ff519fff 0x1474ff51a000 - 0x1474ff51dfff 0x1474ff51e000 - 0x1474ff520fff 0x1474ff521000 - 0x1474ff532fff 0x1474ff533000 - 0x1474ff536fff 0x1474ff537000 - 0x1474ff537fff 0x1474ff538000 - 0x1474ff538fff 0x1474ff539000 - 0x1474ff53afff 0x1474ff53b000 - 0x1474ff54bfff 0x1474ff54c000 - 0x1474ff581fff 0x1474ff582000 - 0x1474ff6b7fff 0x1474ff6b8000 - 0x1474ff6b8fff 0x1474ff6b9000 - 0x1474ff6bcfff 0x1474ff6bd000 - 0x1474ff6bdfff 0x1474ff6be000 - 0x1474ff6befff 0x1474ff6bf000 - 0x1474ff6c0fff 0x1474ff6c1000 - 0x1474ff6c1fff 0x1474ff6c2000 - 0x1474ff6c2fff 0x1474ff6c3000 - 0x1474ff6c3fff 0x1474ff6c4000 - 0x1474ff6c5fff 0x1474ff6c6000 - 0x1474ff6c7fff 0x1474ff6c8000 - 0x1474ff6c8fff 0x1474ff6c9000 - 0x1474ff6c9fff 0x1474ff6ca000 - 0x1474ff6cafff 0x1474ff6cb000 - 0x1474ff6ccfff 0x1474ff6cd000 - 0x1474ff6cefff 0x1474ff6cf000 - 0x1474ff6cffff 0x1474ff6d0000 - 0x1474ff6d0fff 0x1474ff6d1000 - 0x1474ff6d1fff 0x1474ff6d2000 - 0x1474ff6dffff 0x1474ff6e0000 - 0x1474ff6edfff 0x1474ff6ee000 - 0x1474ff6fbfff 0x1474ff6fc000 - 0x1474ff6fffff 0x1474ff700000 - 0x1474ff700fff 0x1474ff701000 - 0x1474ff716fff 0x1474ff717000 - 0x1474ff742fff 0x1474ff743000 - 0x1474ff74bfff 0x1474ff74c000 - 0x1474ff74cfff 0x1474ff74d000 - 0x1474ff74ffff 0x1474ff750000 - 0x1474ff755fff 0x1474ff756000 - 0x1474ff758fff 0x1474ff759000 - 0x1474ff759fff 0x1474ff75a000 - 0x1474ff75afff 0x1474ff75b000 - 0x1474ff761fff 0x1474ff762000 - 0x1474ff762fff 0x1474ff763000 - 0x1474ff783fff 0x1474ff784000 - 0x1474ff78cfff 0x1474ff78d000 - 0x1474ff78dfff 0x1474ff78e000 - 0x1474ff78ffff 0x7fff9f911000 - 0x7fff9f931fff 0x7fff9f9b6000 - 0x7fff9f9b9fff 0x7fff9f9ba000 - 0x7fff9f9bbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/keyboard.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xe3a000 - 0xe5afff 0x100000000000 - 0x1000000bffff 0x145905975000 - 0x145905975fff 0x145905976000 - 0x145906020fff 0x145906021000 - 0x145906075fff 0x145906076000 - 0x145906078fff 0x145906079000 - 0x14590609efff 0x14590609f000 - 0x1459061edfff 0x1459061ee000 - 0x145906239fff 0x14590623a000 - 0x14590623afff 0x14590623b000 - 0x14590623dfff 0x14590623e000 - 0x145906240fff 0x145906241000 - 0x145906244fff 0x145906245000 - 0x145906247fff 0x145906248000 - 0x145906259fff 0x14590625a000 - 0x14590625dfff 0x14590625e000 - 0x14590625efff 0x14590625f000 - 0x14590625ffff 0x145906260000 - 0x145906261fff 0x145906262000 - 0x145906272fff 0x145906273000 - 0x1459062a8fff 0x1459062a9000 - 0x1459063defff 0x1459063df000 - 0x1459063dffff 0x1459063e0000 - 0x1459063e3fff 0x1459063e4000 - 0x1459063e4fff 0x1459063e5000 - 0x1459063e5fff 0x1459063e6000 - 0x1459063e7fff 0x1459063e8000 - 0x1459063e8fff 0x1459063e9000 - 0x1459063e9fff 0x1459063ea000 - 0x1459063eafff 0x1459063eb000 - 0x1459063ecfff 0x1459063ed000 - 0x1459063eefff 0x1459063ef000 - 0x1459063effff 0x1459063f0000 - 0x1459063f0fff 0x1459063f1000 - 0x1459063f1fff 0x1459063f2000 - 0x1459063f3fff 0x1459063f4000 - 0x1459063f5fff 0x1459063f6000 - 0x1459063f6fff 0x1459063f7000 - 0x1459063f7fff 0x1459063f8000 - 0x1459063f8fff 0x1459063f9000 - 0x145906406fff 0x145906407000 - 0x145906414fff 0x145906415000 - 0x145906422fff 0x145906423000 - 0x145906426fff 0x145906427000 - 0x145906427fff 0x145906428000 - 0x14590643dfff 0x14590643e000 - 0x145906469fff 0x14590646a000 - 0x145906472fff 0x145906473000 - 0x145906473fff 0x145906474000 - 0x145906476fff 0x145906477000 - 0x14590647cfff 0x14590647d000 - 0x14590647ffff 0x145906480000 - 0x145906480fff 0x145906481000 - 0x145906481fff 0x145906482000 - 0x145906488fff 0x145906489000 - 0x145906489fff 0x14590648a000 - 0x1459064aafff 0x1459064ab000 - 0x1459064b3fff 0x1459064b4000 - 0x1459064b4fff 0x1459064b5000 - 0x1459064b6fff 0x7ffcbf208000 - 0x7ffcbf228fff 0x7ffcbf3a1000 - 0x7ffcbf3a4fff 0x7ffcbf3a5000 - 0x7ffcbf3a6fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/screen.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xd98000 - 0xdb8fff 0x100000000000 - 0x1000000bffff 0x148716a43000 - 0x148716a43fff 0x148716a44000 - 0x1487170eefff 0x1487170ef000 - 0x148717143fff 0x148717144000 - 0x148717146fff 0x148717147000 - 0x14871716cfff 0x14871716d000 - 0x1487172bbfff 0x1487172bc000 - 0x148717307fff 0x148717308000 - 0x148717308fff 0x148717309000 - 0x14871730bfff 0x14871730c000 - 0x14871730efff 0x14871730f000 - 0x148717312fff 0x148717313000 - 0x148717315fff 0x148717316000 - 0x148717327fff 0x148717328000 - 0x14871732bfff 0x14871732c000 - 0x14871732cfff 0x14871732d000 - 0x14871732dfff 0x14871732e000 - 0x14871732ffff 0x148717330000 - 0x148717340fff 0x148717341000 - 0x148717376fff 0x148717377000 - 0x1487174acfff 0x1487174ad000 - 0x1487174adfff 0x1487174ae000 - 0x1487174b1fff 0x1487174b2000 - 0x1487174b2fff 0x1487174b3000 - 0x1487174b3fff 0x1487174b4000 - 0x1487174b5fff 0x1487174b6000 - 0x1487174b6fff 0x1487174b7000 - 0x1487174b7fff 0x1487174b8000 - 0x1487174b8fff 0x1487174b9000 - 0x1487174bafff 0x1487174bb000 - 0x1487174bcfff 0x1487174bd000 - 0x1487174bdfff 0x1487174be000 - 0x1487174befff 0x1487174bf000 - 0x1487174bffff 0x1487174c0000 - 0x1487174c1fff 0x1487174c2000 - 0x1487174c3fff 0x1487174c4000 - 0x1487174c4fff 0x1487174c5000 - 0x1487174c5fff 0x1487174c6000 - 0x1487174c6fff 0x1487174c7000 - 0x1487174d4fff 0x1487174d5000 - 0x1487174e2fff 0x1487174e3000 - 0x1487174f0fff 0x1487174f1000 - 0x1487174f4fff 0x1487174f5000 - 0x1487174f5fff 0x1487174f6000 - 0x14871750bfff 0x14871750c000 - 0x148717537fff 0x148717538000 - 0x148717540fff 0x148717541000 - 0x148717541fff 0x148717542000 - 0x148717544fff 0x148717545000 - 0x14871754afff 0x14871754b000 - 0x14871754dfff 0x14871754e000 - 0x14871754efff 0x14871754f000 - 0x14871754ffff 0x148717550000 - 0x148717556fff 0x148717557000 - 0x148717557fff 0x148717558000 - 0x148717578fff 0x148717579000 - 0x148717581fff 0x148717582000 - 0x148717582fff 0x148717583000 - 0x148717584fff 0x7ffccc311000 - 0x7ffccc331fff 0x7ffccc3a6000 - 0x7ffccc3a9fff 0x7ffccc3aa000 - 0x7ffccc3abfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/runprog.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xefa000 - 0xf1afff 0x100000000000 - 0x1000000bffff 0x14e20f0b9000 - 0x14e20f0b9fff 0x14e20f0ba000 - 0x14e20f764fff 0x14e20f765000 - 0x14e20f7b9fff 0x14e20f7ba000 - 0x14e20f7bcfff 0x14e20f7bd000 - 0x14e20f7e2fff 0x14e20f7e3000 - 0x14e20f931fff 0x14e20f932000 - 0x14e20f97dfff 0x14e20f97e000 - 0x14e20f97efff 0x14e20f97f000 - 0x14e20f981fff 0x14e20f982000 - 0x14e20f984fff 0x14e20f985000 - 0x14e20f988fff 0x14e20f989000 - 0x14e20f98bfff 0x14e20f98c000 - 0x14e20f99dfff 0x14e20f99e000 - 0x14e20f9a1fff 0x14e20f9a2000 - 0x14e20f9a2fff 0x14e20f9a3000 - 0x14e20f9a3fff 0x14e20f9a4000 - 0x14e20f9a5fff 0x14e20f9a6000 - 0x14e20f9b6fff 0x14e20f9b7000 - 0x14e20f9ecfff 0x14e20f9ed000 - 0x14e20fb22fff 0x14e20fb23000 - 0x14e20fb23fff 0x14e20fb24000 - 0x14e20fb27fff 0x14e20fb28000 - 0x14e20fb28fff 0x14e20fb29000 - 0x14e20fb29fff 0x14e20fb2a000 - 0x14e20fb2bfff 0x14e20fb2c000 - 0x14e20fb2cfff 0x14e20fb2d000 - 0x14e20fb2dfff 0x14e20fb2e000 - 0x14e20fb2efff 0x14e20fb2f000 - 0x14e20fb30fff 0x14e20fb31000 - 0x14e20fb32fff 0x14e20fb33000 - 0x14e20fb33fff 0x14e20fb34000 - 0x14e20fb34fff 0x14e20fb35000 - 0x14e20fb35fff 0x14e20fb36000 - 0x14e20fb37fff 0x14e20fb38000 - 0x14e20fb39fff 0x14e20fb3a000 - 0x14e20fb3afff 0x14e20fb3b000 - 0x14e20fb3bfff 0x14e20fb3c000 - 0x14e20fb3cfff 0x14e20fb3d000 - 0x14e20fb4afff 0x14e20fb4b000 - 0x14e20fb58fff 0x14e20fb59000 - 0x14e20fb66fff 0x14e20fb67000 - 0x14e20fb6afff 0x14e20fb6b000 - 0x14e20fb6bfff 0x14e20fb6c000 - 0x14e20fb81fff 0x14e20fb82000 - 0x14e20fbadfff 0x14e20fbae000 - 0x14e20fbb6fff 0x14e20fbb7000 - 0x14e20fbb7fff 0x14e20fbb8000 - 0x14e20fbbafff 0x14e20fbbb000 - 0x14e20fbc0fff 0x14e20fbc1000 - 0x14e20fbc3fff 0x14e20fbc4000 - 0x14e20fbc4fff 0x14e20fbc5000 - 0x14e20fbc5fff 0x14e20fbc6000 - 0x14e20fbccfff 0x14e20fbcd000 - 0x14e20fbcdfff 0x14e20fbce000 - 0x14e20fbeefff 0x14e20fbef000 - 0x14e20fbf7fff 0x14e20fbf8000 - 0x14e20fbf8fff 0x14e20fbf9000 - 0x14e20fbfafff 0x7ffe73756000 - 0x7ffe73776fff 0x7ffe73780000 - 0x7ffe73783fff 0x7ffe73784000 - 0x7ffe73785fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/query.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1403000 - 0x1423fff 0x100000000000 - 0x1000000bffff 0x14ea21226000 - 0x14ea21226fff 0x14ea21227000 - 0x14ea218d1fff 0x14ea218d2000 - 0x14ea21926fff 0x14ea21927000 - 0x14ea21929fff 0x14ea2192a000 - 0x14ea2194ffff 0x14ea21950000 - 0x14ea21a9efff 0x14ea21a9f000 - 0x14ea21aeafff 0x14ea21aeb000 - 0x14ea21aebfff 0x14ea21aec000 - 0x14ea21aeefff 0x14ea21aef000 - 0x14ea21af1fff 0x14ea21af2000 - 0x14ea21af5fff 0x14ea21af6000 - 0x14ea21af8fff 0x14ea21af9000 - 0x14ea21b0afff 0x14ea21b0b000 - 0x14ea21b0efff 0x14ea21b0f000 - 0x14ea21b0ffff 0x14ea21b10000 - 0x14ea21b10fff 0x14ea21b11000 - 0x14ea21b12fff 0x14ea21b13000 - 0x14ea21b23fff 0x14ea21b24000 - 0x14ea21b59fff 0x14ea21b5a000 - 0x14ea21c8ffff 0x14ea21c90000 - 0x14ea21c90fff 0x14ea21c91000 - 0x14ea21c94fff 0x14ea21c95000 - 0x14ea21c95fff 0x14ea21c96000 - 0x14ea21c96fff 0x14ea21c97000 - 0x14ea21c98fff 0x14ea21c99000 - 0x14ea21c99fff 0x14ea21c9a000 - 0x14ea21c9afff 0x14ea21c9b000 - 0x14ea21c9bfff 0x14ea21c9c000 - 0x14ea21c9dfff 0x14ea21c9e000 - 0x14ea21c9ffff 0x14ea21ca0000 - 0x14ea21ca0fff 0x14ea21ca1000 - 0x14ea21ca1fff 0x14ea21ca2000 - 0x14ea21ca2fff 0x14ea21ca3000 - 0x14ea21ca4fff 0x14ea21ca5000 - 0x14ea21ca6fff 0x14ea21ca7000 - 0x14ea21ca7fff 0x14ea21ca8000 - 0x14ea21ca8fff 0x14ea21ca9000 - 0x14ea21ca9fff 0x14ea21caa000 - 0x14ea21cb7fff 0x14ea21cb8000 - 0x14ea21cc5fff 0x14ea21cc6000 - 0x14ea21cd3fff 0x14ea21cd4000 - 0x14ea21cd7fff 0x14ea21cd8000 - 0x14ea21cd8fff 0x14ea21cd9000 - 0x14ea21ceefff 0x14ea21cef000 - 0x14ea21d1afff 0x14ea21d1b000 - 0x14ea21d23fff 0x14ea21d24000 - 0x14ea21d24fff 0x14ea21d25000 - 0x14ea21d27fff 0x14ea21d28000 - 0x14ea21d2dfff 0x14ea21d2e000 - 0x14ea21d30fff 0x14ea21d31000 - 0x14ea21d31fff 0x14ea21d32000 - 0x14ea21d32fff 0x14ea21d33000 - 0x14ea21d39fff 0x14ea21d3a000 - 0x14ea21d3afff 0x14ea21d3b000 - 0x14ea21d5bfff 0x14ea21d5c000 - 0x14ea21d64fff 0x14ea21d65000 - 0x14ea21d65fff 0x14ea21d66000 - 0x14ea21d67fff 0x7ffd2ac97000 - 0x7ffd2acb7fff 0x7ffd2ada6000 - 0x7ffd2ada9fff 0x7ffd2adaa000 - 0x7ffd2adabfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/reploop.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x736000 - 0x756fff 0x100000000000 - 0x1000000bffff 0x14b97bfcd000 - 0x14b97bfcdfff 0x14b97bfce000 - 0x14b97c678fff 0x14b97c679000 - 0x14b97c6cdfff 0x14b97c6ce000 - 0x14b97c6d0fff 0x14b97c6d1000 - 0x14b97c6f6fff 0x14b97c6f7000 - 0x14b97c845fff 0x14b97c846000 - 0x14b97c891fff 0x14b97c892000 - 0x14b97c892fff 0x14b97c893000 - 0x14b97c895fff 0x14b97c896000 - 0x14b97c898fff 0x14b97c899000 - 0x14b97c89cfff 0x14b97c89d000 - 0x14b97c89ffff 0x14b97c8a0000 - 0x14b97c8b1fff 0x14b97c8b2000 - 0x14b97c8b5fff 0x14b97c8b6000 - 0x14b97c8b6fff 0x14b97c8b7000 - 0x14b97c8b7fff 0x14b97c8b8000 - 0x14b97c8b9fff 0x14b97c8ba000 - 0x14b97c8cafff 0x14b97c8cb000 - 0x14b97c900fff 0x14b97c901000 - 0x14b97ca36fff 0x14b97ca37000 - 0x14b97ca37fff 0x14b97ca38000 - 0x14b97ca3bfff 0x14b97ca3c000 - 0x14b97ca3cfff 0x14b97ca3d000 - 0x14b97ca3dfff 0x14b97ca3e000 - 0x14b97ca3ffff 0x14b97ca40000 - 0x14b97ca40fff 0x14b97ca41000 - 0x14b97ca41fff 0x14b97ca42000 - 0x14b97ca42fff 0x14b97ca43000 - 0x14b97ca44fff 0x14b97ca45000 - 0x14b97ca46fff 0x14b97ca47000 - 0x14b97ca47fff 0x14b97ca48000 - 0x14b97ca48fff 0x14b97ca49000 - 0x14b97ca49fff 0x14b97ca4a000 - 0x14b97ca4bfff 0x14b97ca4c000 - 0x14b97ca4dfff 0x14b97ca4e000 - 0x14b97ca4efff 0x14b97ca4f000 - 0x14b97ca4ffff 0x14b97ca50000 - 0x14b97ca50fff 0x14b97ca51000 - 0x14b97ca5efff 0x14b97ca5f000 - 0x14b97ca6cfff 0x14b97ca6d000 - 0x14b97ca7afff 0x14b97ca7b000 - 0x14b97ca7efff 0x14b97ca7f000 - 0x14b97ca7ffff 0x14b97ca80000 - 0x14b97ca95fff 0x14b97ca96000 - 0x14b97cac1fff 0x14b97cac2000 - 0x14b97cacafff 0x14b97cacb000 - 0x14b97cacbfff 0x14b97cacc000 - 0x14b97cacefff 0x14b97cacf000 - 0x14b97cad4fff 0x14b97cad5000 - 0x14b97cad7fff 0x14b97cad8000 - 0x14b97cad8fff 0x14b97cad9000 - 0x14b97cad9fff 0x14b97cada000 - 0x14b97cae0fff 0x14b97cae1000 - 0x14b97cae1fff 0x14b97cae2000 - 0x14b97cb02fff 0x14b97cb03000 - 0x14b97cb0bfff 0x14b97cb0c000 - 0x14b97cb0cfff 0x14b97cb0d000 - 0x14b97cb0efff 0x7ffef5d3e000 - 0x7ffef5d5efff 0x7ffef5db4000 - 0x7ffef5db7fff 0x7ffef5db8000 - 0x7ffef5db9fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dribble.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x19c8000 - 0x19e8fff 0x100000000000 - 0x1000000bffff 0x149f0b613000 - 0x149f0b613fff 0x149f0b614000 - 0x149f0bcbefff 0x149f0bcbf000 - 0x149f0bd13fff 0x149f0bd14000 - 0x149f0bd16fff 0x149f0bd17000 - 0x149f0bd3cfff 0x149f0bd3d000 - 0x149f0be8bfff 0x149f0be8c000 - 0x149f0bed7fff 0x149f0bed8000 - 0x149f0bed8fff 0x149f0bed9000 - 0x149f0bedbfff 0x149f0bedc000 - 0x149f0bedefff 0x149f0bedf000 - 0x149f0bee2fff 0x149f0bee3000 - 0x149f0bee5fff 0x149f0bee6000 - 0x149f0bef7fff 0x149f0bef8000 - 0x149f0befbfff 0x149f0befc000 - 0x149f0befcfff 0x149f0befd000 - 0x149f0befdfff 0x149f0befe000 - 0x149f0befffff 0x149f0bf00000 - 0x149f0bf10fff 0x149f0bf11000 - 0x149f0bf46fff 0x149f0bf47000 - 0x149f0c07cfff 0x149f0c07d000 - 0x149f0c07dfff 0x149f0c07e000 - 0x149f0c081fff 0x149f0c082000 - 0x149f0c082fff 0x149f0c083000 - 0x149f0c083fff 0x149f0c084000 - 0x149f0c085fff 0x149f0c086000 - 0x149f0c086fff 0x149f0c087000 - 0x149f0c087fff 0x149f0c088000 - 0x149f0c088fff 0x149f0c089000 - 0x149f0c08afff 0x149f0c08b000 - 0x149f0c08cfff 0x149f0c08d000 - 0x149f0c08dfff 0x149f0c08e000 - 0x149f0c08efff 0x149f0c08f000 - 0x149f0c08ffff 0x149f0c090000 - 0x149f0c091fff 0x149f0c092000 - 0x149f0c093fff 0x149f0c094000 - 0x149f0c094fff 0x149f0c095000 - 0x149f0c095fff 0x149f0c096000 - 0x149f0c096fff 0x149f0c097000 - 0x149f0c0a4fff 0x149f0c0a5000 - 0x149f0c0b2fff 0x149f0c0b3000 - 0x149f0c0c0fff 0x149f0c0c1000 - 0x149f0c0c4fff 0x149f0c0c5000 - 0x149f0c0c5fff 0x149f0c0c6000 - 0x149f0c0dbfff 0x149f0c0dc000 - 0x149f0c107fff 0x149f0c108000 - 0x149f0c110fff 0x149f0c111000 - 0x149f0c111fff 0x149f0c112000 - 0x149f0c114fff 0x149f0c115000 - 0x149f0c11afff 0x149f0c11b000 - 0x149f0c11dfff 0x149f0c11e000 - 0x149f0c11efff 0x149f0c11f000 - 0x149f0c11ffff 0x149f0c120000 - 0x149f0c126fff 0x149f0c127000 - 0x149f0c127fff 0x149f0c128000 - 0x149f0c148fff 0x149f0c149000 - 0x149f0c151fff 0x149f0c152000 - 0x149f0c152fff 0x149f0c153000 - 0x149f0c154fff 0x7ffddb58b000 - 0x7ffddb5abfff 0x7ffddb5ce000 - 0x7ffddb5d1fff 0x7ffddb5d2000 - 0x7ffddb5d3fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/complete.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xebe000 - 0xedefff 0x100000000000 - 0x1000000bffff 0x15485a612000 - 0x15485a612fff 0x15485a613000 - 0x15485acbdfff 0x15485acbe000 - 0x15485ad12fff 0x15485ad13000 - 0x15485ad15fff 0x15485ad16000 - 0x15485ad3bfff 0x15485ad3c000 - 0x15485ae8afff 0x15485ae8b000 - 0x15485aed6fff 0x15485aed7000 - 0x15485aed7fff 0x15485aed8000 - 0x15485aedafff 0x15485aedb000 - 0x15485aeddfff 0x15485aede000 - 0x15485aee1fff 0x15485aee2000 - 0x15485aee4fff 0x15485aee5000 - 0x15485aef6fff 0x15485aef7000 - 0x15485aefafff 0x15485aefb000 - 0x15485aefbfff 0x15485aefc000 - 0x15485aefcfff 0x15485aefd000 - 0x15485aefefff 0x15485aeff000 - 0x15485af0ffff 0x15485af10000 - 0x15485af45fff 0x15485af46000 - 0x15485b07bfff 0x15485b07c000 - 0x15485b07cfff 0x15485b07d000 - 0x15485b080fff 0x15485b081000 - 0x15485b081fff 0x15485b082000 - 0x15485b082fff 0x15485b083000 - 0x15485b084fff 0x15485b085000 - 0x15485b085fff 0x15485b086000 - 0x15485b086fff 0x15485b087000 - 0x15485b087fff 0x15485b088000 - 0x15485b089fff 0x15485b08a000 - 0x15485b08bfff 0x15485b08c000 - 0x15485b08cfff 0x15485b08d000 - 0x15485b08dfff 0x15485b08e000 - 0x15485b08efff 0x15485b08f000 - 0x15485b090fff 0x15485b091000 - 0x15485b092fff 0x15485b093000 - 0x15485b093fff 0x15485b094000 - 0x15485b094fff 0x15485b095000 - 0x15485b095fff 0x15485b096000 - 0x15485b0a3fff 0x15485b0a4000 - 0x15485b0b1fff 0x15485b0b2000 - 0x15485b0bffff 0x15485b0c0000 - 0x15485b0c3fff 0x15485b0c4000 - 0x15485b0c4fff 0x15485b0c5000 - 0x15485b0dafff 0x15485b0db000 - 0x15485b106fff 0x15485b107000 - 0x15485b10ffff 0x15485b110000 - 0x15485b110fff 0x15485b111000 - 0x15485b113fff 0x15485b114000 - 0x15485b119fff 0x15485b11a000 - 0x15485b11cfff 0x15485b11d000 - 0x15485b11dfff 0x15485b11e000 - 0x15485b11efff 0x15485b11f000 - 0x15485b125fff 0x15485b126000 - 0x15485b126fff 0x15485b127000 - 0x15485b147fff 0x15485b148000 - 0x15485b150fff 0x15485b151000 - 0x15485b151fff 0x15485b152000 - 0x15485b153fff 0x7fff07b63000 - 0x7fff07b83fff 0x7fff07bbf000 - 0x7fff07bc2fff 0x7fff07bc3000 - 0x7fff07bc4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/pprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xb78000 - 0xb98fff 0x100000000000 - 0x1000000bffff 0x147b523a5000 - 0x147b523a5fff 0x147b523a6000 - 0x147b52a50fff 0x147b52a51000 - 0x147b52aa5fff 0x147b52aa6000 - 0x147b52aa8fff 0x147b52aa9000 - 0x147b52acefff 0x147b52acf000 - 0x147b52c1dfff 0x147b52c1e000 - 0x147b52c69fff 0x147b52c6a000 - 0x147b52c6afff 0x147b52c6b000 - 0x147b52c6dfff 0x147b52c6e000 - 0x147b52c70fff 0x147b52c71000 - 0x147b52c74fff 0x147b52c75000 - 0x147b52c77fff 0x147b52c78000 - 0x147b52c89fff 0x147b52c8a000 - 0x147b52c8dfff 0x147b52c8e000 - 0x147b52c8efff 0x147b52c8f000 - 0x147b52c8ffff 0x147b52c90000 - 0x147b52c91fff 0x147b52c92000 - 0x147b52ca2fff 0x147b52ca3000 - 0x147b52cd8fff 0x147b52cd9000 - 0x147b52e0efff 0x147b52e0f000 - 0x147b52e0ffff 0x147b52e10000 - 0x147b52e13fff 0x147b52e14000 - 0x147b52e14fff 0x147b52e15000 - 0x147b52e15fff 0x147b52e16000 - 0x147b52e17fff 0x147b52e18000 - 0x147b52e18fff 0x147b52e19000 - 0x147b52e19fff 0x147b52e1a000 - 0x147b52e1afff 0x147b52e1b000 - 0x147b52e1cfff 0x147b52e1d000 - 0x147b52e1efff 0x147b52e1f000 - 0x147b52e1ffff 0x147b52e20000 - 0x147b52e20fff 0x147b52e21000 - 0x147b52e21fff 0x147b52e22000 - 0x147b52e23fff 0x147b52e24000 - 0x147b52e25fff 0x147b52e26000 - 0x147b52e26fff 0x147b52e27000 - 0x147b52e27fff 0x147b52e28000 - 0x147b52e28fff 0x147b52e29000 - 0x147b52e36fff 0x147b52e37000 - 0x147b52e44fff 0x147b52e45000 - 0x147b52e52fff 0x147b52e53000 - 0x147b52e56fff 0x147b52e57000 - 0x147b52e57fff 0x147b52e58000 - 0x147b52e6dfff 0x147b52e6e000 - 0x147b52e99fff 0x147b52e9a000 - 0x147b52ea2fff 0x147b52ea3000 - 0x147b52ea3fff 0x147b52ea4000 - 0x147b52ea6fff 0x147b52ea7000 - 0x147b52eacfff 0x147b52ead000 - 0x147b52eaffff 0x147b52eb0000 - 0x147b52eb0fff 0x147b52eb1000 - 0x147b52eb1fff 0x147b52eb2000 - 0x147b52eb8fff 0x147b52eb9000 - 0x147b52eb9fff 0x147b52eba000 - 0x147b52edafff 0x147b52edb000 - 0x147b52ee3fff 0x147b52ee4000 - 0x147b52ee4fff 0x147b52ee5000 - 0x147b52ee6fff 0x7fffe0675000 - 0x7fffe0695fff 0x7fffe0723000 - 0x7fffe0726fff 0x7fffe0727000 - 0x7fffe0728fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/describe.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x239e000 - 0x23befff 0x100000000000 - 0x1000000bffff 0x14d789c7d000 - 0x14d789c7dfff 0x14d789c7e000 - 0x14d78a328fff 0x14d78a329000 - 0x14d78a37dfff 0x14d78a37e000 - 0x14d78a380fff 0x14d78a381000 - 0x14d78a3a6fff 0x14d78a3a7000 - 0x14d78a4f5fff 0x14d78a4f6000 - 0x14d78a541fff 0x14d78a542000 - 0x14d78a542fff 0x14d78a543000 - 0x14d78a545fff 0x14d78a546000 - 0x14d78a548fff 0x14d78a549000 - 0x14d78a54cfff 0x14d78a54d000 - 0x14d78a54ffff 0x14d78a550000 - 0x14d78a561fff 0x14d78a562000 - 0x14d78a565fff 0x14d78a566000 - 0x14d78a566fff 0x14d78a567000 - 0x14d78a567fff 0x14d78a568000 - 0x14d78a569fff 0x14d78a56a000 - 0x14d78a57afff 0x14d78a57b000 - 0x14d78a5b0fff 0x14d78a5b1000 - 0x14d78a6e6fff 0x14d78a6e7000 - 0x14d78a6e7fff 0x14d78a6e8000 - 0x14d78a6ebfff 0x14d78a6ec000 - 0x14d78a6ecfff 0x14d78a6ed000 - 0x14d78a6edfff 0x14d78a6ee000 - 0x14d78a6effff 0x14d78a6f0000 - 0x14d78a6f0fff 0x14d78a6f1000 - 0x14d78a6f1fff 0x14d78a6f2000 - 0x14d78a6f2fff 0x14d78a6f3000 - 0x14d78a6f4fff 0x14d78a6f5000 - 0x14d78a6f6fff 0x14d78a6f7000 - 0x14d78a6f7fff 0x14d78a6f8000 - 0x14d78a6f8fff 0x14d78a6f9000 - 0x14d78a6f9fff 0x14d78a6fa000 - 0x14d78a6fbfff 0x14d78a6fc000 - 0x14d78a6fdfff 0x14d78a6fe000 - 0x14d78a6fefff 0x14d78a6ff000 - 0x14d78a6fffff 0x14d78a700000 - 0x14d78a700fff 0x14d78a701000 - 0x14d78a70efff 0x14d78a70f000 - 0x14d78a71cfff 0x14d78a71d000 - 0x14d78a72afff 0x14d78a72b000 - 0x14d78a72efff 0x14d78a72f000 - 0x14d78a72ffff 0x14d78a730000 - 0x14d78a745fff 0x14d78a746000 - 0x14d78a771fff 0x14d78a772000 - 0x14d78a77afff 0x14d78a77b000 - 0x14d78a77bfff 0x14d78a77c000 - 0x14d78a77efff 0x14d78a77f000 - 0x14d78a784fff 0x14d78a785000 - 0x14d78a787fff 0x14d78a788000 - 0x14d78a788fff 0x14d78a789000 - 0x14d78a789fff 0x14d78a78a000 - 0x14d78a790fff 0x14d78a791000 - 0x14d78a791fff 0x14d78a792000 - 0x14d78a7b2fff 0x14d78a7b3000 - 0x14d78a7bbfff 0x14d78a7bc000 - 0x14d78a7bcfff 0x14d78a7bd000 - 0x14d78a7befff 0x7ffceedd7000 - 0x7ffceedf7fff 0x7ffceedf8000 - 0x7ffceedfbfff 0x7ffceedfc000 - 0x7ffceedfdfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/room.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x17dd000 - 0x17fdfff 0x100000000000 - 0x1000000bffff 0x14ea0822c000 - 0x14ea0822cfff 0x14ea0822d000 - 0x14ea088d7fff 0x14ea088d8000 - 0x14ea0892cfff 0x14ea0892d000 - 0x14ea0892ffff 0x14ea08930000 - 0x14ea08955fff 0x14ea08956000 - 0x14ea08aa4fff 0x14ea08aa5000 - 0x14ea08af0fff 0x14ea08af1000 - 0x14ea08af1fff 0x14ea08af2000 - 0x14ea08af4fff 0x14ea08af5000 - 0x14ea08af7fff 0x14ea08af8000 - 0x14ea08afbfff 0x14ea08afc000 - 0x14ea08afefff 0x14ea08aff000 - 0x14ea08b10fff 0x14ea08b11000 - 0x14ea08b14fff 0x14ea08b15000 - 0x14ea08b15fff 0x14ea08b16000 - 0x14ea08b16fff 0x14ea08b17000 - 0x14ea08b18fff 0x14ea08b19000 - 0x14ea08b29fff 0x14ea08b2a000 - 0x14ea08b5ffff 0x14ea08b60000 - 0x14ea08c95fff 0x14ea08c96000 - 0x14ea08c96fff 0x14ea08c97000 - 0x14ea08c9afff 0x14ea08c9b000 - 0x14ea08c9bfff 0x14ea08c9c000 - 0x14ea08c9cfff 0x14ea08c9d000 - 0x14ea08c9efff 0x14ea08c9f000 - 0x14ea08c9ffff 0x14ea08ca0000 - 0x14ea08ca0fff 0x14ea08ca1000 - 0x14ea08ca1fff 0x14ea08ca2000 - 0x14ea08ca3fff 0x14ea08ca4000 - 0x14ea08ca5fff 0x14ea08ca6000 - 0x14ea08ca6fff 0x14ea08ca7000 - 0x14ea08ca7fff 0x14ea08ca8000 - 0x14ea08ca8fff 0x14ea08ca9000 - 0x14ea08caafff 0x14ea08cab000 - 0x14ea08cacfff 0x14ea08cad000 - 0x14ea08cadfff 0x14ea08cae000 - 0x14ea08caefff 0x14ea08caf000 - 0x14ea08caffff 0x14ea08cb0000 - 0x14ea08cbdfff 0x14ea08cbe000 - 0x14ea08ccbfff 0x14ea08ccc000 - 0x14ea08cd9fff 0x14ea08cda000 - 0x14ea08cddfff 0x14ea08cde000 - 0x14ea08cdefff 0x14ea08cdf000 - 0x14ea08cf4fff 0x14ea08cf5000 - 0x14ea08d20fff 0x14ea08d21000 - 0x14ea08d29fff 0x14ea08d2a000 - 0x14ea08d2afff 0x14ea08d2b000 - 0x14ea08d2dfff 0x14ea08d2e000 - 0x14ea08d33fff 0x14ea08d34000 - 0x14ea08d36fff 0x14ea08d37000 - 0x14ea08d37fff 0x14ea08d38000 - 0x14ea08d38fff 0x14ea08d39000 - 0x14ea08d3ffff 0x14ea08d40000 - 0x14ea08d40fff 0x14ea08d41000 - 0x14ea08d61fff 0x14ea08d62000 - 0x14ea08d6afff 0x14ea08d6b000 - 0x14ea08d6bfff 0x14ea08d6c000 - 0x14ea08d6dfff 0x7ffde221c000 - 0x7ffde223cfff 0x7ffde2245000 - 0x7ffde2248fff 0x7ffde2249000 - 0x7ffde224afff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/edit.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xa07000 - 0xa27fff 0x100000000000 - 0x1000000bffff 0x14fb7af52000 - 0x14fb7af52fff 0x14fb7af53000 - 0x14fb7b5fdfff 0x14fb7b5fe000 - 0x14fb7b652fff 0x14fb7b653000 - 0x14fb7b655fff 0x14fb7b656000 - 0x14fb7b67bfff 0x14fb7b67c000 - 0x14fb7b7cafff 0x14fb7b7cb000 - 0x14fb7b816fff 0x14fb7b817000 - 0x14fb7b817fff 0x14fb7b818000 - 0x14fb7b81afff 0x14fb7b81b000 - 0x14fb7b81dfff 0x14fb7b81e000 - 0x14fb7b821fff 0x14fb7b822000 - 0x14fb7b824fff 0x14fb7b825000 - 0x14fb7b836fff 0x14fb7b837000 - 0x14fb7b83afff 0x14fb7b83b000 - 0x14fb7b83bfff 0x14fb7b83c000 - 0x14fb7b83cfff 0x14fb7b83d000 - 0x14fb7b83efff 0x14fb7b83f000 - 0x14fb7b84ffff 0x14fb7b850000 - 0x14fb7b885fff 0x14fb7b886000 - 0x14fb7b9bbfff 0x14fb7b9bc000 - 0x14fb7b9bcfff 0x14fb7b9bd000 - 0x14fb7b9c0fff 0x14fb7b9c1000 - 0x14fb7b9c1fff 0x14fb7b9c2000 - 0x14fb7b9c2fff 0x14fb7b9c3000 - 0x14fb7b9c4fff 0x14fb7b9c5000 - 0x14fb7b9c5fff 0x14fb7b9c6000 - 0x14fb7b9c6fff 0x14fb7b9c7000 - 0x14fb7b9c7fff 0x14fb7b9c8000 - 0x14fb7b9c9fff 0x14fb7b9ca000 - 0x14fb7b9cbfff 0x14fb7b9cc000 - 0x14fb7b9ccfff 0x14fb7b9cd000 - 0x14fb7b9cdfff 0x14fb7b9ce000 - 0x14fb7b9cefff 0x14fb7b9cf000 - 0x14fb7b9d0fff 0x14fb7b9d1000 - 0x14fb7b9d2fff 0x14fb7b9d3000 - 0x14fb7b9d3fff 0x14fb7b9d4000 - 0x14fb7b9d4fff 0x14fb7b9d5000 - 0x14fb7b9d5fff 0x14fb7b9d6000 - 0x14fb7b9e3fff 0x14fb7b9e4000 - 0x14fb7b9f1fff 0x14fb7b9f2000 - 0x14fb7b9fffff 0x14fb7ba00000 - 0x14fb7ba03fff 0x14fb7ba04000 - 0x14fb7ba04fff 0x14fb7ba05000 - 0x14fb7ba1afff 0x14fb7ba1b000 - 0x14fb7ba46fff 0x14fb7ba47000 - 0x14fb7ba4ffff 0x14fb7ba50000 - 0x14fb7ba50fff 0x14fb7ba51000 - 0x14fb7ba53fff 0x14fb7ba54000 - 0x14fb7ba59fff 0x14fb7ba5a000 - 0x14fb7ba5cfff 0x14fb7ba5d000 - 0x14fb7ba5dfff 0x14fb7ba5e000 - 0x14fb7ba5efff 0x14fb7ba5f000 - 0x14fb7ba65fff 0x14fb7ba66000 - 0x14fb7ba66fff 0x14fb7ba67000 - 0x14fb7ba87fff 0x14fb7ba88000 - 0x14fb7ba90fff 0x14fb7ba91000 - 0x14fb7ba91fff 0x14fb7ba92000 - 0x14fb7ba93fff 0x7ffce0c0e000 - 0x7ffce0c2efff 0x7ffce0d28000 - 0x7ffce0d2bfff 0x7ffce0d2c000 - 0x7ffce0d2dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/macros3.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1312000 - 0x1332fff 0x100000000000 - 0x1000000bffff 0x14e17832a000 - 0x14e17832afff 0x14e17832b000 - 0x14e1789d5fff 0x14e1789d6000 - 0x14e178a2afff 0x14e178a2b000 - 0x14e178a2dfff 0x14e178a2e000 - 0x14e178a53fff 0x14e178a54000 - 0x14e178ba2fff 0x14e178ba3000 - 0x14e178beefff 0x14e178bef000 - 0x14e178beffff 0x14e178bf0000 - 0x14e178bf2fff 0x14e178bf3000 - 0x14e178bf5fff 0x14e178bf6000 - 0x14e178bf9fff 0x14e178bfa000 - 0x14e178bfcfff 0x14e178bfd000 - 0x14e178c0efff 0x14e178c0f000 - 0x14e178c12fff 0x14e178c13000 - 0x14e178c13fff 0x14e178c14000 - 0x14e178c14fff 0x14e178c15000 - 0x14e178c16fff 0x14e178c17000 - 0x14e178c27fff 0x14e178c28000 - 0x14e178c5dfff 0x14e178c5e000 - 0x14e178d93fff 0x14e178d94000 - 0x14e178d94fff 0x14e178d95000 - 0x14e178d98fff 0x14e178d99000 - 0x14e178d99fff 0x14e178d9a000 - 0x14e178d9afff 0x14e178d9b000 - 0x14e178d9cfff 0x14e178d9d000 - 0x14e178d9dfff 0x14e178d9e000 - 0x14e178d9efff 0x14e178d9f000 - 0x14e178d9ffff 0x14e178da0000 - 0x14e178da1fff 0x14e178da2000 - 0x14e178da3fff 0x14e178da4000 - 0x14e178da4fff 0x14e178da5000 - 0x14e178da5fff 0x14e178da6000 - 0x14e178da6fff 0x14e178da7000 - 0x14e178da8fff 0x14e178da9000 - 0x14e178daafff 0x14e178dab000 - 0x14e178dabfff 0x14e178dac000 - 0x14e178dacfff 0x14e178dad000 - 0x14e178dadfff 0x14e178dae000 - 0x14e178dbbfff 0x14e178dbc000 - 0x14e178dc9fff 0x14e178dca000 - 0x14e178dd7fff 0x14e178dd8000 - 0x14e178ddbfff 0x14e178ddc000 - 0x14e178ddcfff 0x14e178ddd000 - 0x14e178df2fff 0x14e178df3000 - 0x14e178e1efff 0x14e178e1f000 - 0x14e178e27fff 0x14e178e28000 - 0x14e178e28fff 0x14e178e29000 - 0x14e178e2bfff 0x14e178e2c000 - 0x14e178e31fff 0x14e178e32000 - 0x14e178e34fff 0x14e178e35000 - 0x14e178e35fff 0x14e178e36000 - 0x14e178e36fff 0x14e178e37000 - 0x14e178e3dfff 0x14e178e3e000 - 0x14e178e3efff 0x14e178e3f000 - 0x14e178e5ffff 0x14e178e60000 - 0x14e178e68fff 0x14e178e69000 - 0x14e178e69fff 0x14e178e6a000 - 0x14e178e6bfff 0x7ffeedf93000 - 0x7ffeedfb3fff 0x7ffeedfe5000 - 0x7ffeedfe8fff 0x7ffeedfe9000 - 0x7ffeedfeafff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/clhs.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1740000 - 0x1760fff 0x100000000000 - 0x1000000bffff 0x152a9de42000 - 0x152a9de42fff 0x152a9de43000 - 0x152a9e4edfff 0x152a9e4ee000 - 0x152a9e542fff 0x152a9e543000 - 0x152a9e545fff 0x152a9e546000 - 0x152a9e56bfff 0x152a9e56c000 - 0x152a9e6bafff 0x152a9e6bb000 - 0x152a9e706fff 0x152a9e707000 - 0x152a9e707fff 0x152a9e708000 - 0x152a9e70afff 0x152a9e70b000 - 0x152a9e70dfff 0x152a9e70e000 - 0x152a9e711fff 0x152a9e712000 - 0x152a9e714fff 0x152a9e715000 - 0x152a9e726fff 0x152a9e727000 - 0x152a9e72afff 0x152a9e72b000 - 0x152a9e72bfff 0x152a9e72c000 - 0x152a9e72cfff 0x152a9e72d000 - 0x152a9e72efff 0x152a9e72f000 - 0x152a9e73ffff 0x152a9e740000 - 0x152a9e775fff 0x152a9e776000 - 0x152a9e8abfff 0x152a9e8ac000 - 0x152a9e8acfff 0x152a9e8ad000 - 0x152a9e8b0fff 0x152a9e8b1000 - 0x152a9e8b1fff 0x152a9e8b2000 - 0x152a9e8b2fff 0x152a9e8b3000 - 0x152a9e8b4fff 0x152a9e8b5000 - 0x152a9e8b5fff 0x152a9e8b6000 - 0x152a9e8b6fff 0x152a9e8b7000 - 0x152a9e8b7fff 0x152a9e8b8000 - 0x152a9e8b9fff 0x152a9e8ba000 - 0x152a9e8bbfff 0x152a9e8bc000 - 0x152a9e8bcfff 0x152a9e8bd000 - 0x152a9e8bdfff 0x152a9e8be000 - 0x152a9e8befff 0x152a9e8bf000 - 0x152a9e8c0fff 0x152a9e8c1000 - 0x152a9e8c2fff 0x152a9e8c3000 - 0x152a9e8c3fff 0x152a9e8c4000 - 0x152a9e8c4fff 0x152a9e8c5000 - 0x152a9e8c5fff 0x152a9e8c6000 - 0x152a9e8d3fff 0x152a9e8d4000 - 0x152a9e8e1fff 0x152a9e8e2000 - 0x152a9e8effff 0x152a9e8f0000 - 0x152a9e8f3fff 0x152a9e8f4000 - 0x152a9e8f4fff 0x152a9e8f5000 - 0x152a9e90afff 0x152a9e90b000 - 0x152a9e936fff 0x152a9e937000 - 0x152a9e93ffff 0x152a9e940000 - 0x152a9e940fff 0x152a9e941000 - 0x152a9e943fff 0x152a9e944000 - 0x152a9e949fff 0x152a9e94a000 - 0x152a9e94cfff 0x152a9e94d000 - 0x152a9e94dfff 0x152a9e94e000 - 0x152a9e94efff 0x152a9e94f000 - 0x152a9e955fff 0x152a9e956000 - 0x152a9e956fff 0x152a9e957000 - 0x152a9e977fff 0x152a9e978000 - 0x152a9e980fff 0x152a9e981000 - 0x152a9e981fff 0x152a9e982000 - 0x152a9e983fff 0x7ffd0281d000 - 0x7ffd0283dfff 0x7ffd02898000 - 0x7ffd0289bfff 0x7ffd0289c000 - 0x7ffd0289dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/inspect.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2028000 - 0x2048fff 0x100000000000 - 0x1000000bffff 0x145786444000 - 0x145786444fff 0x145786445000 - 0x145786aeffff 0x145786af0000 - 0x145786b44fff 0x145786b45000 - 0x145786b47fff 0x145786b48000 - 0x145786b6dfff 0x145786b6e000 - 0x145786cbcfff 0x145786cbd000 - 0x145786d08fff 0x145786d09000 - 0x145786d09fff 0x145786d0a000 - 0x145786d0cfff 0x145786d0d000 - 0x145786d0ffff 0x145786d10000 - 0x145786d13fff 0x145786d14000 - 0x145786d16fff 0x145786d17000 - 0x145786d28fff 0x145786d29000 - 0x145786d2cfff 0x145786d2d000 - 0x145786d2dfff 0x145786d2e000 - 0x145786d2efff 0x145786d2f000 - 0x145786d30fff 0x145786d31000 - 0x145786d41fff 0x145786d42000 - 0x145786d77fff 0x145786d78000 - 0x145786eadfff 0x145786eae000 - 0x145786eaefff 0x145786eaf000 - 0x145786eb2fff 0x145786eb3000 - 0x145786eb3fff 0x145786eb4000 - 0x145786eb4fff 0x145786eb5000 - 0x145786eb6fff 0x145786eb7000 - 0x145786eb7fff 0x145786eb8000 - 0x145786eb8fff 0x145786eb9000 - 0x145786eb9fff 0x145786eba000 - 0x145786ebbfff 0x145786ebc000 - 0x145786ebdfff 0x145786ebe000 - 0x145786ebefff 0x145786ebf000 - 0x145786ebffff 0x145786ec0000 - 0x145786ec0fff 0x145786ec1000 - 0x145786ec2fff 0x145786ec3000 - 0x145786ec4fff 0x145786ec5000 - 0x145786ec5fff 0x145786ec6000 - 0x145786ec6fff 0x145786ec7000 - 0x145786ec7fff 0x145786ec8000 - 0x145786ed5fff 0x145786ed6000 - 0x145786ee3fff 0x145786ee4000 - 0x145786ef1fff 0x145786ef2000 - 0x145786ef5fff 0x145786ef6000 - 0x145786ef6fff 0x145786ef7000 - 0x145786f0cfff 0x145786f0d000 - 0x145786f38fff 0x145786f39000 - 0x145786f41fff 0x145786f42000 - 0x145786f42fff 0x145786f43000 - 0x145786f45fff 0x145786f46000 - 0x145786f4bfff 0x145786f4c000 - 0x145786f4efff 0x145786f4f000 - 0x145786f4ffff 0x145786f50000 - 0x145786f50fff 0x145786f51000 - 0x145786f57fff 0x145786f58000 - 0x145786f58fff 0x145786f59000 - 0x145786f79fff 0x145786f7a000 - 0x145786f82fff 0x145786f83000 - 0x145786f83fff 0x145786f84000 - 0x145786f85fff 0x7ffc4c47b000 - 0x7ffc4c49bfff 0x7ffc4c532000 - 0x7ffc4c535fff 0x7ffc4c536000 - 0x7ffc4c537fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gray.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x125a000 - 0x127afff 0x100000000000 - 0x1000000bffff 0x154312d67000 - 0x154312d67fff 0x154312d68000 - 0x154313412fff 0x154313413000 - 0x154313467fff 0x154313468000 - 0x15431346afff 0x15431346b000 - 0x154313490fff 0x154313491000 - 0x1543135dffff 0x1543135e0000 - 0x15431362bfff 0x15431362c000 - 0x15431362cfff 0x15431362d000 - 0x15431362ffff 0x154313630000 - 0x154313632fff 0x154313633000 - 0x154313636fff 0x154313637000 - 0x154313639fff 0x15431363a000 - 0x15431364bfff 0x15431364c000 - 0x15431364ffff 0x154313650000 - 0x154313650fff 0x154313651000 - 0x154313651fff 0x154313652000 - 0x154313653fff 0x154313654000 - 0x154313664fff 0x154313665000 - 0x15431369afff 0x15431369b000 - 0x1543137d0fff 0x1543137d1000 - 0x1543137d1fff 0x1543137d2000 - 0x1543137d5fff 0x1543137d6000 - 0x1543137d6fff 0x1543137d7000 - 0x1543137d7fff 0x1543137d8000 - 0x1543137d9fff 0x1543137da000 - 0x1543137dafff 0x1543137db000 - 0x1543137dbfff 0x1543137dc000 - 0x1543137dcfff 0x1543137dd000 - 0x1543137defff 0x1543137df000 - 0x1543137e0fff 0x1543137e1000 - 0x1543137e1fff 0x1543137e2000 - 0x1543137e2fff 0x1543137e3000 - 0x1543137e3fff 0x1543137e4000 - 0x1543137e5fff 0x1543137e6000 - 0x1543137e7fff 0x1543137e8000 - 0x1543137e8fff 0x1543137e9000 - 0x1543137e9fff 0x1543137ea000 - 0x1543137eafff 0x1543137eb000 - 0x1543137f8fff 0x1543137f9000 - 0x154313806fff 0x154313807000 - 0x154313814fff 0x154313815000 - 0x154313818fff 0x154313819000 - 0x154313819fff 0x15431381a000 - 0x15431382ffff 0x154313830000 - 0x15431385bfff 0x15431385c000 - 0x154313864fff 0x154313865000 - 0x154313865fff 0x154313866000 - 0x154313868fff 0x154313869000 - 0x15431386efff 0x15431386f000 - 0x154313871fff 0x154313872000 - 0x154313872fff 0x154313873000 - 0x154313873fff 0x154313874000 - 0x15431387afff 0x15431387b000 - 0x15431387bfff 0x15431387c000 - 0x15431389cfff 0x15431389d000 - 0x1543138a5fff 0x1543138a6000 - 0x1543138a6fff 0x1543138a7000 - 0x1543138a8fff 0x7ffd67a97000 - 0x7ffd67ab7fff 0x7ffd67b98000 - 0x7ffd67b9bfff 0x7ffd67b9c000 - 0x7ffd67b9dfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/case-sensitive.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x141c000 - 0x143cfff 0x100000000000 - 0x1000000bffff 0x14759215f000 - 0x14759215ffff 0x147592160000 - 0x14759280afff 0x14759280b000 - 0x14759285ffff 0x147592860000 - 0x147592862fff 0x147592863000 - 0x147592888fff 0x147592889000 - 0x1475929d7fff 0x1475929d8000 - 0x147592a23fff 0x147592a24000 - 0x147592a24fff 0x147592a25000 - 0x147592a27fff 0x147592a28000 - 0x147592a2afff 0x147592a2b000 - 0x147592a2efff 0x147592a2f000 - 0x147592a31fff 0x147592a32000 - 0x147592a43fff 0x147592a44000 - 0x147592a47fff 0x147592a48000 - 0x147592a48fff 0x147592a49000 - 0x147592a49fff 0x147592a4a000 - 0x147592a4bfff 0x147592a4c000 - 0x147592a5cfff 0x147592a5d000 - 0x147592a92fff 0x147592a93000 - 0x147592bc8fff 0x147592bc9000 - 0x147592bc9fff 0x147592bca000 - 0x147592bcdfff 0x147592bce000 - 0x147592bcefff 0x147592bcf000 - 0x147592bcffff 0x147592bd0000 - 0x147592bd1fff 0x147592bd2000 - 0x147592bd2fff 0x147592bd3000 - 0x147592bd3fff 0x147592bd4000 - 0x147592bd4fff 0x147592bd5000 - 0x147592bd6fff 0x147592bd7000 - 0x147592bd8fff 0x147592bd9000 - 0x147592bd9fff 0x147592bda000 - 0x147592bdafff 0x147592bdb000 - 0x147592bdbfff 0x147592bdc000 - 0x147592bddfff 0x147592bde000 - 0x147592bdffff 0x147592be0000 - 0x147592be0fff 0x147592be1000 - 0x147592be1fff 0x147592be2000 - 0x147592be2fff 0x147592be3000 - 0x147592bf0fff 0x147592bf1000 - 0x147592bfefff 0x147592bff000 - 0x147592c0cfff 0x147592c0d000 - 0x147592c10fff 0x147592c11000 - 0x147592c11fff 0x147592c12000 - 0x147592c27fff 0x147592c28000 - 0x147592c53fff 0x147592c54000 - 0x147592c5cfff 0x147592c5d000 - 0x147592c5dfff 0x147592c5e000 - 0x147592c60fff 0x147592c61000 - 0x147592c66fff 0x147592c67000 - 0x147592c69fff 0x147592c6a000 - 0x147592c6afff 0x147592c6b000 - 0x147592c6bfff 0x147592c6c000 - 0x147592c72fff 0x147592c73000 - 0x147592c73fff 0x147592c74000 - 0x147592c94fff 0x147592c95000 - 0x147592c9dfff 0x147592c9e000 - 0x147592c9efff 0x147592c9f000 - 0x147592ca0fff 0x7ffcdb502000 - 0x7ffcdb522fff 0x7ffcdb5a8000 - 0x7ffcdb5abfff 0x7ffcdb5ac000 - 0x7ffcdb5adfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp ... WARNING: DEFINE-COMPILER-MACRO: redefining compiler macro PARSE-C-TYPE in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/foreign1.lisp, was defined in top-level ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1e31000 - 0x1e51fff 0x100000000000 - 0x1000000bffff 0x14c0dddda000 - 0x14c0ddddafff 0x14c0ddddb000 - 0x14c0de485fff 0x14c0de486000 - 0x14c0de4dafff 0x14c0de4db000 - 0x14c0de4ddfff 0x14c0de4de000 - 0x14c0de503fff 0x14c0de504000 - 0x14c0de652fff 0x14c0de653000 - 0x14c0de69efff 0x14c0de69f000 - 0x14c0de69ffff 0x14c0de6a0000 - 0x14c0de6a2fff 0x14c0de6a3000 - 0x14c0de6a5fff 0x14c0de6a6000 - 0x14c0de6a9fff 0x14c0de6aa000 - 0x14c0de6acfff 0x14c0de6ad000 - 0x14c0de6befff 0x14c0de6bf000 - 0x14c0de6c2fff 0x14c0de6c3000 - 0x14c0de6c3fff 0x14c0de6c4000 - 0x14c0de6c4fff 0x14c0de6c5000 - 0x14c0de6c6fff 0x14c0de6c7000 - 0x14c0de6d7fff 0x14c0de6d8000 - 0x14c0de70dfff 0x14c0de70e000 - 0x14c0de843fff 0x14c0de844000 - 0x14c0de844fff 0x14c0de845000 - 0x14c0de848fff 0x14c0de849000 - 0x14c0de849fff 0x14c0de84a000 - 0x14c0de84afff 0x14c0de84b000 - 0x14c0de84cfff 0x14c0de84d000 - 0x14c0de84dfff 0x14c0de84e000 - 0x14c0de84efff 0x14c0de84f000 - 0x14c0de84ffff 0x14c0de850000 - 0x14c0de851fff 0x14c0de852000 - 0x14c0de853fff 0x14c0de854000 - 0x14c0de854fff 0x14c0de855000 - 0x14c0de855fff 0x14c0de856000 - 0x14c0de856fff 0x14c0de857000 - 0x14c0de858fff 0x14c0de859000 - 0x14c0de85afff 0x14c0de85b000 - 0x14c0de85bfff 0x14c0de85c000 - 0x14c0de85cfff 0x14c0de85d000 - 0x14c0de85dfff 0x14c0de85e000 - 0x14c0de86bfff 0x14c0de86c000 - 0x14c0de879fff 0x14c0de87a000 - 0x14c0de887fff 0x14c0de888000 - 0x14c0de88bfff 0x14c0de88c000 - 0x14c0de88cfff 0x14c0de88d000 - 0x14c0de8a2fff 0x14c0de8a3000 - 0x14c0de8cefff 0x14c0de8cf000 - 0x14c0de8d7fff 0x14c0de8d8000 - 0x14c0de8d8fff 0x14c0de8d9000 - 0x14c0de8dbfff 0x14c0de8dc000 - 0x14c0de8e1fff 0x14c0de8e2000 - 0x14c0de8e4fff 0x14c0de8e5000 - 0x14c0de8e5fff 0x14c0de8e6000 - 0x14c0de8e6fff 0x14c0de8e7000 - 0x14c0de8edfff 0x14c0de8ee000 - 0x14c0de8eefff 0x14c0de8ef000 - 0x14c0de90ffff 0x14c0de910000 - 0x14c0de918fff 0x14c0de919000 - 0x14c0de919fff 0x14c0de91a000 - 0x14c0de91bfff 0x7ffcb0e4d000 - 0x7ffcb0e6dfff 0x7ffcb0f87000 - 0x7ffcb0f8afff 0x7ffcb0f8b000 - 0x7ffcb0f8cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/exporting.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x136f000 - 0x138ffff 0x100000000000 - 0x1000000bffff 0x14b01388c000 - 0x14b01388cfff 0x14b01388d000 - 0x14b013f37fff 0x14b013f38000 - 0x14b013f8cfff 0x14b013f8d000 - 0x14b013f8ffff 0x14b013f90000 - 0x14b013fb5fff 0x14b013fb6000 - 0x14b014104fff 0x14b014105000 - 0x14b014150fff 0x14b014151000 - 0x14b014151fff 0x14b014152000 - 0x14b014154fff 0x14b014155000 - 0x14b014157fff 0x14b014158000 - 0x14b01415bfff 0x14b01415c000 - 0x14b01415efff 0x14b01415f000 - 0x14b014170fff 0x14b014171000 - 0x14b014174fff 0x14b014175000 - 0x14b014175fff 0x14b014176000 - 0x14b014176fff 0x14b014177000 - 0x14b014178fff 0x14b014179000 - 0x14b014189fff 0x14b01418a000 - 0x14b0141bffff 0x14b0141c0000 - 0x14b0142f5fff 0x14b0142f6000 - 0x14b0142f6fff 0x14b0142f7000 - 0x14b0142fafff 0x14b0142fb000 - 0x14b0142fbfff 0x14b0142fc000 - 0x14b0142fcfff 0x14b0142fd000 - 0x14b0142fefff 0x14b0142ff000 - 0x14b0142fffff 0x14b014300000 - 0x14b014300fff 0x14b014301000 - 0x14b014301fff 0x14b014302000 - 0x14b014303fff 0x14b014304000 - 0x14b014305fff 0x14b014306000 - 0x14b014306fff 0x14b014307000 - 0x14b014307fff 0x14b014308000 - 0x14b014308fff 0x14b014309000 - 0x14b01430afff 0x14b01430b000 - 0x14b01430cfff 0x14b01430d000 - 0x14b01430dfff 0x14b01430e000 - 0x14b01430efff 0x14b01430f000 - 0x14b01430ffff 0x14b014310000 - 0x14b01431dfff 0x14b01431e000 - 0x14b01432bfff 0x14b01432c000 - 0x14b014339fff 0x14b01433a000 - 0x14b01433dfff 0x14b01433e000 - 0x14b01433efff 0x14b01433f000 - 0x14b014354fff 0x14b014355000 - 0x14b014380fff 0x14b014381000 - 0x14b014389fff 0x14b01438a000 - 0x14b01438afff 0x14b01438b000 - 0x14b01438dfff 0x14b01438e000 - 0x14b014393fff 0x14b014394000 - 0x14b014396fff 0x14b014397000 - 0x14b014397fff 0x14b014398000 - 0x14b014398fff 0x14b014399000 - 0x14b01439ffff 0x14b0143a0000 - 0x14b0143a0fff 0x14b0143a1000 - 0x14b0143c1fff 0x14b0143c2000 - 0x14b0143cafff 0x14b0143cb000 - 0x14b0143cbfff 0x14b0143cc000 - 0x14b0143cdfff 0x7ffee7ef4000 - 0x7ffee7f14fff 0x7ffee7f86000 - 0x7ffee7f89fff 0x7ffee7f8a000 - 0x7ffee7f8bfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/german.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x110c000 - 0x112cfff 0x100000000000 - 0x1000000bffff 0x149d58288000 - 0x149d58288fff 0x149d58289000 - 0x149d58933fff 0x149d58934000 - 0x149d58988fff 0x149d58989000 - 0x149d5898bfff 0x149d5898c000 - 0x149d589b1fff 0x149d589b2000 - 0x149d58b00fff 0x149d58b01000 - 0x149d58b4cfff 0x149d58b4d000 - 0x149d58b4dfff 0x149d58b4e000 - 0x149d58b50fff 0x149d58b51000 - 0x149d58b53fff 0x149d58b54000 - 0x149d58b57fff 0x149d58b58000 - 0x149d58b5afff 0x149d58b5b000 - 0x149d58b6cfff 0x149d58b6d000 - 0x149d58b70fff 0x149d58b71000 - 0x149d58b71fff 0x149d58b72000 - 0x149d58b72fff 0x149d58b73000 - 0x149d58b74fff 0x149d58b75000 - 0x149d58b85fff 0x149d58b86000 - 0x149d58bbbfff 0x149d58bbc000 - 0x149d58cf1fff 0x149d58cf2000 - 0x149d58cf2fff 0x149d58cf3000 - 0x149d58cf6fff 0x149d58cf7000 - 0x149d58cf7fff 0x149d58cf8000 - 0x149d58cf8fff 0x149d58cf9000 - 0x149d58cfafff 0x149d58cfb000 - 0x149d58cfbfff 0x149d58cfc000 - 0x149d58cfcfff 0x149d58cfd000 - 0x149d58cfdfff 0x149d58cfe000 - 0x149d58cfffff 0x149d58d00000 - 0x149d58d01fff 0x149d58d02000 - 0x149d58d02fff 0x149d58d03000 - 0x149d58d03fff 0x149d58d04000 - 0x149d58d04fff 0x149d58d05000 - 0x149d58d06fff 0x149d58d07000 - 0x149d58d08fff 0x149d58d09000 - 0x149d58d09fff 0x149d58d0a000 - 0x149d58d0afff 0x149d58d0b000 - 0x149d58d0bfff 0x149d58d0c000 - 0x149d58d19fff 0x149d58d1a000 - 0x149d58d27fff 0x149d58d28000 - 0x149d58d35fff 0x149d58d36000 - 0x149d58d39fff 0x149d58d3a000 - 0x149d58d3afff 0x149d58d3b000 - 0x149d58d50fff 0x149d58d51000 - 0x149d58d7cfff 0x149d58d7d000 - 0x149d58d85fff 0x149d58d86000 - 0x149d58d86fff 0x149d58d87000 - 0x149d58d89fff 0x149d58d8a000 - 0x149d58d8ffff 0x149d58d90000 - 0x149d58d92fff 0x149d58d93000 - 0x149d58d93fff 0x149d58d94000 - 0x149d58d94fff 0x149d58d95000 - 0x149d58d9bfff 0x149d58d9c000 - 0x149d58d9cfff 0x149d58d9d000 - 0x149d58dbdfff 0x149d58dbe000 - 0x149d58dc6fff 0x149d58dc7000 - 0x149d58dc7fff 0x149d58dc8000 - 0x149d58dc9fff 0x7ffefdc44000 - 0x7ffefdc64fff 0x7ffefddad000 - 0x7ffefddb0fff 0x7ffefddb1000 - 0x7ffefddb2fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/french.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x239d000 - 0x23bdfff 0x100000000000 - 0x1000000bffff 0x14847b9d6000 - 0x14847b9d6fff 0x14847b9d7000 - 0x14847c081fff 0x14847c082000 - 0x14847c0d6fff 0x14847c0d7000 - 0x14847c0d9fff 0x14847c0da000 - 0x14847c0fffff 0x14847c100000 - 0x14847c24efff 0x14847c24f000 - 0x14847c29afff 0x14847c29b000 - 0x14847c29bfff 0x14847c29c000 - 0x14847c29efff 0x14847c29f000 - 0x14847c2a1fff 0x14847c2a2000 - 0x14847c2a5fff 0x14847c2a6000 - 0x14847c2a8fff 0x14847c2a9000 - 0x14847c2bafff 0x14847c2bb000 - 0x14847c2befff 0x14847c2bf000 - 0x14847c2bffff 0x14847c2c0000 - 0x14847c2c0fff 0x14847c2c1000 - 0x14847c2c2fff 0x14847c2c3000 - 0x14847c2d3fff 0x14847c2d4000 - 0x14847c309fff 0x14847c30a000 - 0x14847c43ffff 0x14847c440000 - 0x14847c440fff 0x14847c441000 - 0x14847c444fff 0x14847c445000 - 0x14847c445fff 0x14847c446000 - 0x14847c446fff 0x14847c447000 - 0x14847c448fff 0x14847c449000 - 0x14847c449fff 0x14847c44a000 - 0x14847c44afff 0x14847c44b000 - 0x14847c44bfff 0x14847c44c000 - 0x14847c44dfff 0x14847c44e000 - 0x14847c44ffff 0x14847c450000 - 0x14847c450fff 0x14847c451000 - 0x14847c451fff 0x14847c452000 - 0x14847c452fff 0x14847c453000 - 0x14847c454fff 0x14847c455000 - 0x14847c456fff 0x14847c457000 - 0x14847c457fff 0x14847c458000 - 0x14847c458fff 0x14847c459000 - 0x14847c459fff 0x14847c45a000 - 0x14847c467fff 0x14847c468000 - 0x14847c475fff 0x14847c476000 - 0x14847c483fff 0x14847c484000 - 0x14847c487fff 0x14847c488000 - 0x14847c488fff 0x14847c489000 - 0x14847c49efff 0x14847c49f000 - 0x14847c4cafff 0x14847c4cb000 - 0x14847c4d3fff 0x14847c4d4000 - 0x14847c4d4fff 0x14847c4d5000 - 0x14847c4d7fff 0x14847c4d8000 - 0x14847c4ddfff 0x14847c4de000 - 0x14847c4e0fff 0x14847c4e1000 - 0x14847c4e1fff 0x14847c4e2000 - 0x14847c4e2fff 0x14847c4e3000 - 0x14847c4e9fff 0x14847c4ea000 - 0x14847c4eafff 0x14847c4eb000 - 0x14847c50bfff 0x14847c50c000 - 0x14847c514fff 0x14847c515000 - 0x14847c515fff 0x14847c516000 - 0x14847c517fff 0x7ffd48575000 - 0x7ffd48595fff 0x7ffd485b7000 - 0x7ffd485bafff 0x7ffd485bb000 - 0x7ffd485bcfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/spanish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d4a000 - 0x1d6afff 0x100000000000 - 0x1000000bffff 0x145eea785000 - 0x145eea785fff 0x145eea786000 - 0x145eeae30fff 0x145eeae31000 - 0x145eeae85fff 0x145eeae86000 - 0x145eeae88fff 0x145eeae89000 - 0x145eeaeaefff 0x145eeaeaf000 - 0x145eeaffdfff 0x145eeaffe000 - 0x145eeb049fff 0x145eeb04a000 - 0x145eeb04afff 0x145eeb04b000 - 0x145eeb04dfff 0x145eeb04e000 - 0x145eeb050fff 0x145eeb051000 - 0x145eeb054fff 0x145eeb055000 - 0x145eeb057fff 0x145eeb058000 - 0x145eeb069fff 0x145eeb06a000 - 0x145eeb06dfff 0x145eeb06e000 - 0x145eeb06efff 0x145eeb06f000 - 0x145eeb06ffff 0x145eeb070000 - 0x145eeb071fff 0x145eeb072000 - 0x145eeb082fff 0x145eeb083000 - 0x145eeb0b8fff 0x145eeb0b9000 - 0x145eeb1eefff 0x145eeb1ef000 - 0x145eeb1effff 0x145eeb1f0000 - 0x145eeb1f3fff 0x145eeb1f4000 - 0x145eeb1f4fff 0x145eeb1f5000 - 0x145eeb1f5fff 0x145eeb1f6000 - 0x145eeb1f7fff 0x145eeb1f8000 - 0x145eeb1f8fff 0x145eeb1f9000 - 0x145eeb1f9fff 0x145eeb1fa000 - 0x145eeb1fafff 0x145eeb1fb000 - 0x145eeb1fcfff 0x145eeb1fd000 - 0x145eeb1fefff 0x145eeb1ff000 - 0x145eeb1fffff 0x145eeb200000 - 0x145eeb200fff 0x145eeb201000 - 0x145eeb201fff 0x145eeb202000 - 0x145eeb203fff 0x145eeb204000 - 0x145eeb205fff 0x145eeb206000 - 0x145eeb206fff 0x145eeb207000 - 0x145eeb207fff 0x145eeb208000 - 0x145eeb208fff 0x145eeb209000 - 0x145eeb216fff 0x145eeb217000 - 0x145eeb224fff 0x145eeb225000 - 0x145eeb232fff 0x145eeb233000 - 0x145eeb236fff 0x145eeb237000 - 0x145eeb237fff 0x145eeb238000 - 0x145eeb24dfff 0x145eeb24e000 - 0x145eeb279fff 0x145eeb27a000 - 0x145eeb282fff 0x145eeb283000 - 0x145eeb283fff 0x145eeb284000 - 0x145eeb286fff 0x145eeb287000 - 0x145eeb28cfff 0x145eeb28d000 - 0x145eeb28ffff 0x145eeb290000 - 0x145eeb290fff 0x145eeb291000 - 0x145eeb291fff 0x145eeb292000 - 0x145eeb298fff 0x145eeb299000 - 0x145eeb299fff 0x145eeb29a000 - 0x145eeb2bafff 0x145eeb2bb000 - 0x145eeb2c3fff 0x145eeb2c4000 - 0x145eeb2c4fff 0x145eeb2c5000 - 0x145eeb2c6fff 0x7ffe8d164000 - 0x7ffe8d184fff 0x7ffe8d1cc000 - 0x7ffe8d1cffff 0x7ffe8d1d0000 - 0x7ffe8d1d1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/russian.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x235d000 - 0x237dfff 0x100000000000 - 0x1000000bffff 0x15468e864000 - 0x15468e864fff 0x15468e865000 - 0x15468ef0ffff 0x15468ef10000 - 0x15468ef64fff 0x15468ef65000 - 0x15468ef67fff 0x15468ef68000 - 0x15468ef8dfff 0x15468ef8e000 - 0x15468f0dcfff 0x15468f0dd000 - 0x15468f128fff 0x15468f129000 - 0x15468f129fff 0x15468f12a000 - 0x15468f12cfff 0x15468f12d000 - 0x15468f12ffff 0x15468f130000 - 0x15468f133fff 0x15468f134000 - 0x15468f136fff 0x15468f137000 - 0x15468f148fff 0x15468f149000 - 0x15468f14cfff 0x15468f14d000 - 0x15468f14dfff 0x15468f14e000 - 0x15468f14efff 0x15468f14f000 - 0x15468f150fff 0x15468f151000 - 0x15468f161fff 0x15468f162000 - 0x15468f197fff 0x15468f198000 - 0x15468f2cdfff 0x15468f2ce000 - 0x15468f2cefff 0x15468f2cf000 - 0x15468f2d2fff 0x15468f2d3000 - 0x15468f2d3fff 0x15468f2d4000 - 0x15468f2d4fff 0x15468f2d5000 - 0x15468f2d6fff 0x15468f2d7000 - 0x15468f2d7fff 0x15468f2d8000 - 0x15468f2d8fff 0x15468f2d9000 - 0x15468f2d9fff 0x15468f2da000 - 0x15468f2dbfff 0x15468f2dc000 - 0x15468f2ddfff 0x15468f2de000 - 0x15468f2defff 0x15468f2df000 - 0x15468f2dffff 0x15468f2e0000 - 0x15468f2e0fff 0x15468f2e1000 - 0x15468f2e2fff 0x15468f2e3000 - 0x15468f2e4fff 0x15468f2e5000 - 0x15468f2e5fff 0x15468f2e6000 - 0x15468f2e6fff 0x15468f2e7000 - 0x15468f2e7fff 0x15468f2e8000 - 0x15468f2f5fff 0x15468f2f6000 - 0x15468f303fff 0x15468f304000 - 0x15468f311fff 0x15468f312000 - 0x15468f315fff 0x15468f316000 - 0x15468f316fff 0x15468f317000 - 0x15468f32cfff 0x15468f32d000 - 0x15468f358fff 0x15468f359000 - 0x15468f361fff 0x15468f362000 - 0x15468f362fff 0x15468f363000 - 0x15468f365fff 0x15468f366000 - 0x15468f36bfff 0x15468f36c000 - 0x15468f36efff 0x15468f36f000 - 0x15468f36ffff 0x15468f370000 - 0x15468f370fff 0x15468f371000 - 0x15468f377fff 0x15468f378000 - 0x15468f378fff 0x15468f379000 - 0x15468f399fff 0x15468f39a000 - 0x15468f3a2fff 0x15468f3a3000 - 0x15468f3a3fff 0x15468f3a4000 - 0x15468f3a5fff 0x7ffffc7ac000 - 0x7ffffc7ccfff 0x7ffffc7df000 - 0x7ffffc7e2fff 0x7ffffc7e3000 - 0x7ffffc7e4fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/danish.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x2200000 - 0x2220fff 0x100000000000 - 0x1000000bffff 0x1490a99e7000 - 0x1490a99e7fff 0x1490a99e8000 - 0x1490aa092fff 0x1490aa093000 - 0x1490aa0e7fff 0x1490aa0e8000 - 0x1490aa0eafff 0x1490aa0eb000 - 0x1490aa110fff 0x1490aa111000 - 0x1490aa25ffff 0x1490aa260000 - 0x1490aa2abfff 0x1490aa2ac000 - 0x1490aa2acfff 0x1490aa2ad000 - 0x1490aa2affff 0x1490aa2b0000 - 0x1490aa2b2fff 0x1490aa2b3000 - 0x1490aa2b6fff 0x1490aa2b7000 - 0x1490aa2b9fff 0x1490aa2ba000 - 0x1490aa2cbfff 0x1490aa2cc000 - 0x1490aa2cffff 0x1490aa2d0000 - 0x1490aa2d0fff 0x1490aa2d1000 - 0x1490aa2d1fff 0x1490aa2d2000 - 0x1490aa2d3fff 0x1490aa2d4000 - 0x1490aa2e4fff 0x1490aa2e5000 - 0x1490aa31afff 0x1490aa31b000 - 0x1490aa450fff 0x1490aa451000 - 0x1490aa451fff 0x1490aa452000 - 0x1490aa455fff 0x1490aa456000 - 0x1490aa456fff 0x1490aa457000 - 0x1490aa457fff 0x1490aa458000 - 0x1490aa459fff 0x1490aa45a000 - 0x1490aa45afff 0x1490aa45b000 - 0x1490aa45bfff 0x1490aa45c000 - 0x1490aa45cfff 0x1490aa45d000 - 0x1490aa45efff 0x1490aa45f000 - 0x1490aa460fff 0x1490aa461000 - 0x1490aa461fff 0x1490aa462000 - 0x1490aa462fff 0x1490aa463000 - 0x1490aa463fff 0x1490aa464000 - 0x1490aa465fff 0x1490aa466000 - 0x1490aa467fff 0x1490aa468000 - 0x1490aa468fff 0x1490aa469000 - 0x1490aa469fff 0x1490aa46a000 - 0x1490aa46afff 0x1490aa46b000 - 0x1490aa478fff 0x1490aa479000 - 0x1490aa486fff 0x1490aa487000 - 0x1490aa494fff 0x1490aa495000 - 0x1490aa498fff 0x1490aa499000 - 0x1490aa499fff 0x1490aa49a000 - 0x1490aa4affff 0x1490aa4b0000 - 0x1490aa4dbfff 0x1490aa4dc000 - 0x1490aa4e4fff 0x1490aa4e5000 - 0x1490aa4e5fff 0x1490aa4e6000 - 0x1490aa4e8fff 0x1490aa4e9000 - 0x1490aa4eefff 0x1490aa4ef000 - 0x1490aa4f1fff 0x1490aa4f2000 - 0x1490aa4f2fff 0x1490aa4f3000 - 0x1490aa4f3fff 0x1490aa4f4000 - 0x1490aa4fafff 0x1490aa4fb000 - 0x1490aa4fbfff 0x1490aa4fc000 - 0x1490aa51cfff 0x1490aa51d000 - 0x1490aa525fff 0x1490aa526000 - 0x1490aa526fff 0x1490aa527000 - 0x1490aa528fff 0x7ffff80c1000 - 0x7ffff80e1fff 0x7ffff815c000 - 0x7ffff815ffff 0x7ffff8160000 - 0x7ffff8161fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/dutch.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x635000 - 0x655fff 0x100000000000 - 0x1000000bffff 0x14f728a4e000 - 0x14f728a4efff 0x14f728a4f000 - 0x14f7290f9fff 0x14f7290fa000 - 0x14f72914efff 0x14f72914f000 - 0x14f729151fff 0x14f729152000 - 0x14f729177fff 0x14f729178000 - 0x14f7292c6fff 0x14f7292c7000 - 0x14f729312fff 0x14f729313000 - 0x14f729313fff 0x14f729314000 - 0x14f729316fff 0x14f729317000 - 0x14f729319fff 0x14f72931a000 - 0x14f72931dfff 0x14f72931e000 - 0x14f729320fff 0x14f729321000 - 0x14f729332fff 0x14f729333000 - 0x14f729336fff 0x14f729337000 - 0x14f729337fff 0x14f729338000 - 0x14f729338fff 0x14f729339000 - 0x14f72933afff 0x14f72933b000 - 0x14f72934bfff 0x14f72934c000 - 0x14f729381fff 0x14f729382000 - 0x14f7294b7fff 0x14f7294b8000 - 0x14f7294b8fff 0x14f7294b9000 - 0x14f7294bcfff 0x14f7294bd000 - 0x14f7294bdfff 0x14f7294be000 - 0x14f7294befff 0x14f7294bf000 - 0x14f7294c0fff 0x14f7294c1000 - 0x14f7294c1fff 0x14f7294c2000 - 0x14f7294c2fff 0x14f7294c3000 - 0x14f7294c3fff 0x14f7294c4000 - 0x14f7294c5fff 0x14f7294c6000 - 0x14f7294c7fff 0x14f7294c8000 - 0x14f7294c8fff 0x14f7294c9000 - 0x14f7294c9fff 0x14f7294ca000 - 0x14f7294cafff 0x14f7294cb000 - 0x14f7294ccfff 0x14f7294cd000 - 0x14f7294cefff 0x14f7294cf000 - 0x14f7294cffff 0x14f7294d0000 - 0x14f7294d0fff 0x14f7294d1000 - 0x14f7294d1fff 0x14f7294d2000 - 0x14f7294dffff 0x14f7294e0000 - 0x14f7294edfff 0x14f7294ee000 - 0x14f7294fbfff 0x14f7294fc000 - 0x14f7294fffff 0x14f729500000 - 0x14f729500fff 0x14f729501000 - 0x14f729516fff 0x14f729517000 - 0x14f729542fff 0x14f729543000 - 0x14f72954bfff 0x14f72954c000 - 0x14f72954cfff 0x14f72954d000 - 0x14f72954ffff 0x14f729550000 - 0x14f729555fff 0x14f729556000 - 0x14f729558fff 0x14f729559000 - 0x14f729559fff 0x14f72955a000 - 0x14f72955afff 0x14f72955b000 - 0x14f729561fff 0x14f729562000 - 0x14f729562fff 0x14f729563000 - 0x14f729583fff 0x14f729584000 - 0x14f72958cfff 0x14f72958d000 - 0x14f72958dfff 0x14f72958e000 - 0x14f72958ffff 0x7ffe8731f000 - 0x7ffe8733ffff 0x7ffe87377000 - 0x7ffe8737afff 0x7ffe8737b000 - 0x7ffe8737cfff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/deprecated.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x11b9000 - 0x11d9fff 0x100000000000 - 0x1000000bffff 0x15313bef5000 - 0x15313bef5fff 0x15313bef6000 - 0x15313c5a0fff 0x15313c5a1000 - 0x15313c5f5fff 0x15313c5f6000 - 0x15313c5f8fff 0x15313c5f9000 - 0x15313c61efff 0x15313c61f000 - 0x15313c76dfff 0x15313c76e000 - 0x15313c7b9fff 0x15313c7ba000 - 0x15313c7bafff 0x15313c7bb000 - 0x15313c7bdfff 0x15313c7be000 - 0x15313c7c0fff 0x15313c7c1000 - 0x15313c7c4fff 0x15313c7c5000 - 0x15313c7c7fff 0x15313c7c8000 - 0x15313c7d9fff 0x15313c7da000 - 0x15313c7ddfff 0x15313c7de000 - 0x15313c7defff 0x15313c7df000 - 0x15313c7dffff 0x15313c7e0000 - 0x15313c7e1fff 0x15313c7e2000 - 0x15313c7f2fff 0x15313c7f3000 - 0x15313c828fff 0x15313c829000 - 0x15313c95efff 0x15313c95f000 - 0x15313c95ffff 0x15313c960000 - 0x15313c963fff 0x15313c964000 - 0x15313c964fff 0x15313c965000 - 0x15313c965fff 0x15313c966000 - 0x15313c967fff 0x15313c968000 - 0x15313c968fff 0x15313c969000 - 0x15313c969fff 0x15313c96a000 - 0x15313c96afff 0x15313c96b000 - 0x15313c96cfff 0x15313c96d000 - 0x15313c96efff 0x15313c96f000 - 0x15313c96ffff 0x15313c970000 - 0x15313c970fff 0x15313c971000 - 0x15313c971fff 0x15313c972000 - 0x15313c973fff 0x15313c974000 - 0x15313c975fff 0x15313c976000 - 0x15313c976fff 0x15313c977000 - 0x15313c977fff 0x15313c978000 - 0x15313c978fff 0x15313c979000 - 0x15313c986fff 0x15313c987000 - 0x15313c994fff 0x15313c995000 - 0x15313c9a2fff 0x15313c9a3000 - 0x15313c9a6fff 0x15313c9a7000 - 0x15313c9a7fff 0x15313c9a8000 - 0x15313c9bdfff 0x15313c9be000 - 0x15313c9e9fff 0x15313c9ea000 - 0x15313c9f2fff 0x15313c9f3000 - 0x15313c9f3fff 0x15313c9f4000 - 0x15313c9f6fff 0x15313c9f7000 - 0x15313c9fcfff 0x15313c9fd000 - 0x15313c9fffff 0x15313ca00000 - 0x15313ca00fff 0x15313ca01000 - 0x15313ca01fff 0x15313ca02000 - 0x15313ca08fff 0x15313ca09000 - 0x15313ca09fff 0x15313ca0a000 - 0x15313ca2afff 0x15313ca2b000 - 0x15313ca33fff 0x15313ca34000 - 0x15313ca34fff 0x15313ca35000 - 0x15313ca36fff 0x7ffc3f61b000 - 0x7ffc3f63bfff 0x7ffc3f7ec000 - 0x7ffc3f7effff 0x7ffc3f7f0000 - 0x7ffc3f7f1fff 0xffffffffff600000 - 0xffffffffff600fff ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1bbe000 - 0x1bdefff 0x100000000000 - 0x1000000bffff 0x14ec21bf9000 - 0x14ec21bf9fff 0x14ec21bfa000 - 0x14ec222a4fff 0x14ec222a5000 - 0x14ec222f9fff 0x14ec222fa000 - 0x14ec222fcfff 0x14ec222fd000 - 0x14ec22322fff 0x14ec22323000 - 0x14ec22471fff 0x14ec22472000 - 0x14ec224bdfff 0x14ec224be000 - 0x14ec224befff 0x14ec224bf000 - 0x14ec224c1fff 0x14ec224c2000 - 0x14ec224c4fff 0x14ec224c5000 - 0x14ec224c8fff 0x14ec224c9000 - 0x14ec224cbfff 0x14ec224cc000 - 0x14ec224ddfff 0x14ec224de000 - 0x14ec224e1fff 0x14ec224e2000 - 0x14ec224e2fff 0x14ec224e3000 - 0x14ec224e3fff 0x14ec224e4000 - 0x14ec224e5fff 0x14ec224e6000 - 0x14ec224f6fff 0x14ec224f7000 - 0x14ec2252cfff 0x14ec2252d000 - 0x14ec22662fff 0x14ec22663000 - 0x14ec22663fff 0x14ec22664000 - 0x14ec22667fff 0x14ec22668000 - 0x14ec22668fff 0x14ec22669000 - 0x14ec22669fff 0x14ec2266a000 - 0x14ec2266bfff 0x14ec2266c000 - 0x14ec2266cfff 0x14ec2266d000 - 0x14ec2266dfff 0x14ec2266e000 - 0x14ec2266efff 0x14ec2266f000 - 0x14ec22670fff 0x14ec22671000 - 0x14ec22672fff 0x14ec22673000 - 0x14ec22673fff 0x14ec22674000 - 0x14ec22674fff 0x14ec22675000 - 0x14ec22675fff 0x14ec22676000 - 0x14ec22677fff 0x14ec22678000 - 0x14ec22679fff 0x14ec2267a000 - 0x14ec2267afff 0x14ec2267b000 - 0x14ec2267bfff 0x14ec2267c000 - 0x14ec2267cfff 0x14ec2267d000 - 0x14ec2268afff 0x14ec2268b000 - 0x14ec22698fff 0x14ec22699000 - 0x14ec226a6fff 0x14ec226a7000 - 0x14ec226aafff 0x14ec226ab000 - 0x14ec226abfff 0x14ec226ac000 - 0x14ec226c1fff 0x14ec226c2000 - 0x14ec226edfff 0x14ec226ee000 - 0x14ec226f6fff 0x14ec226f7000 - 0x14ec226f7fff 0x14ec226f8000 - 0x14ec226fafff 0x14ec226fb000 - 0x14ec22700fff 0x14ec22701000 - 0x14ec22703fff 0x14ec22704000 - 0x14ec22704fff 0x14ec22705000 - 0x14ec22705fff 0x14ec22706000 - 0x14ec2270cfff 0x14ec2270d000 - 0x14ec2270dfff 0x14ec2270e000 - 0x14ec2272efff 0x14ec2272f000 - 0x14ec22737fff 0x14ec22738000 - 0x14ec22738fff 0x14ec22739000 - 0x14ec2273afff 0x7fff462f5000 - 0x7fff46315fff 0x7fff463e3000 - 0x7fff463e6fff 0x7fff463e7000 - 0x7fff463e8fff 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 - 0x5d4fff 0xf40000 - 0xf60fff 0x100000000000 - 0x1000000bffff 0x1541eeeb2000 - 0x1541eeeb2fff 0x1541eeeb3000 - 0x1541ef55dfff 0x1541ef55e000 - 0x1541ef5b2fff 0x1541ef5b3000 - 0x1541ef5b5fff 0x1541ef5b6000 - 0x1541ef5dbfff 0x1541ef5dc000 - 0x1541ef72afff 0x1541ef72b000 - 0x1541ef776fff 0x1541ef777000 - 0x1541ef777fff 0x1541ef778000 - 0x1541ef77afff 0x1541ef77b000 - 0x1541ef77dfff 0x1541ef77e000 - 0x1541ef781fff 0x1541ef782000 - 0x1541ef784fff 0x1541ef785000 - 0x1541ef796fff 0x1541ef797000 - 0x1541ef79afff 0x1541ef79b000 - 0x1541ef79bfff 0x1541ef79c000 - 0x1541ef79cfff 0x1541ef79d000 - 0x1541ef79efff 0x1541ef79f000 - 0x1541ef7affff 0x1541ef7b0000 - 0x1541ef7e5fff 0x1541ef7e6000 - 0x1541ef91bfff 0x1541ef91c000 - 0x1541ef91cfff 0x1541ef91d000 - 0x1541ef920fff 0x1541ef921000 - 0x1541ef921fff 0x1541ef922000 - 0x1541ef922fff 0x1541ef923000 - 0x1541ef924fff 0x1541ef925000 - 0x1541ef925fff 0x1541ef926000 - 0x1541ef926fff 0x1541ef927000 - 0x1541ef927fff 0x1541ef928000 - 0x1541ef929fff 0x1541ef92a000 - 0x1541ef92bfff 0x1541ef92c000 - 0x1541ef92cfff 0x1541ef92d000 - 0x1541ef92dfff 0x1541ef92e000 - 0x1541ef92efff 0x1541ef92f000 - 0x1541ef930fff 0x1541ef931000 - 0x1541ef932fff 0x1541ef933000 - 0x1541ef933fff 0x1541ef934000 - 0x1541ef934fff 0x1541ef935000 - 0x1541ef935fff 0x1541ef936000 - 0x1541ef943fff 0x1541ef944000 - 0x1541ef951fff 0x1541ef952000 - 0x1541ef95ffff 0x1541ef960000 - 0x1541ef963fff 0x1541ef964000 - 0x1541ef964fff 0x1541ef965000 - 0x1541ef97afff 0x1541ef97b000 - 0x1541ef9a6fff 0x1541ef9a7000 - 0x1541ef9affff 0x1541ef9b0000 - 0x1541ef9b0fff 0x1541ef9b1000 - 0x1541ef9b3fff 0x1541ef9b4000 - 0x1541ef9b9fff 0x1541ef9ba000 - 0x1541ef9bcfff 0x1541ef9bd000 - 0x1541ef9bdfff 0x1541ef9be000 - 0x1541ef9befff 0x1541ef9bf000 - 0x1541ef9c5fff 0x1541ef9c6000 - 0x1541ef9c6fff 0x1541ef9c7000 - 0x1541ef9e7fff 0x1541ef9e8000 - 0x1541ef9f0fff 0x1541ef9f1000 - 0x1541ef9f1fff 0x1541ef9f2000 - 0x1541ef9f3fff 0x7ffd17346000 - 0x7ffd17366fff 0x7ffd17383000 - 0x7ffd17386fff 0x7ffd17387000 - 0x7ffd17388fff 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 - 0x5d4fff 0x1010000 - 0x1030fff 0x100000000000 - 0x1000000bffff 0x14c571cbb000 - 0x14c571cbbfff 0x14c571cbc000 - 0x14c572366fff 0x14c572367000 - 0x14c5723bbfff 0x14c5723bc000 - 0x14c5723befff 0x14c5723bf000 - 0x14c5723e4fff 0x14c5723e5000 - 0x14c572533fff 0x14c572534000 - 0x14c57257ffff 0x14c572580000 - 0x14c572580fff 0x14c572581000 - 0x14c572583fff 0x14c572584000 - 0x14c572586fff 0x14c572587000 - 0x14c57258afff 0x14c57258b000 - 0x14c57258dfff 0x14c57258e000 - 0x14c57259ffff 0x14c5725a0000 - 0x14c5725a3fff 0x14c5725a4000 - 0x14c5725a4fff 0x14c5725a5000 - 0x14c5725a5fff 0x14c5725a6000 - 0x14c5725a7fff 0x14c5725a8000 - 0x14c5725b8fff 0x14c5725b9000 - 0x14c5725eefff 0x14c5725ef000 - 0x14c572724fff 0x14c572725000 - 0x14c572725fff 0x14c572726000 - 0x14c572729fff 0x14c57272a000 - 0x14c57272afff 0x14c57272b000 - 0x14c57272bfff 0x14c57272c000 - 0x14c57272dfff 0x14c57272e000 - 0x14c57272efff 0x14c57272f000 - 0x14c57272ffff 0x14c572730000 - 0x14c572730fff 0x14c572731000 - 0x14c572732fff 0x14c572733000 - 0x14c572734fff 0x14c572735000 - 0x14c572735fff 0x14c572736000 - 0x14c572736fff 0x14c572737000 - 0x14c572737fff 0x14c572738000 - 0x14c572739fff 0x14c57273a000 - 0x14c57273bfff 0x14c57273c000 - 0x14c57273cfff 0x14c57273d000 - 0x14c57273dfff 0x14c57273e000 - 0x14c57273efff 0x14c57273f000 - 0x14c57274cfff 0x14c57274d000 - 0x14c57275afff 0x14c57275b000 - 0x14c572768fff 0x14c572769000 - 0x14c57276cfff 0x14c57276d000 - 0x14c57276dfff 0x14c57276e000 - 0x14c572783fff 0x14c572784000 - 0x14c5727affff 0x14c5727b0000 - 0x14c5727b8fff 0x14c5727b9000 - 0x14c5727b9fff 0x14c5727ba000 - 0x14c5727bcfff 0x14c5727bd000 - 0x14c5727c2fff 0x14c5727c3000 - 0x14c5727c5fff 0x14c5727c6000 - 0x14c5727c6fff 0x14c5727c7000 - 0x14c5727c7fff 0x14c5727c8000 - 0x14c5727cefff 0x14c5727cf000 - 0x14c5727cffff 0x14c5727d0000 - 0x14c5727f0fff 0x14c5727f1000 - 0x14c5727f9fff 0x14c5727fa000 - 0x14c5727fafff 0x14c5727fb000 - 0x14c5727fcfff 0x7ffdeca79000 - 0x7ffdeca99fff 0x7ffdecbf0000 - 0x7ffdecbf3fff 0x7ffdecbf4000 - 0x7ffdecbf5fff 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 - 0x5d4fff 0x2471000 - 0x2491fff 0x100000000000 - 0x1000000bffff 0x14f2afe7f000 - 0x14f2afe7ffff 0x14f2afe80000 - 0x14f2b052afff 0x14f2b052b000 - 0x14f2b057ffff 0x14f2b0580000 - 0x14f2b0582fff 0x14f2b0583000 - 0x14f2b05a8fff 0x14f2b05a9000 - 0x14f2b06f7fff 0x14f2b06f8000 - 0x14f2b0743fff 0x14f2b0744000 - 0x14f2b0744fff 0x14f2b0745000 - 0x14f2b0747fff 0x14f2b0748000 - 0x14f2b074afff 0x14f2b074b000 - 0x14f2b074efff 0x14f2b074f000 - 0x14f2b0751fff 0x14f2b0752000 - 0x14f2b0763fff 0x14f2b0764000 - 0x14f2b0767fff 0x14f2b0768000 - 0x14f2b0768fff 0x14f2b0769000 - 0x14f2b0769fff 0x14f2b076a000 - 0x14f2b076bfff 0x14f2b076c000 - 0x14f2b077cfff 0x14f2b077d000 - 0x14f2b07b2fff 0x14f2b07b3000 - 0x14f2b08e8fff 0x14f2b08e9000 - 0x14f2b08e9fff 0x14f2b08ea000 - 0x14f2b08edfff 0x14f2b08ee000 - 0x14f2b08eefff 0x14f2b08ef000 - 0x14f2b08effff 0x14f2b08f0000 - 0x14f2b08f1fff 0x14f2b08f2000 - 0x14f2b08f2fff 0x14f2b08f3000 - 0x14f2b08f3fff 0x14f2b08f4000 - 0x14f2b08f4fff 0x14f2b08f5000 - 0x14f2b08f6fff 0x14f2b08f7000 - 0x14f2b08f8fff 0x14f2b08f9000 - 0x14f2b08f9fff 0x14f2b08fa000 - 0x14f2b08fafff 0x14f2b08fb000 - 0x14f2b08fbfff 0x14f2b08fc000 - 0x14f2b08fdfff 0x14f2b08fe000 - 0x14f2b08fffff 0x14f2b0900000 - 0x14f2b0900fff 0x14f2b0901000 - 0x14f2b0901fff 0x14f2b0902000 - 0x14f2b0902fff 0x14f2b0903000 - 0x14f2b0910fff 0x14f2b0911000 - 0x14f2b091efff 0x14f2b091f000 - 0x14f2b092cfff 0x14f2b092d000 - 0x14f2b0930fff 0x14f2b0931000 - 0x14f2b0931fff 0x14f2b0932000 - 0x14f2b0947fff 0x14f2b0948000 - 0x14f2b0973fff 0x14f2b0974000 - 0x14f2b097cfff 0x14f2b097d000 - 0x14f2b097dfff 0x14f2b097e000 - 0x14f2b0980fff 0x14f2b0981000 - 0x14f2b0986fff 0x14f2b0987000 - 0x14f2b0989fff 0x14f2b098a000 - 0x14f2b098afff 0x14f2b098b000 - 0x14f2b098bfff 0x14f2b098c000 - 0x14f2b0992fff 0x14f2b0993000 - 0x14f2b0993fff 0x14f2b0994000 - 0x14f2b09b4fff 0x14f2b09b5000 - 0x14f2b09bdfff 0x14f2b09be000 - 0x14f2b09befff 0x14f2b09bf000 - 0x14f2b09c0fff 0x7ffddfb98000 - 0x7ffddfbb8fff 0x7ffddfbdb000 - 0x7ffddfbdefff 0x7ffddfbdf000 - 0x7ffddfbe0fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x6e5000 - 0x705fff 0x100000000000 - 0x1000000bffff 0x14abf13f6000 - 0x14abf13f6fff 0x14abf13f7000 - 0x14abf1aa1fff 0x14abf1aa2000 - 0x14abf1af6fff 0x14abf1af7000 - 0x14abf1af9fff 0x14abf1afa000 - 0x14abf1b1ffff 0x14abf1b20000 - 0x14abf1c6efff 0x14abf1c6f000 - 0x14abf1cbafff 0x14abf1cbb000 - 0x14abf1cbbfff 0x14abf1cbc000 - 0x14abf1cbefff 0x14abf1cbf000 - 0x14abf1cc1fff 0x14abf1cc2000 - 0x14abf1cc5fff 0x14abf1cc6000 - 0x14abf1cc8fff 0x14abf1cc9000 - 0x14abf1cdafff 0x14abf1cdb000 - 0x14abf1cdefff 0x14abf1cdf000 - 0x14abf1cdffff 0x14abf1ce0000 - 0x14abf1ce0fff 0x14abf1ce1000 - 0x14abf1ce2fff 0x14abf1ce3000 - 0x14abf1cf3fff 0x14abf1cf4000 - 0x14abf1d29fff 0x14abf1d2a000 - 0x14abf1e5ffff 0x14abf1e60000 - 0x14abf1e60fff 0x14abf1e61000 - 0x14abf1e64fff 0x14abf1e65000 - 0x14abf1e65fff 0x14abf1e66000 - 0x14abf1e66fff 0x14abf1e67000 - 0x14abf1e68fff 0x14abf1e69000 - 0x14abf1e69fff 0x14abf1e6a000 - 0x14abf1e6afff 0x14abf1e6b000 - 0x14abf1e6bfff 0x14abf1e6c000 - 0x14abf1e6dfff 0x14abf1e6e000 - 0x14abf1e6ffff 0x14abf1e70000 - 0x14abf1e70fff 0x14abf1e71000 - 0x14abf1e71fff 0x14abf1e72000 - 0x14abf1e72fff 0x14abf1e73000 - 0x14abf1e74fff 0x14abf1e75000 - 0x14abf1e76fff 0x14abf1e77000 - 0x14abf1e77fff 0x14abf1e78000 - 0x14abf1e78fff 0x14abf1e79000 - 0x14abf1e79fff 0x14abf1e7a000 - 0x14abf1e87fff 0x14abf1e88000 - 0x14abf1e95fff 0x14abf1e96000 - 0x14abf1ea3fff 0x14abf1ea4000 - 0x14abf1ea7fff 0x14abf1ea8000 - 0x14abf1ea8fff 0x14abf1ea9000 - 0x14abf1ebefff 0x14abf1ebf000 - 0x14abf1eeafff 0x14abf1eeb000 - 0x14abf1ef3fff 0x14abf1ef4000 - 0x14abf1ef4fff 0x14abf1ef5000 - 0x14abf1ef7fff 0x14abf1ef8000 - 0x14abf1efdfff 0x14abf1efe000 - 0x14abf1f00fff 0x14abf1f01000 - 0x14abf1f01fff 0x14abf1f02000 - 0x14abf1f02fff 0x14abf1f03000 - 0x14abf1f09fff 0x14abf1f0a000 - 0x14abf1f0afff 0x14abf1f0b000 - 0x14abf1f2bfff 0x14abf1f2c000 - 0x14abf1f34fff 0x14abf1f35000 - 0x14abf1f35fff 0x14abf1f36000 - 0x14abf1f37fff 0x7fff0307a000 - 0x7fff0309afff 0x7fff031bb000 - 0x7fff031befff 0x7fff031bf000 - 0x7fff031c0fff 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 - 0x5d4fff 0x1c9e000 - 0x1cbefff 0x100000000000 - 0x1000000bffff 0x14d13bead000 - 0x14d13beadfff 0x14d13beae000 - 0x14d13c558fff 0x14d13c559000 - 0x14d13c5adfff 0x14d13c5ae000 - 0x14d13c5b0fff 0x14d13c5b1000 - 0x14d13c5d6fff 0x14d13c5d7000 - 0x14d13c725fff 0x14d13c726000 - 0x14d13c771fff 0x14d13c772000 - 0x14d13c772fff 0x14d13c773000 - 0x14d13c775fff 0x14d13c776000 - 0x14d13c778fff 0x14d13c779000 - 0x14d13c77cfff 0x14d13c77d000 - 0x14d13c77ffff 0x14d13c780000 - 0x14d13c791fff 0x14d13c792000 - 0x14d13c795fff 0x14d13c796000 - 0x14d13c796fff 0x14d13c797000 - 0x14d13c797fff 0x14d13c798000 - 0x14d13c799fff 0x14d13c79a000 - 0x14d13c7aafff 0x14d13c7ab000 - 0x14d13c7e0fff 0x14d13c7e1000 - 0x14d13c916fff 0x14d13c917000 - 0x14d13c917fff 0x14d13c918000 - 0x14d13c91bfff 0x14d13c91c000 - 0x14d13c91cfff 0x14d13c91d000 - 0x14d13c91dfff 0x14d13c91e000 - 0x14d13c91ffff 0x14d13c920000 - 0x14d13c920fff 0x14d13c921000 - 0x14d13c921fff 0x14d13c922000 - 0x14d13c922fff 0x14d13c923000 - 0x14d13c924fff 0x14d13c925000 - 0x14d13c926fff 0x14d13c927000 - 0x14d13c927fff 0x14d13c928000 - 0x14d13c928fff 0x14d13c929000 - 0x14d13c929fff 0x14d13c92a000 - 0x14d13c92bfff 0x14d13c92c000 - 0x14d13c92dfff 0x14d13c92e000 - 0x14d13c92efff 0x14d13c92f000 - 0x14d13c92ffff 0x14d13c930000 - 0x14d13c930fff 0x14d13c931000 - 0x14d13c93efff 0x14d13c93f000 - 0x14d13c94cfff 0x14d13c94d000 - 0x14d13c95afff 0x14d13c95b000 - 0x14d13c95efff 0x14d13c95f000 - 0x14d13c95ffff 0x14d13c960000 - 0x14d13c975fff 0x14d13c976000 - 0x14d13c9a1fff 0x14d13c9a2000 - 0x14d13c9aafff 0x14d13c9ab000 - 0x14d13c9abfff 0x14d13c9ac000 - 0x14d13c9aefff 0x14d13c9af000 - 0x14d13c9b4fff 0x14d13c9b5000 - 0x14d13c9b7fff 0x14d13c9b8000 - 0x14d13c9b8fff 0x14d13c9b9000 - 0x14d13c9b9fff 0x14d13c9ba000 - 0x14d13c9c0fff 0x14d13c9c1000 - 0x14d13c9c1fff 0x14d13c9c2000 - 0x14d13c9e2fff 0x14d13c9e3000 - 0x14d13c9ebfff 0x14d13c9ec000 - 0x14d13c9ecfff 0x14d13c9ed000 - 0x14d13c9eefff 0x7ffe564f9000 - 0x7ffe56519fff 0x7ffe56559000 - 0x7ffe5655cfff 0x7ffe5655d000 - 0x7ffe5655efff 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 - 0x5d4fff 0xc83000 - 0xca3fff 0x100000000000 - 0x1000000bffff 0x15282795f000 - 0x15282795ffff 0x152827960000 - 0x15282800afff 0x15282800b000 - 0x15282805ffff 0x152828060000 - 0x152828062fff 0x152828063000 - 0x152828088fff 0x152828089000 - 0x1528281d7fff 0x1528281d8000 - 0x152828223fff 0x152828224000 - 0x152828224fff 0x152828225000 - 0x152828227fff 0x152828228000 - 0x15282822afff 0x15282822b000 - 0x15282822efff 0x15282822f000 - 0x152828231fff 0x152828232000 - 0x152828243fff 0x152828244000 - 0x152828247fff 0x152828248000 - 0x152828248fff 0x152828249000 - 0x152828249fff 0x15282824a000 - 0x15282824bfff 0x15282824c000 - 0x15282825cfff 0x15282825d000 - 0x152828292fff 0x152828293000 - 0x1528283c8fff 0x1528283c9000 - 0x1528283c9fff 0x1528283ca000 - 0x1528283cdfff 0x1528283ce000 - 0x1528283cefff 0x1528283cf000 - 0x1528283cffff 0x1528283d0000 - 0x1528283d1fff 0x1528283d2000 - 0x1528283d2fff 0x1528283d3000 - 0x1528283d3fff 0x1528283d4000 - 0x1528283d4fff 0x1528283d5000 - 0x1528283d6fff 0x1528283d7000 - 0x1528283d8fff 0x1528283d9000 - 0x1528283d9fff 0x1528283da000 - 0x1528283dafff 0x1528283db000 - 0x1528283dbfff 0x1528283dc000 - 0x1528283ddfff 0x1528283de000 - 0x1528283dffff 0x1528283e0000 - 0x1528283e0fff 0x1528283e1000 - 0x1528283e1fff 0x1528283e2000 - 0x1528283e2fff 0x1528283e3000 - 0x1528283f0fff 0x1528283f1000 - 0x1528283fefff 0x1528283ff000 - 0x15282840cfff 0x15282840d000 - 0x152828410fff 0x152828411000 - 0x152828411fff 0x152828412000 - 0x152828427fff 0x152828428000 - 0x152828453fff 0x152828454000 - 0x15282845cfff 0x15282845d000 - 0x15282845dfff 0x15282845e000 - 0x152828460fff 0x152828461000 - 0x152828466fff 0x152828467000 - 0x152828469fff 0x15282846a000 - 0x15282846afff 0x15282846b000 - 0x15282846bfff 0x15282846c000 - 0x152828472fff 0x152828473000 - 0x152828473fff 0x152828474000 - 0x152828494fff 0x152828495000 - 0x15282849dfff 0x15282849e000 - 0x15282849efff 0x15282849f000 - 0x1528284a0fff 0x7ffe279f7000 - 0x7ffe27a17fff 0x7ffe27ad1000 - 0x7ffe27ad4fff 0x7ffe27ad5000 - 0x7ffe27ad6fff 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 - 0x5d4fff 0x2238000 - 0x2258fff 0x100000000000 - 0x1000000bffff 0x146bae809000 - 0x146bae809fff 0x146bae80a000 - 0x146baeeb4fff 0x146baeeb5000 - 0x146baef09fff 0x146baef0a000 - 0x146baef0cfff 0x146baef0d000 - 0x146baef32fff 0x146baef33000 - 0x146baf081fff 0x146baf082000 - 0x146baf0cdfff 0x146baf0ce000 - 0x146baf0cefff 0x146baf0cf000 - 0x146baf0d1fff 0x146baf0d2000 - 0x146baf0d4fff 0x146baf0d5000 - 0x146baf0d8fff 0x146baf0d9000 - 0x146baf0dbfff 0x146baf0dc000 - 0x146baf0edfff 0x146baf0ee000 - 0x146baf0f1fff 0x146baf0f2000 - 0x146baf0f2fff 0x146baf0f3000 - 0x146baf0f3fff 0x146baf0f4000 - 0x146baf0f5fff 0x146baf0f6000 - 0x146baf106fff 0x146baf107000 - 0x146baf13cfff 0x146baf13d000 - 0x146baf272fff 0x146baf273000 - 0x146baf273fff 0x146baf274000 - 0x146baf277fff 0x146baf278000 - 0x146baf278fff 0x146baf279000 - 0x146baf279fff 0x146baf27a000 - 0x146baf27bfff 0x146baf27c000 - 0x146baf27cfff 0x146baf27d000 - 0x146baf27dfff 0x146baf27e000 - 0x146baf27efff 0x146baf27f000 - 0x146baf280fff 0x146baf281000 - 0x146baf282fff 0x146baf283000 - 0x146baf283fff 0x146baf284000 - 0x146baf284fff 0x146baf285000 - 0x146baf285fff 0x146baf286000 - 0x146baf287fff 0x146baf288000 - 0x146baf289fff 0x146baf28a000 - 0x146baf28afff 0x146baf28b000 - 0x146baf28bfff 0x146baf28c000 - 0x146baf28cfff 0x146baf28d000 - 0x146baf29afff 0x146baf29b000 - 0x146baf2a8fff 0x146baf2a9000 - 0x146baf2b6fff 0x146baf2b7000 - 0x146baf2bafff 0x146baf2bb000 - 0x146baf2bbfff 0x146baf2bc000 - 0x146baf2d1fff 0x146baf2d2000 - 0x146baf2fdfff 0x146baf2fe000 - 0x146baf306fff 0x146baf307000 - 0x146baf307fff 0x146baf308000 - 0x146baf30afff 0x146baf30b000 - 0x146baf310fff 0x146baf311000 - 0x146baf313fff 0x146baf314000 - 0x146baf314fff 0x146baf315000 - 0x146baf315fff 0x146baf316000 - 0x146baf31cfff 0x146baf31d000 - 0x146baf31dfff 0x146baf31e000 - 0x146baf33efff 0x146baf33f000 - 0x146baf347fff 0x146baf348000 - 0x146baf348fff 0x146baf349000 - 0x146baf34afff 0x7fff7b95b000 - 0x7fff7b97bfff 0x7fff7b9f3000 - 0x7fff7b9f6fff 0x7fff7b9f7000 - 0x7fff7b9f8fff 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 - 0x5d4fff 0x1e68000 - 0x1e88fff 0x100000000000 - 0x1000000bffff 0x1477556ee000 - 0x1477556eefff 0x1477556ef000 - 0x147755d99fff 0x147755d9a000 - 0x147755deefff 0x147755def000 - 0x147755df1fff 0x147755df2000 - 0x147755e17fff 0x147755e18000 - 0x147755f66fff 0x147755f67000 - 0x147755fb2fff 0x147755fb3000 - 0x147755fb3fff 0x147755fb4000 - 0x147755fb6fff 0x147755fb7000 - 0x147755fb9fff 0x147755fba000 - 0x147755fbdfff 0x147755fbe000 - 0x147755fc0fff 0x147755fc1000 - 0x147755fd2fff 0x147755fd3000 - 0x147755fd6fff 0x147755fd7000 - 0x147755fd7fff 0x147755fd8000 - 0x147755fd8fff 0x147755fd9000 - 0x147755fdafff 0x147755fdb000 - 0x147755febfff 0x147755fec000 - 0x147756021fff 0x147756022000 - 0x147756157fff 0x147756158000 - 0x147756158fff 0x147756159000 - 0x14775615cfff 0x14775615d000 - 0x14775615dfff 0x14775615e000 - 0x14775615efff 0x14775615f000 - 0x147756160fff 0x147756161000 - 0x147756161fff 0x147756162000 - 0x147756162fff 0x147756163000 - 0x147756163fff 0x147756164000 - 0x147756165fff 0x147756166000 - 0x147756167fff 0x147756168000 - 0x147756168fff 0x147756169000 - 0x147756169fff 0x14775616a000 - 0x14775616afff 0x14775616b000 - 0x14775616cfff 0x14775616d000 - 0x14775616efff 0x14775616f000 - 0x14775616ffff 0x147756170000 - 0x147756170fff 0x147756171000 - 0x147756171fff 0x147756172000 - 0x14775617ffff 0x147756180000 - 0x14775618dfff 0x14775618e000 - 0x14775619bfff 0x14775619c000 - 0x14775619ffff 0x1477561a0000 - 0x1477561a0fff 0x1477561a1000 - 0x1477561b6fff 0x1477561b7000 - 0x1477561e2fff 0x1477561e3000 - 0x1477561ebfff 0x1477561ec000 - 0x1477561ecfff 0x1477561ed000 - 0x1477561effff 0x1477561f0000 - 0x1477561f5fff 0x1477561f6000 - 0x1477561f8fff 0x1477561f9000 - 0x1477561f9fff 0x1477561fa000 - 0x1477561fafff 0x1477561fb000 - 0x147756201fff 0x147756202000 - 0x147756202fff 0x147756203000 - 0x147756223fff 0x147756224000 - 0x14775622cfff 0x14775622d000 - 0x14775622dfff 0x14775622e000 - 0x14775622ffff 0x7fff6c8b6000 - 0x7fff6c8d6fff 0x7fff6c9e3000 - 0x7fff6c9e6fff 0x7fff6c9e7000 - 0x7fff6c9e8fff 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 - 0x5d4fff 0x70b000 - 0x72bfff 0x100000000000 - 0x1000000bffff 0x14b2fd76c000 - 0x14b2fd76cfff 0x14b2fd76d000 - 0x14b2fde17fff 0x14b2fde18000 - 0x14b2fde6cfff 0x14b2fde6d000 - 0x14b2fde6ffff 0x14b2fde70000 - 0x14b2fde95fff 0x14b2fde96000 - 0x14b2fdfe4fff 0x14b2fdfe5000 - 0x14b2fe030fff 0x14b2fe031000 - 0x14b2fe031fff 0x14b2fe032000 - 0x14b2fe034fff 0x14b2fe035000 - 0x14b2fe037fff 0x14b2fe038000 - 0x14b2fe03bfff 0x14b2fe03c000 - 0x14b2fe03efff 0x14b2fe03f000 - 0x14b2fe050fff 0x14b2fe051000 - 0x14b2fe054fff 0x14b2fe055000 - 0x14b2fe055fff 0x14b2fe056000 - 0x14b2fe056fff 0x14b2fe057000 - 0x14b2fe058fff 0x14b2fe059000 - 0x14b2fe069fff 0x14b2fe06a000 - 0x14b2fe09ffff 0x14b2fe0a0000 - 0x14b2fe1d5fff 0x14b2fe1d6000 - 0x14b2fe1d6fff 0x14b2fe1d7000 - 0x14b2fe1dafff 0x14b2fe1db000 - 0x14b2fe1dbfff 0x14b2fe1dc000 - 0x14b2fe1dcfff 0x14b2fe1dd000 - 0x14b2fe1defff 0x14b2fe1df000 - 0x14b2fe1dffff 0x14b2fe1e0000 - 0x14b2fe1e0fff 0x14b2fe1e1000 - 0x14b2fe1e1fff 0x14b2fe1e2000 - 0x14b2fe1e3fff 0x14b2fe1e4000 - 0x14b2fe1e5fff 0x14b2fe1e6000 - 0x14b2fe1e6fff 0x14b2fe1e7000 - 0x14b2fe1e7fff 0x14b2fe1e8000 - 0x14b2fe1e8fff 0x14b2fe1e9000 - 0x14b2fe1eafff 0x14b2fe1eb000 - 0x14b2fe1ecfff 0x14b2fe1ed000 - 0x14b2fe1edfff 0x14b2fe1ee000 - 0x14b2fe1eefff 0x14b2fe1ef000 - 0x14b2fe1effff 0x14b2fe1f0000 - 0x14b2fe1fdfff 0x14b2fe1fe000 - 0x14b2fe20bfff 0x14b2fe20c000 - 0x14b2fe219fff 0x14b2fe21a000 - 0x14b2fe21dfff 0x14b2fe21e000 - 0x14b2fe21efff 0x14b2fe21f000 - 0x14b2fe234fff 0x14b2fe235000 - 0x14b2fe260fff 0x14b2fe261000 - 0x14b2fe269fff 0x14b2fe26a000 - 0x14b2fe26afff 0x14b2fe26b000 - 0x14b2fe26dfff 0x14b2fe26e000 - 0x14b2fe273fff 0x14b2fe274000 - 0x14b2fe276fff 0x14b2fe277000 - 0x14b2fe277fff 0x14b2fe278000 - 0x14b2fe278fff 0x14b2fe279000 - 0x14b2fe27ffff 0x14b2fe280000 - 0x14b2fe280fff 0x14b2fe281000 - 0x14b2fe2a1fff 0x14b2fe2a2000 - 0x14b2fe2aafff 0x14b2fe2ab000 - 0x14b2fe2abfff 0x14b2fe2ac000 - 0x14b2fe2adfff 0x7fff5540f000 - 0x7fff5542ffff 0x7fff55478000 - 0x7fff5547bfff 0x7fff5547c000 - 0x7fff5547dfff 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 - 0x5d4fff 0xc22000 - 0xc42fff 0x100000000000 - 0x1000000bffff 0x14cca8b4b000 - 0x14cca8b4bfff 0x14cca8b4c000 - 0x14cca91f6fff 0x14cca91f7000 - 0x14cca924bfff 0x14cca924c000 - 0x14cca924efff 0x14cca924f000 - 0x14cca9274fff 0x14cca9275000 - 0x14cca93c3fff 0x14cca93c4000 - 0x14cca940ffff 0x14cca9410000 - 0x14cca9410fff 0x14cca9411000 - 0x14cca9413fff 0x14cca9414000 - 0x14cca9416fff 0x14cca9417000 - 0x14cca941afff 0x14cca941b000 - 0x14cca941dfff 0x14cca941e000 - 0x14cca942ffff 0x14cca9430000 - 0x14cca9433fff 0x14cca9434000 - 0x14cca9434fff 0x14cca9435000 - 0x14cca9435fff 0x14cca9436000 - 0x14cca9437fff 0x14cca9438000 - 0x14cca9448fff 0x14cca9449000 - 0x14cca947efff 0x14cca947f000 - 0x14cca95b4fff 0x14cca95b5000 - 0x14cca95b5fff 0x14cca95b6000 - 0x14cca95b9fff 0x14cca95ba000 - 0x14cca95bafff 0x14cca95bb000 - 0x14cca95bbfff 0x14cca95bc000 - 0x14cca95bdfff 0x14cca95be000 - 0x14cca95befff 0x14cca95bf000 - 0x14cca95bffff 0x14cca95c0000 - 0x14cca95c0fff 0x14cca95c1000 - 0x14cca95c2fff 0x14cca95c3000 - 0x14cca95c4fff 0x14cca95c5000 - 0x14cca95c5fff 0x14cca95c6000 - 0x14cca95c6fff 0x14cca95c7000 - 0x14cca95c7fff 0x14cca95c8000 - 0x14cca95c9fff 0x14cca95ca000 - 0x14cca95cbfff 0x14cca95cc000 - 0x14cca95ccfff 0x14cca95cd000 - 0x14cca95cdfff 0x14cca95ce000 - 0x14cca95cefff 0x14cca95cf000 - 0x14cca95dcfff 0x14cca95dd000 - 0x14cca95eafff 0x14cca95eb000 - 0x14cca95f8fff 0x14cca95f9000 - 0x14cca95fcfff 0x14cca95fd000 - 0x14cca95fdfff 0x14cca95fe000 - 0x14cca9613fff 0x14cca9614000 - 0x14cca963ffff 0x14cca9640000 - 0x14cca9648fff 0x14cca9649000 - 0x14cca9649fff 0x14cca964a000 - 0x14cca964cfff 0x14cca964d000 - 0x14cca9652fff 0x14cca9653000 - 0x14cca9655fff 0x14cca9656000 - 0x14cca9656fff 0x14cca9657000 - 0x14cca9657fff 0x14cca9658000 - 0x14cca965efff 0x14cca965f000 - 0x14cca965ffff 0x14cca9660000 - 0x14cca9680fff 0x14cca9681000 - 0x14cca9689fff 0x14cca968a000 - 0x14cca968afff 0x14cca968b000 - 0x14cca968cfff 0x7ffc20289000 - 0x7ffc202a9fff 0x7ffc20393000 - 0x7ffc20396fff 0x7ffc20397000 - 0x7ffc20398fff 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 - 0x5d4fff 0x19c8000 - 0x19e8fff 0x100000000000 - 0x1000000bffff 0x14a767794000 - 0x14a767794fff 0x14a767795000 - 0x14a767e3ffff 0x14a767e40000 - 0x14a767e94fff 0x14a767e95000 - 0x14a767e97fff 0x14a767e98000 - 0x14a767ebdfff 0x14a767ebe000 - 0x14a76800cfff 0x14a76800d000 - 0x14a768058fff 0x14a768059000 - 0x14a768059fff 0x14a76805a000 - 0x14a76805cfff 0x14a76805d000 - 0x14a76805ffff 0x14a768060000 - 0x14a768063fff 0x14a768064000 - 0x14a768066fff 0x14a768067000 - 0x14a768078fff 0x14a768079000 - 0x14a76807cfff 0x14a76807d000 - 0x14a76807dfff 0x14a76807e000 - 0x14a76807efff 0x14a76807f000 - 0x14a768080fff 0x14a768081000 - 0x14a768091fff 0x14a768092000 - 0x14a7680c7fff 0x14a7680c8000 - 0x14a7681fdfff 0x14a7681fe000 - 0x14a7681fefff 0x14a7681ff000 - 0x14a768202fff 0x14a768203000 - 0x14a768203fff 0x14a768204000 - 0x14a768204fff 0x14a768205000 - 0x14a768206fff 0x14a768207000 - 0x14a768207fff 0x14a768208000 - 0x14a768208fff 0x14a768209000 - 0x14a768209fff 0x14a76820a000 - 0x14a76820bfff 0x14a76820c000 - 0x14a76820dfff 0x14a76820e000 - 0x14a76820efff 0x14a76820f000 - 0x14a76820ffff 0x14a768210000 - 0x14a768210fff 0x14a768211000 - 0x14a768212fff 0x14a768213000 - 0x14a768214fff 0x14a768215000 - 0x14a768215fff 0x14a768216000 - 0x14a768216fff 0x14a768217000 - 0x14a768217fff 0x14a768218000 - 0x14a768225fff 0x14a768226000 - 0x14a768233fff 0x14a768234000 - 0x14a768241fff 0x14a768242000 - 0x14a768245fff 0x14a768246000 - 0x14a768246fff 0x14a768247000 - 0x14a76825cfff 0x14a76825d000 - 0x14a768288fff 0x14a768289000 - 0x14a768291fff 0x14a768292000 - 0x14a768292fff 0x14a768293000 - 0x14a768295fff 0x14a768296000 - 0x14a76829bfff 0x14a76829c000 - 0x14a76829efff 0x14a76829f000 - 0x14a76829ffff 0x14a7682a0000 - 0x14a7682a0fff 0x14a7682a1000 - 0x14a7682a7fff 0x14a7682a8000 - 0x14a7682a8fff 0x14a7682a9000 - 0x14a7682c9fff 0x14a7682ca000 - 0x14a7682d2fff 0x14a7682d3000 - 0x14a7682d3fff 0x14a7682d4000 - 0x14a7682d5fff 0x7fff1e54b000 - 0x7fff1e56bfff 0x7fff1e5a8000 - 0x7fff1e5abfff 0x7fff1e5ac000 - 0x7fff1e5adfff 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 - 0x5d4fff 0x1954000 - 0x1974fff 0x100000000000 - 0x1000000bffff 0x15121ea1b000 - 0x15121ea1bfff 0x15121ea1c000 - 0x15121f0c6fff 0x15121f0c7000 - 0x15121f11bfff 0x15121f11c000 - 0x15121f11efff 0x15121f11f000 - 0x15121f144fff 0x15121f145000 - 0x15121f293fff 0x15121f294000 - 0x15121f2dffff 0x15121f2e0000 - 0x15121f2e0fff 0x15121f2e1000 - 0x15121f2e3fff 0x15121f2e4000 - 0x15121f2e6fff 0x15121f2e7000 - 0x15121f2eafff 0x15121f2eb000 - 0x15121f2edfff 0x15121f2ee000 - 0x15121f2fffff 0x15121f300000 - 0x15121f303fff 0x15121f304000 - 0x15121f304fff 0x15121f305000 - 0x15121f305fff 0x15121f306000 - 0x15121f307fff 0x15121f308000 - 0x15121f318fff 0x15121f319000 - 0x15121f34efff 0x15121f34f000 - 0x15121f484fff 0x15121f485000 - 0x15121f485fff 0x15121f486000 - 0x15121f489fff 0x15121f48a000 - 0x15121f48afff 0x15121f48b000 - 0x15121f48bfff 0x15121f48c000 - 0x15121f48dfff 0x15121f48e000 - 0x15121f48efff 0x15121f48f000 - 0x15121f48ffff 0x15121f490000 - 0x15121f490fff 0x15121f491000 - 0x15121f492fff 0x15121f493000 - 0x15121f494fff 0x15121f495000 - 0x15121f495fff 0x15121f496000 - 0x15121f496fff 0x15121f497000 - 0x15121f497fff 0x15121f498000 - 0x15121f499fff 0x15121f49a000 - 0x15121f49bfff 0x15121f49c000 - 0x15121f49cfff 0x15121f49d000 - 0x15121f49dfff 0x15121f49e000 - 0x15121f49efff 0x15121f49f000 - 0x15121f4acfff 0x15121f4ad000 - 0x15121f4bafff 0x15121f4bb000 - 0x15121f4c8fff 0x15121f4c9000 - 0x15121f4ccfff 0x15121f4cd000 - 0x15121f4cdfff 0x15121f4ce000 - 0x15121f4e3fff 0x15121f4e4000 - 0x15121f50ffff 0x15121f510000 - 0x15121f518fff 0x15121f519000 - 0x15121f519fff 0x15121f51a000 - 0x15121f51cfff 0x15121f51d000 - 0x15121f522fff 0x15121f523000 - 0x15121f525fff 0x15121f526000 - 0x15121f526fff 0x15121f527000 - 0x15121f527fff 0x15121f528000 - 0x15121f52efff 0x15121f52f000 - 0x15121f52ffff 0x15121f530000 - 0x15121f550fff 0x15121f551000 - 0x15121f559fff 0x15121f55a000 - 0x15121f55afff 0x15121f55b000 - 0x15121f55cfff 0x7fffdca75000 - 0x7fffdca95fff 0x7fffdcb9d000 - 0x7fffdcba0fff 0x7fffdcba1000 - 0x7fffdcba2fff 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 - 0x5d4fff 0x12fc000 - 0x131cfff 0x100000000000 - 0x1000000bffff 0x15175a900000 - 0x15175a900fff 0x15175a901000 - 0x15175afabfff 0x15175afac000 - 0x15175b000fff 0x15175b001000 - 0x15175b003fff 0x15175b004000 - 0x15175b029fff 0x15175b02a000 - 0x15175b178fff 0x15175b179000 - 0x15175b1c4fff 0x15175b1c5000 - 0x15175b1c5fff 0x15175b1c6000 - 0x15175b1c8fff 0x15175b1c9000 - 0x15175b1cbfff 0x15175b1cc000 - 0x15175b1cffff 0x15175b1d0000 - 0x15175b1d2fff 0x15175b1d3000 - 0x15175b1e4fff 0x15175b1e5000 - 0x15175b1e8fff 0x15175b1e9000 - 0x15175b1e9fff 0x15175b1ea000 - 0x15175b1eafff 0x15175b1eb000 - 0x15175b1ecfff 0x15175b1ed000 - 0x15175b1fdfff 0x15175b1fe000 - 0x15175b233fff 0x15175b234000 - 0x15175b369fff 0x15175b36a000 - 0x15175b36afff 0x15175b36b000 - 0x15175b36efff 0x15175b36f000 - 0x15175b36ffff 0x15175b370000 - 0x15175b370fff 0x15175b371000 - 0x15175b372fff 0x15175b373000 - 0x15175b373fff 0x15175b374000 - 0x15175b374fff 0x15175b375000 - 0x15175b375fff 0x15175b376000 - 0x15175b377fff 0x15175b378000 - 0x15175b379fff 0x15175b37a000 - 0x15175b37afff 0x15175b37b000 - 0x15175b37bfff 0x15175b37c000 - 0x15175b37cfff 0x15175b37d000 - 0x15175b37efff 0x15175b37f000 - 0x15175b380fff 0x15175b381000 - 0x15175b381fff 0x15175b382000 - 0x15175b382fff 0x15175b383000 - 0x15175b383fff 0x15175b384000 - 0x15175b391fff 0x15175b392000 - 0x15175b39ffff 0x15175b3a0000 - 0x15175b3adfff 0x15175b3ae000 - 0x15175b3b1fff 0x15175b3b2000 - 0x15175b3b2fff 0x15175b3b3000 - 0x15175b3c8fff 0x15175b3c9000 - 0x15175b3f4fff 0x15175b3f5000 - 0x15175b3fdfff 0x15175b3fe000 - 0x15175b3fefff 0x15175b3ff000 - 0x15175b401fff 0x15175b402000 - 0x15175b407fff 0x15175b408000 - 0x15175b40afff 0x15175b40b000 - 0x15175b40bfff 0x15175b40c000 - 0x15175b40cfff 0x15175b40d000 - 0x15175b413fff 0x15175b414000 - 0x15175b414fff 0x15175b415000 - 0x15175b435fff 0x15175b436000 - 0x15175b43efff 0x15175b43f000 - 0x15175b43ffff 0x15175b440000 - 0x15175b441fff 0x7ffc41140000 - 0x7ffc41160fff 0x7ffc411a8000 - 0x7ffc411abfff 0x7ffc411ac000 - 0x7ffc411adfff 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 - 0x5d4fff 0xb30000 - 0xb50fff 0x100000000000 - 0x1000000bffff 0x152a66a91000 - 0x152a66a91fff 0x152a66a92000 - 0x152a6713cfff 0x152a6713d000 - 0x152a67191fff 0x152a67192000 - 0x152a67194fff 0x152a67195000 - 0x152a671bafff 0x152a671bb000 - 0x152a67309fff 0x152a6730a000 - 0x152a67355fff 0x152a67356000 - 0x152a67356fff 0x152a67357000 - 0x152a67359fff 0x152a6735a000 - 0x152a6735cfff 0x152a6735d000 - 0x152a67360fff 0x152a67361000 - 0x152a67363fff 0x152a67364000 - 0x152a67375fff 0x152a67376000 - 0x152a67379fff 0x152a6737a000 - 0x152a6737afff 0x152a6737b000 - 0x152a6737bfff 0x152a6737c000 - 0x152a6737dfff 0x152a6737e000 - 0x152a6738efff 0x152a6738f000 - 0x152a673c4fff 0x152a673c5000 - 0x152a674fafff 0x152a674fb000 - 0x152a674fbfff 0x152a674fc000 - 0x152a674fffff 0x152a67500000 - 0x152a67500fff 0x152a67501000 - 0x152a67501fff 0x152a67502000 - 0x152a67503fff 0x152a67504000 - 0x152a67504fff 0x152a67505000 - 0x152a67505fff 0x152a67506000 - 0x152a67506fff 0x152a67507000 - 0x152a67508fff 0x152a67509000 - 0x152a6750afff 0x152a6750b000 - 0x152a6750bfff 0x152a6750c000 - 0x152a6750cfff 0x152a6750d000 - 0x152a6750dfff 0x152a6750e000 - 0x152a6750ffff 0x152a67510000 - 0x152a67511fff 0x152a67512000 - 0x152a67512fff 0x152a67513000 - 0x152a67513fff 0x152a67514000 - 0x152a67514fff 0x152a67515000 - 0x152a67522fff 0x152a67523000 - 0x152a67530fff 0x152a67531000 - 0x152a6753efff 0x152a6753f000 - 0x152a67542fff 0x152a67543000 - 0x152a67543fff 0x152a67544000 - 0x152a67559fff 0x152a6755a000 - 0x152a67585fff 0x152a67586000 - 0x152a6758efff 0x152a6758f000 - 0x152a6758ffff 0x152a67590000 - 0x152a67592fff 0x152a67593000 - 0x152a67598fff 0x152a67599000 - 0x152a6759bfff 0x152a6759c000 - 0x152a6759cfff 0x152a6759d000 - 0x152a6759dfff 0x152a6759e000 - 0x152a675a4fff 0x152a675a5000 - 0x152a675a5fff 0x152a675a6000 - 0x152a675c6fff 0x152a675c7000 - 0x152a675cffff 0x152a675d0000 - 0x152a675d0fff 0x152a675d1000 - 0x152a675d2fff 0x7fffb7556000 - 0x7fffb7576fff 0x7fffb75e5000 - 0x7fffb75e8fff 0x7fffb75e9000 - 0x7fffb75eafff 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 - 0x5d4fff 0xcfe000 - 0xd1efff 0x100000000000 - 0x1000000bffff 0x149c3fe4b000 - 0x149c3fe4bfff 0x149c3fe4c000 - 0x149c404f6fff 0x149c404f7000 - 0x149c4054bfff 0x149c4054c000 - 0x149c4054efff 0x149c4054f000 - 0x149c40574fff 0x149c40575000 - 0x149c406c3fff 0x149c406c4000 - 0x149c4070ffff 0x149c40710000 - 0x149c40710fff 0x149c40711000 - 0x149c40713fff 0x149c40714000 - 0x149c40716fff 0x149c40717000 - 0x149c4071afff 0x149c4071b000 - 0x149c4071dfff 0x149c4071e000 - 0x149c4072ffff 0x149c40730000 - 0x149c40733fff 0x149c40734000 - 0x149c40734fff 0x149c40735000 - 0x149c40735fff 0x149c40736000 - 0x149c40737fff 0x149c40738000 - 0x149c40748fff 0x149c40749000 - 0x149c4077efff 0x149c4077f000 - 0x149c408b4fff 0x149c408b5000 - 0x149c408b5fff 0x149c408b6000 - 0x149c408b9fff 0x149c408ba000 - 0x149c408bafff 0x149c408bb000 - 0x149c408bbfff 0x149c408bc000 - 0x149c408bdfff 0x149c408be000 - 0x149c408befff 0x149c408bf000 - 0x149c408bffff 0x149c408c0000 - 0x149c408c0fff 0x149c408c1000 - 0x149c408c2fff 0x149c408c3000 - 0x149c408c4fff 0x149c408c5000 - 0x149c408c5fff 0x149c408c6000 - 0x149c408c6fff 0x149c408c7000 - 0x149c408c7fff 0x149c408c8000 - 0x149c408c9fff 0x149c408ca000 - 0x149c408cbfff 0x149c408cc000 - 0x149c408ccfff 0x149c408cd000 - 0x149c408cdfff 0x149c408ce000 - 0x149c408cefff 0x149c408cf000 - 0x149c408dcfff 0x149c408dd000 - 0x149c408eafff 0x149c408eb000 - 0x149c408f8fff 0x149c408f9000 - 0x149c408fcfff 0x149c408fd000 - 0x149c408fdfff 0x149c408fe000 - 0x149c40913fff 0x149c40914000 - 0x149c4093ffff 0x149c40940000 - 0x149c40948fff 0x149c40949000 - 0x149c40949fff 0x149c4094a000 - 0x149c4094cfff 0x149c4094d000 - 0x149c40952fff 0x149c40953000 - 0x149c40955fff 0x149c40956000 - 0x149c40956fff 0x149c40957000 - 0x149c40957fff 0x149c40958000 - 0x149c4095efff 0x149c4095f000 - 0x149c4095ffff 0x149c40960000 - 0x149c40980fff 0x149c40981000 - 0x149c40989fff 0x149c4098a000 - 0x149c4098afff 0x149c4098b000 - 0x149c4098cfff 0x7ffc15b8c000 - 0x7ffc15bacfff 0x7ffc15bc0000 - 0x7ffc15bc3fff 0x7ffc15bc4000 - 0x7ffc15bc5fff 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 - 0x5d4fff 0x204c000 - 0x206cfff 0x100000000000 - 0x1000000bffff 0x151ba473e000 - 0x151ba473efff 0x151ba473f000 - 0x151ba4de9fff 0x151ba4dea000 - 0x151ba4e3efff 0x151ba4e3f000 - 0x151ba4e41fff 0x151ba4e42000 - 0x151ba4e67fff 0x151ba4e68000 - 0x151ba4fb6fff 0x151ba4fb7000 - 0x151ba5002fff 0x151ba5003000 - 0x151ba5003fff 0x151ba5004000 - 0x151ba5006fff 0x151ba5007000 - 0x151ba5009fff 0x151ba500a000 - 0x151ba500dfff 0x151ba500e000 - 0x151ba5010fff 0x151ba5011000 - 0x151ba5022fff 0x151ba5023000 - 0x151ba5026fff 0x151ba5027000 - 0x151ba5027fff 0x151ba5028000 - 0x151ba5028fff 0x151ba5029000 - 0x151ba502afff 0x151ba502b000 - 0x151ba503bfff 0x151ba503c000 - 0x151ba5071fff 0x151ba5072000 - 0x151ba51a7fff 0x151ba51a8000 - 0x151ba51a8fff 0x151ba51a9000 - 0x151ba51acfff 0x151ba51ad000 - 0x151ba51adfff 0x151ba51ae000 - 0x151ba51aefff 0x151ba51af000 - 0x151ba51b0fff 0x151ba51b1000 - 0x151ba51b1fff 0x151ba51b2000 - 0x151ba51b2fff 0x151ba51b3000 - 0x151ba51b3fff 0x151ba51b4000 - 0x151ba51b5fff 0x151ba51b6000 - 0x151ba51b7fff 0x151ba51b8000 - 0x151ba51b8fff 0x151ba51b9000 - 0x151ba51b9fff 0x151ba51ba000 - 0x151ba51bafff 0x151ba51bb000 - 0x151ba51bcfff 0x151ba51bd000 - 0x151ba51befff 0x151ba51bf000 - 0x151ba51bffff 0x151ba51c0000 - 0x151ba51c0fff 0x151ba51c1000 - 0x151ba51c1fff 0x151ba51c2000 - 0x151ba51cffff 0x151ba51d0000 - 0x151ba51ddfff 0x151ba51de000 - 0x151ba51ebfff 0x151ba51ec000 - 0x151ba51effff 0x151ba51f0000 - 0x151ba51f0fff 0x151ba51f1000 - 0x151ba5206fff 0x151ba5207000 - 0x151ba5232fff 0x151ba5233000 - 0x151ba523bfff 0x151ba523c000 - 0x151ba523cfff 0x151ba523d000 - 0x151ba523ffff 0x151ba5240000 - 0x151ba5245fff 0x151ba5246000 - 0x151ba5248fff 0x151ba5249000 - 0x151ba5249fff 0x151ba524a000 - 0x151ba524afff 0x151ba524b000 - 0x151ba5251fff 0x151ba5252000 - 0x151ba5252fff 0x151ba5253000 - 0x151ba5273fff 0x151ba5274000 - 0x151ba527cfff 0x151ba527d000 - 0x151ba527dfff 0x151ba527e000 - 0x151ba527ffff 0x7ffca026b000 - 0x7ffca028bfff 0x7ffca0354000 - 0x7ffca0357fff 0x7ffca0358000 - 0x7ffca0359fff 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 - 0x5d4fff 0x116a000 - 0x118afff 0x100000000000 - 0x1000000bffff 0x15226c408000 - 0x15226c408fff 0x15226c409000 - 0x15226cab3fff 0x15226cab4000 - 0x15226cb08fff 0x15226cb09000 - 0x15226cb0bfff 0x15226cb0c000 - 0x15226cb31fff 0x15226cb32000 - 0x15226cc80fff 0x15226cc81000 - 0x15226ccccfff 0x15226cccd000 - 0x15226cccdfff 0x15226ccce000 - 0x15226ccd0fff 0x15226ccd1000 - 0x15226ccd3fff 0x15226ccd4000 - 0x15226ccd7fff 0x15226ccd8000 - 0x15226ccdafff 0x15226ccdb000 - 0x15226ccecfff 0x15226cced000 - 0x15226ccf0fff 0x15226ccf1000 - 0x15226ccf1fff 0x15226ccf2000 - 0x15226ccf2fff 0x15226ccf3000 - 0x15226ccf4fff 0x15226ccf5000 - 0x15226cd05fff 0x15226cd06000 - 0x15226cd3bfff 0x15226cd3c000 - 0x15226ce71fff 0x15226ce72000 - 0x15226ce72fff 0x15226ce73000 - 0x15226ce76fff 0x15226ce77000 - 0x15226ce77fff 0x15226ce78000 - 0x15226ce78fff 0x15226ce79000 - 0x15226ce7afff 0x15226ce7b000 - 0x15226ce7bfff 0x15226ce7c000 - 0x15226ce7cfff 0x15226ce7d000 - 0x15226ce7dfff 0x15226ce7e000 - 0x15226ce7ffff 0x15226ce80000 - 0x15226ce81fff 0x15226ce82000 - 0x15226ce82fff 0x15226ce83000 - 0x15226ce83fff 0x15226ce84000 - 0x15226ce84fff 0x15226ce85000 - 0x15226ce86fff 0x15226ce87000 - 0x15226ce88fff 0x15226ce89000 - 0x15226ce89fff 0x15226ce8a000 - 0x15226ce8afff 0x15226ce8b000 - 0x15226ce8bfff 0x15226ce8c000 - 0x15226ce99fff 0x15226ce9a000 - 0x15226cea7fff 0x15226cea8000 - 0x15226ceb5fff 0x15226ceb6000 - 0x15226ceb9fff 0x15226ceba000 - 0x15226cebafff 0x15226cebb000 - 0x15226ced0fff 0x15226ced1000 - 0x15226cefcfff 0x15226cefd000 - 0x15226cf05fff 0x15226cf06000 - 0x15226cf06fff 0x15226cf07000 - 0x15226cf09fff 0x15226cf0a000 - 0x15226cf0ffff 0x15226cf10000 - 0x15226cf12fff 0x15226cf13000 - 0x15226cf13fff 0x15226cf14000 - 0x15226cf14fff 0x15226cf15000 - 0x15226cf1bfff 0x15226cf1c000 - 0x15226cf1cfff 0x15226cf1d000 - 0x15226cf3dfff 0x15226cf3e000 - 0x15226cf46fff 0x15226cf47000 - 0x15226cf47fff 0x15226cf48000 - 0x15226cf49fff 0x7ffe45fe2000 - 0x7ffe46002fff 0x7ffe4614b000 - 0x7ffe4614efff 0x7ffe4614f000 - 0x7ffe46150fff 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 - 0x5d4fff 0xbfc000 - 0xc1cfff 0x100000000000 - 0x1000000bffff 0x146231596000 - 0x146231596fff 0x146231597000 - 0x146231c41fff 0x146231c42000 - 0x146231c96fff 0x146231c97000 - 0x146231c99fff 0x146231c9a000 - 0x146231cbffff 0x146231cc0000 - 0x146231e0efff 0x146231e0f000 - 0x146231e5afff 0x146231e5b000 - 0x146231e5bfff 0x146231e5c000 - 0x146231e5efff 0x146231e5f000 - 0x146231e61fff 0x146231e62000 - 0x146231e65fff 0x146231e66000 - 0x146231e68fff 0x146231e69000 - 0x146231e7afff 0x146231e7b000 - 0x146231e7efff 0x146231e7f000 - 0x146231e7ffff 0x146231e80000 - 0x146231e80fff 0x146231e81000 - 0x146231e82fff 0x146231e83000 - 0x146231e93fff 0x146231e94000 - 0x146231ec9fff 0x146231eca000 - 0x146231ffffff 0x146232000000 - 0x146232000fff 0x146232001000 - 0x146232004fff 0x146232005000 - 0x146232005fff 0x146232006000 - 0x146232006fff 0x146232007000 - 0x146232008fff 0x146232009000 - 0x146232009fff 0x14623200a000 - 0x14623200afff 0x14623200b000 - 0x14623200bfff 0x14623200c000 - 0x14623200dfff 0x14623200e000 - 0x14623200ffff 0x146232010000 - 0x146232010fff 0x146232011000 - 0x146232011fff 0x146232012000 - 0x146232012fff 0x146232013000 - 0x146232014fff 0x146232015000 - 0x146232016fff 0x146232017000 - 0x146232017fff 0x146232018000 - 0x146232018fff 0x146232019000 - 0x146232019fff 0x14623201a000 - 0x146232027fff 0x146232028000 - 0x146232035fff 0x146232036000 - 0x146232043fff 0x146232044000 - 0x146232047fff 0x146232048000 - 0x146232048fff 0x146232049000 - 0x14623205efff 0x14623205f000 - 0x14623208afff 0x14623208b000 - 0x146232093fff 0x146232094000 - 0x146232094fff 0x146232095000 - 0x146232097fff 0x146232098000 - 0x14623209dfff 0x14623209e000 - 0x1462320a0fff 0x1462320a1000 - 0x1462320a1fff 0x1462320a2000 - 0x1462320a2fff 0x1462320a3000 - 0x1462320a9fff 0x1462320aa000 - 0x1462320aafff 0x1462320ab000 - 0x1462320cbfff 0x1462320cc000 - 0x1462320d4fff 0x1462320d5000 - 0x1462320d5fff 0x1462320d6000 - 0x1462320d7fff 0x7ffe39b03000 - 0x7ffe39b23fff 0x7ffe39b9d000 - 0x7ffe39ba0fff 0x7ffe39ba1000 - 0x7ffe39ba2fff 0xffffffffff600000 - 0xffffffffff600fff #P"/proc/3056988/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 - 0x5d4fff 0xa05000 - 0xa25fff 0x100000000000 - 0x1000000bffff 0x146674233000 - 0x146674233fff 0x146674234000 - 0x1466748defff 0x1466748df000 - 0x146674933fff 0x146674934000 - 0x146674936fff 0x146674937000 - 0x14667495cfff 0x14667495d000 - 0x146674aabfff 0x146674aac000 - 0x146674af7fff 0x146674af8000 - 0x146674af8fff 0x146674af9000 - 0x146674afbfff 0x146674afc000 - 0x146674afefff 0x146674aff000 - 0x146674b02fff 0x146674b03000 - 0x146674b05fff 0x146674b06000 - 0x146674b17fff 0x146674b18000 - 0x146674b1bfff 0x146674b1c000 - 0x146674b1cfff 0x146674b1d000 - 0x146674b1dfff 0x146674b1e000 - 0x146674b1ffff 0x146674b20000 - 0x146674b30fff 0x146674b31000 - 0x146674b66fff 0x146674b67000 - 0x146674c9cfff 0x146674c9d000 - 0x146674c9dfff 0x146674c9e000 - 0x146674ca1fff 0x146674ca2000 - 0x146674ca2fff 0x146674ca3000 - 0x146674ca3fff 0x146674ca4000 - 0x146674ca5fff 0x146674ca6000 - 0x146674ca6fff 0x146674ca7000 - 0x146674ca7fff 0x146674ca8000 - 0x146674ca8fff 0x146674ca9000 - 0x146674caafff 0x146674cab000 - 0x146674cacfff 0x146674cad000 - 0x146674cadfff 0x146674cae000 - 0x146674caefff 0x146674caf000 - 0x146674caffff 0x146674cb0000 - 0x146674cb1fff 0x146674cb2000 - 0x146674cb3fff 0x146674cb4000 - 0x146674cb4fff 0x146674cb5000 - 0x146674cb5fff 0x146674cb6000 - 0x146674cb6fff 0x146674cb7000 - 0x146674cc4fff 0x146674cc5000 - 0x146674cd2fff 0x146674cd3000 - 0x146674ce0fff 0x146674ce1000 - 0x146674ce4fff 0x146674ce5000 - 0x146674ce5fff 0x146674ce6000 - 0x146674cfbfff 0x146674cfc000 - 0x146674d27fff 0x146674d28000 - 0x146674d30fff 0x146674d31000 - 0x146674d31fff 0x146674d32000 - 0x146674d34fff 0x146674d35000 - 0x146674d3afff 0x146674d3b000 - 0x146674d3dfff 0x146674d3e000 - 0x146674d3efff 0x146674d3f000 - 0x146674d3ffff 0x146674d40000 - 0x146674d46fff 0x146674d47000 - 0x146674d47fff 0x146674d48000 - 0x146674d68fff 0x146674d69000 - 0x146674d71fff 0x146674d72000 - 0x146674d72fff 0x146674d73000 - 0x146674d74fff 0x7ffd28c39000 - 0x7ffd28c59fff 0x7ffd28d95000 - 0x7ffd28d98fff 0x7ffd28d99000 - 0x7ffd28d9afff 0xffffffffff600000 - 0xffffffffff600fff #P"/proc/3056990/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x134a000 - 0x136afff 0x100000000000 - 0x1000000bffff 0x14718cfdd000 - 0x14718cfddfff 0x14718cfde000 - 0x14718cfdefff 0x14718cfdf000 - 0x14718cfdffff 0x14718cfe0000 - 0x14718cfe0fff 0x14718cfe1000 - 0x14718cfe1fff 0x14718cfe2000 - 0x14718cfe4fff 0x14718cfe5000 - 0x14718cfe5fff 0x14718cfe6000 - 0x14718cfe6fff 0x14718cfe7000 - 0x14718d691fff 0x14718d692000 - 0x14718d6e6fff 0x14718d6e7000 - 0x14718d6e9fff 0x14718d6ea000 - 0x14718d70ffff 0x14718d710000 - 0x14718d85efff 0x14718d85f000 - 0x14718d8aafff 0x14718d8ab000 - 0x14718d8abfff 0x14718d8ac000 - 0x14718d8aefff 0x14718d8af000 - 0x14718d8b1fff 0x14718d8b2000 - 0x14718d8b5fff 0x14718d8b6000 - 0x14718d8b8fff 0x14718d8b9000 - 0x14718d8cafff 0x14718d8cb000 - 0x14718d8cefff 0x14718d8cf000 - 0x14718d8cffff 0x14718d8d0000 - 0x14718d8d0fff 0x14718d8d1000 - 0x14718d8d2fff 0x14718d8d3000 - 0x14718d8e3fff 0x14718d8e4000 - 0x14718d919fff 0x14718d91a000 - 0x14718da4ffff 0x14718da50000 - 0x14718da50fff 0x14718da51000 - 0x14718da54fff 0x14718da55000 - 0x14718da55fff 0x14718da56000 - 0x14718da56fff 0x14718da57000 - 0x14718da58fff 0x14718da59000 - 0x14718da59fff 0x14718da5a000 - 0x14718da5afff 0x14718da5b000 - 0x14718da5bfff 0x14718da5c000 - 0x14718da5dfff 0x14718da5e000 - 0x14718da5ffff 0x14718da60000 - 0x14718da60fff 0x14718da61000 - 0x14718da61fff 0x14718da62000 - 0x14718da62fff 0x14718da63000 - 0x14718da64fff 0x14718da65000 - 0x14718da66fff 0x14718da67000 - 0x14718da67fff 0x14718da68000 - 0x14718da68fff 0x14718da69000 - 0x14718da69fff 0x14718da6a000 - 0x14718da77fff 0x14718da78000 - 0x14718da85fff 0x14718da86000 - 0x14718da93fff 0x14718da94000 - 0x14718da97fff 0x14718da98000 - 0x14718da98fff 0x14718da99000 - 0x14718daaefff 0x14718daaf000 - 0x14718dadafff 0x14718dadb000 - 0x14718dae3fff 0x14718dae4000 - 0x14718dae4fff 0x14718dae5000 - 0x14718dae7fff 0x14718dae8000 - 0x14718daedfff 0x14718daee000 - 0x14718daf0fff 0x14718daf1000 - 0x14718daf1fff 0x14718daf2000 - 0x14718daf2fff 0x14718daf3000 - 0x14718daf9fff 0x14718dafa000 - 0x14718dafafff 0x14718dafb000 - 0x14718db1bfff 0x14718db1c000 - 0x14718db24fff 0x14718db25000 - 0x14718db25fff 0x14718db26000 - 0x14718db27fff 0x7ffdc86e4000 - 0x7ffdc8704fff 0x7ffdc87ec000 - 0x7ffdc87effff 0x7ffdc87f0000 - 0x7ffdc87f1fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tests.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1d3f000 - 0x1d5ffff 0x100000000000 - 0x1000000bffff 0x154630fc5000 - 0x154630fc5fff 0x154630fc6000 - 0x154630fc6fff 0x154630fc7000 - 0x154630fc7fff 0x154630fc8000 - 0x154630fc8fff 0x154630fc9000 - 0x154630fc9fff 0x154630fca000 - 0x154630fccfff 0x154630fcd000 - 0x154630fcdfff 0x154630fce000 - 0x154630fcefff 0x154630fcf000 - 0x154631679fff 0x15463167a000 - 0x1546316cefff 0x1546316cf000 - 0x1546316d1fff 0x1546316d2000 - 0x1546316f7fff 0x1546316f8000 - 0x154631846fff 0x154631847000 - 0x154631892fff 0x154631893000 - 0x154631893fff 0x154631894000 - 0x154631896fff 0x154631897000 - 0x154631899fff 0x15463189a000 - 0x15463189dfff 0x15463189e000 - 0x1546318a0fff 0x1546318a1000 - 0x1546318b2fff 0x1546318b3000 - 0x1546318b6fff 0x1546318b7000 - 0x1546318b7fff 0x1546318b8000 - 0x1546318b8fff 0x1546318b9000 - 0x1546318bafff 0x1546318bb000 - 0x1546318cbfff 0x1546318cc000 - 0x154631901fff 0x154631902000 - 0x154631a37fff 0x154631a38000 - 0x154631a38fff 0x154631a39000 - 0x154631a3cfff 0x154631a3d000 - 0x154631a3dfff 0x154631a3e000 - 0x154631a3efff 0x154631a3f000 - 0x154631a40fff 0x154631a41000 - 0x154631a41fff 0x154631a42000 - 0x154631a42fff 0x154631a43000 - 0x154631a43fff 0x154631a44000 - 0x154631a45fff 0x154631a46000 - 0x154631a47fff 0x154631a48000 - 0x154631a48fff 0x154631a49000 - 0x154631a49fff 0x154631a4a000 - 0x154631a4afff 0x154631a4b000 - 0x154631a4cfff 0x154631a4d000 - 0x154631a4efff 0x154631a4f000 - 0x154631a4ffff 0x154631a50000 - 0x154631a50fff 0x154631a51000 - 0x154631a51fff 0x154631a52000 - 0x154631a5ffff 0x154631a60000 - 0x154631a6dfff 0x154631a6e000 - 0x154631a7bfff 0x154631a7c000 - 0x154631a7ffff 0x154631a80000 - 0x154631a80fff 0x154631a81000 - 0x154631a96fff 0x154631a97000 - 0x154631ac2fff 0x154631ac3000 - 0x154631acbfff 0x154631acc000 - 0x154631accfff 0x154631acd000 - 0x154631acffff 0x154631ad0000 - 0x154631ad5fff 0x154631ad6000 - 0x154631ad8fff 0x154631ad9000 - 0x154631ad9fff 0x154631ada000 - 0x154631adafff 0x154631adb000 - 0x154631ae1fff 0x154631ae2000 - 0x154631ae2fff 0x154631ae3000 - 0x154631b03fff 0x154631b04000 - 0x154631b0cfff 0x154631b0d000 - 0x154631b0dfff 0x154631b0e000 - 0x154631b0ffff 0x7ffc86371000 - 0x7ffc86391fff 0x7ffc863cf000 - 0x7ffc863d2fff 0x7ffc863d3000 - 0x7ffc863d4fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tests.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 3813868800) (memory 3814145132)" EQL-OK: T (STRINGP (SHOW (MACHINE-INSTANCE))) "buildvm-x86-07.iad2.fedoraproject.org [10.3.169.57]" 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-mlf-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst-make-load-form-demo.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst.lisp ... WARNING: (SETF FIND-CLASS): redefining class FOO in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst.lisp, was defined in top-level ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst.fas 0 errors, 1 warning ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/clos-tst.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clos-custom.fas WARNING: (SETF FIND-CLASS): redefining class FORWARD-REFERENCED-CLASS in top-level, was defined in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/listeners.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/eval20-tst-eval-when-test.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/decl.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp 29 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/ 22 2020-11-12 04:47:21 removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot.lisp" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/" EQUAL-OK: (#P"") (CHECK-LOAD "ext-clisp-tst/foo/bar/baz/zot") Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/ ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot 29 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/ 17 2020-11-12 04:47:21 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/ 17 2020-11-12 04:47:21 removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/zot" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/baz/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/bar/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/ext-clisp-tst/foo/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x1df9000 - 0x1e19fff 0x100000000000 - 0x1000000bffff 0x150b52c5b000 - 0x150b52c5dfff 0x150b52c5e000 - 0x150b52c83fff 0x150b52c84000 - 0x150b52dd2fff 0x150b52dd3000 - 0x150b52e1efff 0x150b52e1f000 - 0x150b52e1ffff 0x150b52e20000 - 0x150b52e22fff 0x150b52e23000 - 0x150b52e25fff 0x150b52e26000 - 0x150b52e29fff 0x150b52e2a000 - 0x150b52e2cfff 0x150b52e2d000 - 0x150b52e3efff 0x150b52e3f000 - 0x150b52e42fff 0x150b52e43000 - 0x150b52e43fff 0x150b52e44000 - 0x150b52e44fff 0x150b52e45000 - 0x150b52e46fff 0x150b52e47000 - 0x150b52e57fff 0x150b52e58000 - 0x150b52e8dfff 0x150b52e8e000 - 0x150b52fc3fff 0x150b52fc4000 - 0x150b52fc4fff 0x150b52fc5000 - 0x150b52fc8fff 0x150b52fc9000 - 0x150b52fc9fff 0x150b52fca000 - 0x150b52fcafff 0x150b52fcb000 - 0x150b52fccfff 0x150b52fcd000 - 0x150b52fcdfff 0x150b52fce000 - 0x150b52fcefff 0x150b52fcf000 - 0x150b52fcffff 0x150b52fd0000 - 0x150b52fd1fff 0x150b52fd2000 - 0x150b52fd3fff 0x150b52fd4000 - 0x150b52fd4fff 0x150b52fd5000 - 0x150b52fd5fff 0x150b52fd6000 - 0x150b52fd6fff 0x150b52fd7000 - 0x150b52fd8fff 0x150b52fd9000 - 0x150b52fdafff 0x150b52fdb000 - 0x150b52fdbfff 0x150b52fdc000 - 0x150b52fdcfff 0x150b52fdd000 - 0x150b52fddfff 0x150b52fde000 - 0x150b52febfff 0x150b52fec000 - 0x150b52ff9fff 0x150b52ffa000 - 0x150b53007fff 0x150b53008000 - 0x150b5300bfff 0x150b5300c000 - 0x150b5300cfff 0x150b5300d000 - 0x150b53022fff 0x150b53023000 - 0x150b5304efff 0x150b5304f000 - 0x150b53057fff 0x150b53058000 - 0x150b53058fff 0x150b53059000 - 0x150b5305bfff 0x150b5305c000 - 0x150b53061fff 0x150b53062000 - 0x150b53064fff 0x150b53066000 - 0x150b5306cfff 0x150b5306d000 - 0x150b5306dfff 0x150b5306e000 - 0x150b5306efff 0x150b5306f000 - 0x150b5308ffff 0x150b53090000 - 0x150b53098fff 0x150b53099000 - 0x150b53099fff 0x150b5309a000 - 0x150b5309bfff 0x7ffe84e02000 - 0x7ffe84e22fff 0x7ffe84efa000 - 0x7ffe84efdfff 0x7ffe84efe000 - 0x7ffe84efffff 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 - 0x5d4fff 0xe9a000 - 0xebafff 0x100000000000 - 0x1000000bffff 0x1455695b9000 - 0x1455695bbfff 0x1455695bc000 - 0x1455695e1fff 0x1455695e2000 - 0x145569730fff 0x145569731000 - 0x14556977cfff 0x14556977d000 - 0x14556977dfff 0x14556977e000 - 0x145569780fff 0x145569781000 - 0x145569783fff 0x145569784000 - 0x145569787fff 0x145569788000 - 0x14556978afff 0x14556978b000 - 0x14556979cfff 0x14556979d000 - 0x1455697a0fff 0x1455697a1000 - 0x1455697a1fff 0x1455697a2000 - 0x1455697a2fff 0x1455697a3000 - 0x1455697a4fff 0x1455697a5000 - 0x1455697b5fff 0x1455697b6000 - 0x1455697ebfff 0x1455697ec000 - 0x145569921fff 0x145569922000 - 0x145569922fff 0x145569923000 - 0x145569926fff 0x145569927000 - 0x145569927fff 0x145569928000 - 0x145569928fff 0x145569929000 - 0x14556992afff 0x14556992b000 - 0x14556992bfff 0x14556992c000 - 0x14556992cfff 0x14556992d000 - 0x14556992dfff 0x14556992e000 - 0x14556992ffff 0x145569930000 - 0x145569931fff 0x145569932000 - 0x145569932fff 0x145569933000 - 0x145569933fff 0x145569934000 - 0x145569934fff 0x145569935000 - 0x145569936fff 0x145569937000 - 0x145569938fff 0x145569939000 - 0x145569939fff 0x14556993a000 - 0x14556993afff 0x14556993b000 - 0x14556993bfff 0x14556993c000 - 0x145569949fff 0x14556994a000 - 0x145569957fff 0x145569958000 - 0x145569965fff 0x145569966000 - 0x145569969fff 0x14556996a000 - 0x14556996afff 0x14556996b000 - 0x145569980fff 0x145569981000 - 0x1455699acfff 0x1455699ad000 - 0x1455699b5fff 0x1455699b6000 - 0x1455699b6fff 0x1455699b7000 - 0x1455699b9fff 0x1455699ba000 - 0x1455699bffff 0x1455699c0000 - 0x1455699c2fff 0x1455699c4000 - 0x1455699cafff 0x1455699cb000 - 0x1455699cbfff 0x1455699cc000 - 0x1455699ccfff 0x1455699cd000 - 0x1455699edfff 0x1455699ee000 - 0x1455699f6fff 0x1455699f7000 - 0x1455699f7fff 0x1455699f8000 - 0x1455699f9fff 0x7ffee6a9d000 - 0x7ffee6abdfff 0x7ffee6bca000 - 0x7ffee6bcdfff 0x7ffee6bce000 - 0x7ffee6bcffff 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 - 0x5d4fff 0x1d4a000 - 0x1d6afff 0x100000000000 - 0x1000000bffff 0x1459b91c4000 - 0x1459b91c6fff 0x1459b91c7000 - 0x1459b91ecfff 0x1459b91ed000 - 0x1459b933bfff 0x1459b933c000 - 0x1459b9387fff 0x1459b9388000 - 0x1459b9388fff 0x1459b9389000 - 0x1459b938bfff 0x1459b938c000 - 0x1459b938efff 0x1459b938f000 - 0x1459b9392fff 0x1459b9393000 - 0x1459b9395fff 0x1459b9396000 - 0x1459b93a7fff 0x1459b93a8000 - 0x1459b93abfff 0x1459b93ac000 - 0x1459b93acfff 0x1459b93ad000 - 0x1459b93adfff 0x1459b93ae000 - 0x1459b93affff 0x1459b93b0000 - 0x1459b93c0fff 0x1459b93c1000 - 0x1459b93f6fff 0x1459b93f7000 - 0x1459b952cfff 0x1459b952d000 - 0x1459b952dfff 0x1459b952e000 - 0x1459b9531fff 0x1459b9532000 - 0x1459b9532fff 0x1459b9533000 - 0x1459b9533fff 0x1459b9534000 - 0x1459b9535fff 0x1459b9536000 - 0x1459b9536fff 0x1459b9537000 - 0x1459b9537fff 0x1459b9538000 - 0x1459b9538fff 0x1459b9539000 - 0x1459b953afff 0x1459b953b000 - 0x1459b953cfff 0x1459b953d000 - 0x1459b953dfff 0x1459b953e000 - 0x1459b953efff 0x1459b953f000 - 0x1459b953ffff 0x1459b9540000 - 0x1459b9541fff 0x1459b9542000 - 0x1459b9543fff 0x1459b9544000 - 0x1459b9544fff 0x1459b9545000 - 0x1459b9545fff 0x1459b9546000 - 0x1459b9546fff 0x1459b9547000 - 0x1459b9554fff 0x1459b9555000 - 0x1459b9562fff 0x1459b9563000 - 0x1459b9570fff 0x1459b9571000 - 0x1459b9574fff 0x1459b9575000 - 0x1459b9575fff 0x1459b9576000 - 0x1459b958bfff 0x1459b958c000 - 0x1459b95b7fff 0x1459b95b8000 - 0x1459b95c0fff 0x1459b95c1000 - 0x1459b95c1fff 0x1459b95c2000 - 0x1459b95c4fff 0x1459b95c5000 - 0x1459b95cafff 0x1459b95cb000 - 0x1459b95cdfff 0x1459b95cf000 - 0x1459b95d5fff 0x1459b95d6000 - 0x1459b95d6fff 0x1459b95d7000 - 0x1459b95d7fff 0x1459b95d8000 - 0x1459b95f8fff 0x1459b95f9000 - 0x1459b9601fff 0x1459b9602000 - 0x1459b9602fff 0x1459b9603000 - 0x1459b9604fff 0x7ffd87af2000 - 0x7ffd87b12fff 0x7ffd87b9b000 - 0x7ffd87b9efff 0x7ffd87b9f000 - 0x7ffd87ba0fff 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)))) 3057004 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 - 0x5d4fff 0x13d9000 - 0x13f9fff 0x100000000000 - 0x1000000bffff 0x153d0d896000 - 0x153d0d898fff 0x153d0d899000 - 0x153d0d8befff 0x153d0d8bf000 - 0x153d0da0dfff 0x153d0da0e000 - 0x153d0da59fff 0x153d0da5a000 - 0x153d0da5afff 0x153d0da5b000 - 0x153d0da5dfff 0x153d0da5e000 - 0x153d0da60fff 0x153d0da61000 - 0x153d0da64fff 0x153d0da65000 - 0x153d0da67fff 0x153d0da68000 - 0x153d0da79fff 0x153d0da7a000 - 0x153d0da7dfff 0x153d0da7e000 - 0x153d0da7efff 0x153d0da7f000 - 0x153d0da7ffff 0x153d0da80000 - 0x153d0da81fff 0x153d0da82000 - 0x153d0da92fff 0x153d0da93000 - 0x153d0dac8fff 0x153d0dac9000 - 0x153d0dbfefff 0x153d0dbff000 - 0x153d0dbfffff 0x153d0dc00000 - 0x153d0dc03fff 0x153d0dc04000 - 0x153d0dc04fff 0x153d0dc05000 - 0x153d0dc05fff 0x153d0dc06000 - 0x153d0dc07fff 0x153d0dc08000 - 0x153d0dc08fff 0x153d0dc09000 - 0x153d0dc09fff 0x153d0dc0a000 - 0x153d0dc0afff 0x153d0dc0b000 - 0x153d0dc0cfff 0x153d0dc0d000 - 0x153d0dc0efff 0x153d0dc0f000 - 0x153d0dc0ffff 0x153d0dc10000 - 0x153d0dc10fff 0x153d0dc11000 - 0x153d0dc11fff 0x153d0dc12000 - 0x153d0dc13fff 0x153d0dc14000 - 0x153d0dc15fff 0x153d0dc16000 - 0x153d0dc16fff 0x153d0dc17000 - 0x153d0dc17fff 0x153d0dc18000 - 0x153d0dc18fff 0x153d0dc19000 - 0x153d0dc26fff 0x153d0dc27000 - 0x153d0dc34fff 0x153d0dc35000 - 0x153d0dc42fff 0x153d0dc43000 - 0x153d0dc46fff 0x153d0dc47000 - 0x153d0dc47fff 0x153d0dc48000 - 0x153d0dc5dfff 0x153d0dc5e000 - 0x153d0dc89fff 0x153d0dc8a000 - 0x153d0dc92fff 0x153d0dc93000 - 0x153d0dc93fff 0x153d0dc94000 - 0x153d0dc96fff 0x153d0dc97000 - 0x153d0dc9cfff 0x153d0dc9d000 - 0x153d0dc9ffff 0x153d0dca1000 - 0x153d0dca7fff 0x153d0dca8000 - 0x153d0dca8fff 0x153d0dca9000 - 0x153d0dca9fff 0x153d0dcaa000 - 0x153d0dccafff 0x153d0dccb000 - 0x153d0dcd3fff 0x153d0dcd4000 - 0x153d0dcd4fff 0x153d0dcd5000 - 0x153d0dcd6fff 0x7fff61eef000 - 0x7fff61f0ffff 0x7fff61f3d000 - 0x7fff61f40fff 0x7fff61f41000 - 0x7fff61f42fff 0xffffffffff600000 - 0xffffffffff600fff EQUAL-OK: (T T T T "(quit)" NIL "[1]> ") (LET ((ARGS (LIST (CODE-CHAR (RANDOM CHAR-CODE-LIMIT)) (USER-HOMEDIR-PATHNAME) 'ARGS))) (LOOP :FOR L :IN '((LAMBDA (A B C) (CONCATENATE 'STRING "[" (SYMBOL-NAME C) " " (NAMESTRING B) " " (CHAR-NAME A) "]"))) :FOR C = (COMPILE NIL L) :DO (DISASSEMBLE C) :ALWAYS (STRING= (APPLY (COERCE L 'FUNCTION) ARGS) (SHOW (APPLY C ARGS))))) [1]> Disassembly of function NIL (CONST 0) = "[" (CONST 1) = " " (CONST 2) = " " (CONST 3) = "]" 3 required arguments 0 optional arguments No rest parameter No keyword parameters 12 byte-code instructions: 0 (CONST&PUSH 0) ; "[" 1 (LOAD&PUSH 2) 2 (CALLS2&PUSH 166) ; SYMBOL-NAME 4 (CONST&PUSH 1) ; " " 5 (LOAD&PUSH 5) 6 (CALLS2&PUSH 6) ; NAMESTRING 8 (CONST&PUSH 2) ; " " 9 (LOAD&PUSH 8) 10 (CALLS1&PUSH 48) ; CHAR-NAME 12 (CONST&PUSH 3) ; "]" 13 (CALLSR 7 19) ; STRING-CONCAT 16 (SKIP&RET 4) "[ARGS /builddir/ U00058988]" EQL-OK: T (TYPE-OF (LAMBDA (X) (DECLARE (COMPILE IDENT)) X)) EQL-OK: COMPILED-FUNCTION (SYSTEM::CLOSURE-NAME (LAMBDA (X) (DECLARE (COMPILE IDENT)) X)) EQL-OK: IDENT (LET ((L (LET ((X 12)) (DECLARE (COMPILE INCREMENT)) (LIST (LAMBDA NIL (INCF X)) (LAMBDA NIL (DECF X)))))) (LIST (EVERY #'COMPILED-FUNCTION-P L) (MAPCAR #'SYSTEM::CLOSURE-NAME L) (MAPCAR #'FUNCALL L))) EQUAL-OK: (T (INCREMENT-1 INCREMENT-2) (13 12)) (MULTIPLE-VALUE-BIND (MYPUSH MYPOP) (LET ((ACC NIL)) (VALUES (LAMBDA (X) (PUSH X ACC)) (LAMBDA NIL (POP ACC)))) (LIST (LIST (FUNCALL MYPOP) (FUNCALL MYPUSH 1) (FUNCALL MYPOP) (FUNCALL MYPOP) (FUNCALL MYPUSH 2) (FUNCALL MYPUSH 3) (FUNCALL MYPOP) (FUNCALL MYPOP) (FUNCALL MYPOP)) (LET ((PAIR (READ-FROM-STRING (WITH-STANDARD-IO-SYNTAX (LET ((*PRINT-CLOSURE* T)) (PRIN1-TO-STRING (CONS MYPUSH MYPOP))))))) (LIST (FUNCALL (CDR PAIR)) (FUNCALL (CAR PAIR) 1) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)) (FUNCALL (CAR PAIR) 2) (FUNCALL (CAR PAIR) 3) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)) (FUNCALL (CDR PAIR)))))) EQUAL-OK: ((NIL (1) 1 NIL (2) (3 2) 3 2 NIL) (NIL (1) 1 NIL (2) (3 2) 3 2 NIL)) (HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'GERMAN)) (LIST (STRING= "Bis bald!" (SYSTEM::TEXT "Bye.")) (EQ *CURRENT-LANGUAGE* 'DEUTSCH))) (ERROR (E) (PRINC-ERROR E) '(T T))) [SIMPLE-ERROR]: SYSTEM::SET-CURRENT-LANGUAGE: locales "de_DE.UTF-8" and "de_DE" are not installed on this system EQUAL-OK: (T T) (HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'FRENCH)) (LIST (STRING= "À bientôt !" (SYSTEM::TEXT "Bye.")) (STRING= *CURRENT-LANGUAGE* "FRANÇAIS"))) (ERROR (E) (PRINC-ERROR E) '(T T))) EQUAL-OK: (T T) (HANDLER-CASE (LETF ((*CURRENT-LANGUAGE* 'RUSSIAN)) (LIST (STRING= "До свидания! Не поминайте лихом!" (SYSTEM::TEXT "Bye.")) (STRING= *CURRENT-LANGUAGE* "РУССКИЙ"))) (ERROR (E) (PRINC-ERROR E) '(T T))) [SIMPLE-ERROR]: SYSTEM::SET-CURRENT-LANGUAGE: locales "ru_RU.UTF-8" and "ru_RU" are not installed on this system EQUAL-OK: (T T) (LETF ((*CURRENT-LANGUAGE* 'ENGLISH)) (LIST (STRING= "Bye." (SYSTEM::TEXT "Bye.")) (EQ *CURRENT-LANGUAGE* 'ENGLISH))) EQUAL-OK: (T T) (SYMBOLS-CLEANUP '(ANONYMIZE-COMPILED-FORM-GENSYM CHECK-LOAD TEST-DOHASH *S1* *S2* *S3* *S4*)) EQL-OK: NIL RUN-TEST: finished "ext-clisp" (0 errors out of 134 tests) RUN-TEST: started # (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-07.iad2.fedoraproject.org" "buildvm-x86-07.iad2.fedoraproject.org [10.3.169.57]" 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: 5291480 (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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/lambda-tst-function-lambda-expression-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/lambda-tst-function-lambda-expression-test.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/lambda-tst-function-lambda-expression-test.fas ... WARNING: DEFUN/DEFMACRO: redefining function FOO in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/lambda-tst-function-lambda-expression-test.fas, was defined in top-level ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-468748 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-468758 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-469039 : #:B-469041 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp1.lisp, was defined in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/bug001.lisp ... WARNING: function %F13 is not used. Misspelled or missing IGNORE declaration? EVAL: -105424 COMPILE: -105424 ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/bug001.lisp EQL-OK: T (PROGN (LOAD (MERGE-PATHNAMES "bug002.lisp" *RUN-TEST-TRUENAME*)) T) ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.fas ... WARNING: G is already compiled. ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.lisp, was defined in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-tmp1.lisp ;; Loaded file macro8-tst-donc.lisp ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-donc.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-compiled-file-p.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-compile-time-value.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-compile-time-value.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-compile-time-value.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-crlf-print-read.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-pr-kw.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-pr-kw.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/macro8-tst-test-pr-kw.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/mop-tst-defstruct-test.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/mop-aux.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/mop-aux.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/tests/hash-classes.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/pack11-tst.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-abazonk.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-abazonk-logical.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-ansi-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-ansi-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-ansi-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.fas 0 errors, 0 warnings ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-compile-file-pathname.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/loghosts ... ;; Defined logical host FOO ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-path-dir/loghosts ... ;; Defined logical host FOO ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/") ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/" (30 47 4 12 11 2020) 15) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/" (30 47 4 12 11 2020) 15) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/" (30 47 4 12 11 2020) 35) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/" (30 47 4 12 11 2020) 15) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/" (30 47 4 12 11 2020) 15) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/" (30 47 4 12 11 2020) 35) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/" (30 47 4 12 11 2020) 35)) /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/f 0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/ 35 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/ 35 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/ 15 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/ 15 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/ 35 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/ 15 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/ 15 2020-11-12 04:47:30 removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/f" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/f" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s2/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/s1/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d2/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s2/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/s1/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-my-dir/d1/" removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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"/" 3814145008 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc"))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "/etc/")))) (#P"/etc/" #P"/etc/" 3814145033 4096) (#P"/etc/" #P"/etc/" 3814145033 4096) EQL-OK: T (EQUALP (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME (DEFAULT-DIRECTORY)))) (SHOW (MULTIPLE-VALUE-LIST (PROBE-PATHNAME "")))) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/" 3814145250 4096) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/" 3814145250 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" 3814145250 0) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" 3814145250 0) (#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/test-pathname" 3814145250 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp 31 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/weird  0 2020-11-12 04:47:30 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/ 51 2020-11-12 04:47:30 removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/path-tst-good-file.lisp" removing file #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/path-tst-load-weird-dir/weird " removing directory #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp-dir/foo.lisp LOAD: A file with name #1=foo does not exist ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp-dir/foo.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp-dir/foo.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 (LET* ((OS (OPERATING-SYSTEM-TYPE)) (CPU (AND (EQUAL OS "Linux") (LET ((STREAM (RUN-SHELL-COMMAND "uname -m" :OUTPUT :STREAM))) (UNWIND-PROTECT (READ-LINE STREAM) (CLOSE STREAM)))))) (SETQ *OS* OS) (SETQ +EINVAL+ (COND ((EQUAL OS "GNU/Hurd") 1073741846) ((EQUAL OS "Haiku") (- 5 2147483648)) (T 22))) (SETQ +EPIPE+ (COND ((EQUAL OS "GNU/Hurd") 1073741856) ((EQUAL OS "Haiku") (- 24589 2147483648)) (T 32))) (SETQ +EADDRNOTAVAIL+ (COND ((EQUAL OS "GNU/Hurd") 1073741873) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 49) ((EQUAL OS "AIX") 68) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 227) ((EQUAL OS "IRIX") 236) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 126) ((EQUAL OS "Linux") 99) ((EQUAL OS "Haiku") (- 28695 2147483648)) ((EQUAL OS "CYGWIN") 125) ((EQUAL OS "Windows") 101) (T 'UNKNOWN))) (SETQ +ECONNRESET+ (COND ((EQUAL OS "GNU/Hurd") 1073741878) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 54) ((EQUAL OS "AIX") 73) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 232) ((EQUAL OS "IRIX") 131) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 131) ((EQUAL OS "Linux") 104) ((EQUAL OS "Haiku") (- 28700 2147483648)) ((EQUAL OS "CYGWIN") 104) ((EQUAL OS "Windows") 108) (T 'UNKNOWN))) (SETQ +ECONNREFUSED+ (COND ((EQUAL OS "GNU/Hurd") 1073741885) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 61) ((EQUAL OS "AIX") 79) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 239) ((EQUAL OS "IRIX") 146) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 146) ((EQUAL OS "Linux") 111) ((EQUAL OS "Haiku") (- 28704 2147483648)) ((EQUAL OS "CYGWIN") 111) ((EQUAL OS "Windows") 107) (T 'UNKNOWN))) (SETQ +ETIMEDOUT+ (COND ((EQUAL OS "GNU/Hurd") 1073741884) ((OR (EQUAL OS "FreeBSD") (EQUAL OS "DragonFly") (EQUAL OS "GNU/kFreeBSD") (EQUAL OS "NetBSD") (EQUAL OS "OpenBSD") (EQUAL OS "Darwin") (AND (EQUAL OS "Linux") (OR (EQL (SEARCH "alpha" CPU) 0) (EQL (SEARCH "sparc" CPU) 0))) (EQUAL OS "Minix")) 60) ((EQUAL OS "AIX") 78) ((OR (EQUAL OS "HP-UX") (AND (EQUAL OS "Linux") (EQL (SEARCH "parisc" CPU) 0))) 238) ((EQUAL OS "IRIX") 145) ((OR (EQUAL OS "SunOS") (AND (EQUAL OS "Linux") (EQL (SEARCH "mips" CPU) 0))) 145) ((EQUAL OS "Linux") 110) ((EQUAL OS "Haiku") (- 28704 2147483648)) ((EQUAL OS "CYGWIN") 116) ((EQUAL OS "Windows") 138) (T 'UNKNOWN))) NIL) EQL-OK: NIL (DEFPARAMETER *FILE* "socket-tst-file.test") EQL-OK: *FILE* (WITH-OPEN-FILE (S *FILE* :DIRECTION :OUTPUT) (LOOP :REPEAT 3 :DO (WRITE-LINE "abcdefghijklmnopqrstuvwxyz" S))) EQL-OK: NIL (DEFPARAMETER *S* (OPEN *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL)) EQL-OK: *S* (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S*) EQL-OK: 4 (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :NO-HANG T) EQL-OK: 4 (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :INTERACTIVE T) EQL-OK: 4 (CLOSE *S*) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S*))) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :NO-HANG T))) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :INTERACTIVE T))) EQL-OK: T (PROGN (SETQ *S* (OPEN *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T)) (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S*)) EQL-OK: 4 (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :NO-HANG T) EQL-OK: 4 (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 4) *S* :INTERACTIVE T) EQL-OK: 4 (CLOSE *S*) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S*))) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :NO-HANG T))) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T) (INTEGERP (READ-BYTE-SEQUENCE (MAKE-BYTE-ARRAY 10000) *S* :INTERACTIVE T))) EQL-OK: T (PROGN (SETQ *S* (OPEN *FILE* :DIRECTION :IO :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED NIL)) (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(65 66 67 68)) *S*))) EQL-OK: 4 (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(69 70 71 72 10)) *S*)) EQL-OK: 5 (CLOSE *S*) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :DIRECTION :INPUT) (MULTIPLE-VALUE-LIST (READ-LINE *S*))) EQUAL-OK: ("ABCDEFGH" NIL) (PROGN (SETQ *S* (OPEN *FILE* :DIRECTION :IO :ELEMENT-TYPE '(UNSIGNED-BYTE 8) :BUFFERED T)) (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(65 66 67 68)) *S*))) EQL-OK: 4 (LENGTH (WRITE-BYTE-SEQUENCE (COERCE-BYTE-ARRAY '(69 70 71 72 10)) *S*)) EQL-OK: 5 (CLOSE *S*) EQL-OK: T (WITH-OPEN-FILE (*S* *FILE* :DIRECTION :INPUT) (MULTIPLE-VALUE-LIST (READ-LINE *S*))) EQUAL-OK: ("ABCDEFGH" NIL) (DEFPARAMETER *SERVER* (SHOW (SOCKET-SERVER))) # 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-07.iad2.fedoraproject.org)" 35674) ("127.0.0.1 (localhost)" 9096) ("127.0.0.1 (buildvm-x86-07.iad2.fedoraproject.org)" 9096) ("127.0.0.1 (localhost)" 35674)) EQL-OK: T (SEARCH " (" (SOCKET-STREAM-LOCAL *SOCKET-1* T)) EQL-OK: NIL (SEARCH " (" (SOCKET-STREAM-PEER *SOCKET-1* T)) EQL-OK: NIL (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) EQL-OK: :INPUT (READ-CHAR *SOCKET-2*) EQL-OK: #\a (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) EQL-OK: NIL (CLOSE *SOCKET-1*) EQL-OK: T (SOCKET-STATUS (CONS *SOCKET-2* :INPUT) 0) EQL-OK: :EOF (CLOSE *SOCKET-2*) EQL-OK: T (MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0)) EQUAL-OK: (NIL 0) (SOCKET-SERVER-CLOSE *SERVER*) EQL-OK: NIL (CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :TIMEOUT 30) (:ECONNREFUSED 111)) [OS-ERROR]: OS-ERROR(111): Connection refused EQL-OK: T (CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :TIMEOUT 0) (:ECONNREFUSED 111)) [OS-ERROR]: OS-ERROR(111): Connection refused EQL-OK: T (CHECK-OS-ERROR (SOCKET-CONNECT 12345 "localhost" :BUFFERED NIL :TIMEOUT 0) (:ECONNREFUSED 111)) [OS-ERROR]: OS-ERROR(111): Connection refused EQL-OK: T (MULTIPLE-VALUE-BIND (RUN ARGS) (CMD-ARGS) (LET ((IS (RUN-PROGRAM RUN :ARGUMENTS (APPEND ARGS '("-q" "-q" "-x" " (let ((se (socket:socket-server))) (write-line (princ-to-string (socket:socket-server-port se))) (with-open-stream (so (socket:socket-accept se)) (write-line (lisp-implementation-version) so)) (socket:socket-server-close se)) ")) :INPUT NIL :OUTPUT :STREAM)) LOCAL REMOTE) (LOOP :UNTIL (DIGIT-CHAR-P (PEEK-CHAR NIL IS)) :DO (READ-LINE IS)) (WITH-OPEN-STREAM (SO (SOCKET-CONNECT (READ IS) "localhost" :TIMEOUT 10)) (OR (STRING= (SETQ LOCAL (LISP-IMPLEMENTATION-VERSION)) (SETQ REMOTE (READ-LINE SO))) (LIST :LOCAL LOCAL :REMOTE REMOTE))))) 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 - 0x5d4fff 0x227b000 - 0x229bfff 0x100000000000 - 0x1000000bffff 0x1535a08f9000 - 0x1535a08fbfff 0x1535a08fc000 - 0x1535a0921fff 0x1535a0922000 - 0x1535a0a70fff 0x1535a0a71000 - 0x1535a0abcfff 0x1535a0abd000 - 0x1535a0abdfff 0x1535a0abe000 - 0x1535a0ac0fff 0x1535a0ac1000 - 0x1535a0ac3fff 0x1535a0ac4000 - 0x1535a0ac7fff 0x1535a0ac8000 - 0x1535a0acafff 0x1535a0acb000 - 0x1535a0adcfff 0x1535a0add000 - 0x1535a0ae0fff 0x1535a0ae1000 - 0x1535a0ae1fff 0x1535a0ae2000 - 0x1535a0ae2fff 0x1535a0ae3000 - 0x1535a0ae4fff 0x1535a0ae5000 - 0x1535a0af5fff 0x1535a0af6000 - 0x1535a0b2bfff 0x1535a0b2c000 - 0x1535a0c61fff 0x1535a0c62000 - 0x1535a0c62fff 0x1535a0c63000 - 0x1535a0c66fff 0x1535a0c67000 - 0x1535a0c67fff 0x1535a0c68000 - 0x1535a0c68fff 0x1535a0c69000 - 0x1535a0c6afff 0x1535a0c6b000 - 0x1535a0c6bfff 0x1535a0c6c000 - 0x1535a0c6cfff 0x1535a0c6d000 - 0x1535a0c6dfff 0x1535a0c6e000 - 0x1535a0c6ffff 0x1535a0c70000 - 0x1535a0c71fff 0x1535a0c72000 - 0x1535a0c72fff 0x1535a0c73000 - 0x1535a0c73fff 0x1535a0c74000 - 0x1535a0c74fff 0x1535a0c75000 - 0x1535a0c76fff 0x1535a0c77000 - 0x1535a0c78fff 0x1535a0c79000 - 0x1535a0c79fff 0x1535a0c7a000 - 0x1535a0c7afff 0x1535a0c7b000 - 0x1535a0c7bfff 0x1535a0c7c000 - 0x1535a0c89fff 0x1535a0c8a000 - 0x1535a0c97fff 0x1535a0c98000 - 0x1535a0ca5fff 0x1535a0ca6000 - 0x1535a0ca9fff 0x1535a0caa000 - 0x1535a0caafff 0x1535a0cab000 - 0x1535a0cc0fff 0x1535a0cc1000 - 0x1535a0cecfff 0x1535a0ced000 - 0x1535a0cf5fff 0x1535a0cf6000 - 0x1535a0cf6fff 0x1535a0cf7000 - 0x1535a0cf9fff 0x1535a0cfa000 - 0x1535a0cfffff 0x1535a0d00000 - 0x1535a0d02fff 0x1535a0d04000 - 0x1535a0d0afff 0x1535a0d0b000 - 0x1535a0d0bfff 0x1535a0d0c000 - 0x1535a0d0cfff 0x1535a0d0d000 - 0x1535a0d2dfff 0x1535a0d2e000 - 0x1535a0d36fff 0x1535a0d37000 - 0x1535a0d37fff 0x1535a0d38000 - 0x1535a0d39fff 0x7ffd7cd26000 - 0x7ffd7cd46fff 0x7ffd7cd75000 - 0x7ffd7cd78fff 0x7ffd7cd79000 - 0x7ffd7cd7afff 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 0.01s0)))" (SOCKET-SERVER-PORT SE)))) :WAIT NIL :INPUT NIL :OUTPUT NIL) (UNWIND-PROTECT (WITH-OPEN-STREAM (SO (SOCKET-ACCEPT SE)) (LIST (SOCKET-STATUS SO) (WRITE-LINE "foo" SO) (SLEEP 0.02s0) (HANDLER-CASE (SOCKET-STATUS SO) (OS-ERROR (C) (PRINC 'SOCKET-STATUS-2) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) :APPEND) (T (OS-ERROR-CODE C))))) (CHECK-OS-ERROR (PROGN (WRITE-LINE "bar" SO) T) (:EPIPE 32 :ECONNRESET 104)) (HANDLER-CASE (READ-CHAR SO) (OS-ERROR (C) (PRINC 'READ-CHAR) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) T) (T (OS-ERROR-CODE C)))) (END-OF-FILE (C) (PRINC 'READ-CHAR) (PRINC-ERROR C) T)) (HANDLER-CASE (SOCKET-STATUS SO) (OS-ERROR (C) (PRINC 'SOCKET-STATUS-3) (PRINC-ERROR C) (CASE (OS-ERROR-CODE C) ((:ECONNRESET 104) :APPEND) (T (OS-ERROR-CODE C))))))) (SOCKET-SERVER-CLOSE SE)))) 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 - 0x5d4fff 0xdf5000 - 0xe15fff 0x100000000000 - 0x1000000bffff 0x1521f1689000 - 0x1521f168bfff 0x1521f168c000 - 0x1521f16b1fff 0x1521f16b2000 - 0x1521f1800fff 0x1521f1801000 - 0x1521f184cfff 0x1521f184d000 - 0x1521f184dfff 0x1521f184e000 - 0x1521f1850fff 0x1521f1851000 - 0x1521f1853fff 0x1521f1854000 - 0x1521f1857fff 0x1521f1858000 - 0x1521f185afff 0x1521f185b000 - 0x1521f186cfff 0x1521f186d000 - 0x1521f1870fff 0x1521f1871000 - 0x1521f1871fff 0x1521f1872000 - 0x1521f1872fff 0x1521f1873000 - 0x1521f1874fff 0x1521f1875000 - 0x1521f1885fff 0x1521f1886000 - 0x1521f18bbfff 0x1521f18bc000 - 0x1521f19f1fff 0x1521f19f2000 - 0x1521f19f2fff 0x1521f19f3000 - 0x1521f19f6fff 0x1521f19f7000 - 0x1521f19f7fff 0x1521f19f8000 - 0x1521f19f8fff 0x1521f19f9000 - 0x1521f19fafff 0x1521f19fb000 - 0x1521f19fbfff 0x1521f19fc000 - 0x1521f19fcfff 0x1521f19fd000 - 0x1521f19fdfff 0x1521f19fe000 - 0x1521f19fffff 0x1521f1a00000 - 0x1521f1a01fff 0x1521f1a02000 - 0x1521f1a02fff 0x1521f1a03000 - 0x1521f1a03fff 0x1521f1a04000 - 0x1521f1a04fff 0x1521f1a05000 - 0x1521f1a06fff 0x1521f1a07000 - 0x1521f1a08fff 0x1521f1a09000 - 0x1521f1a09fff 0x1521f1a0a000 - 0x1521f1a0afff 0x1521f1a0b000 - 0x1521f1a0bfff 0x1521f1a0c000 - 0x1521f1a19fff 0x1521f1a1a000 - 0x1521f1a27fff 0x1521f1a28000 - 0x1521f1a35fff 0x1521f1a36000 - 0x1521f1a39fff 0x1521f1a3a000 - 0x1521f1a3afff 0x1521f1a3b000 - 0x1521f1a50fff 0x1521f1a51000 - 0x1521f1a7cfff 0x1521f1a7d000 - 0x1521f1a85fff 0x1521f1a86000 - 0x1521f1a86fff 0x1521f1a87000 - 0x1521f1a89fff 0x1521f1a8a000 - 0x1521f1a8ffff 0x1521f1a90000 - 0x1521f1a92fff 0x1521f1a94000 - 0x1521f1a9afff 0x1521f1a9b000 - 0x1521f1a9bfff 0x1521f1a9c000 - 0x1521f1a9cfff 0x1521f1a9d000 - 0x1521f1abdfff 0x1521f1abe000 - 0x1521f1ac6fff 0x1521f1ac7000 - 0x1521f1ac7fff 0x1521f1ac8000 - 0x1521f1ac9fff 0x7ffdc7851000 - 0x7ffdc7871fff 0x7ffdc7904000 - 0x7ffdc7907fff 0x7ffdc7908000 - 0x7ffdc7909fff 0xffffffffff600000 - 0xffffffffff600fff SOCKET-STATUS-2 [OS-STREAM-ERROR]: OS-STREAM-ERROR(104): Connection reset by peer [OS-ERROR]: OS-ERROR(32): Broken pipe READ-CHAR [SIMPLE-END-OF-FILE]: READ: input stream #1=# has reached its end EQUAL-OK: (:OUTPUT "foo" NIL :APPEND T T :APPEND) (CHECK-OS-ERROR (SOCKET-CONNECT 0) (:ECONNREFUSED 111)) [OS-ERROR]: OS-ERROR(111): Connection refused EQL-OK: T (CHECK-OS-ERROR (SOCKET-SERVER 1240 :INTERFACE "[/]=") (:EINVAL 22)) [OS-ERROR]: OS-ERROR(22): Invalid argument EQL-OK: T (PROGN (MAKUNBOUND '*OS*) (UNINTERN '*OS*) (MAKUNBOUND '*SERVER*) (UNINTERN '*SERVER*) (DELETE-FILE *FILE*) (MAKUNBOUND '*FILE*) (UNINTERN '*FILE*) (MAKUNBOUND '*S*) (UNINTERN '*S*) (MAKUNBOUND '*SOCKET-1*) (UNINTERN '*SOCKET-1*) (MAKUNBOUND '*SOCKET-2*) (UNINTERN '*SOCKET-2*) (MAKUNBOUND '*SOCKET-3*) (UNINTERN '*SOCKET-3*) (MAKUNBOUND '*SOCKET-4*) (UNINTERN '*SOCKET-4*)) EQL-OK: T RUN-TEST: finished "socket" (0 errors out of 92 tests) RUN-TEST: started # (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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/config.fas WARNING: DEFUN/DEFMACRO: redefining function IMPNOTES-ROOT in top-level, was defined in /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tmp.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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: 4.963758 sec. Run time: 4.936939 sec. Space: 127793488 Bytes GC: 85, GC time: 0.41687 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300181201 10) (:GOOD 4300066700 NIL) Real time: 0.072759 sec. Run time: 0.07223 sec. Space: 1465776 Bytes GC: 1, GC time: 0.00498 sec. EQL-OK: NIL (TIME-LOOP 100000 5000000000 5000 0) (:GOOD 100000 NIL) Real time: 3.408723 sec. Run time: 3.392269 sec. Space: 127793488 Bytes GC: 85, GC time: 0.42217 sec. EQL-OK: NIL (TIME-LOOP 4300066700 4300081201 10 0) (:GOOD 4300066700 NIL) Real time: 0.004405 sec. Run time: 0.004356 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.025698 sec. Run time: 0.025389 sec. Space: 0 Bytes GC: 1, GC time: 0.025373 sec. Real time: 0.016277 sec. Run time: 0.01618 sec. Space: 0 Bytes GC: 1, GC time: 0.016162 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.023472 sec. Run time: 0.023334 sec. Space: 0 Bytes GC: 1, GC time: 0.023317 sec. Real time: 0.016232 sec. Run time: 0.016142 sec. Space: 0 Bytes GC: 1, GC time: 0.016123 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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,915 tests 1 alltest: 0 errors out of 636 tests 2 array: 0 errors out of 290 tests 3 backquot: 0 errors out of 89 tests 4 bin-io: 0 errors out of 15 tests 5 characters: 0 errors out of 221 tests 6 clos: 0 errors out of 496 tests 7 defhash: 0 errors out of 6 tests 8 encoding: 0 errors out of 36 tests 9 eval20: 0 errors out of 50 tests 10 ext-clisp: 0 errors out of 134 tests 11 ffi: 0 errors out of 263 tests 12 floeps: 0 errors out of 20 tests 13 format: 0 errors out of 307 tests 14 genstream: 0 errors out of 14 tests 15 hash: 0 errors out of 48 tests 16 hashlong: 0 errors out of 14 tests 17 hashtable: 0 errors out of 10 tests 18 iofkts: 0 errors out of 228 tests 19 lambda: 0 errors out of 90 tests 20 lists151: 0 errors out of 201 tests 21 lists152: 0 errors out of 255 tests 22 lists153: 0 errors out of 1 test 23 lists154: 0 errors out of 46 tests 24 lists155: 0 errors out of 25 tests 25 lists156: 0 errors out of 20 tests 26 list-set: 0 errors out of 10 tests 27 loop: 0 errors out of 178 tests 28 macro8: 0 errors out of 253 tests 29 map: 0 errors out of 64 tests 30 mop: 0 errors out of 225 tests 31 number: 0 errors out of 3,655 tests 32 number2: 0 errors out of 331 tests 33 pack11: 0 errors out of 211 tests 34 path: 0 errors out of 180 tests 35 readtable: 0 errors out of 27 tests 36 setf: 0 errors out of 210 tests 37 socket: 0 errors out of 92 tests 38 steele7: 0 errors out of 86 tests 39 streams: 0 errors out of 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: 42.097782 sec. Run time: 38.84973 sec. Space: 1361221160 Bytes GC: 1226, GC time: 10.155553 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0x905000 - 0x925fff 0x100000000000 - 0x1000000bffff 0x14baa5938000 - 0x14baa5938fff 0x14baa5939000 - 0x14baa5fe3fff 0x14baa5fe4000 - 0x14baa6038fff 0x14baa6039000 - 0x14baa603bfff 0x14baa603c000 - 0x14baa6061fff 0x14baa6062000 - 0x14baa61b0fff 0x14baa61b1000 - 0x14baa61fcfff 0x14baa61fd000 - 0x14baa61fdfff 0x14baa61fe000 - 0x14baa6200fff 0x14baa6201000 - 0x14baa6203fff 0x14baa6204000 - 0x14baa6207fff 0x14baa6208000 - 0x14baa620afff 0x14baa620b000 - 0x14baa621cfff 0x14baa621d000 - 0x14baa6220fff 0x14baa6221000 - 0x14baa6221fff 0x14baa6222000 - 0x14baa6222fff 0x14baa6223000 - 0x14baa6224fff 0x14baa6225000 - 0x14baa6235fff 0x14baa6236000 - 0x14baa626bfff 0x14baa626c000 - 0x14baa63a1fff 0x14baa63a2000 - 0x14baa63a2fff 0x14baa63a3000 - 0x14baa63a6fff 0x14baa63a7000 - 0x14baa63a7fff 0x14baa63a8000 - 0x14baa63a8fff 0x14baa63a9000 - 0x14baa63aafff 0x14baa63ab000 - 0x14baa63abfff 0x14baa63ac000 - 0x14baa63acfff 0x14baa63ad000 - 0x14baa63adfff 0x14baa63ae000 - 0x14baa63affff 0x14baa63b0000 - 0x14baa63b1fff 0x14baa63b2000 - 0x14baa63b2fff 0x14baa63b3000 - 0x14baa63b3fff 0x14baa63b4000 - 0x14baa63b4fff 0x14baa63b5000 - 0x14baa63b6fff 0x14baa63b7000 - 0x14baa63b8fff 0x14baa63b9000 - 0x14baa63b9fff 0x14baa63ba000 - 0x14baa63bafff 0x14baa63bb000 - 0x14baa63bbfff 0x14baa63bc000 - 0x14baa63c9fff 0x14baa63ca000 - 0x14baa63d7fff 0x14baa63d8000 - 0x14baa63e5fff 0x14baa63e6000 - 0x14baa63e9fff 0x14baa63ea000 - 0x14baa63eafff 0x14baa63eb000 - 0x14baa6400fff 0x14baa6401000 - 0x14baa642cfff 0x14baa642d000 - 0x14baa6435fff 0x14baa6436000 - 0x14baa6436fff 0x14baa6437000 - 0x14baa6439fff 0x14baa643a000 - 0x14baa643ffff 0x14baa6440000 - 0x14baa6442fff 0x14baa6443000 - 0x14baa6443fff 0x14baa6444000 - 0x14baa6444fff 0x14baa6445000 - 0x14baa644bfff 0x14baa644c000 - 0x14baa644cfff 0x14baa644d000 - 0x14baa646dfff 0x14baa646e000 - 0x14baa6476fff 0x14baa6477000 - 0x14baa6477fff 0x14baa6478000 - 0x14baa6479fff 0x7ffd52caf000 - 0x7ffd52ccffff 0x7ffd52d21000 - 0x7ffd52d24fff 0x7ffd52d25000 - 0x7ffd52d26fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tests.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp -norc"; export CLISP; cd benchmarks; make CLISP="$CLISP" clisp make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks' /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x61a000 - 0x63afff 0x100000000000 - 0x1000000bffff 0x150ec711b000 - 0x150ec711bfff 0x150ec711c000 - 0x150ec77c6fff 0x150ec77c7000 - 0x150ec781bfff 0x150ec781c000 - 0x150ec781dfff 0x150ec781e000 - 0x150ec7843fff 0x150ec7844000 - 0x150ec7992fff 0x150ec7993000 - 0x150ec79defff 0x150ec79df000 - 0x150ec79dffff 0x150ec79e0000 - 0x150ec79e2fff 0x150ec79e3000 - 0x150ec79e5fff 0x150ec79e6000 - 0x150ec79e9fff 0x150ec79ea000 - 0x150ec79ecfff 0x150ec79ed000 - 0x150ec79fefff 0x150ec79ff000 - 0x150ec7a02fff 0x150ec7a03000 - 0x150ec7a03fff 0x150ec7a04000 - 0x150ec7a04fff 0x150ec7a05000 - 0x150ec7a15fff 0x150ec7a16000 - 0x150ec7a4bfff 0x150ec7a4c000 - 0x150ec7b81fff 0x150ec7b82000 - 0x150ec7b82fff 0x150ec7b83000 - 0x150ec7b86fff 0x150ec7b87000 - 0x150ec7b87fff 0x150ec7b88000 - 0x150ec7b88fff 0x150ec7b89000 - 0x150ec7b8afff 0x150ec7b8b000 - 0x150ec7b8bfff 0x150ec7b8c000 - 0x150ec7b8cfff 0x150ec7b8d000 - 0x150ec7b8dfff 0x150ec7b8e000 - 0x150ec7b8ffff 0x150ec7b90000 - 0x150ec7b91fff 0x150ec7b92000 - 0x150ec7b93fff 0x150ec7b94000 - 0x150ec7b94fff 0x150ec7b95000 - 0x150ec7b95fff 0x150ec7b96000 - 0x150ec7b96fff 0x150ec7b97000 - 0x150ec7b98fff 0x150ec7b99000 - 0x150ec7b9afff 0x150ec7b9b000 - 0x150ec7b9bfff 0x150ec7b9c000 - 0x150ec7b9cfff 0x150ec7b9d000 - 0x150ec7b9dfff 0x150ec7b9e000 - 0x150ec7babfff 0x150ec7bac000 - 0x150ec7bb9fff 0x150ec7bba000 - 0x150ec7bc7fff 0x150ec7bc8000 - 0x150ec7bcbfff 0x150ec7bcc000 - 0x150ec7bccfff 0x150ec7bcd000 - 0x150ec7bcefff 0x150ec7bcf000 - 0x150ec7be2fff 0x150ec7be3000 - 0x150ec7bfbfff 0x150ec7bfc000 - 0x150ec7bfcfff 0x150ec7bfd000 - 0x150ec7bfdfff 0x150ec7bfe000 - 0x150ec7c06fff 0x150ec7c07000 - 0x150ec7c15fff 0x150ec7c16000 - 0x150ec7cb1fff 0x150ec7cb2000 - 0x150ec7d4afff 0x150ec7d4b000 - 0x150ec7d4bfff 0x150ec7d4c000 - 0x150ec7d4cfff 0x150ec7d4d000 - 0x150ec7d62fff 0x150ec7d63000 - 0x150ec7d8efff 0x150ec7d8f000 - 0x150ec7d97fff 0x150ec7d98000 - 0x150ec7d98fff 0x150ec7d99000 - 0x150ec7d9bfff 0x150ec7d9c000 - 0x150ec7da1fff 0x150ec7da2000 - 0x150ec7da4fff 0x150ec7da5000 - 0x150ec7da5fff 0x150ec7da6000 - 0x150ec7da6fff 0x150ec7da7000 - 0x150ec7dadfff 0x150ec7dae000 - 0x150ec7daefff 0x150ec7daf000 - 0x150ec7dcffff 0x150ec7dd0000 - 0x150ec7dd8fff 0x150ec7dd9000 - 0x150ec7dd9fff 0x150ec7dda000 - 0x150ec7ddbfff 0x7ffef7b07000 - 0x7ffef7b27fff 0x7ffef7bf7000 - 0x7ffef7bfafff 0x7ffef7bfb000 - 0x7ffef7bfcfff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x18df000 - 0x18fffff 0x100000000000 - 0x1000000bffff 0x147b3f98d000 - 0x147b3f98dfff 0x147b3f98e000 - 0x147b40038fff 0x147b40039000 - 0x147b4008dfff 0x147b4008e000 - 0x147b4008ffff 0x147b40090000 - 0x147b400b5fff 0x147b400b6000 - 0x147b40204fff 0x147b40205000 - 0x147b40250fff 0x147b40251000 - 0x147b40251fff 0x147b40252000 - 0x147b40254fff 0x147b40255000 - 0x147b40257fff 0x147b40258000 - 0x147b4025bfff 0x147b4025c000 - 0x147b4025efff 0x147b4025f000 - 0x147b40270fff 0x147b40271000 - 0x147b40274fff 0x147b40275000 - 0x147b40275fff 0x147b40276000 - 0x147b40276fff 0x147b40277000 - 0x147b40287fff 0x147b40288000 - 0x147b402bdfff 0x147b402be000 - 0x147b403f3fff 0x147b403f4000 - 0x147b403f4fff 0x147b403f5000 - 0x147b403f8fff 0x147b403f9000 - 0x147b403f9fff 0x147b403fa000 - 0x147b403fafff 0x147b403fb000 - 0x147b403fcfff 0x147b403fd000 - 0x147b403fdfff 0x147b403fe000 - 0x147b403fefff 0x147b403ff000 - 0x147b403fffff 0x147b40400000 - 0x147b40401fff 0x147b40402000 - 0x147b40403fff 0x147b40404000 - 0x147b40405fff 0x147b40406000 - 0x147b40406fff 0x147b40407000 - 0x147b40407fff 0x147b40408000 - 0x147b40408fff 0x147b40409000 - 0x147b4040afff 0x147b4040b000 - 0x147b4040cfff 0x147b4040d000 - 0x147b4040dfff 0x147b4040e000 - 0x147b4040efff 0x147b4040f000 - 0x147b4040ffff 0x147b40410000 - 0x147b4041dfff 0x147b4041e000 - 0x147b4042bfff 0x147b4042c000 - 0x147b40439fff 0x147b4043a000 - 0x147b4043dfff 0x147b4043e000 - 0x147b4043efff 0x147b4043f000 - 0x147b40440fff 0x147b40441000 - 0x147b40454fff 0x147b40455000 - 0x147b4046dfff 0x147b4046e000 - 0x147b4046efff 0x147b4046f000 - 0x147b4046ffff 0x147b40470000 - 0x147b40478fff 0x147b40479000 - 0x147b40487fff 0x147b40488000 - 0x147b40523fff 0x147b40524000 - 0x147b405bcfff 0x147b405bd000 - 0x147b405bdfff 0x147b405be000 - 0x147b405befff 0x147b405bf000 - 0x147b405d4fff 0x147b405d5000 - 0x147b40600fff 0x147b40601000 - 0x147b40609fff 0x147b4060a000 - 0x147b4060afff 0x147b4060b000 - 0x147b4060dfff 0x147b4060e000 - 0x147b40613fff 0x147b40614000 - 0x147b40616fff 0x147b40617000 - 0x147b40617fff 0x147b40618000 - 0x147b40618fff 0x147b40619000 - 0x147b4061ffff 0x147b40620000 - 0x147b40620fff 0x147b40621000 - 0x147b40641fff 0x147b40642000 - 0x147b4064afff 0x147b4064b000 - 0x147b4064bfff 0x147b4064c000 - 0x147b4064dfff 0x7ffe3965f000 - 0x7ffe3967ffff 0x7ffe39683000 - 0x7ffe39686fff 0x7ffe39687000 - 0x7ffe39688fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/acker.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/acker.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/bfib.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/bfib.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/boyer.fas 0 errors, 1 warning ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/browse.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/ctak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/ctak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/dderiv.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/dderiv.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/deriv.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/deriv.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/destru.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/destru.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/div2.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/div2.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fac.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fac.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fft.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fft.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fprint.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fread.lisp ... Define FPRINT.TST by running the FPRINT benchmark! ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/fread.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/frpoly.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/frpoly.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/puzzle.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/puzzle.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/stak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/stak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/stream.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/stream.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/tak.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/tak.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/takl.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/takl.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/takr.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/takr.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/tprint.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/tprint.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/traverse.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/traverse.fas 0 errors, 0 warnings ;; Compiling file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/benchmarks/triang.lisp ... ;; Wrote file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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.317071 sec [scaled: 0.28222191534237934] * file: "fac" > form: (fac 1000) unchecked: 402387260077093773543702433923003985719374864210714632543799910429938512398629020592044208486969404800479988610197196058631666872994808558901323829669944590997424504087073759918823627727188732519779505950995276120874975462497043601418278094646496291056393887437886487337119181045825783647849977012476632889835955735432513185323958463075557409114262417474349347553428646576611667797396668820291207379143853719588249808126867838374559731746136085379534524221586593201928090878297308431392844403281231558611036976801357304216168747609675871348312025478589320767169132448426236131412508780208000261683151027341827977704784635868170164365024153691398281264810213092761244896359928705114964975419909342221566832572080821333186116811553615836546984046708975602900950537616475847728421889679646244945160765353408198901385442487984959953319101723355556602139450399736280750137837615307127761926849034352625200015888535147331611702103968175921510907788019393178114194545257223865541461062892187960223838971476088506276862967146674697562911234082439208160153780889893964518263243671616762179168909779911903754031274622289988005195444414282012187361745992642956581746628302955570299024324153181617210465832036786906117260158783520751516284225540265170483304226143974286933061690897968482590125458327168226458066526769958652682272807075781391858178889652208164348344825993266043367660176999612831860788386150279465955131156552036093988180612138558600301435694527224206344631797460594682573103790084024432438465657245014402821885252470935190620929023136493273497565513958720559654228749774011413346962715422845862377387538230483865688976461927383814900140767310446640259899490222221765904339901886018566526485061799702356193897017860040811889729918311021171229845901641921068884387121855646124960798722908519296819372388642614839657382291123125024186649353143970137428531926649875337218940694281434118520158014123344828015051399694290153483077644569099073152433278288269864602789864321139083506217095002597389863554277196742822248757586765752344220207573630569498825087968928162753848863396909959826280956121450994871701244516461260379029309120889086942028510640182154399457156805941872748998094254742173582401063677404595741785160829230135358081840096996372524230560855903700624271243416909004153690105933983835777939410970027753472000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 elapsed: 0.12164 sec [scaled: 0.10827062008902429] * file: "acker" > form: (acker 3 5) correct: 253 elapsed: 0.030176 sec [scaled: 0.026859373822808265] > form: (acker 3 6) correct: 509 elapsed: 0.06525 sec [scaled: 0.058078411384485655] > form: (acker 3 7) correct: 1021 elapsed: 0.089257 sec [scaled: 0.07944681632099672] * file: "bfib" > form: (bfib-test) correct: 6765 elapsed: 0.217369 sec [scaled: 0.19347810274688526] * file: "ctak" > form: (ctak 18 12 6) correct: 7 elapsed: 0.334949 sec [scaled: 0.29813495501643045] * file: "stak" > form: (stak 18 12 6) correct: 7 elapsed: 0.355177 sec [scaled: 0.316139707590919] * file: "tak" > form: (tak 18 12 6) correct: 7 elapsed: 0.308987 sec [scaled: 0.2750264229648746] * file: "takl" > form: (mas-bench) correct: (7 6 5 4 3 2 1) elapsed: 0.241553 sec [scaled: 0.21500405371887607] * file: "takr" > form: (tak0 18 12 6) correct: 7 elapsed: 0.310827 sec [scaled: 0.27666418966138734] * file: "boyer" > form: (boyer-test) correct: NIL elapsed: 0.264072 sec [scaled: 0.23504800384864205] * file: "browse" > form: (browse) correct: NIL elapsed: 0.308644 sec [scaled: 0.2747211218904703] * file: "dderiv" > form: (dderiv-run) correct: NIL elapsed: 0.375851 sec [scaled: 0.3345414405711926] * file: "deriv" > form: (deriv-run) correct: NIL elapsed: 0.08282 sec [scaled: 0.07371730315499007] * file: "destru" > form: (destructive 600 50) correct: NIL elapsed: 0.207221 sec [scaled: 0.18444546337937934] * file: "div2" > form: (test-div2-iterative) correct: NIL elapsed: 0.134033 sec [scaled: 0.11930151284439489] > form: (test-div2-recursive) correct: NIL elapsed: 0.178845 sec [scaled: 0.15918825262924655] * file: "fft" > form: (fft-bench) correct: NIL elapsed: 0.322582 sec [scaled: 0.28712720461655405] * file: "fprint" > form: (fprint) correct: T elapsed: 0.313782 sec [scaled: 0.2792944073723629] * file: "fread" > form: (fread) correct: T elapsed: 0.258504 sec [scaled: 0.23009197941049933] * file: "frpoly" > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 2) correct: NIL elapsed: 0.000175 sec [scaled: 0.00015576585428789255] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 2) correct: NIL elapsed: 0.000177 sec [scaled: 0.0001575460354797542] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 2) correct: NIL elapsed: 0.000185 sec [scaled: 0.0001646667602472007] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 5) correct: NIL elapsed: 0.001572 sec [scaled: 0.0013992224168032407] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 5) correct: NIL elapsed: 0.001801 sec [scaled: 0.0016030531632713972] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 5) correct: NIL elapsed: 0.001622 sec [scaled: 0.0014437269465997814] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 10) correct: NIL elapsed: 0.017917 sec [scaled: 0.015947753207292404] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 10) correct: NIL elapsed: 0.016301 sec [scaled: 0.014509366804268209] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 10) correct: NIL elapsed: 0.014894 sec [scaled: 0.013257009335793553] > form: (pexptsq (Z 1 1 0 (Y 1 1 0 (X 1 1 0 1))) 15) correct: NIL elapsed: 0.089554 sec [scaled: 0.07971117322798817] > form: (pexptsq (Z 1 100000 0 (Y 1 100000 0 (X 1 100000 0 100000))) 15) correct: NIL elapsed: 0.041469 sec [scaled: 0.036911166922654955] > form: (pexptsq (Z 1 1.0 0 (Y 1 1.0 0 (X 1 1.0 0 1.0))) 15) correct: NIL elapsed: 0.035254 sec [scaled: 0.03137925386894494] * 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.231919 sec [scaled: 0.2064289209176786] * file: "stream" > form: (nth-prime 50) correct: 229 elapsed: 0.024448 sec [scaled: 0.021760934889316557] > form: (nth-prime 100) correct: 541 elapsed: 0.138258 sec [scaled: 0.12306214561220256] > form: (nth-prime 150) correct: 863 elapsed: 0.185966 sec [scaled: 0.16552658776286988] * file: "tprint" > form: (tprint-test 100) correct: T elapsed: 0.290663 sec [scaled: 0.2587164028850384] * file: "traverse" > form: (init-traverse) correct: NIL elapsed: 0.033154 sec [scaled: 0.029510063617490232] > form: (run-traverse) correct: NIL elapsed: 0.167944 sec [scaled: 0.14948537504300474] * file: "triang" > form: (gogogo 22) correct: NIL elapsed: 1.129967 sec [scaled: 1.0057730004121548] Real time: 7.733724 sec. Run time: 7.693224 sec. Space: 641011024 Bytes GC: 616, GC time: 1.411942 sec. * :COMPILED: 2020:11:12 04:47:55 * CLISP [2.49.93+ (2018-02-18) (built 3813868800) (memory 3814145154)] compilation 0.31707 sec 0.28222 scaled fac 0.12164 sec 0.10827 scaled acker 0.18468 sec 0.16438 scaled bfib 0.21737 sec 0.19348 scaled ctak 0.33495 sec 0.29813 scaled stak 0.35518 sec 0.31614 scaled tak 0.30899 sec 0.27503 scaled takl 0.24155 sec 0.21500 scaled takr 0.31083 sec 0.27666 scaled boyer 0.26407 sec 0.23505 scaled browse 0.30864 sec 0.27472 scaled dderiv 0.37585 sec 0.33454 scaled deriv 0.08282 sec 0.07372 scaled destru 0.20722 sec 0.18445 scaled div2 0.31288 sec 0.27849 scaled fft 0.32258 sec 0.28713 scaled fprint 0.31378 sec 0.27929 scaled fread 0.25850 sec 0.23009 scaled frpoly 0.22092 sec 0.19664 scaled puzzle 0.23192 sec 0.20643 scaled stream 0.34867 sec 0.31035 scaled tprint 0.29066 sec 0.25872 scaled traverse 0.20110 sec 0.17900 scaled triang 1.12997 sec 1.00577 scaled total 7.26185 sec 6.46370 scaled NIL Bye. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5d4fff 0xff5000 - 0x1015fff 0x100000000000 - 0x1000000bffff 0x14f2ce4d7000 - 0x14f2ce4d7fff 0x14f2ce4d8000 - 0x14f2ceb82fff 0x14f2ceb83000 - 0x14f2cebd7fff 0x14f2cebd8000 - 0x14f2cebdafff 0x14f2cebdb000 - 0x14f2cec00fff 0x14f2cec01000 - 0x14f2ced4ffff 0x14f2ced50000 - 0x14f2ced9bfff 0x14f2ced9c000 - 0x14f2ced9cfff 0x14f2ced9d000 - 0x14f2ced9ffff 0x14f2ceda0000 - 0x14f2ceda2fff 0x14f2ceda3000 - 0x14f2ceda6fff 0x14f2ceda7000 - 0x14f2ceda9fff 0x14f2cedaa000 - 0x14f2cedbbfff 0x14f2cedbc000 - 0x14f2cedbffff 0x14f2cedc0000 - 0x14f2cedc0fff 0x14f2cedc1000 - 0x14f2cedc1fff 0x14f2cedc2000 - 0x14f2cedc3fff 0x14f2cedc4000 - 0x14f2cedd4fff 0x14f2cedd5000 - 0x14f2cee0afff 0x14f2cee0b000 - 0x14f2cef40fff 0x14f2cef41000 - 0x14f2cef41fff 0x14f2cef42000 - 0x14f2cef45fff 0x14f2cef46000 - 0x14f2cef46fff 0x14f2cef47000 - 0x14f2cef47fff 0x14f2cef48000 - 0x14f2cef49fff 0x14f2cef4a000 - 0x14f2cef4afff 0x14f2cef4b000 - 0x14f2cef4bfff 0x14f2cef4c000 - 0x14f2cef4cfff 0x14f2cef4d000 - 0x14f2cef4efff 0x14f2cef4f000 - 0x14f2cef50fff 0x14f2cef51000 - 0x14f2cef51fff 0x14f2cef52000 - 0x14f2cef52fff 0x14f2cef53000 - 0x14f2cef53fff 0x14f2cef54000 - 0x14f2cef55fff 0x14f2cef56000 - 0x14f2cef57fff 0x14f2cef58000 - 0x14f2cef58fff 0x14f2cef59000 - 0x14f2cef59fff 0x14f2cef5a000 - 0x14f2cef5afff 0x14f2cef5b000 - 0x14f2cef68fff 0x14f2cef69000 - 0x14f2cef76fff 0x14f2cef77000 - 0x14f2cef84fff 0x14f2cef85000 - 0x14f2cef88fff 0x14f2cef89000 - 0x14f2cef89fff 0x14f2cef8a000 - 0x14f2cef9ffff 0x14f2cefa0000 - 0x14f2cefcbfff 0x14f2cefcc000 - 0x14f2cefd4fff 0x14f2cefd5000 - 0x14f2cefd5fff 0x14f2cefd6000 - 0x14f2cefd8fff 0x14f2cefd9000 - 0x14f2cefdefff 0x14f2cefdf000 - 0x14f2cefe1fff 0x14f2cefe2000 - 0x14f2cefe2fff 0x14f2cefe3000 - 0x14f2cefe3fff 0x14f2cefe4000 - 0x14f2cefeafff 0x14f2cefeb000 - 0x14f2cefebfff 0x14f2cefec000 - 0x14f2cf00cfff 0x14f2cf00d000 - 0x14f2cf015fff 0x14f2cf016000 - 0x14f2cf016fff 0x14f2cf017000 - 0x14f2cf018fff 0x7ffe2729e000 - 0x7ffe272befff 0x7ffe27391000 - 0x7ffe27394fff 0x7ffe27395000 - 0x7ffe27396fff 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,737,392 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,137,536 Bytes available until next GC: 780,374 3137536 ; 780374 ; 173664 ; 1 ; 107600 ; 9061 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 - 0x5d4fff 0x1462000 - 0x1482fff 0x100000000000 - 0x1000000bffff 0x14bec893d000 - 0x14bec893dfff 0x14bec893e000 - 0x14bec8fe8fff 0x14bec8fe9000 - 0x14bec903dfff 0x14bec903e000 - 0x14bec9040fff 0x14bec9041000 - 0x14bec9066fff 0x14bec9067000 - 0x14bec91b5fff 0x14bec91b6000 - 0x14bec9201fff 0x14bec9202000 - 0x14bec9202fff 0x14bec9203000 - 0x14bec9205fff 0x14bec9206000 - 0x14bec9208fff 0x14bec9209000 - 0x14bec920cfff 0x14bec920d000 - 0x14bec920ffff 0x14bec9210000 - 0x14bec9221fff 0x14bec9222000 - 0x14bec9225fff 0x14bec9226000 - 0x14bec9226fff 0x14bec9227000 - 0x14bec9227fff 0x14bec9228000 - 0x14bec9229fff 0x14bec922a000 - 0x14bec923afff 0x14bec923b000 - 0x14bec9270fff 0x14bec9271000 - 0x14bec93a6fff 0x14bec93a7000 - 0x14bec93a7fff 0x14bec93a8000 - 0x14bec93abfff 0x14bec93ac000 - 0x14bec93acfff 0x14bec93ad000 - 0x14bec93adfff 0x14bec93ae000 - 0x14bec93affff 0x14bec93b0000 - 0x14bec93b0fff 0x14bec93b1000 - 0x14bec93b1fff 0x14bec93b2000 - 0x14bec93b2fff 0x14bec93b3000 - 0x14bec93b4fff 0x14bec93b5000 - 0x14bec93b6fff 0x14bec93b7000 - 0x14bec93b7fff 0x14bec93b8000 - 0x14bec93b8fff 0x14bec93b9000 - 0x14bec93b9fff 0x14bec93ba000 - 0x14bec93bbfff 0x14bec93bc000 - 0x14bec93bdfff 0x14bec93be000 - 0x14bec93befff 0x14bec93bf000 - 0x14bec93bffff 0x14bec93c0000 - 0x14bec93c0fff 0x14bec93c1000 - 0x14bec93cefff 0x14bec93cf000 - 0x14bec93dcfff 0x14bec93dd000 - 0x14bec93eafff 0x14bec93eb000 - 0x14bec93eefff 0x14bec93ef000 - 0x14bec93effff 0x14bec93f0000 - 0x14bec9405fff 0x14bec9406000 - 0x14bec9431fff 0x14bec9432000 - 0x14bec943afff 0x14bec943b000 - 0x14bec943bfff 0x14bec943c000 - 0x14bec943efff 0x14bec943f000 - 0x14bec9444fff 0x14bec9445000 - 0x14bec9447fff 0x14bec9448000 - 0x14bec9448fff 0x14bec9449000 - 0x14bec9449fff 0x14bec944a000 - 0x14bec9450fff 0x14bec9451000 - 0x14bec9451fff 0x14bec9452000 - 0x14bec9472fff 0x14bec9473000 - 0x14bec947bfff 0x14bec947c000 - 0x14bec947cfff 0x14bec947d000 - 0x14bec947efff 0x7ffebea60000 - 0x7ffebea80fff 0x7ffebeba3000 - 0x7ffebeba6fff 0x7ffebeba7000 - 0x7ffebeba8fff 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,976 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,137,432 Bytes available until next GC: 780,288 3137432 ; 780288 ; 173664 ; 1 ; 27712 ; 7933 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 - 0x5d4fff 0x11be000 - 0x11defff 0x100000000000 - 0x1000000bffff 0x14d3858e5000 - 0x14d3858e5fff 0x14d3858e6000 - 0x14d385f90fff 0x14d385f91000 - 0x14d385fe5fff 0x14d385fe6000 - 0x14d385fe8fff 0x14d385fe9000 - 0x14d38600efff 0x14d38600f000 - 0x14d38615dfff 0x14d38615e000 - 0x14d3861a9fff 0x14d3861aa000 - 0x14d3861aafff 0x14d3861ab000 - 0x14d3861adfff 0x14d3861ae000 - 0x14d3861b0fff 0x14d3861b1000 - 0x14d3861b4fff 0x14d3861b5000 - 0x14d3861b7fff 0x14d3861b8000 - 0x14d3861c9fff 0x14d3861ca000 - 0x14d3861cdfff 0x14d3861ce000 - 0x14d3861cefff 0x14d3861cf000 - 0x14d3861cffff 0x14d3861d0000 - 0x14d3861d1fff 0x14d3861d2000 - 0x14d3861e2fff 0x14d3861e3000 - 0x14d386218fff 0x14d386219000 - 0x14d38634efff 0x14d38634f000 - 0x14d38634ffff 0x14d386350000 - 0x14d386353fff 0x14d386354000 - 0x14d386354fff 0x14d386355000 - 0x14d386355fff 0x14d386356000 - 0x14d386357fff 0x14d386358000 - 0x14d386358fff 0x14d386359000 - 0x14d386359fff 0x14d38635a000 - 0x14d38635afff 0x14d38635b000 - 0x14d38635cfff 0x14d38635d000 - 0x14d38635efff 0x14d38635f000 - 0x14d38635ffff 0x14d386360000 - 0x14d386360fff 0x14d386361000 - 0x14d386361fff 0x14d386362000 - 0x14d386363fff 0x14d386364000 - 0x14d386365fff 0x14d386366000 - 0x14d386366fff 0x14d386367000 - 0x14d386367fff 0x14d386368000 - 0x14d386368fff 0x14d386369000 - 0x14d386376fff 0x14d386377000 - 0x14d386384fff 0x14d386385000 - 0x14d386392fff 0x14d386393000 - 0x14d386396fff 0x14d386397000 - 0x14d386397fff 0x14d386398000 - 0x14d3863adfff 0x14d3863ae000 - 0x14d3863d9fff 0x14d3863da000 - 0x14d3863e2fff 0x14d3863e3000 - 0x14d3863e3fff 0x14d3863e4000 - 0x14d3863e6fff 0x14d3863e7000 - 0x14d3863ecfff 0x14d3863ed000 - 0x14d3863effff 0x14d3863f0000 - 0x14d3863f0fff 0x14d3863f1000 - 0x14d3863f1fff 0x14d3863f2000 - 0x14d3863f8fff 0x14d3863f9000 - 0x14d3863f9fff 0x14d3863fa000 - 0x14d38641afff 0x14d38641b000 - 0x14d386423fff 0x14d386424000 - 0x14d386424fff 0x14d386425000 - 0x14d386426fff 0x7ffce73cb000 - 0x7ffce73ebfff 0x7ffce73f6000 - 0x7ffce73f9fff 0x7ffce73fa000 - 0x7ffce73fbfff 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 - 0x5d4fff 0x211a000 - 0x213afff 0x100000000000 - 0x1000000bffff 0x14f8ac074000 - 0x14f8ac074fff 0x14f8ac075000 - 0x14f8ac71ffff 0x14f8ac720000 - 0x14f8ac774fff 0x14f8ac775000 - 0x14f8ac777fff 0x14f8ac778000 - 0x14f8ac79dfff 0x14f8ac79e000 - 0x14f8ac8ecfff 0x14f8ac8ed000 - 0x14f8ac938fff 0x14f8ac939000 - 0x14f8ac939fff 0x14f8ac93a000 - 0x14f8ac93cfff 0x14f8ac93d000 - 0x14f8ac93ffff 0x14f8ac940000 - 0x14f8ac943fff 0x14f8ac944000 - 0x14f8ac946fff 0x14f8ac947000 - 0x14f8ac958fff 0x14f8ac959000 - 0x14f8ac95cfff 0x14f8ac95d000 - 0x14f8ac95dfff 0x14f8ac95e000 - 0x14f8ac95efff 0x14f8ac95f000 - 0x14f8ac960fff 0x14f8ac961000 - 0x14f8ac971fff 0x14f8ac972000 - 0x14f8ac9a7fff 0x14f8ac9a8000 - 0x14f8acaddfff 0x14f8acade000 - 0x14f8acadefff 0x14f8acadf000 - 0x14f8acae2fff 0x14f8acae3000 - 0x14f8acae3fff 0x14f8acae4000 - 0x14f8acae4fff 0x14f8acae5000 - 0x14f8acae6fff 0x14f8acae7000 - 0x14f8acae7fff 0x14f8acae8000 - 0x14f8acae8fff 0x14f8acae9000 - 0x14f8acae9fff 0x14f8acaea000 - 0x14f8acaebfff 0x14f8acaec000 - 0x14f8acaedfff 0x14f8acaee000 - 0x14f8acaeefff 0x14f8acaef000 - 0x14f8acaeffff 0x14f8acaf0000 - 0x14f8acaf0fff 0x14f8acaf1000 - 0x14f8acaf2fff 0x14f8acaf3000 - 0x14f8acaf4fff 0x14f8acaf5000 - 0x14f8acaf5fff 0x14f8acaf6000 - 0x14f8acaf6fff 0x14f8acaf7000 - 0x14f8acaf7fff 0x14f8acaf8000 - 0x14f8acb05fff 0x14f8acb06000 - 0x14f8acb13fff 0x14f8acb14000 - 0x14f8acb21fff 0x14f8acb22000 - 0x14f8acb25fff 0x14f8acb26000 - 0x14f8acb26fff 0x14f8acb27000 - 0x14f8acb3cfff 0x14f8acb3d000 - 0x14f8acb68fff 0x14f8acb69000 - 0x14f8acb71fff 0x14f8acb72000 - 0x14f8acb72fff 0x14f8acb73000 - 0x14f8acb75fff 0x14f8acb76000 - 0x14f8acb7bfff 0x14f8acb7c000 - 0x14f8acb7efff 0x14f8acb7f000 - 0x14f8acb7ffff 0x14f8acb80000 - 0x14f8acb80fff 0x14f8acb81000 - 0x14f8acb87fff 0x14f8acb88000 - 0x14f8acb88fff 0x14f8acb89000 - 0x14f8acba9fff 0x14f8acbaa000 - 0x14f8acbb2fff 0x14f8acbb3000 - 0x14f8acbb3fff 0x14f8acbb4000 - 0x14f8acbb5fff 0x7fff7e727000 - 0x7fff7e747fff 0x7fff7e7bf000 - 0x7fff7e7c2fff 0x7fff7e7c3000 - 0x7fff7e7c4fff 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,738,448 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,138,592 Bytes available until next GC: 780,638 3138592 ; 780638 ; 173664 ; 1 ; 113352 ; 8655 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 - 0x5d4fff 0x1a2a000 - 0x1a4afff 0x100000000000 - 0x1000000bffff 0x14a963248000 - 0x14a963248fff 0x14a963249000 - 0x14a9638f3fff 0x14a9638f4000 - 0x14a963948fff 0x14a963949000 - 0x14a96394bfff 0x14a96394c000 - 0x14a963971fff 0x14a963972000 - 0x14a963ac0fff 0x14a963ac1000 - 0x14a963b0cfff 0x14a963b0d000 - 0x14a963b0dfff 0x14a963b0e000 - 0x14a963b10fff 0x14a963b11000 - 0x14a963b13fff 0x14a963b14000 - 0x14a963b17fff 0x14a963b18000 - 0x14a963b1afff 0x14a963b1b000 - 0x14a963b2cfff 0x14a963b2d000 - 0x14a963b30fff 0x14a963b31000 - 0x14a963b31fff 0x14a963b32000 - 0x14a963b32fff 0x14a963b33000 - 0x14a963b34fff 0x14a963b35000 - 0x14a963b45fff 0x14a963b46000 - 0x14a963b7bfff 0x14a963b7c000 - 0x14a963cb1fff 0x14a963cb2000 - 0x14a963cb2fff 0x14a963cb3000 - 0x14a963cb6fff 0x14a963cb7000 - 0x14a963cb7fff 0x14a963cb8000 - 0x14a963cb8fff 0x14a963cb9000 - 0x14a963cbafff 0x14a963cbb000 - 0x14a963cbbfff 0x14a963cbc000 - 0x14a963cbcfff 0x14a963cbd000 - 0x14a963cbdfff 0x14a963cbe000 - 0x14a963cbffff 0x14a963cc0000 - 0x14a963cc1fff 0x14a963cc2000 - 0x14a963cc2fff 0x14a963cc3000 - 0x14a963cc3fff 0x14a963cc4000 - 0x14a963cc4fff 0x14a963cc5000 - 0x14a963cc6fff 0x14a963cc7000 - 0x14a963cc8fff 0x14a963cc9000 - 0x14a963cc9fff 0x14a963cca000 - 0x14a963ccafff 0x14a963ccb000 - 0x14a963ccbfff 0x14a963ccc000 - 0x14a963cd9fff 0x14a963cda000 - 0x14a963ce7fff 0x14a963ce8000 - 0x14a963cf5fff 0x14a963cf6000 - 0x14a963cf9fff 0x14a963cfa000 - 0x14a963cfafff 0x14a963cfb000 - 0x14a963d10fff 0x14a963d11000 - 0x14a963d3cfff 0x14a963d3d000 - 0x14a963d45fff 0x14a963d46000 - 0x14a963d46fff 0x14a963d47000 - 0x14a963d49fff 0x14a963d4a000 - 0x14a963d4ffff 0x14a963d50000 - 0x14a963d52fff 0x14a963d53000 - 0x14a963d53fff 0x14a963d54000 - 0x14a963d54fff 0x14a963d55000 - 0x14a963d5bfff 0x14a963d5c000 - 0x14a963d5cfff 0x14a963d5d000 - 0x14a963d7dfff 0x14a963d7e000 - 0x14a963d86fff 0x14a963d87000 - 0x14a963d87fff 0x14a963d88000 - 0x14a963d89fff 0x7ffd90cd0000 - 0x7ffd90cf0fff 0x7ffd90d84000 - 0x7ffd90d87fff 0x7ffd90d88000 - 0x7ffd90d89fff 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 - 0x5d4fff 0x188c000 - 0x18acfff 0x100000000000 - 0x1000000bffff 0x1491fc663000 - 0x1491fc663fff 0x1491fc664000 - 0x1491fcd0efff 0x1491fcd0f000 - 0x1491fcd63fff 0x1491fcd64000 - 0x1491fcd66fff 0x1491fcd67000 - 0x1491fcd8cfff 0x1491fcd8d000 - 0x1491fcedbfff 0x1491fcedc000 - 0x1491fcf27fff 0x1491fcf28000 - 0x1491fcf28fff 0x1491fcf29000 - 0x1491fcf2bfff 0x1491fcf2c000 - 0x1491fcf2efff 0x1491fcf2f000 - 0x1491fcf32fff 0x1491fcf33000 - 0x1491fcf35fff 0x1491fcf36000 - 0x1491fcf47fff 0x1491fcf48000 - 0x1491fcf4bfff 0x1491fcf4c000 - 0x1491fcf4cfff 0x1491fcf4d000 - 0x1491fcf4dfff 0x1491fcf4e000 - 0x1491fcf4ffff 0x1491fcf50000 - 0x1491fcf60fff 0x1491fcf61000 - 0x1491fcf96fff 0x1491fcf97000 - 0x1491fd0ccfff 0x1491fd0cd000 - 0x1491fd0cdfff 0x1491fd0ce000 - 0x1491fd0d1fff 0x1491fd0d2000 - 0x1491fd0d2fff 0x1491fd0d3000 - 0x1491fd0d3fff 0x1491fd0d4000 - 0x1491fd0d5fff 0x1491fd0d6000 - 0x1491fd0d6fff 0x1491fd0d7000 - 0x1491fd0d7fff 0x1491fd0d8000 - 0x1491fd0d8fff 0x1491fd0d9000 - 0x1491fd0dafff 0x1491fd0db000 - 0x1491fd0dcfff 0x1491fd0dd000 - 0x1491fd0ddfff 0x1491fd0de000 - 0x1491fd0defff 0x1491fd0df000 - 0x1491fd0dffff 0x1491fd0e0000 - 0x1491fd0e1fff 0x1491fd0e2000 - 0x1491fd0e3fff 0x1491fd0e4000 - 0x1491fd0e4fff 0x1491fd0e5000 - 0x1491fd0e5fff 0x1491fd0e6000 - 0x1491fd0e6fff 0x1491fd0e7000 - 0x1491fd0f4fff 0x1491fd0f5000 - 0x1491fd102fff 0x1491fd103000 - 0x1491fd110fff 0x1491fd111000 - 0x1491fd114fff 0x1491fd115000 - 0x1491fd115fff 0x1491fd116000 - 0x1491fd12bfff 0x1491fd12c000 - 0x1491fd157fff 0x1491fd158000 - 0x1491fd160fff 0x1491fd161000 - 0x1491fd161fff 0x1491fd162000 - 0x1491fd164fff 0x1491fd165000 - 0x1491fd16afff 0x1491fd16b000 - 0x1491fd16dfff 0x1491fd16e000 - 0x1491fd16efff 0x1491fd16f000 - 0x1491fd16ffff 0x1491fd170000 - 0x1491fd176fff 0x1491fd177000 - 0x1491fd177fff 0x1491fd178000 - 0x1491fd198fff 0x1491fd199000 - 0x1491fd1a1fff 0x1491fd1a2000 - 0x1491fd1a2fff 0x1491fd1a3000 - 0x1491fd1a4fff 0x7fff84a2b000 - 0x7fff84a4bfff 0x7fff84b3e000 - 0x7fff84b41fff 0x7fff84b42000 - 0x7fff84b43fff 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 - 0x5d4fff 0x1d54000 - 0x1d74fff 0x100000000000 - 0x1000000bffff 0x14ad28333000 - 0x14ad28333fff 0x14ad28334000 - 0x14ad289defff 0x14ad289df000 - 0x14ad28a33fff 0x14ad28a34000 - 0x14ad28a36fff 0x14ad28a37000 - 0x14ad28a5cfff 0x14ad28a5d000 - 0x14ad28babfff 0x14ad28bac000 - 0x14ad28bf7fff 0x14ad28bf8000 - 0x14ad28bf8fff 0x14ad28bf9000 - 0x14ad28bfbfff 0x14ad28bfc000 - 0x14ad28bfefff 0x14ad28bff000 - 0x14ad28c02fff 0x14ad28c03000 - 0x14ad28c05fff 0x14ad28c06000 - 0x14ad28c17fff 0x14ad28c18000 - 0x14ad28c1bfff 0x14ad28c1c000 - 0x14ad28c1cfff 0x14ad28c1d000 - 0x14ad28c1dfff 0x14ad28c1e000 - 0x14ad28c1ffff 0x14ad28c20000 - 0x14ad28c30fff 0x14ad28c31000 - 0x14ad28c66fff 0x14ad28c67000 - 0x14ad28d9cfff 0x14ad28d9d000 - 0x14ad28d9dfff 0x14ad28d9e000 - 0x14ad28da1fff 0x14ad28da2000 - 0x14ad28da2fff 0x14ad28da3000 - 0x14ad28da3fff 0x14ad28da4000 - 0x14ad28da5fff 0x14ad28da6000 - 0x14ad28da6fff 0x14ad28da7000 - 0x14ad28da7fff 0x14ad28da8000 - 0x14ad28da8fff 0x14ad28da9000 - 0x14ad28daafff 0x14ad28dab000 - 0x14ad28dacfff 0x14ad28dad000 - 0x14ad28dadfff 0x14ad28dae000 - 0x14ad28daefff 0x14ad28daf000 - 0x14ad28daffff 0x14ad28db0000 - 0x14ad28db1fff 0x14ad28db2000 - 0x14ad28db3fff 0x14ad28db4000 - 0x14ad28db4fff 0x14ad28db5000 - 0x14ad28db5fff 0x14ad28db6000 - 0x14ad28db6fff 0x14ad28db7000 - 0x14ad28dc4fff 0x14ad28dc5000 - 0x14ad28dd2fff 0x14ad28dd3000 - 0x14ad28de0fff 0x14ad28de1000 - 0x14ad28de4fff 0x14ad28de5000 - 0x14ad28de5fff 0x14ad28de6000 - 0x14ad28dfbfff 0x14ad28dfc000 - 0x14ad28e27fff 0x14ad28e28000 - 0x14ad28e30fff 0x14ad28e31000 - 0x14ad28e31fff 0x14ad28e32000 - 0x14ad28e34fff 0x14ad28e35000 - 0x14ad28e3afff 0x14ad28e3b000 - 0x14ad28e3dfff 0x14ad28e3e000 - 0x14ad28e3efff 0x14ad28e3f000 - 0x14ad28e3ffff 0x14ad28e40000 - 0x14ad28e46fff 0x14ad28e47000 - 0x14ad28e47fff 0x14ad28e48000 - 0x14ad28e68fff 0x14ad28e69000 - 0x14ad28e71fff 0x14ad28e72000 - 0x14ad28e72fff 0x14ad28e73000 - 0x14ad28e74fff 0x7fff3efdd000 - 0x7fff3effdfff 0x7fff3f156000 - 0x7fff3f159fff 0x7fff3f15a000 - 0x7fff3f15bfff 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,737,856 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,138,000 Bytes available until next GC: 780,490 3138000 ; 780490 ; 173664 ; 1 ; 113024 ; 6730 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 - 0x5d4fff 0x1918000 - 0x1938fff 0x100000000000 - 0x1000000bffff 0x14f10e42f000 - 0x14f10e42ffff 0x14f10e430000 - 0x14f10eadafff 0x14f10eadb000 - 0x14f10eb2ffff 0x14f10eb30000 - 0x14f10eb32fff 0x14f10eb33000 - 0x14f10eb58fff 0x14f10eb59000 - 0x14f10eca7fff 0x14f10eca8000 - 0x14f10ecf3fff 0x14f10ecf4000 - 0x14f10ecf4fff 0x14f10ecf5000 - 0x14f10ecf7fff 0x14f10ecf8000 - 0x14f10ecfafff 0x14f10ecfb000 - 0x14f10ecfefff 0x14f10ecff000 - 0x14f10ed01fff 0x14f10ed02000 - 0x14f10ed13fff 0x14f10ed14000 - 0x14f10ed17fff 0x14f10ed18000 - 0x14f10ed18fff 0x14f10ed19000 - 0x14f10ed19fff 0x14f10ed1a000 - 0x14f10ed1bfff 0x14f10ed1c000 - 0x14f10ed2cfff 0x14f10ed2d000 - 0x14f10ed62fff 0x14f10ed63000 - 0x14f10ee98fff 0x14f10ee99000 - 0x14f10ee99fff 0x14f10ee9a000 - 0x14f10ee9dfff 0x14f10ee9e000 - 0x14f10ee9efff 0x14f10ee9f000 - 0x14f10ee9ffff 0x14f10eea0000 - 0x14f10eea1fff 0x14f10eea2000 - 0x14f10eea2fff 0x14f10eea3000 - 0x14f10eea3fff 0x14f10eea4000 - 0x14f10eea4fff 0x14f10eea5000 - 0x14f10eea6fff 0x14f10eea7000 - 0x14f10eea8fff 0x14f10eea9000 - 0x14f10eea9fff 0x14f10eeaa000 - 0x14f10eeaafff 0x14f10eeab000 - 0x14f10eeabfff 0x14f10eeac000 - 0x14f10eeadfff 0x14f10eeae000 - 0x14f10eeaffff 0x14f10eeb0000 - 0x14f10eeb0fff 0x14f10eeb1000 - 0x14f10eeb1fff 0x14f10eeb2000 - 0x14f10eeb2fff 0x14f10eeb3000 - 0x14f10eec0fff 0x14f10eec1000 - 0x14f10eecefff 0x14f10eecf000 - 0x14f10eedcfff 0x14f10eedd000 - 0x14f10eee0fff 0x14f10eee1000 - 0x14f10eee1fff 0x14f10eee2000 - 0x14f10eef7fff 0x14f10eef8000 - 0x14f10ef23fff 0x14f10ef24000 - 0x14f10ef2cfff 0x14f10ef2d000 - 0x14f10ef2dfff 0x14f10ef2e000 - 0x14f10ef30fff 0x14f10ef31000 - 0x14f10ef36fff 0x14f10ef37000 - 0x14f10ef39fff 0x14f10ef3a000 - 0x14f10ef3afff 0x14f10ef3b000 - 0x14f10ef3bfff 0x14f10ef3c000 - 0x14f10ef42fff 0x14f10ef43000 - 0x14f10ef43fff 0x14f10ef44000 - 0x14f10ef64fff 0x14f10ef65000 - 0x14f10ef6dfff 0x14f10ef6e000 - 0x14f10ef6efff 0x14f10ef6f000 - 0x14f10ef70fff 0x7ffcdbe88000 - 0x7ffcdbea8fff 0x7ffcdbff1000 - 0x7ffcdbff4fff 0x7ffcdbff5000 - 0x7ffcdbff6fff 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 - 0x5d4fff 0xb80000 - 0xba0fff 0x100000000000 - 0x1000000bffff 0x154295051000 - 0x154295051fff 0x154295052000 - 0x1542956fcfff 0x1542956fd000 - 0x154295751fff 0x154295752000 - 0x154295754fff 0x154295755000 - 0x15429577afff 0x15429577b000 - 0x1542958c9fff 0x1542958ca000 - 0x154295915fff 0x154295916000 - 0x154295916fff 0x154295917000 - 0x154295919fff 0x15429591a000 - 0x15429591cfff 0x15429591d000 - 0x154295920fff 0x154295921000 - 0x154295923fff 0x154295924000 - 0x154295935fff 0x154295936000 - 0x154295939fff 0x15429593a000 - 0x15429593afff 0x15429593b000 - 0x15429593bfff 0x15429593c000 - 0x15429593dfff 0x15429593e000 - 0x15429594efff 0x15429594f000 - 0x154295984fff 0x154295985000 - 0x154295abafff 0x154295abb000 - 0x154295abbfff 0x154295abc000 - 0x154295abffff 0x154295ac0000 - 0x154295ac0fff 0x154295ac1000 - 0x154295ac1fff 0x154295ac2000 - 0x154295ac3fff 0x154295ac4000 - 0x154295ac4fff 0x154295ac5000 - 0x154295ac5fff 0x154295ac6000 - 0x154295ac6fff 0x154295ac7000 - 0x154295ac8fff 0x154295ac9000 - 0x154295acafff 0x154295acb000 - 0x154295acbfff 0x154295acc000 - 0x154295accfff 0x154295acd000 - 0x154295acdfff 0x154295ace000 - 0x154295acffff 0x154295ad0000 - 0x154295ad1fff 0x154295ad2000 - 0x154295ad2fff 0x154295ad3000 - 0x154295ad3fff 0x154295ad4000 - 0x154295ad4fff 0x154295ad5000 - 0x154295ae2fff 0x154295ae3000 - 0x154295af0fff 0x154295af1000 - 0x154295afefff 0x154295aff000 - 0x154295b02fff 0x154295b03000 - 0x154295b03fff 0x154295b04000 - 0x154295b19fff 0x154295b1a000 - 0x154295b45fff 0x154295b46000 - 0x154295b4efff 0x154295b4f000 - 0x154295b4ffff 0x154295b50000 - 0x154295b52fff 0x154295b53000 - 0x154295b58fff 0x154295b59000 - 0x154295b5bfff 0x154295b5c000 - 0x154295b5cfff 0x154295b5d000 - 0x154295b5dfff 0x154295b5e000 - 0x154295b64fff 0x154295b65000 - 0x154295b65fff 0x154295b66000 - 0x154295b86fff 0x154295b87000 - 0x154295b8ffff 0x154295b90000 - 0x154295b90fff 0x154295b91000 - 0x154295b92fff 0x7fff52c5a000 - 0x7fff52c7afff 0x7fff52d90000 - 0x7fff52d93fff 0x7fff52d94000 - 0x7fff52d95fff 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 - 0x5d4fff 0x1227000 - 0x1247fff 0x100000000000 - 0x1000000bffff 0x14b8abe34000 - 0x14b8abe34fff 0x14b8abe35000 - 0x14b8ac4dffff 0x14b8ac4e0000 - 0x14b8ac534fff 0x14b8ac535000 - 0x14b8ac537fff 0x14b8ac538000 - 0x14b8ac55dfff 0x14b8ac55e000 - 0x14b8ac6acfff 0x14b8ac6ad000 - 0x14b8ac6f8fff 0x14b8ac6f9000 - 0x14b8ac6f9fff 0x14b8ac6fa000 - 0x14b8ac6fcfff 0x14b8ac6fd000 - 0x14b8ac6fffff 0x14b8ac700000 - 0x14b8ac703fff 0x14b8ac704000 - 0x14b8ac706fff 0x14b8ac707000 - 0x14b8ac718fff 0x14b8ac719000 - 0x14b8ac71cfff 0x14b8ac71d000 - 0x14b8ac71dfff 0x14b8ac71e000 - 0x14b8ac71efff 0x14b8ac71f000 - 0x14b8ac720fff 0x14b8ac721000 - 0x14b8ac731fff 0x14b8ac732000 - 0x14b8ac767fff 0x14b8ac768000 - 0x14b8ac89dfff 0x14b8ac89e000 - 0x14b8ac89efff 0x14b8ac89f000 - 0x14b8ac8a2fff 0x14b8ac8a3000 - 0x14b8ac8a3fff 0x14b8ac8a4000 - 0x14b8ac8a4fff 0x14b8ac8a5000 - 0x14b8ac8a6fff 0x14b8ac8a7000 - 0x14b8ac8a7fff 0x14b8ac8a8000 - 0x14b8ac8a8fff 0x14b8ac8a9000 - 0x14b8ac8a9fff 0x14b8ac8aa000 - 0x14b8ac8abfff 0x14b8ac8ac000 - 0x14b8ac8adfff 0x14b8ac8ae000 - 0x14b8ac8aefff 0x14b8ac8af000 - 0x14b8ac8affff 0x14b8ac8b0000 - 0x14b8ac8b0fff 0x14b8ac8b1000 - 0x14b8ac8b2fff 0x14b8ac8b3000 - 0x14b8ac8b4fff 0x14b8ac8b5000 - 0x14b8ac8b5fff 0x14b8ac8b6000 - 0x14b8ac8b6fff 0x14b8ac8b7000 - 0x14b8ac8b7fff 0x14b8ac8b8000 - 0x14b8ac8c5fff 0x14b8ac8c6000 - 0x14b8ac8d3fff 0x14b8ac8d4000 - 0x14b8ac8e1fff 0x14b8ac8e2000 - 0x14b8ac8e5fff 0x14b8ac8e6000 - 0x14b8ac8e6fff 0x14b8ac8e7000 - 0x14b8ac8fcfff 0x14b8ac8fd000 - 0x14b8ac928fff 0x14b8ac929000 - 0x14b8ac931fff 0x14b8ac932000 - 0x14b8ac932fff 0x14b8ac933000 - 0x14b8ac935fff 0x14b8ac936000 - 0x14b8ac93bfff 0x14b8ac93c000 - 0x14b8ac93efff 0x14b8ac93f000 - 0x14b8ac93ffff 0x14b8ac940000 - 0x14b8ac940fff 0x14b8ac941000 - 0x14b8ac947fff 0x14b8ac948000 - 0x14b8ac948fff 0x14b8ac949000 - 0x14b8ac969fff 0x14b8ac96a000 - 0x14b8ac972fff 0x14b8ac973000 - 0x14b8ac973fff 0x14b8ac974000 - 0x14b8ac975fff 0x7ffea2bd0000 - 0x7ffea2bf0fff 0x7ffea2bf8000 - 0x7ffea2bfbfff 0x7ffea2bfc000 - 0x7ffea2bfdfff 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,738,648 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,138,792 Bytes available until next GC: 780,688 3138792 ; 780688 ; 173664 ; 1 ; 113320 ; 6721 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 - 0x5d4fff 0x246f000 - 0x248ffff 0x100000000000 - 0x1000000bffff 0x14c3bc665000 - 0x14c3bc665fff 0x14c3bc666000 - 0x14c3bcd10fff 0x14c3bcd11000 - 0x14c3bcd65fff 0x14c3bcd66000 - 0x14c3bcd68fff 0x14c3bcd69000 - 0x14c3bcd8efff 0x14c3bcd8f000 - 0x14c3bceddfff 0x14c3bcede000 - 0x14c3bcf29fff 0x14c3bcf2a000 - 0x14c3bcf2afff 0x14c3bcf2b000 - 0x14c3bcf2dfff 0x14c3bcf2e000 - 0x14c3bcf30fff 0x14c3bcf31000 - 0x14c3bcf34fff 0x14c3bcf35000 - 0x14c3bcf37fff 0x14c3bcf38000 - 0x14c3bcf49fff 0x14c3bcf4a000 - 0x14c3bcf4dfff 0x14c3bcf4e000 - 0x14c3bcf4efff 0x14c3bcf4f000 - 0x14c3bcf4ffff 0x14c3bcf50000 - 0x14c3bcf51fff 0x14c3bcf52000 - 0x14c3bcf62fff 0x14c3bcf63000 - 0x14c3bcf98fff 0x14c3bcf99000 - 0x14c3bd0cefff 0x14c3bd0cf000 - 0x14c3bd0cffff 0x14c3bd0d0000 - 0x14c3bd0d3fff 0x14c3bd0d4000 - 0x14c3bd0d4fff 0x14c3bd0d5000 - 0x14c3bd0d5fff 0x14c3bd0d6000 - 0x14c3bd0d7fff 0x14c3bd0d8000 - 0x14c3bd0d8fff 0x14c3bd0d9000 - 0x14c3bd0d9fff 0x14c3bd0da000 - 0x14c3bd0dafff 0x14c3bd0db000 - 0x14c3bd0dcfff 0x14c3bd0dd000 - 0x14c3bd0defff 0x14c3bd0df000 - 0x14c3bd0dffff 0x14c3bd0e0000 - 0x14c3bd0e0fff 0x14c3bd0e1000 - 0x14c3bd0e1fff 0x14c3bd0e2000 - 0x14c3bd0e3fff 0x14c3bd0e4000 - 0x14c3bd0e5fff 0x14c3bd0e6000 - 0x14c3bd0e6fff 0x14c3bd0e7000 - 0x14c3bd0e7fff 0x14c3bd0e8000 - 0x14c3bd0e8fff 0x14c3bd0e9000 - 0x14c3bd0f6fff 0x14c3bd0f7000 - 0x14c3bd104fff 0x14c3bd105000 - 0x14c3bd112fff 0x14c3bd113000 - 0x14c3bd116fff 0x14c3bd117000 - 0x14c3bd117fff 0x14c3bd118000 - 0x14c3bd12dfff 0x14c3bd12e000 - 0x14c3bd159fff 0x14c3bd15a000 - 0x14c3bd162fff 0x14c3bd163000 - 0x14c3bd163fff 0x14c3bd164000 - 0x14c3bd166fff 0x14c3bd167000 - 0x14c3bd16cfff 0x14c3bd16d000 - 0x14c3bd16ffff 0x14c3bd170000 - 0x14c3bd170fff 0x14c3bd171000 - 0x14c3bd171fff 0x14c3bd172000 - 0x14c3bd178fff 0x14c3bd179000 - 0x14c3bd179fff 0x14c3bd17a000 - 0x14c3bd19afff 0x14c3bd19b000 - 0x14c3bd1a3fff 0x14c3bd1a4000 - 0x14c3bd1a4fff 0x14c3bd1a5000 - 0x14c3bd1a6fff 0x7ffea985b000 - 0x7ffea987bfff 0x7ffea99eb000 - 0x7ffea99eefff 0x7ffea99ef000 - 0x7ffea99f0fff 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 - 0x5d4fff 0x73e000 - 0x75efff 0x100000000000 - 0x1000000bffff 0x14f669425000 - 0x14f669425fff 0x14f669426000 - 0x14f669ad0fff 0x14f669ad1000 - 0x14f669b25fff 0x14f669b26000 - 0x14f669b28fff 0x14f669b29000 - 0x14f669b4efff 0x14f669b4f000 - 0x14f669c9dfff 0x14f669c9e000 - 0x14f669ce9fff 0x14f669cea000 - 0x14f669ceafff 0x14f669ceb000 - 0x14f669cedfff 0x14f669cee000 - 0x14f669cf0fff 0x14f669cf1000 - 0x14f669cf4fff 0x14f669cf5000 - 0x14f669cf7fff 0x14f669cf8000 - 0x14f669d09fff 0x14f669d0a000 - 0x14f669d0dfff 0x14f669d0e000 - 0x14f669d0efff 0x14f669d0f000 - 0x14f669d0ffff 0x14f669d10000 - 0x14f669d11fff 0x14f669d12000 - 0x14f669d22fff 0x14f669d23000 - 0x14f669d58fff 0x14f669d59000 - 0x14f669e8efff 0x14f669e8f000 - 0x14f669e8ffff 0x14f669e90000 - 0x14f669e93fff 0x14f669e94000 - 0x14f669e94fff 0x14f669e95000 - 0x14f669e95fff 0x14f669e96000 - 0x14f669e97fff 0x14f669e98000 - 0x14f669e98fff 0x14f669e99000 - 0x14f669e99fff 0x14f669e9a000 - 0x14f669e9afff 0x14f669e9b000 - 0x14f669e9cfff 0x14f669e9d000 - 0x14f669e9efff 0x14f669e9f000 - 0x14f669e9ffff 0x14f669ea0000 - 0x14f669ea0fff 0x14f669ea1000 - 0x14f669ea1fff 0x14f669ea2000 - 0x14f669ea3fff 0x14f669ea4000 - 0x14f669ea5fff 0x14f669ea6000 - 0x14f669ea6fff 0x14f669ea7000 - 0x14f669ea7fff 0x14f669ea8000 - 0x14f669ea8fff 0x14f669ea9000 - 0x14f669eb6fff 0x14f669eb7000 - 0x14f669ec4fff 0x14f669ec5000 - 0x14f669ed2fff 0x14f669ed3000 - 0x14f669ed6fff 0x14f669ed7000 - 0x14f669ed7fff 0x14f669ed8000 - 0x14f669eedfff 0x14f669eee000 - 0x14f669f19fff 0x14f669f1a000 - 0x14f669f22fff 0x14f669f23000 - 0x14f669f23fff 0x14f669f24000 - 0x14f669f26fff 0x14f669f27000 - 0x14f669f2cfff 0x14f669f2d000 - 0x14f669f2ffff 0x14f669f30000 - 0x14f669f30fff 0x14f669f31000 - 0x14f669f31fff 0x14f669f32000 - 0x14f669f38fff 0x14f669f39000 - 0x14f669f39fff 0x14f669f3a000 - 0x14f669f5afff 0x14f669f5b000 - 0x14f669f63fff 0x14f669f64000 - 0x14f669f64fff 0x14f669f65000 - 0x14f669f66fff 0x7ffd819e9000 - 0x7ffd81a09fff 0x7ffd81aa2000 - 0x7ffd81aa5fff 0x7ffd81aa6000 - 0x7ffd81aa7fff 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 - 0x5d4fff 0x1521000 - 0x1541fff 0x100000000000 - 0x1000000bffff 0x1529c05ff000 - 0x1529c05fffff 0x1529c0600000 - 0x1529c0caafff 0x1529c0cab000 - 0x1529c0cfffff 0x1529c0d00000 - 0x1529c0d02fff 0x1529c0d03000 - 0x1529c0d28fff 0x1529c0d29000 - 0x1529c0e77fff 0x1529c0e78000 - 0x1529c0ec3fff 0x1529c0ec4000 - 0x1529c0ec4fff 0x1529c0ec5000 - 0x1529c0ec7fff 0x1529c0ec8000 - 0x1529c0ecafff 0x1529c0ecb000 - 0x1529c0ecefff 0x1529c0ecf000 - 0x1529c0ed1fff 0x1529c0ed2000 - 0x1529c0ee3fff 0x1529c0ee4000 - 0x1529c0ee7fff 0x1529c0ee8000 - 0x1529c0ee8fff 0x1529c0ee9000 - 0x1529c0ee9fff 0x1529c0eea000 - 0x1529c0eebfff 0x1529c0eec000 - 0x1529c0efcfff 0x1529c0efd000 - 0x1529c0f32fff 0x1529c0f33000 - 0x1529c1068fff 0x1529c1069000 - 0x1529c1069fff 0x1529c106a000 - 0x1529c106dfff 0x1529c106e000 - 0x1529c106efff 0x1529c106f000 - 0x1529c106ffff 0x1529c1070000 - 0x1529c1071fff 0x1529c1072000 - 0x1529c1072fff 0x1529c1073000 - 0x1529c1073fff 0x1529c1074000 - 0x1529c1074fff 0x1529c1075000 - 0x1529c1076fff 0x1529c1077000 - 0x1529c1078fff 0x1529c1079000 - 0x1529c1079fff 0x1529c107a000 - 0x1529c107afff 0x1529c107b000 - 0x1529c107bfff 0x1529c107c000 - 0x1529c107dfff 0x1529c107e000 - 0x1529c107ffff 0x1529c1080000 - 0x1529c1080fff 0x1529c1081000 - 0x1529c1081fff 0x1529c1082000 - 0x1529c1082fff 0x1529c1083000 - 0x1529c1090fff 0x1529c1091000 - 0x1529c109efff 0x1529c109f000 - 0x1529c10acfff 0x1529c10ad000 - 0x1529c10b0fff 0x1529c10b1000 - 0x1529c10b1fff 0x1529c10b2000 - 0x1529c10c7fff 0x1529c10c8000 - 0x1529c10f3fff 0x1529c10f4000 - 0x1529c10fcfff 0x1529c10fd000 - 0x1529c10fdfff 0x1529c10fe000 - 0x1529c1100fff 0x1529c1101000 - 0x1529c1106fff 0x1529c1107000 - 0x1529c1109fff 0x1529c110a000 - 0x1529c110afff 0x1529c110b000 - 0x1529c110bfff 0x1529c110c000 - 0x1529c1112fff 0x1529c1113000 - 0x1529c1113fff 0x1529c1114000 - 0x1529c1134fff 0x1529c1135000 - 0x1529c113dfff 0x1529c113e000 - 0x1529c113efff 0x1529c113f000 - 0x1529c1140fff 0x7ffff6cf8000 - 0x7ffff6d18fff 0x7ffff6df1000 - 0x7ffff6df4fff 0x7ffff6df5000 - 0x7ffff6df6fff 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,740,576 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,140,720 Bytes available until next GC: 781,170 3140720 ; 781170 ; 173664 ; 1 ; 114864 ; 6922 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 - 0x5d4fff 0xc02000 - 0xc22fff 0x100000000000 - 0x1000000bffff 0x1534a06f2000 - 0x1534a06f2fff 0x1534a06f3000 - 0x1534a0d9dfff 0x1534a0d9e000 - 0x1534a0df2fff 0x1534a0df3000 - 0x1534a0df5fff 0x1534a0df6000 - 0x1534a0e1bfff 0x1534a0e1c000 - 0x1534a0f6afff 0x1534a0f6b000 - 0x1534a0fb6fff 0x1534a0fb7000 - 0x1534a0fb7fff 0x1534a0fb8000 - 0x1534a0fbafff 0x1534a0fbb000 - 0x1534a0fbdfff 0x1534a0fbe000 - 0x1534a0fc1fff 0x1534a0fc2000 - 0x1534a0fc4fff 0x1534a0fc5000 - 0x1534a0fd6fff 0x1534a0fd7000 - 0x1534a0fdafff 0x1534a0fdb000 - 0x1534a0fdbfff 0x1534a0fdc000 - 0x1534a0fdcfff 0x1534a0fdd000 - 0x1534a0fdefff 0x1534a0fdf000 - 0x1534a0feffff 0x1534a0ff0000 - 0x1534a1025fff 0x1534a1026000 - 0x1534a115bfff 0x1534a115c000 - 0x1534a115cfff 0x1534a115d000 - 0x1534a1160fff 0x1534a1161000 - 0x1534a1161fff 0x1534a1162000 - 0x1534a1162fff 0x1534a1163000 - 0x1534a1164fff 0x1534a1165000 - 0x1534a1165fff 0x1534a1166000 - 0x1534a1166fff 0x1534a1167000 - 0x1534a1167fff 0x1534a1168000 - 0x1534a1169fff 0x1534a116a000 - 0x1534a116bfff 0x1534a116c000 - 0x1534a116cfff 0x1534a116d000 - 0x1534a116dfff 0x1534a116e000 - 0x1534a116efff 0x1534a116f000 - 0x1534a1170fff 0x1534a1171000 - 0x1534a1172fff 0x1534a1173000 - 0x1534a1173fff 0x1534a1174000 - 0x1534a1174fff 0x1534a1175000 - 0x1534a1175fff 0x1534a1176000 - 0x1534a1183fff 0x1534a1184000 - 0x1534a1191fff 0x1534a1192000 - 0x1534a119ffff 0x1534a11a0000 - 0x1534a11a3fff 0x1534a11a4000 - 0x1534a11a4fff 0x1534a11a5000 - 0x1534a11bafff 0x1534a11bb000 - 0x1534a11e6fff 0x1534a11e7000 - 0x1534a11effff 0x1534a11f0000 - 0x1534a11f0fff 0x1534a11f1000 - 0x1534a11f3fff 0x1534a11f4000 - 0x1534a11f9fff 0x1534a11fa000 - 0x1534a11fcfff 0x1534a11fd000 - 0x1534a11fdfff 0x1534a11fe000 - 0x1534a11fefff 0x1534a11ff000 - 0x1534a1205fff 0x1534a1206000 - 0x1534a1206fff 0x1534a1207000 - 0x1534a1227fff 0x1534a1228000 - 0x1534a1230fff 0x1534a1231000 - 0x1534a1231fff 0x1534a1232000 - 0x1534a1233fff 0x7ffcfaaba000 - 0x7ffcfaadafff 0x7ffcfab4a000 - 0x7ffcfab4dfff 0x7ffcfab4e000 - 0x7ffcfab4ffff 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 - 0x5d4fff 0x2479000 - 0x2499fff 0x100000000000 - 0x1000000bffff 0x151b2b50d000 - 0x151b2b50dfff 0x151b2b50e000 - 0x151b2bbb8fff 0x151b2bbb9000 - 0x151b2bc0dfff 0x151b2bc0e000 - 0x151b2bc10fff 0x151b2bc11000 - 0x151b2bc36fff 0x151b2bc37000 - 0x151b2bd85fff 0x151b2bd86000 - 0x151b2bdd1fff 0x151b2bdd2000 - 0x151b2bdd2fff 0x151b2bdd3000 - 0x151b2bdd5fff 0x151b2bdd6000 - 0x151b2bdd8fff 0x151b2bdd9000 - 0x151b2bddcfff 0x151b2bddd000 - 0x151b2bddffff 0x151b2bde0000 - 0x151b2bdf1fff 0x151b2bdf2000 - 0x151b2bdf5fff 0x151b2bdf6000 - 0x151b2bdf6fff 0x151b2bdf7000 - 0x151b2bdf7fff 0x151b2bdf8000 - 0x151b2bdf9fff 0x151b2bdfa000 - 0x151b2be0afff 0x151b2be0b000 - 0x151b2be40fff 0x151b2be41000 - 0x151b2bf76fff 0x151b2bf77000 - 0x151b2bf77fff 0x151b2bf78000 - 0x151b2bf7bfff 0x151b2bf7c000 - 0x151b2bf7cfff 0x151b2bf7d000 - 0x151b2bf7dfff 0x151b2bf7e000 - 0x151b2bf7ffff 0x151b2bf80000 - 0x151b2bf80fff 0x151b2bf81000 - 0x151b2bf81fff 0x151b2bf82000 - 0x151b2bf82fff 0x151b2bf83000 - 0x151b2bf84fff 0x151b2bf85000 - 0x151b2bf86fff 0x151b2bf87000 - 0x151b2bf87fff 0x151b2bf88000 - 0x151b2bf88fff 0x151b2bf89000 - 0x151b2bf89fff 0x151b2bf8a000 - 0x151b2bf8bfff 0x151b2bf8c000 - 0x151b2bf8dfff 0x151b2bf8e000 - 0x151b2bf8efff 0x151b2bf8f000 - 0x151b2bf8ffff 0x151b2bf90000 - 0x151b2bf90fff 0x151b2bf91000 - 0x151b2bf9efff 0x151b2bf9f000 - 0x151b2bfacfff 0x151b2bfad000 - 0x151b2bfbafff 0x151b2bfbb000 - 0x151b2bfbefff 0x151b2bfbf000 - 0x151b2bfbffff 0x151b2bfc0000 - 0x151b2bfd5fff 0x151b2bfd6000 - 0x151b2c001fff 0x151b2c002000 - 0x151b2c00afff 0x151b2c00b000 - 0x151b2c00bfff 0x151b2c00c000 - 0x151b2c00efff 0x151b2c00f000 - 0x151b2c014fff 0x151b2c015000 - 0x151b2c017fff 0x151b2c018000 - 0x151b2c018fff 0x151b2c019000 - 0x151b2c019fff 0x151b2c01a000 - 0x151b2c020fff 0x151b2c021000 - 0x151b2c021fff 0x151b2c022000 - 0x151b2c042fff 0x151b2c043000 - 0x151b2c04bfff 0x151b2c04c000 - 0x151b2c04cfff 0x151b2c04d000 - 0x151b2c04efff 0x7ffd65861000 - 0x7ffd65881fff 0x7ffd658a0000 - 0x7ffd658a3fff 0x7ffd658a4000 - 0x7ffd658a5fff 0xffffffffff600000 - 0xffffffffff600fff *** - myerror ls -l lisp.run lispinit.mem image image.mem -rwxr-xr-x. 1 mockbuild mock 12740576 Nov 12 04:48 image -rw-r--r--. 1 mockbuild mock 3313976 Nov 12 04:48 image.mem -rwxr-xr-x. 1 mockbuild mock 9423264 Nov 12 04:45 lisp.run -rw-r--r--. 1 mockbuild mock 3323680 Nov 12 04:45 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 - 0x5fafff 0x1a8f000 - 0x1aaffff 0x100000000000 - 0x1000000bffff 0x14cc79177000 - 0x14cc79177fff 0x14cc79178000 - 0x14cc79822fff 0x14cc79823000 - 0x14cc79877fff 0x14cc79878000 - 0x14cc79879fff 0x14cc7987a000 - 0x14cc7989ffff 0x14cc798a0000 - 0x14cc799eefff 0x14cc799ef000 - 0x14cc79a3afff 0x14cc79a3b000 - 0x14cc79a3bfff 0x14cc79a3c000 - 0x14cc79a3efff 0x14cc79a3f000 - 0x14cc79a41fff 0x14cc79a42000 - 0x14cc79a45fff 0x14cc79a46000 - 0x14cc79a48fff 0x14cc79a49000 - 0x14cc79a5afff 0x14cc79a5b000 - 0x14cc79a5efff 0x14cc79a5f000 - 0x14cc79a5ffff 0x14cc79a60000 - 0x14cc79a60fff 0x14cc79a61000 - 0x14cc79a71fff 0x14cc79a72000 - 0x14cc79aa7fff 0x14cc79aa8000 - 0x14cc79bddfff 0x14cc79bde000 - 0x14cc79bdefff 0x14cc79bdf000 - 0x14cc79be2fff 0x14cc79be3000 - 0x14cc79be3fff 0x14cc79be4000 - 0x14cc79be4fff 0x14cc79be5000 - 0x14cc79be6fff 0x14cc79be7000 - 0x14cc79be7fff 0x14cc79be8000 - 0x14cc79be8fff 0x14cc79be9000 - 0x14cc79be9fff 0x14cc79bea000 - 0x14cc79bebfff 0x14cc79bec000 - 0x14cc79bedfff 0x14cc79bee000 - 0x14cc79beffff 0x14cc79bf0000 - 0x14cc79bf0fff 0x14cc79bf1000 - 0x14cc79bf1fff 0x14cc79bf2000 - 0x14cc79bf2fff 0x14cc79bf3000 - 0x14cc79bf4fff 0x14cc79bf5000 - 0x14cc79bf6fff 0x14cc79bf7000 - 0x14cc79bf7fff 0x14cc79bf8000 - 0x14cc79bf8fff 0x14cc79bf9000 - 0x14cc79bf9fff 0x14cc79bfa000 - 0x14cc79c07fff 0x14cc79c08000 - 0x14cc79c15fff 0x14cc79c16000 - 0x14cc79c23fff 0x14cc79c24000 - 0x14cc79c27fff 0x14cc79c28000 - 0x14cc79c28fff 0x14cc79c29000 - 0x14cc79c2afff 0x14cc79c2b000 - 0x14cc79c3efff 0x14cc79c3f000 - 0x14cc79c57fff 0x14cc79c58000 - 0x14cc79c58fff 0x14cc79c59000 - 0x14cc79c59fff 0x14cc79c5a000 - 0x14cc79c62fff 0x14cc79c63000 - 0x14cc79c71fff 0x14cc79c72000 - 0x14cc79d0dfff 0x14cc79d0e000 - 0x14cc79da6fff 0x14cc79da7000 - 0x14cc79da7fff 0x14cc79da8000 - 0x14cc79da8fff 0x14cc79da9000 - 0x14cc79dbefff 0x14cc79dbf000 - 0x14cc79deafff 0x14cc79deb000 - 0x14cc79df3fff 0x14cc79df4000 - 0x14cc79df4fff 0x14cc79df5000 - 0x14cc79df7fff 0x14cc79df8000 - 0x14cc79dfdfff 0x14cc79dfe000 - 0x14cc79e00fff 0x14cc79e01000 - 0x14cc79e01fff 0x14cc79e02000 - 0x14cc79e02fff 0x14cc79e03000 - 0x14cc79e09fff 0x14cc79e0a000 - 0x14cc79e0afff 0x14cc79e0b000 - 0x14cc79e2bfff 0x14cc79e2c000 - 0x14cc79e34fff 0x14cc79e35000 - 0x14cc79e35fff 0x14cc79e36000 - 0x14cc79e37fff 0x7ffcd7fc7000 - 0x7ffcd7fe7fff 0x7ffcd7ff1000 - 0x7ffcd7ff4fff 0x7ffcd7ff5000 - 0x7ffcd7ff6fff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/tests/tests.fas ... 0 errors, 0 warnings ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 04:48:04" 3814145284 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 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%d.%m.%y" "27.11.86") "1986-11-27 Thu 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%y-%m-%d" "86-11-27") "1986-11-27 Thu 04:48:04" 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 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Mon") "2020-11-16 Mon 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Sun") "2020-11-15 Sun 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%a" "Fri") "2020-11-13 Fri 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%B" "September") "2021-09-03 Fri 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%B" "January") "2021-01-03 Sun 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%B" "December") "2020-12-04 Fri 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Sep Mon") "2021-09-06 Mon 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Jan Fri") "2021-01-01 Fri 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%b %a" "Dec Mon") "2020-12-07 Mon 04:48:04" EQL-OK: NIL (CHECK-TIME-DATE "%b %a %Y" "Jan Wed 1989") "1989-01-04 Wed 04:48:04" 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-12 Thu 10:30:00" EQL-OK: NIL (CHECK-TIME-DATE "%H:%M" "13:30") "2020-11-12 Thu 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" , 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))) 3057077 3057076 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))) 3011287 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 59859 :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 3838144 :AVPHYS-PAGES 1568137 :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 59859 :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 144137935 :MODE (:FREG :RUSR :WUSR) :NLINK 1 :UID 1000 :GID 425 :RDEV NIL :SIZE 550 :BLKSIZE NIL :BLOCKS NIL :ATIME 3814145284 :MTIME 3814145284 :CTIME 3814145284> 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 24737271 :BAVAIL 24737271 :FILES 67108864 :FFREE 66344373 :FAVAIL 66344373 :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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" 550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" 1100)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" 1650)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" 2750)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" 4400)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" 7150)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" 11550)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" 18700)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP1* *TMP2* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" 30250)) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :IF-EXISTS :APPEND))) ((#P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" #P"/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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)) (15721037824 6423089152) 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/base/lisp.run" "-on-error" "abort" "-q" "-norc" "-B" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/" "-M" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x9aa000 - 0x9cafff 0x100000000000 - 0x1000000bffff 0x145c07585000 - 0x145c07585fff 0x145c07586000 - 0x145c07c30fff 0x145c07c31000 - 0x145c07c85fff 0x145c07c86000 - 0x145c07c87fff 0x145c07c88000 - 0x145c07cadfff 0x145c07cae000 - 0x145c07dfcfff 0x145c07dfd000 - 0x145c07e48fff 0x145c07e49000 - 0x145c07e49fff 0x145c07e4a000 - 0x145c07e4cfff 0x145c07e4d000 - 0x145c07e4ffff 0x145c07e50000 - 0x145c07e53fff 0x145c07e54000 - 0x145c07e56fff 0x145c07e57000 - 0x145c07e68fff 0x145c07e69000 - 0x145c07e6cfff 0x145c07e6d000 - 0x145c07e6dfff 0x145c07e6e000 - 0x145c07e6efff 0x145c07e6f000 - 0x145c07e7ffff 0x145c07e80000 - 0x145c07eb5fff 0x145c07eb6000 - 0x145c07febfff 0x145c07fec000 - 0x145c07fecfff 0x145c07fed000 - 0x145c07ff0fff 0x145c07ff1000 - 0x145c07ff1fff 0x145c07ff2000 - 0x145c07ff2fff 0x145c07ff3000 - 0x145c07ff4fff 0x145c07ff5000 - 0x145c07ff5fff 0x145c07ff6000 - 0x145c07ff6fff 0x145c07ff7000 - 0x145c07ff7fff 0x145c07ff8000 - 0x145c07ff9fff 0x145c07ffa000 - 0x145c07ffbfff 0x145c07ffc000 - 0x145c07ffdfff 0x145c07ffe000 - 0x145c07ffefff 0x145c07fff000 - 0x145c07ffffff 0x145c08000000 - 0x145c08000fff 0x145c08001000 - 0x145c08002fff 0x145c08003000 - 0x145c08004fff 0x145c08005000 - 0x145c08005fff 0x145c08006000 - 0x145c08006fff 0x145c08007000 - 0x145c08007fff 0x145c08008000 - 0x145c08015fff 0x145c08016000 - 0x145c08023fff 0x145c08024000 - 0x145c08031fff 0x145c08032000 - 0x145c08035fff 0x145c08036000 - 0x145c08036fff 0x145c08037000 - 0x145c08038fff 0x145c08039000 - 0x145c0804cfff 0x145c0804d000 - 0x145c08065fff 0x145c08066000 - 0x145c08066fff 0x145c08067000 - 0x145c08067fff 0x145c08068000 - 0x145c08070fff 0x145c08071000 - 0x145c0807ffff 0x145c08080000 - 0x145c0811bfff 0x145c0811c000 - 0x145c081b4fff 0x145c081b5000 - 0x145c081b5fff 0x145c081b6000 - 0x145c081b6fff 0x145c081b7000 - 0x145c081ccfff 0x145c081cd000 - 0x145c081f8fff 0x145c081f9000 - 0x145c08201fff 0x145c08202000 - 0x145c08202fff 0x145c08203000 - 0x145c08205fff 0x145c08206000 - 0x145c0820bfff 0x145c0820c000 - 0x145c0820efff 0x145c0820f000 - 0x145c0820ffff 0x145c08210000 - 0x145c08210fff 0x145c08211000 - 0x145c08217fff 0x145c08218000 - 0x145c08218fff 0x145c08219000 - 0x145c08239fff 0x145c0823a000 - 0x145c08242fff 0x145c08243000 - 0x145c08243fff 0x145c08244000 - 0x145c08245fff 0x7ffd2b337000 - 0x7ffd2b357fff 0x7ffd2b3ab000 - 0x7ffd2b3aefff 0x7ffd2b3af000 - 0x7ffd2b3b0fff 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 - 0x5fafff 0x1d71000 - 0x1d91fff 0x100000000000 - 0x1000000bffff 0x1469348c2000 - 0x1469348c2fff 0x1469348c3000 - 0x146934f6dfff 0x146934f6e000 - 0x146934fc2fff 0x146934fc3000 - 0x146934fc4fff 0x146934fc5000 - 0x146934feafff 0x146934feb000 - 0x146935139fff 0x14693513a000 - 0x146935185fff 0x146935186000 - 0x146935186fff 0x146935187000 - 0x146935189fff 0x14693518a000 - 0x14693518cfff 0x14693518d000 - 0x146935190fff 0x146935191000 - 0x146935193fff 0x146935194000 - 0x1469351a5fff 0x1469351a6000 - 0x1469351a9fff 0x1469351aa000 - 0x1469351aafff 0x1469351ab000 - 0x1469351abfff 0x1469351ac000 - 0x1469351bcfff 0x1469351bd000 - 0x1469351f2fff 0x1469351f3000 - 0x146935328fff 0x146935329000 - 0x146935329fff 0x14693532a000 - 0x14693532dfff 0x14693532e000 - 0x14693532efff 0x14693532f000 - 0x14693532ffff 0x146935330000 - 0x146935331fff 0x146935332000 - 0x146935332fff 0x146935333000 - 0x146935333fff 0x146935334000 - 0x146935334fff 0x146935335000 - 0x146935336fff 0x146935337000 - 0x146935338fff 0x146935339000 - 0x14693533afff 0x14693533b000 - 0x14693533bfff 0x14693533c000 - 0x14693533cfff 0x14693533d000 - 0x14693533dfff 0x14693533e000 - 0x14693533ffff 0x146935340000 - 0x146935341fff 0x146935342000 - 0x146935342fff 0x146935343000 - 0x146935343fff 0x146935344000 - 0x146935344fff 0x146935345000 - 0x146935352fff 0x146935353000 - 0x146935360fff 0x146935361000 - 0x14693536efff 0x14693536f000 - 0x146935372fff 0x146935373000 - 0x146935373fff 0x146935374000 - 0x146935375fff 0x146935376000 - 0x146935389fff 0x14693538a000 - 0x1469353a2fff 0x1469353a3000 - 0x1469353a3fff 0x1469353a4000 - 0x1469353a4fff 0x1469353a5000 - 0x1469353adfff 0x1469353ae000 - 0x1469353bcfff 0x1469353bd000 - 0x146935458fff 0x146935459000 - 0x1469354f1fff 0x1469354f2000 - 0x1469354f2fff 0x1469354f3000 - 0x1469354f3fff 0x1469354f4000 - 0x146935509fff 0x14693550a000 - 0x146935535fff 0x146935536000 - 0x14693553efff 0x14693553f000 - 0x14693553ffff 0x146935540000 - 0x146935542fff 0x146935543000 - 0x146935548fff 0x146935549000 - 0x14693554bfff 0x14693554c000 - 0x14693554cfff 0x14693554d000 - 0x14693554dfff 0x14693554e000 - 0x146935554fff 0x146935555000 - 0x146935555fff 0x146935556000 - 0x146935576fff 0x146935577000 - 0x14693557ffff 0x146935580000 - 0x146935580fff 0x146935581000 - 0x146935582fff 0x7ffcb91e5000 - 0x7ffcb9205fff 0x7ffcb93ab000 - 0x7ffcb93aefff 0x7ffcb93af000 - 0x7ffcb93b0fff 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)"))))) 144137935 ("/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/base/lisp.run" "-on-error" "abort" "-q" "-norc" "-B" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/" "-M" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x1bf4000 - 0x1c14fff 0x100000000000 - 0x1000000bffff 0x152ee9464000 - 0x152ee9464fff 0x152ee9465000 - 0x152ee9b0ffff 0x152ee9b10000 - 0x152ee9b64fff 0x152ee9b65000 - 0x152ee9b66fff 0x152ee9b67000 - 0x152ee9b8cfff 0x152ee9b8d000 - 0x152ee9cdbfff 0x152ee9cdc000 - 0x152ee9d27fff 0x152ee9d28000 - 0x152ee9d28fff 0x152ee9d29000 - 0x152ee9d2bfff 0x152ee9d2c000 - 0x152ee9d2efff 0x152ee9d2f000 - 0x152ee9d32fff 0x152ee9d33000 - 0x152ee9d35fff 0x152ee9d36000 - 0x152ee9d47fff 0x152ee9d48000 - 0x152ee9d4bfff 0x152ee9d4c000 - 0x152ee9d4cfff 0x152ee9d4d000 - 0x152ee9d4dfff 0x152ee9d4e000 - 0x152ee9d5efff 0x152ee9d5f000 - 0x152ee9d94fff 0x152ee9d95000 - 0x152ee9ecafff 0x152ee9ecb000 - 0x152ee9ecbfff 0x152ee9ecc000 - 0x152ee9ecffff 0x152ee9ed0000 - 0x152ee9ed0fff 0x152ee9ed1000 - 0x152ee9ed1fff 0x152ee9ed2000 - 0x152ee9ed3fff 0x152ee9ed4000 - 0x152ee9ed4fff 0x152ee9ed5000 - 0x152ee9ed5fff 0x152ee9ed6000 - 0x152ee9ed6fff 0x152ee9ed7000 - 0x152ee9ed8fff 0x152ee9ed9000 - 0x152ee9edafff 0x152ee9edb000 - 0x152ee9edcfff 0x152ee9edd000 - 0x152ee9eddfff 0x152ee9ede000 - 0x152ee9edefff 0x152ee9edf000 - 0x152ee9edffff 0x152ee9ee0000 - 0x152ee9ee1fff 0x152ee9ee2000 - 0x152ee9ee3fff 0x152ee9ee4000 - 0x152ee9ee4fff 0x152ee9ee5000 - 0x152ee9ee5fff 0x152ee9ee6000 - 0x152ee9ee6fff 0x152ee9ee7000 - 0x152ee9ef4fff 0x152ee9ef5000 - 0x152ee9f02fff 0x152ee9f03000 - 0x152ee9f10fff 0x152ee9f11000 - 0x152ee9f14fff 0x152ee9f15000 - 0x152ee9f15fff 0x152ee9f16000 - 0x152ee9f17fff 0x152ee9f18000 - 0x152ee9f2bfff 0x152ee9f2c000 - 0x152ee9f44fff 0x152ee9f45000 - 0x152ee9f45fff 0x152ee9f46000 - 0x152ee9f46fff 0x152ee9f47000 - 0x152ee9f4ffff 0x152ee9f50000 - 0x152ee9f5efff 0x152ee9f5f000 - 0x152ee9ffafff 0x152ee9ffb000 - 0x152eea093fff 0x152eea094000 - 0x152eea094fff 0x152eea095000 - 0x152eea095fff 0x152eea096000 - 0x152eea0abfff 0x152eea0ac000 - 0x152eea0d7fff 0x152eea0d8000 - 0x152eea0e0fff 0x152eea0e1000 - 0x152eea0e1fff 0x152eea0e2000 - 0x152eea0e4fff 0x152eea0e5000 - 0x152eea0eafff 0x152eea0eb000 - 0x152eea0edfff 0x152eea0ee000 - 0x152eea0eefff 0x152eea0ef000 - 0x152eea0effff 0x152eea0f0000 - 0x152eea0f6fff 0x152eea0f7000 - 0x152eea0f7fff 0x152eea0f8000 - 0x152eea118fff 0x152eea119000 - 0x152eea121fff 0x152eea122000 - 0x152eea122fff 0x152eea123000 - 0x152eea124fff 0x7ffd43085000 - 0x7ffd430a5fff 0x7ffd43138000 - 0x7ffd4313bfff 0x7ffd4313c000 - 0x7ffd4313dfff 0xffffffffff600000 - 0xffffffffff600fff "[1]>" " # [2]>" 144137937 " 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1")) EQL-OK: T (LISTP (SHOW (COPY-FILE *TMP2* *TMP1* :METHOD :HARDLINK-OR-COPY))) (("/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-DzqRM1" "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-ZTkXdZ")) 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))))) 51001769 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.57" . #) (#3="buildvm-x86-07.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)) 3057081 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 3057082 PID-W 3057082) 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 3057083 PID-L-2 3057084 PID-W-1 3057083 PID-W-2 3057084) EQUAL-OK: (T :EXITED :EXITED 0 0) (WAIT :PID (RUN-SLEEP 1) :NOHANG T) EQL-OK: 0 (LET ((PID (RUN-SLEEP 1))) (KILL PID :SIGTERM) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS RUSAGE) (WAIT :PID PID :USAGE T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (LIST KIND STATUS (USAGE-P (SHOW RUSAGE))))) # EQUAL-OK: (:SIGNALED :SIGTERM T) (LET ((PID (RUN-SLEEP 1))) (KILL PID :SIGSTOP) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS) (WAIT :PID PID :UNTRACED T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (ASSERT (EQ KIND :STOPPED) NIL "kind=~S <> :STOPPED" KIND) (ASSERT (EQ STATUS :SIGSTOP) NIL "status=~S <> :SIGCONT" STATUS)) (KILL PID :SIGCONT) (MULTIPLE-VALUE-BIND (PID1 KIND STATUS) (WAIT :PID PID :CONTINUED T) (ASSERT (= PID PID1) NIL "pid: ~S<>~S" PID PID1) (ASSERT (EQ KIND :CONTINUED) NIL "kind=~S <> :CONTINUED" KIND) (ASSERT (NULL STATUS) NIL "status=~S is non-NIL" STATUS))) EQL-OK: NIL (EVERY #'SYSTEM::DOUBLE-FLOAT-P (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG)) (ERROR (C) (PRINC-ERROR C))))) (1.2d0 1.26d0 1.81d0) EQL-OK: T (EVERY #'SYSTEM::FIXNUMP (SHOW (HANDLER-CASE (MULTIPLE-VALUE-LIST (LOADAVG T)) (ERROR (C) (PRINC-ERROR C))))) (120 126 181) 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3/ (:D "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1") (:D "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2") (:D "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3") (:F "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3/file3") (:F "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3/file3") (:DP "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3") (:F "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/file2") (:DP "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2") (:F "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/file1") (:DP "/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1") ((#1="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1" # :D 116 0) (#2="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2" # :D 121 1) (#3="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3" # :D 126 2)) ((#1="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3/file3" # :F 131 3) (#2="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/dir3" # :DP 126 2) (#3="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2/file2" # :F 126 2) (#4="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/dir2" # :DP 121 1) (#5="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dir1/file1" # :F 121 1) (#6="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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) (UNWIND-PROTECT (LIST (MAPCAR L (DIRECTORY W)) (SET-FILE-STAT D :MODE 0) (HANDLER-CASE (DIRECTORY W) (ERROR (E) (PRINC-ERROR E) (TYPE-OF E))) (DIRECTORY W :IF-DOES-NOT-EXIST :KEEP) (SET-FILE-STAT D :MODE :RWXU) (MAPCAR L (DIRECTORY W)) (FILE-TREE-WALK D1 (LAMBDA (F S K B L) (CASE K ((:D :DP :DNR) (DELETE-DIRECTORY (PROBE-PATHNAME F))) (T (DELETE-FILE F))) NIL) :DEPTH T)) (WHEN (PROBE-DIRECTORY D) (SET-FILE-STAT D :MODE :RWXU)))) Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls-tests-dir-1/ Creating directory: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/test.erg[4]> (1 2 /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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.NM1APB + umask 022 + cd /builddir/build/BUILD + '[' /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 '!=' / ']' + rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 ++ dirname /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 + mkdir -p /builddir/build/BUILDROOT + mkdir /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + ulimit -s unlimited + make -C build DESTDIR=/builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 install make: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' rm -rf base MAKE=make CLISP="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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 - 0x5d4fff 0x2587000 - 0x25a7fff 0x100000000000 - 0x1000000bffff 0x14d26e0e2000 - 0x14d26e0e4fff 0x14d26e0e5000 - 0x14d26e10afff 0x14d26e10b000 - 0x14d26e259fff 0x14d26e25a000 - 0x14d26e2a5fff 0x14d26e2a6000 - 0x14d26e2a6fff 0x14d26e2a7000 - 0x14d26e2a9fff 0x14d26e2aa000 - 0x14d26e2acfff 0x14d26e2ad000 - 0x14d26e2b0fff 0x14d26e2b1000 - 0x14d26e2b3fff 0x14d26e2b4000 - 0x14d26e2c5fff 0x14d26e2c6000 - 0x14d26e2c9fff 0x14d26e2ca000 - 0x14d26e2cafff 0x14d26e2cb000 - 0x14d26e2cbfff 0x14d26e2cc000 - 0x14d26e2cdfff 0x14d26e2ce000 - 0x14d26e2defff 0x14d26e2df000 - 0x14d26e314fff 0x14d26e315000 - 0x14d26e44afff 0x14d26e44b000 - 0x14d26e44bfff 0x14d26e44c000 - 0x14d26e44ffff 0x14d26e450000 - 0x14d26e450fff 0x14d26e451000 - 0x14d26e451fff 0x14d26e452000 - 0x14d26e453fff 0x14d26e454000 - 0x14d26e454fff 0x14d26e455000 - 0x14d26e455fff 0x14d26e456000 - 0x14d26e456fff 0x14d26e457000 - 0x14d26e458fff 0x14d26e459000 - 0x14d26e45afff 0x14d26e45b000 - 0x14d26e45bfff 0x14d26e45c000 - 0x14d26e45cfff 0x14d26e45d000 - 0x14d26e45dfff 0x14d26e45e000 - 0x14d26e45ffff 0x14d26e460000 - 0x14d26e461fff 0x14d26e462000 - 0x14d26e462fff 0x14d26e463000 - 0x14d26e463fff 0x14d26e464000 - 0x14d26e464fff 0x14d26e465000 - 0x14d26e472fff 0x14d26e473000 - 0x14d26e480fff 0x14d26e481000 - 0x14d26e48efff 0x14d26e48f000 - 0x14d26e492fff 0x14d26e493000 - 0x14d26e493fff 0x14d26e494000 - 0x14d26e4a9fff 0x14d26e4aa000 - 0x14d26e4d5fff 0x14d26e4d6000 - 0x14d26e4defff 0x14d26e4df000 - 0x14d26e4dffff 0x14d26e4e0000 - 0x14d26e4e2fff 0x14d26e4e3000 - 0x14d26e4e8fff 0x14d26e4e9000 - 0x14d26e4ebfff 0x14d26e4f5000 - 0x14d26e4f5fff 0x14d26e4f6000 - 0x14d26e516fff 0x14d26e517000 - 0x14d26e51ffff 0x14d26e520000 - 0x14d26e520fff 0x14d26e521000 - 0x14d26e522fff 0x7fffb7820000 - 0x7fffb7840fff 0x7fffb7867000 - 0x7fffb786afff 0x7fffb786b000 - 0x7fffb786cfff 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,316,448 bytes) Bytes permanently allocated: 173,664 Bytes currently in use: 3,139,936 Bytes available until next GC: 780,874 3139936 ; 780874 ; 173664 ; 1 ; 256720 ; 6598 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 - 0x5fafff 0x2558000 - 0x2578fff 0x100000000000 - 0x1000000bffff 0x14c526e35000 - 0x14c526e36fff 0x14c526e37000 - 0x14c526e5cfff 0x14c526e5d000 - 0x14c526fabfff 0x14c526fac000 - 0x14c526ff7fff 0x14c526ff8000 - 0x14c526ff8fff 0x14c526ff9000 - 0x14c526ffbfff 0x14c526ffc000 - 0x14c526ffefff 0x14c526fff000 - 0x14c527002fff 0x14c527003000 - 0x14c527005fff 0x14c527006000 - 0x14c527017fff 0x14c527018000 - 0x14c52701bfff 0x14c52701c000 - 0x14c52701cfff 0x14c52701d000 - 0x14c52701dfff 0x14c52701e000 - 0x14c52702efff 0x14c52702f000 - 0x14c527064fff 0x14c527065000 - 0x14c52719afff 0x14c52719b000 - 0x14c52719bfff 0x14c52719c000 - 0x14c52719ffff 0x14c5271a0000 - 0x14c5271a0fff 0x14c5271a1000 - 0x14c5271a1fff 0x14c5271a2000 - 0x14c5271a3fff 0x14c5271a4000 - 0x14c5271a4fff 0x14c5271a5000 - 0x14c5271a5fff 0x14c5271a6000 - 0x14c5271a6fff 0x14c5271a7000 - 0x14c5271a8fff 0x14c5271a9000 - 0x14c5271aafff 0x14c5271ab000 - 0x14c5271acfff 0x14c5271ad000 - 0x14c5271adfff 0x14c5271ae000 - 0x14c5271aefff 0x14c5271af000 - 0x14c5271affff 0x14c5271b0000 - 0x14c5271b1fff 0x14c5271b2000 - 0x14c5271b3fff 0x14c5271b4000 - 0x14c5271b4fff 0x14c5271b5000 - 0x14c5271b5fff 0x14c5271b6000 - 0x14c5271b6fff 0x14c5271b7000 - 0x14c5271c4fff 0x14c5271c5000 - 0x14c5271d2fff 0x14c5271d3000 - 0x14c5271e0fff 0x14c5271e1000 - 0x14c5271e4fff 0x14c5271e5000 - 0x14c5271e5fff 0x14c5271e6000 - 0x14c5271e7fff 0x14c5271e8000 - 0x14c5271fbfff 0x14c5271fc000 - 0x14c527214fff 0x14c527215000 - 0x14c527215fff 0x14c527216000 - 0x14c527216fff 0x14c527217000 - 0x14c52721ffff 0x14c527220000 - 0x14c52722efff 0x14c52722f000 - 0x14c5272cafff 0x14c5272cb000 - 0x14c527363fff 0x14c527364000 - 0x14c527364fff 0x14c527365000 - 0x14c527365fff 0x14c527366000 - 0x14c52737bfff 0x14c52737c000 - 0x14c5273a7fff 0x14c5273a8000 - 0x14c5273b0fff 0x14c5273b1000 - 0x14c5273b1fff 0x14c5273b2000 - 0x14c5273b4fff 0x14c5273b5000 - 0x14c5273bafff 0x14c5273bb000 - 0x14c5273bdfff 0x14c5273c7000 - 0x14c5273c7fff 0x14c5273c8000 - 0x14c5273e8fff 0x14c5273e9000 - 0x14c5273f1fff 0x14c5273f2000 - 0x14c5273f2fff 0x14c5273f3000 - 0x14c5273f4fff 0x7fffcd253000 - 0x7fffcd273fff 0x7fffcd3c8000 - 0x7fffcd3cbfff 0x7fffcd3cc000 - 0x7fffcd3cdfff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n/i18n.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/i18n/i18n.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls/posix.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/syscalls/posix.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp/regexp.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/regexp/regexp.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/readline/readline.fas ;; Wrote the memory image into base/lispinit.mem (3,799,104 bytes) Bytes permanently allocated: 180,216 Bytes currently in use: 3,610,784 Bytes available until next GC: 898,586 3610784 ; 898586 ; 180216 ; 3 ; 1575560 ; 15096 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/readline' '--with-ffcall' '--with-libsigsegv-prefix=/usr' '--with-libffcall-prefix=/usr' 'CFLAGS=-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib" CFLAGS="-O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' rm -rf full rm -rf dynmod; mkdir dynmod MAKE=make CLISP="/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' gcc -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' gcc -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' gcc -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-zlib.so gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit -c modules.c gcc -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 - 0x5fafff 0x16b9000 - 0x16d9fff 0x100000000000 - 0x1000000bffff 0x150d1e5f2000 - 0x150d1e5f3fff 0x150d1e5f4000 - 0x150d1e619fff 0x150d1e61a000 - 0x150d1e768fff 0x150d1e769000 - 0x150d1e7b4fff 0x150d1e7b5000 - 0x150d1e7b5fff 0x150d1e7b6000 - 0x150d1e7b8fff 0x150d1e7b9000 - 0x150d1e7bbfff 0x150d1e7bc000 - 0x150d1e7bffff 0x150d1e7c0000 - 0x150d1e7c2fff 0x150d1e7c3000 - 0x150d1e7d4fff 0x150d1e7d5000 - 0x150d1e7d8fff 0x150d1e7d9000 - 0x150d1e7d9fff 0x150d1e7da000 - 0x150d1e7dafff 0x150d1e7db000 - 0x150d1e7ebfff 0x150d1e7ec000 - 0x150d1e821fff 0x150d1e822000 - 0x150d1e957fff 0x150d1e958000 - 0x150d1e958fff 0x150d1e959000 - 0x150d1e95cfff 0x150d1e95d000 - 0x150d1e95dfff 0x150d1e95e000 - 0x150d1e95efff 0x150d1e95f000 - 0x150d1e960fff 0x150d1e961000 - 0x150d1e961fff 0x150d1e962000 - 0x150d1e962fff 0x150d1e963000 - 0x150d1e963fff 0x150d1e964000 - 0x150d1e965fff 0x150d1e966000 - 0x150d1e967fff 0x150d1e968000 - 0x150d1e969fff 0x150d1e96a000 - 0x150d1e96afff 0x150d1e96b000 - 0x150d1e96bfff 0x150d1e96c000 - 0x150d1e96cfff 0x150d1e96d000 - 0x150d1e96efff 0x150d1e96f000 - 0x150d1e970fff 0x150d1e971000 - 0x150d1e971fff 0x150d1e972000 - 0x150d1e972fff 0x150d1e973000 - 0x150d1e973fff 0x150d1e974000 - 0x150d1e981fff 0x150d1e982000 - 0x150d1e98ffff 0x150d1e990000 - 0x150d1e99dfff 0x150d1e99e000 - 0x150d1e9a1fff 0x150d1e9a2000 - 0x150d1e9a2fff 0x150d1e9a3000 - 0x150d1e9a4fff 0x150d1e9a5000 - 0x150d1e9b8fff 0x150d1e9b9000 - 0x150d1e9d1fff 0x150d1e9d2000 - 0x150d1e9d2fff 0x150d1e9d3000 - 0x150d1e9d3fff 0x150d1e9d4000 - 0x150d1e9dcfff 0x150d1e9dd000 - 0x150d1e9ebfff 0x150d1e9ec000 - 0x150d1ea87fff 0x150d1ea88000 - 0x150d1eb20fff 0x150d1eb21000 - 0x150d1eb21fff 0x150d1eb22000 - 0x150d1eb22fff 0x150d1eb23000 - 0x150d1eb38fff 0x150d1eb39000 - 0x150d1eb64fff 0x150d1eb65000 - 0x150d1eb6dfff 0x150d1eb6e000 - 0x150d1eb6efff 0x150d1eb6f000 - 0x150d1eb71fff 0x150d1eb72000 - 0x150d1eb77fff 0x150d1eb78000 - 0x150d1eb7afff 0x150d1eb84000 - 0x150d1eb84fff 0x150d1eb85000 - 0x150d1eba5fff 0x150d1eba6000 - 0x150d1ebaefff 0x150d1ebaf000 - 0x150d1ebaffff 0x150d1ebb0000 - 0x150d1ebb1fff 0x7ffea88c2000 - 0x7ffea88e2fff 0x7ffea8959000 - 0x7ffea895cfff 0x7ffea895d000 - 0x7ffea895efff 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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/preload.lisp ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/preload.lisp ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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,804,704 bytes) Bytes permanently allocated: 180,216 Bytes currently in use: 3,616,384 Bytes available until next GC: 899,986 3616384 ; 899986 ; 180216 ; 1 ; 582544 ; 7704 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 - 0x44ffff 0x450000 - 0x5befff 0x5bf000 - 0x63afff 0x63c000 - 0x672fff 0x673000 - 0x6b0fff 0x6b1000 - 0x6d7fff 0x1edd000 - 0x1f1efff 0x100000000000 - 0x1000000bffff 0x14b35a8c6000 - 0x14b35a8cffff 0x14b35a8d0000 - 0x14b35a8d3fff 0x14b35a8d4000 - 0x14b35a8e5fff 0x14b35a8e6000 - 0x14b35a8eefff 0x14b35a8ef000 - 0x14b35a8effff 0x14b35a8f0000 - 0x14b35a8f0fff 0x14b35a8f1000 - 0x14b35a8f2fff 0x14b35a8f3000 - 0x14b35a8f3fff 0x14b35a8f4000 - 0x14b35a8f4fff 0x14b35a8f5000 - 0x14b35a913fff 0x14b35a914000 - 0x14b35a914fff 0x14b35a915000 - 0x14b35a915fff 0x14b35a916000 - 0x14b35a917fff 0x14b35a918000 - 0x14b35a91bfff 0x14b35a91c000 - 0x14b35a91cfff 0x14b35a91d000 - 0x14b35a91dfff 0x14b35a91e000 - 0x14b35a91efff 0x14b35a91f000 - 0x14b35a920fff 0x14b35a921000 - 0x14b35a989fff 0x14b35a98a000 - 0x14b35a9b2fff 0x14b35a9b3000 - 0x14b35a9b3fff 0x14b35a9b4000 - 0x14b35a9b4fff 0x14b35a9b5000 - 0x14b35a9bbfff 0x14b35a9bc000 - 0x14b35a9d9fff 0x14b35a9da000 - 0x14b35a9e2fff 0x14b35a9e3000 - 0x14b35a9e3fff 0x14b35a9e4000 - 0x14b35a9e7fff 0x14b35a9e8000 - 0x14b35a9e8fff 0x14b35a9e9000 - 0x14b35a9f4fff 0x14b35a9f5000 - 0x14b35aacbfff 0x14b35aacc000 - 0x14b35ab04fff 0x14b35ab05000 - 0x14b35ab06fff 0x14b35ab07000 - 0x14b35ab0bfff 0x14b35ab0c000 - 0x14b35ab0efff 0x14b35ab0f000 - 0x14b35ab10fff 0x14b35ab11000 - 0x14b35ab27fff 0x14b35ab28000 - 0x14b35ab29fff 0x14b35ab2a000 - 0x14b35ab2afff 0x14b35ab2b000 - 0x14b35ab2bfff 0x14b35ab2c000 - 0x14b35ab2cfff 0x14b35ab2d000 - 0x14b35ab31fff 0x14b35ab32000 - 0x14b35abd3fff 0x14b35abd4000 - 0x14b35abe0fff 0x14b35abe1000 - 0x14b35abe1fff 0x14b35abe2000 - 0x14b35abe2fff 0x14b35abe3000 - 0x14b35abe3fff 0x14b35abe4000 - 0x14b35abebfff 0x14b35abec000 - 0x14b35abeefff 0x14b35abef000 - 0x14b35abeffff 0x14b35abf0000 - 0x14b35abf0fff 0x14b35abf1000 - 0x14b35abf2fff 0x14b35abf3000 - 0x14b35abfffff 0x14b35ac00000 - 0x14b35ac01fff 0x14b35ac02000 - 0x14b35ac02fff 0x14b35ac03000 - 0x14b35ac03fff 0x14b35ac04000 - 0x14b35ac06fff 0x14b35ac07000 - 0x14b35ac1dfff 0x14b35ac1e000 - 0x14b35ac21fff 0x14b35ac22000 - 0x14b35ac23fff 0x14b35ac24000 - 0x14b35ac24fff 0x14b35ac25000 - 0x14b35ac27fff 0x14b35ac28000 - 0x14b35ac42fff 0x14b35ac43000 - 0x14b35ac4dfff 0x14b35ac4e000 - 0x14b35ac4efff 0x14b35ac4f000 - 0x14b35ac4ffff 0x14b35ac50000 - 0x14b35ac52fff 0x14b35ac53000 - 0x14b35ac54fff 0x14b35ac55000 - 0x14b35ac58fff 0x14b35ac59000 - 0x14b35ac5bfff 0x14b35ac5c000 - 0x14b35ac5cfff 0x14b35ac5d000 - 0x14b35ac5dfff 0x14b35ac5e000 - 0x14b35ac5ffff 0x14b35ac60000 - 0x14b35ac64fff 0x14b35ac65000 - 0x14b35ac79fff 0x14b35ac7a000 - 0x14b35ac7afff 0x14b35ac7b000 - 0x14b35ac7bfff 0x14b35ac7c000 - 0x14b35ac82fff 0x14b35ac83000 - 0x14b35ac9cfff 0x14b35ac9d000 - 0x14b35aca4fff 0x14b35aca5000 - 0x14b35aca5fff 0x14b35aca6000 - 0x14b35aca6fff 0x14b35aca7000 - 0x14b35aca8fff 0x14b35aca9000 - 0x14b35acb1fff 0x14b35acb2000 - 0x14b35acdbfff 0x14b35acdc000 - 0x14b35ace7fff 0x14b35ace8000 - 0x14b35ace9fff 0x14b35acea000 - 0x14b35aceafff 0x14b35aceb000 - 0x14b35acedfff 0x14b35acee000 - 0x14b35acf1fff 0x14b35acf2000 - 0x14b35acf3fff 0x14b35acf4000 - 0x14b35acf4fff 0x14b35acf5000 - 0x14b35acf5fff 0x14b35acf6000 - 0x14b35acf7fff 0x14b35acf8000 - 0x14b35acfcfff 0x14b35acfd000 - 0x14b35ad01fff 0x14b35ad02000 - 0x14b35ad03fff 0x14b35ad04000 - 0x14b35ad04fff 0x14b35ad05000 - 0x14b35ad05fff 0x14b35ad06000 - 0x14b35ad06fff 0x14b35ad07000 - 0x14b35ad07fff 0x14b35ad08000 - 0x14b35ad08fff 0x14b35ad09000 - 0x14b35ad09fff 0x14b35ad0a000 - 0x14b35ad0afff 0x14b35ad0b000 - 0x14b35ad0bfff 0x14b35ad0c000 - 0x14b35ad16fff 0x14b35ad17000 - 0x14b35ad9dfff 0x14b35ad9e000 - 0x14b35adaffff 0x14b35adb0000 - 0x14b35adb7fff 0x14b35adb8000 - 0x14b35adb8fff 0x14b35adb9000 - 0x14b35adbdfff 0x14b35adbe000 - 0x14b35adcffff 0x14b35add0000 - 0x14b35add5fff 0x14b35add6000 - 0x14b35add6fff 0x14b35add7000 - 0x14b35add7fff 0x14b35add8000 - 0x14b35addafff 0x14b35addb000 - 0x14b35ade2fff 0x14b35ade3000 - 0x14b35ade5fff 0x14b35ade6000 - 0x14b35ade6fff 0x14b35ade7000 - 0x14b35ade7fff 0x14b35ade8000 - 0x14b35ade8fff 0x14b35ade9000 - 0x14b35adeafff 0x14b35adeb000 - 0x14b35adeefff 0x14b35adef000 - 0x14b35adfcfff 0x14b35adfd000 - 0x14b35adfffff 0x14b35ae00000 - 0x14b35ae00fff 0x14b35ae01000 - 0x14b35ae01fff 0x14b35ae02000 - 0x14b35ae02fff 0x14b35ae03000 - 0x14b35ae04fff 0x14b35ae05000 - 0x14b35ae06fff 0x14b35ae07000 - 0x14b35ae08fff 0x14b35ae09000 - 0x14b35ae09fff 0x14b35ae0a000 - 0x14b35ae0afff 0x14b35ae0b000 - 0x14b35ae0bfff 0x14b35ae0c000 - 0x14b35ae0ffff 0x14b35ae10000 - 0x14b35ae17fff 0x14b35ae18000 - 0x14b35ae1afff 0x14b35ae1b000 - 0x14b35ae1bfff 0x14b35ae1c000 - 0x14b35ae1cfff 0x14b35ae1d000 - 0x14b35ae1efff 0x14b35ae1f000 - 0x14b35ae1ffff 0x14b35ae20000 - 0x14b35ae20fff 0x14b35ae21000 - 0x14b35ae21fff 0x14b35ae22000 - 0x14b35ae22fff 0x14b35ae23000 - 0x14b35ae27fff 0x14b35ae28000 - 0x14b35ae33fff 0x14b35ae34000 - 0x14b35ae37fff 0x14b35ae38000 - 0x14b35ae39fff 0x14b35ae3a000 - 0x14b35ae3afff 0x14b35ae3b000 - 0x14b35ae5dfff 0x14b35ae5e000 - 0x14b35aec1fff 0x14b35aec2000 - 0x14b35aefffff 0x14b35af00000 - 0x14b35af00fff 0x14b35af01000 - 0x14b35af0efff 0x14b35af0f000 - 0x14b35af10fff 0x14b35af11000 - 0x14b35af12fff 0x14b35af13000 - 0x14b35af1efff 0x14b35af1f000 - 0x14b35af31fff 0x14b35af32000 - 0x14b35af3afff 0x14b35af3b000 - 0x14b35af3bfff 0x14b35af3c000 - 0x14b35af3cfff 0x14b35af3d000 - 0x14b35af4efff 0x14b35af4f000 - 0x14b35afc9fff 0x14b35afca000 - 0x14b35aff2fff 0x14b35aff3000 - 0x14b35aff6fff 0x14b35aff7000 - 0x14b35aff7fff 0x14b35aff8000 - 0x14b35aff8fff 0x14b35aff9000 - 0x14b35b005fff 0x14b35b006000 - 0x14b35b089fff 0x14b35b08a000 - 0x14b35b0b2fff 0x14b35b0b3000 - 0x14b35b0b3fff 0x14b35b0b4000 - 0x14b35b0bafff 0x14b35b0bb000 - 0x14b35b0bbfff 0x14b35b0bc000 - 0x14b35b0c4fff 0x14b35b0c5000 - 0x14b35b155fff 0x14b35b156000 - 0x14b35b186fff 0x14b35b187000 - 0x14b35b187fff 0x14b35b188000 - 0x14b35b188fff 0x14b35b189000 - 0x14b35b189fff 0x14b35b18a000 - 0x14b35b1b7fff 0x14b35b1b8000 - 0x14b35b2bafff 0x14b35b2bb000 - 0x14b35b304fff 0x14b35b305000 - 0x14b35b305fff 0x14b35b306000 - 0x14b35b30efff 0x14b35b30f000 - 0x14b35b30ffff 0x14b35b310000 - 0x14b35b313fff 0x14b35b314000 - 0x14b35b315fff 0x14b35b316000 - 0x14b35b31afff 0x14b35b31b000 - 0x14b35b31bfff 0x14b35b31c000 - 0x14b35b31cfff 0x14b35b31d000 - 0x14b35b31dfff 0x14b35b31e000 - 0x14b35b31efff 0x14b35b31f000 - 0x14b35b323fff 0x14b35b324000 - 0x14b35b34bfff 0x14b35b34c000 - 0x14b35b355fff 0x14b35b356000 - 0x14b35b356fff 0x14b35b357000 - 0x14b35b357fff 0x14b35b358000 - 0x14b35b358fff 0x14b35b359000 - 0x14b35b359fff 0x14b35b35a000 - 0x14b35b35afff 0x14b35b35b000 - 0x14b35b35bfff 0x14b35b35c000 - 0x14b35b35cfff 0x14b35b35d000 - 0x14b35b35dfff 0x14b35b35e000 - 0x14b35b35efff 0x14b35b35f000 - 0x14b35b35ffff 0x14b35b360000 - 0x14b35b360fff 0x14b35b361000 - 0x14b35b361fff 0x14b35b362000 - 0x14b35b364fff 0x14b35b365000 - 0x14b35b36afff 0x14b35b36b000 - 0x14b35b36cfff 0x14b35b36d000 - 0x14b35b36dfff 0x14b35b36e000 - 0x14b35b36efff 0x14b35b36f000 - 0x14b35b370fff 0x14b35b371000 - 0x14b35b377fff 0x14b35b378000 - 0x14b35b379fff 0x14b35b37a000 - 0x14b35b37afff 0x14b35b37b000 - 0x14b35b37bfff 0x14b35b37c000 - 0x14b35b37dfff 0x14b35b37e000 - 0x14b35b37ffff 0x14b35b380000 - 0x14b35b38afff 0x14b35b38b000 - 0x14b35b38dfff 0x14b35b38e000 - 0x14b35b38efff 0x14b35b38f000 - 0x14b35b38ffff 0x14b35b390000 - 0x14b35b390fff 0x14b35b391000 - 0x14b35b391fff 0x14b35b392000 - 0x14b35b392fff 0x14b35b393000 - 0x14b35b393fff 0x14b35b394000 - 0x14b35b394fff 0x14b35b395000 - 0x14b35b396fff 0x14b35b397000 - 0x14b35b39dfff 0x14b35b39e000 - 0x14b35b39ffff 0x14b35b3a0000 - 0x14b35b3a0fff 0x14b35b3a1000 - 0x14b35b3a1fff 0x14b35b3a2000 - 0x14b35b3a8fff 0x14b35b3a9000 - 0x14b35b3d2fff 0x14b35b3d3000 - 0x14b35b3e9fff 0x14b35b3ea000 - 0x14b35b3ebfff 0x14b35b3ec000 - 0x14b35b3ecfff 0x14b35b3ed000 - 0x14b35b3fafff 0x14b35b3fb000 - 0x14b35b422fff 0x14b35b423000 - 0x14b35b439fff 0x14b35b43a000 - 0x14b35b43afff 0x14b35b43b000 - 0x14b35b43dfff 0x14b35b43e000 - 0x14b35b43efff 0x14b35b43f000 - 0x14b35b445fff 0x14b35b446000 - 0x14b35b451fff 0x14b35b452000 - 0x14b35b455fff 0x14b35b456000 - 0x14b35b456fff 0x14b35b457000 - 0x14b35b457fff 0x14b35b458000 - 0x14b35b45afff 0x14b35b45b000 - 0x14b35b491fff 0x14b35b492000 - 0x14b35b593fff 0x14b35b594000 - 0x14b35b614fff 0x14b35b615000 - 0x14b35b615fff 0x14b35b616000 - 0x14b35b61cfff 0x14b35b61d000 - 0x14b35b61dfff 0x14b35b61e000 - 0x14b35b61ffff 0x14b35b620000 - 0x14b35b630fff 0x14b35b631000 - 0x14b35b700fff 0x14b35b701000 - 0x14b35b734fff 0x14b35b735000 - 0x14b35b738fff 0x14b35b739000 - 0x14b35b739fff 0x14b35b73a000 - 0x14b35b73afff 0x14b35b73b000 - 0x14b35b744fff 0x14b35b745000 - 0x14b35b753fff 0x14b35b754000 - 0x14b35b75ffff 0x14b35b760000 - 0x14b35b762fff 0x14b35b763000 - 0x14b35b763fff 0x14b35b764000 - 0x14b35b765fff 0x14b35b766000 - 0x14b35b768fff 0x14b35b769000 - 0x14b35b769fff 0x14b35b76a000 - 0x14b35b76afff 0x14b35b76b000 - 0x14b35b76bfff 0x14b35b76c000 - 0x14b35b76cfff 0x14b35b76d000 - 0x14b35b771fff 0x14b35b772000 - 0x14b35b779fff 0x14b35b77a000 - 0x14b35b77bfff 0x14b35b77c000 - 0x14b35b77cfff 0x14b35b77d000 - 0x14b35b77dfff 0x14b35b77e000 - 0x14b35b77efff 0x14b35b77f000 - 0x14b35b77ffff 0x14b35b780000 - 0x14b35b781fff 0x14b35b782000 - 0x14b35b782fff 0x14b35b783000 - 0x14b35b783fff 0x14b35b784000 - 0x14b35b784fff 0x14b35b785000 - 0x14b35b786fff 0x14b35b787000 - 0x14b35b81cfff 0x14b35b81d000 - 0x14b35b90cfff 0x14b35b90d000 - 0x14b35b95dfff 0x14b35b95e000 - 0x14b35b968fff 0x14b35b969000 - 0x14b35b96bfff 0x14b35b96c000 - 0x14b35b96efff 0x14b35b96f000 - 0x14b35b97ffff 0x14b35b980000 - 0x14b35b9f8fff 0x14b35b9f9000 - 0x14b35ba0ffff 0x14b35ba10000 - 0x14b35ba10fff 0x14b35ba11000 - 0x14b35ba12fff 0x14b35ba13000 - 0x14b35ba13fff 0x14b35ba14000 - 0x14b35ba1afff 0x14b35ba1b000 - 0x14b35ba2afff 0x14b35ba2b000 - 0x14b35ba2ffff 0x14b35ba30000 - 0x14b35ba30fff 0x14b35ba31000 - 0x14b35ba31fff 0x14b35ba32000 - 0x14b35ba35fff 0x14b35ba36000 - 0x14b35ba44fff 0x14b35ba45000 - 0x14b35ba78fff 0x14b35ba79000 - 0x14b35ba87fff 0x14b35ba88000 - 0x14b35ba88fff 0x14b35ba89000 - 0x14b35ba8afff 0x14b35ba8b000 - 0x14b35ba8bfff 0x14b35ba8c000 - 0x14b35ba8dfff 0x14b35ba8e000 - 0x14b35ba99fff 0x14b35ba9a000 - 0x14b35bad1fff 0x14b35bad2000 - 0x14b35baddfff 0x14b35bade000 - 0x14b35badefff 0x14b35badf000 - 0x14b35bae0fff 0x14b35bae1000 - 0x14b35bae1fff 0x14b35bae2000 - 0x14b35bb5bfff 0x14b35bb5c000 - 0x14b35bd08fff 0x14b35bd09000 - 0x14b35bd99fff 0x14b35bd9a000 - 0x14b35bdc5fff 0x14b35bdc6000 - 0x14b35bdc9fff 0x14b35bdca000 - 0x14b35bdcffff 0x14b35bdd0000 - 0x14b35bdecfff 0x14b35bded000 - 0x14b35be44fff 0x14b35be45000 - 0x14b35be5dfff 0x14b35be5e000 - 0x14b35be5efff 0x14b35be5f000 - 0x14b35be67fff 0x14b35be68000 - 0x14b35be6bfff 0x14b35be6c000 - 0x14b35be91fff 0x14b35be92000 - 0x14b35bfe0fff 0x14b35bfe1000 - 0x14b35c02cfff 0x14b35c02d000 - 0x14b35c02dfff 0x14b35c02e000 - 0x14b35c030fff 0x14b35c031000 - 0x14b35c033fff 0x14b35c034000 - 0x14b35c037fff 0x14b35c038000 - 0x14b35c03afff 0x14b35c03b000 - 0x14b35c04cfff 0x14b35c04d000 - 0x14b35c050fff 0x14b35c051000 - 0x14b35c051fff 0x14b35c052000 - 0x14b35c052fff 0x14b35c053000 - 0x14b35c063fff 0x14b35c064000 - 0x14b35c099fff 0x14b35c09a000 - 0x14b35c1cffff 0x14b35c1d0000 - 0x14b35c1d0fff 0x14b35c1d1000 - 0x14b35c1d4fff 0x14b35c1d5000 - 0x14b35c1d5fff 0x14b35c1d6000 - 0x14b35c1d6fff 0x14b35c1d7000 - 0x14b35c1d8fff 0x14b35c1d9000 - 0x14b35c1d9fff 0x14b35c1da000 - 0x14b35c1dafff 0x14b35c1db000 - 0x14b35c1dbfff 0x14b35c1dc000 - 0x14b35c1ddfff 0x14b35c1de000 - 0x14b35c1dffff 0x14b35c1e0000 - 0x14b35c1e0fff 0x14b35c1e1000 - 0x14b35c1e1fff 0x14b35c1e2000 - 0x14b35c1e4fff 0x14b35c1e5000 - 0x14b35c1e6fff 0x14b35c1e7000 - 0x14b35c1e8fff 0x14b35c1e9000 - 0x14b35c1e9fff 0x14b35c1ea000 - 0x14b35c1eafff 0x14b35c1eb000 - 0x14b35c1ebfff 0x14b35c1ec000 - 0x14b35c1f9fff 0x14b35c1fa000 - 0x14b35c207fff 0x14b35c208000 - 0x14b35c215fff 0x14b35c216000 - 0x14b35c219fff 0x14b35c21a000 - 0x14b35c21afff 0x14b35c21b000 - 0x14b35c21cfff 0x14b35c21d000 - 0x14b35c230fff 0x14b35c231000 - 0x14b35c249fff 0x14b35c24a000 - 0x14b35c24afff 0x14b35c24b000 - 0x14b35c24bfff 0x14b35c24c000 - 0x14b35c254fff 0x14b35c255000 - 0x14b35c26afff 0x14b35c26b000 - 0x14b35c296fff 0x14b35c297000 - 0x14b35c29ffff 0x14b35c2a0000 - 0x14b35c2a0fff 0x14b35c2a1000 - 0x14b35c2a3fff 0x14b35c2a4000 - 0x14b35c2a9fff 0x14b35c2aa000 - 0x14b35c2aafff 0x14b35c2ab000 - 0x14b35c2d4fff 0x14b35c2d5000 - 0x14b35c41dfff 0x14b35c41e000 - 0x14b35c463fff 0x14b35c464000 - 0x14b35c464fff 0x14b35c465000 - 0x14b35c46efff 0x14b35c46f000 - 0x14b35c46ffff 0x14b35c470000 - 0x14b35c47efff 0x14b35c47f000 - 0x14b35c51afff 0x14b35c51b000 - 0x14b35c5b3fff 0x14b35c5b4000 - 0x14b35c5b4fff 0x14b35c5b5000 - 0x14b35c5b5fff 0x14b35c5b6000 - 0x14b35c5b7fff 0x14b35c5b8000 - 0x14b35c5d3fff 0x14b35c5d4000 - 0x14b35c663fff 0x14b35c664000 - 0x14b35c6f6fff 0x14b35c6f7000 - 0x14b35c6f7fff 0x14b35c6f8000 - 0x14b35c6fafff 0x14b35c6fb000 - 0x14b35c6fefff 0x14b35c6ff000 - 0x14b35c6fffff 0x14b35c700000 - 0x14b35c700fff 0x14b35c701000 - 0x14b35c701fff 0x14b35c702000 - 0x14b35c702fff 0x14b35c703000 - 0x14b35c703fff 0x14b35c704000 - 0x14b35c707fff 0x14b35c708000 - 0x14b35c712fff 0x14b35c713000 - 0x14b35c716fff 0x14b35c717000 - 0x14b35c717fff 0x14b35c718000 - 0x14b35c718fff 0x14b35c719000 - 0x14b35c71bfff 0x14b35c71c000 - 0x14b35c727fff 0x14b35c728000 - 0x14b35c72afff 0x14b35c72b000 - 0x14b35c72bfff 0x14b35c72c000 - 0x14b35c72cfff 0x14b35c72d000 - 0x14b35c739fff 0x14b35c73a000 - 0x14b35c767fff 0x14b35c768000 - 0x14b35c779fff 0x14b35c77a000 - 0x14b35c77afff 0x14b35c77b000 - 0x14b35c77cfff 0x14b35c77d000 - 0x14b35c77dfff 0x14b35c77e000 - 0x14b35c780fff 0x14b35c781000 - 0x14b35c786fff 0x14b35c787000 - 0x14b35c788fff 0x14b35c789000 - 0x14b35c789fff 0x14b35c78a000 - 0x14b35c78afff 0x14b35c78b000 - 0x14b35c78bfff 0x14b35c78c000 - 0x14b35c78dfff 0x14b35c78e000 - 0x14b35c790fff 0x14b35c791000 - 0x14b35c798fff 0x14b35c799000 - 0x14b35c79bfff 0x14b35c79c000 - 0x14b35c79cfff 0x14b35c79d000 - 0x14b35c79dfff 0x14b35c79e000 - 0x14b35c7a5fff 0x14b35c7a6000 - 0x14b35c7b2fff 0x14b35c7b3000 - 0x14b35c7b6fff 0x14b35c7b7000 - 0x14b35c7b8fff 0x14b35c7b9000 - 0x14b35c7b9fff 0x14b35c7ba000 - 0x14b35c7d5fff 0x14b35c7d6000 - 0x14b35c85dfff 0x14b35c85e000 - 0x14b35c8e4fff 0x14b35c8e5000 - 0x14b35c8e5fff 0x14b35c8e6000 - 0x14b35c8e6fff 0x14b35c8e7000 - 0x14b35c8e7fff 0x14b35c8e8000 - 0x14b35c8e8fff 0x14b35c8e9000 - 0x14b35c8f6fff 0x14b35c8f7000 - 0x14b35c925fff 0x14b35c926000 - 0x14b35c93dfff 0x14b35c93e000 - 0x14b35c940fff 0x14b35c941000 - 0x14b35c941fff 0x14b35c942000 - 0x14b35c948fff 0x14b35c949000 - 0x14b35c960fff 0x14b35c961000 - 0x14b35c969fff 0x14b35c96a000 - 0x14b35c96afff 0x14b35c96b000 - 0x14b35c96bfff 0x14b35c96c000 - 0x14b35c96cfff 0x14b35c96d000 - 0x14b35c989fff 0x14b35c98a000 - 0x14b35c9f9fff 0x14b35c9fa000 - 0x14b35ca36fff 0x14b35ca37000 - 0x14b35ca37fff 0x14b35ca38000 - 0x14b35ca3cfff 0x14b35ca3d000 - 0x14b35ca3dfff 0x14b35ca3e000 - 0x14b35ca3ffff 0x14b35ca40000 - 0x14b35caa2fff 0x14b35caa3000 - 0x14b35cd67fff 0x14b35cd68000 - 0x14b35cee2fff 0x14b35cee3000 - 0x14b35cee3fff 0x14b35cee4000 - 0x14b35ceedfff 0x14b35ceee000 - 0x14b35ceeefff 0x14b35ceef000 - 0x14b35cef0fff 0x14b35cef1000 - 0x14b35cef3fff 0x14b35cef4000 - 0x14b35cefdfff 0x14b35cefe000 - 0x14b35cefffff 0x14b35cf00000 - 0x14b35cf00fff 0x14b35cf01000 - 0x14b35cf01fff 0x14b35cf02000 - 0x14b35cf8ffff 0x14b35cf90000 - 0x14b35d60bfff 0x14b35d60c000 - 0x14b35d72ffff 0x14b35d730000 - 0x14b35d73afff 0x14b35d73b000 - 0x14b35d75ffff 0x14b35d760000 - 0x14b35d761fff 0x14b35d762000 - 0x14b35d7b7fff 0x14b35d7b8000 - 0x14b35d7d5fff 0x14b35d7d6000 - 0x14b35d7d6fff 0x14b35d7d7000 - 0x14b35d7d7fff 0x14b35d7d8000 - 0x14b35d7d8fff 0x14b35d7d9000 - 0x14b35d7e2fff 0x14b35d7e3000 - 0x14b35d804fff 0x14b35d805000 - 0x14b35d822fff 0x14b35d823000 - 0x14b35d823fff 0x14b35d824000 - 0x14b35d826fff 0x14b35d827000 - 0x14b35d827fff 0x14b35d828000 - 0x14b35d82afff 0x14b35d82b000 - 0x14b35d838fff 0x14b35d839000 - 0x14b35d83efff 0x14b35d83f000 - 0x14b35d83ffff 0x14b35d840000 - 0x14b35d840fff 0x14b35d841000 - 0x14b35d843fff 0x14b35d84d000 - 0x14b35d84dfff 0x14b35d84e000 - 0x14b35d86efff 0x14b35d86f000 - 0x14b35d877fff 0x14b35d878000 - 0x14b35d878fff 0x14b35d879000 - 0x14b35d87afff 0x7ffd19bab000 - 0x7ffd19bcbfff 0x7ffd19bf6000 - 0x7ffd19bf9fff 0x7ffd19bfa000 - 0x7ffd19bfbfff 0xffffffffff600000 - 0xffffffffff600fff ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf/asdf.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf/asdf.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db/dbi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db/dbi.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.fas ... WARNING: FFI:DEF-C-CONST(SIGUNUSED): CPP constant SIGUNUSED is not defined;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/wrap.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/wrap.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.fas ... WARNING: PROCLAIM(VALUES): # is locked Ignore the lock and proceed;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/clx.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/image.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/image.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/resource.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx/resource.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus/dbus.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi/fastcgi.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm/gdbm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm/gdbm.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2/gtk.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm/libsvm.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre/pcre.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre/pcre.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/postgresql.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/sql.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql/sql.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock/sock.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock/sock.fas ;; Loading file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.fas ... ;; Loaded file /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib/zlib.fas ;; Wrote the memory image into full/lispinit.mem (9,911,408 bytes) Bytes permanently allocated: 209,952 Bytes currently in use: 9,683,096 Bytes available until next GC: 2,416,664 9683096 ; 2416664 ; 209952 ; 49 ; 61893760 ; 303669 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod DESTDIR=`cd "/builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' cp Makefile asdf.fas link.sh /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/asdf/asdf.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/asdf make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/asdf' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-bdb.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' cp link.sh Makefile bdb.o dbi.fas preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/berkeley-db/dbi.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/berkeley-db' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' gcc -shared -fPIC -DPIC linux.o -lm -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-linux.so /usr/bin/ld: linux.o: in function `module__linux__init_function_2': /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:963: warning: the use of `tmpnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:964: warning: the use of `tmpnam_r' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc/linux.c:965: warning: the use of `tempnam' is dangerous, better use `mkstemp' /usr/bin/ld: /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' cp Makefile linux.o linux.fas wrap.fas link.sh /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/bindings/glibc/linux.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/bindings/glibc/wrap.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/bindings/glibc make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/bindings/glibc' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' gcc -shared -fPIC -DPIC clx.o -lXpm -lXext -lXau -lSM -lICE -lX11 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-clx.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' cp link.sh Makefile clx.fas image.fas resource.fas clx.o clx-preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/README /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/clx.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/image.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/resource.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos cp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/demos/*.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms cp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/demos/screens/screen.* /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/screens/ cp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/clx/new-clx/demos/xpms/*.xpm /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/demos/xpms/ make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clx/new-clx' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' gcc -shared -fPIC -DPIC dbus.o -ldbus-1 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-dbus.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' cp link.sh Makefile dbus.o dbus.fas /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/dbus/dbus.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dbus make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dbus' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-fastcgi.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' cp link.sh Makefile fastcgi.o fastcgi.fas fastcgi_wrappers.o /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/fastcgi.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/fastcgi/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/fastcgi make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/fastcgi' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gdbm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' cp link.sh Makefile gdbm.fas gdbm.o preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gdbm/gdbm.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gdbm make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gdbm' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' gcc -shared -fPIC -DPIC gtk.o -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lglade-2.0 -lgtk-x11-2.0 -lgdk-x11-2.0 -lpangocairo-1.0 -latk-1.0 -lcairo -lgdk_pixbuf-2.0 -lgio-2.0 -lpangoft2-1.0 -lpango-1.0 -lgobject-2.0 -lglib-2.0 -lharfbuzz -lfontconfig -lfreetype -lxml2 -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-gtk.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' cp link.sh Makefile gtk.fas gtk.o preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/gtk-server.cfg /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/gtk.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/gtk2/ui.glade /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gtk2 make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gtk2' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-libsvm.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' cp link.sh Makefile libsvm.fas libsvm.o preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/libsvm/libsvm.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/libsvm/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/libsvm make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/libsvm' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pari.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' cp link.sh Makefile pari.o cpari.o pari.fas preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/pari.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/desc2lisp.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pari/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pari make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-pcre.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' cp link.sh Makefile pcre.fas cpcre.o preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/pcre/pcre.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pcre make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pcre' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-postgresql.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' cp link.sh Makefile postgresql.o postgresql.fas sql.fas /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/postgresql/postgresql.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/postgresql/sql.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/postgresql/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/postgresql make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/postgresql' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' gcc -shared -fPIC -DPIC rawsock.o -Wl,--as-needed -Wl,-z,relro -Wl,-z,noexecstack -Wl,--export-dynamic -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-rawsock.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' cp link.sh Makefile sock.fas rawsock.o preload.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/sock.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock/demos cp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/demos/*.lisp /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/rawsock/demos/README /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock/demos/ make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/rawsock' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' make[1]: Nothing to be done for 'clisp-module'. make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/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 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/dynmod/lib-zlib.so make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' cp link.sh Makefile zlib.o zlib.fas /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules/zlib/zlib.lisp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/zlib make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/zlib' mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/data/Symbol-Table.text (cd /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+ && rm -rf base full) mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/$f;; \ *) /usr/bin/install -c -m 644 $f /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/$f;; \ esac; \ done; done mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/bin /usr/bin/install -c clisp-link /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/bin/clisp-link cd po && make install DESTDIR='/builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64' prefix='/usr' exec_prefix='/usr' make[1]: Entering directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/po' installing ../../src/po/en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/en/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_en.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/en/LC_MESSAGES/clisplow.mo installing ../../src/po/da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/da/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_da.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/da/LC_MESSAGES/clisplow.mo installing ../../src/po/de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/de/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_de.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/de/LC_MESSAGES/clisplow.mo installing ../../src/po/fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/fr/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_fr.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/fr/LC_MESSAGES/clisplow.mo installing ../../src/po/es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/es/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_es.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/es/LC_MESSAGES/clisplow.mo installing ../../src/po/nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/nl/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_nl.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/nl/LC_MESSAGES/clisplow.mo installing ../../src/po/ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/ru/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_ru.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/ru/LC_MESSAGES/clisplow.mo installing ../../src/po/sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/sv/LC_MESSAGES/clisp.mo installing ../../src/po/clisplow_sv.gmo as /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/locale/sv/LC_MESSAGES/clisplow.mo make[1]: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/po' gcc -I/usr/include/libsvm -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/gllib -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/src/gllib -O2 -fexceptions -g -grecord-gcc-switches -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -Wp,-D_GLIBCXX_ASSERTIONS -specs=/usr/lib/rpm/redhat/redhat-hardened-cc1 -fstack-protector-strong -specs=/usr/lib/rpm/redhat/redhat-annobin-cc1 -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-15.a9aeb80git.fc33.x86_64/usr/bin/clisp mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/emacs/site-lisp /usr/bin/install -c -m 644 ../emacs/clhs.el /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/emacs/site-lisp/clisp-ffi.el mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/vim/vimfiles/after/syntax /usr/bin/install -c -m 644 ../emacs/lisp.vim /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/vim/vimfiles/after/syntax/lisp.vim mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/aclocal /usr/bin/install -c -m 644 ../src/m4/clisp.m4 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/aclocal/clisp.m4 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/man mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/man/man1 /usr/bin/install -c -m 644 clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/man/man1/clisp.1 /usr/bin/install -c -m 644 clisp-link.1 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/man/man1/clisp-link.1 mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/ mkdir -p /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc/ make: Leaving directory '/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build' + cp -a build/full /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+ + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc/clisp.dvi /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc/clisp.1 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc/clisp.ps + rm -f /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/GNU-GPL + cp -p doc/mop-spec.pdf /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc + cp -p doc/Why-CLISP-is-under-GPL /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc + cp -p doc/regexp.html /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp/doc + find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name '*.dvi' -exec rm -f '{}' + + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 clisp + /usr/lib/rpm/find-lang.sh /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 clisplow + cat clisplow.lang + pushd /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/emacs/site-lisp ~/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/emacs/site-lisp ~/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + /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:44:16:Warning: assignment to free variable `clhs-symbols' + popd ~/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + cp -p config.rpath.orig /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.rpath + chmod a+x /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.guess /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux/config.sub /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux/depcomp /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux/install-sh ++ find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/asdf/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/bindings/glibc/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dbus/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/fastcgi/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gdbm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gtk2/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/libsvm/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pari/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pcre/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/postgresql/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock/Makefile + for mk in $(find /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64 -name Makefile) + sed -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/modules,/usr/lib64/clisp-2.49.93+, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/clisp,/usr/bin/clisp, -e s,/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/linkkit,/usr/lib64/clisp-2.49.93+/linkkit, -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/zlib/Makefile + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/{base,full}/makevars + sed -e 's, -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/base/makevars + for mk in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/{base,full}/makevars + sed -e 's, -I/builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749[^'\'']*,,' -e 's,/usr/lib64/lib\([[:alnum:]]*\)\.so,-l\1,g' -i /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full/makevars + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/asdf + cp -p build/asdf/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/base + cp -p build/base/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db + cp -p build/berkeley-db/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/berkeley-db + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/bindings + cp -p build/bindings/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/build-aux + cp -p build/build-aux/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx + cp -p build/clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/data + cp -p build/data/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dbus + cp -p build/dbus/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dbus + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod + cp -p build/dynmod/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/fastcgi + cp -p build/fastcgi/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/fastcgi + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full + cp -p build/full/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gdbm + cp -p build/gdbm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gdbm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gtk2 + cp -p build/gtk2/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/gtk2 + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/libsvm + cp -p build/libsvm/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/libsvm + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/linkkit + cp -p build/linkkit/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pari + cp -p build/pari/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pari + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pcre + cp -p build/pcre/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/pcre + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/postgresql + cp -p build/postgresql/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/postgresql + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock + cp -p build/rawsock/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/rawsock + for dir in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/* ++ basename /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/zlib/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/zlib + cp -p build/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+ + cp -p build/clx/new-clx/config.h /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/clx/new-clx + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/bin/clisp + chmod 0755 /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run + pushd /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full ~/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full ~/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + for obj in bogomips calls gettext readline regexi + rm -f bogomips.o + ln -s ../base/bogomips.o bogomips.o + for obj in bogomips calls gettext readline regexi + rm -f calls.o + ln -s ../base/calls.o calls.o + for obj in bogomips calls gettext readline regexi + rm -f gettext.o + ln -s ../base/gettext.o gettext.o + for obj in bogomips calls gettext readline regexi + rm -f readline.o + ln -s ../base/readline.o readline.o + for obj in bogomips calls gettext readline regexi + rm -f regexi.o + ln -s ../base/regexi.o regexi.o + for obj in libgnu libnoreadline lisp + rm -f libgnu.a + ln -s ../base/libgnu.a libgnu.a + for obj in libgnu libnoreadline lisp + rm -f libnoreadline.a + ln -s ../base/libnoreadline.a libnoreadline.a + for obj in libgnu libnoreadline lisp + rm -f lisp.a + ln -s ../base/lisp.a lisp.a + for obj in fastcgi fastcgi_wrappers + rm -f fastcgi.o + ln -s ../fastcgi/fastcgi.o fastcgi.o + for obj in fastcgi fastcgi_wrappers + rm -f fastcgi_wrappers.o + ln -s ../fastcgi/fastcgi_wrappers.o fastcgi_wrappers.o + rm -f bdb.o + ln -s ../berkeley-db/bdb.o bdb.o + rm -f clx.o + ln -s ../clx/new-clx/clx.o clx.o + rm -f cpcre.o + ln -s ../pcre/cpcre.o cpcre.o + rm -f dbus.o + ln -s ../dbus/dbus.o dbus.o + rm -f gdbm.o + ln -s ../gdbm/gdbm.o gdbm.o + rm -f gtk.o + ln -s ../gtk2/gtk.o gtk.o + rm -f libsvm.o + ln -s ../libsvm/libsvm.o libsvm.o + rm -f linux.o + ln -s ../bindings/glibc/linux.o linux.o + rm -f postgresql.o + ln -s ../postgresql/postgresql.o postgresql.o + rm -f rawsock.o + ln -s ../rawsock/rawsock.o rawsock.o + rm -f zlib.o + ln -s ../zlib/zlib.o zlib.o + popd ~/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + 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-15.a9aeb80git.fc33 --unique-debug-suffix -2.49.93-15.a9aeb80git.fc33.x86_64 --unique-debug-src-base clisp-2.49.93-15.a9aeb80git.fc33.x86_64 --run-dwz --dwz-low-mem-die-limit 10000000 --dwz-max-die-limit 110000000 -S debugsourcefiles.list /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/bin/clisp explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/base/lisp.run explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-dbus.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/base/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/bin/clisp extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-clx.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-bdb.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-fastcgi.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-gdbm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-gtk.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pari.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-libsvm.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pari.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-pcre.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-postgresql.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so explicitly decompress any DWARF compressed ELF sections in /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-zlib.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/dynmod/lib-rawsock.so extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run extracting debug info from /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/lib64/clisp-2.49.93+/full/lisp.run original debug info size: 20756kB, size after compression: 15132kB /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 19653 blocks + /usr/lib/rpm/check-buildroot + /usr/lib/rpm/redhat/brp-ldconfig + /usr/lib/rpm/brp-compress + /usr/lib/rpm/redhat/brp-strip-lto /usr/bin/strip + /usr/lib/rpm/brp-strip-static-archive /usr/bin/strip + /usr/lib/rpm/redhat/brp-python-bytecompile '' 1 0 + /usr/lib/rpm/brp-python-hardlink + /usr/lib/rpm/redhat/brp-mangle-shebangs mangling shebang in /usr/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-15.a9aeb80git.fc33.x86_64 Executing(%license): /bin/sh -e /var/tmp/rpm-tmp.dIlI6A + umask 022 + cd /builddir/build/BUILD + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + LICENSEDIR=/builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/licenses/clisp + cp -pr COPYRIGHT /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/licenses/clisp + cp -pr GNU-GPL /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64/usr/share/licenses/clisp + RPM_EC=0 ++ jobs -p + exit 0 Provides: bundled(gnulib) clisp = 2.49.93-15.a9aeb80git.fc33 clisp(x86-64) = 2.49.93-15.a9aeb80git.fc33 lib-bdb.so()(64bit) lib-clx.so()(64bit) lib-dbus.so()(64bit) lib-fastcgi.so()(64bit) lib-gdbm.so()(64bit) lib-gtk.so()(64bit) lib-libsvm.so()(64bit) lib-linux.so()(64bit) lib-pari.so()(64bit) lib-pcre.so()(64bit) lib-postgresql.so()(64bit) lib-rawsock.so()(64bit) lib-zlib.so()(64bit) Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Requires: ld-linux-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.7()(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-15.a9aeb80git.fc33.x86_64 Executing(%doc): /bin/sh -e /var/tmp/rpm-tmp.RgleiA + umask 022 + cd /builddir/build/BUILD + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + DOCDIR=/builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-15.a9aeb80git.fc33.x86_64/usr/share/doc/clisp-devel + cp -pr modules/clx/clx-manual /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.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-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/cpari.o warning: absolute symlink: /usr/lib64/clisp-2.49.93+/full/pari.o -> /builddir/build/BUILD/clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749/build/pari/pari.o Provides: clisp-devel = 2.49.93-15.a9aeb80git.fc33 clisp-devel(x86-64) = 2.49.93-15.a9aeb80git.fc33 clisp-static = 2.49.93-15.a9aeb80git.fc33 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Requires: /usr/bin/sh Processing files: clisp-debugsource-2.49.93-15.a9aeb80git.fc33.x86_64 Provides: clisp-debugsource = 2.49.93-15.a9aeb80git.fc33 clisp-debugsource(x86-64) = 2.49.93-15.a9aeb80git.fc33 Requires(rpmlib): rpmlib(CompressedFileNames) <= 3.0.4-1 rpmlib(FileDigests) <= 4.6.0-1 rpmlib(PayloadFilesHavePrefix) <= 4.0-1 Processing files: clisp-debuginfo-2.49.93-15.a9aeb80git.fc33.x86_64 Provides: clisp-debuginfo = 2.49.93-15.a9aeb80git.fc33 clisp-debuginfo(x86-64) = 2.49.93-15.a9aeb80git.fc33 debuginfo(build-id) = 19104edb92f6d364c1b5e50989c7cafc6a7f7031 debuginfo(build-id) = 1c0045991b4c19889128a8b234d34e2f2073a4a2 debuginfo(build-id) = 2582400f5265ffdea3e30b7fb4715e3e2470992b debuginfo(build-id) = 29f5f89375730951de70f65444caa7f86e894b61 debuginfo(build-id) = 4bce99a5ec3a2d78bbb1bfcde02119a762b7a3a4 debuginfo(build-id) = 5af73e86eac46321135c4780af0733aa9e9bbf98 debuginfo(build-id) = 733c259bfade3023d9ccaa5b6d897755cc29cd4f debuginfo(build-id) = 74a9c2ea77d5b8a86bfe300c9f97e2345e7e1fb3 debuginfo(build-id) = 8147def74a5e8013abea685702c6f6d370fb41f5 debuginfo(build-id) = 8c2c6e51f7bde1935141adbd1983a3082b2263de debuginfo(build-id) = 94baae767bac6bbef3847fd54ea126d2cd975799 debuginfo(build-id) = 99de7cd4712da819a43fe7f09c96153fa8a50972 debuginfo(build-id) = a3ed4f79d4e7d9240826a5ab5800afdd0832070c debuginfo(build-id) = b2d2af2f4e51936d782574cf51120a91e1f7d10b debuginfo(build-id) = bc84bd5e4b55b07343faca2da32177e276d64507 debuginfo(build-id) = ed090e385c4c578ff11365969aa6db9dd5fa7300 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-15.a9aeb80git.fc33 Checking for unpackaged file(s): /usr/lib/rpm/check-files /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 Wrote: /builddir/build/RPMS/clisp-debugsource-2.49.93-15.a9aeb80git.fc33.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-debuginfo-2.49.93-15.a9aeb80git.fc33.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-devel-2.49.93-15.a9aeb80git.fc33.x86_64.rpm Wrote: /builddir/build/RPMS/clisp-2.49.93-15.a9aeb80git.fc33.x86_64.rpm Executing(%clean): /bin/sh -e /var/tmp/rpm-tmp.yrjvlB + umask 022 + cd /builddir/build/BUILD + cd clisp-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749-a9aeb8030714ae97ef7f8e01c2ee68b6f297e749 + /usr/bin/rm -rf /builddir/build/BUILDROOT/clisp-2.49.93-15.a9aeb80git.fc33.x86_64 + RPM_EC=0 ++ jobs -p + exit 0 Child return code was: 0