SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN WARNING: redefining RUTILS.SEQUENCE:GROUP in DEFUN WARNING: redefining TRIVIAL-SHELL::OS-PROCESS-ID in DEFUN WARNING: redefining (COMMON-LISP:SETF CL-BSON.TYPES:OPTIONS) in DEFGENERIC Unhandled EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST in thread #<SB-THREAD:THREAD tid=290976 "main thread" RUNNING {1200F08003}>: A readtable named LET-OVER-LAMBDA:LOL-SYNTAX does not exist. Backtrace for: #<SB-THREAD:THREAD tid=290976 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {120DC4BCF3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {120DC4BCF3}>) 2: (INVOKE-DEBUGGER #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {120DC4BCF3}>) 3: (ERROR EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST :READTABLE-NAME LET-OVER-LAMBDA:LOL-SYNTAX) 4: (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX NIL) 5: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp")) 6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) #<NULL-LEXENV>) 7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) #<NULL-LEXENV>) 8: (SB-EXT:EVAL-TLF (PROGN (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) 2 #<NULL-LEXENV>) 9: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL)) 10: (SB-C::EVAL-COMPILE-TOPLEVEL ((SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) ((SETQ *READTABLE* #1=(EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) #2=(SETF *READTABLE* #1#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #2# (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #3=(*READTABLE*))) . #3#) SB-C::ORIGINAL-SOURCE-START 0 2)) 11: (SB-C::PROCESS-TOPLEVEL-FORM (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (#1=(SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1# (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #2=(*READTABLE*))) . #2#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 12: (SB-C::PROCESS-TOPLEVEL-FORM (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 13: (SB-C::PROCESS-TOPLEVEL-PROGN ((SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 14: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) (SB-C::ORIGINAL-SOURCE-START 0 2) NIL) 15: (SB-C::PROCESS-TOPLEVEL-FORM (IN-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX) (SB-C::ORIGINAL-SOURCE-START 0 2) NIL) 16: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (IN-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX) :CURRENT-INDEX 2) 17: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {B8003A603B}> #<SB-C::SOURCE-INFO {120DB8C8C3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE) 18: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE)) 19: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 20: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {120DB8C8C3}> NIL) 21: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (223)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/rea... {120DC92C3F}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL) 22: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {120DB9F00B}> NIL) 23: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {120DB9EF8B}>) 24: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (211)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/rea... {120DCA231F}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL) 25: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) 26: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) 27: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 28: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) [fast-method] 29: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204682333}>) [fast-method] 30: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 31: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204682333}>) [fast-method] 32: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 33: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson">) 34: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 35: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson">) [fast-method] 36: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bson") 37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 38: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bson") [fast-method] 39: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120467BA4B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 41: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120463AA4B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 42: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bson") [fast-method] 43: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bson" "cl-bson") 44: (DEPCHECK::MAGIC "cl-bson" "cl-bson" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HXAmDw10/depcheck-win.txt") 45: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bson" "cl-bson" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HXAmDw10/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-HXAmDw10/depcheck-fail.txt")) 46: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 47: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 48: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 49: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 2 fatal ERROR conditions
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20250706-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file. WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN WARNING: redefining UIOP/PACKAGE::INSTALL-PACKAGE-LOCAL-NICKNAMES in DEFUN WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN WARNING: redefining UIOP/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN WARNING: redefining UIOP/VERSION:VERSION< in DEFUN WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO WARNING: redefining UIOP/OS:FEATUREP in DEFUN WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN WARNING: redefining UIOP/OS::OS-MEZZANO-P in DEFUN WARNING: redefining UIOP/OS:DETECT-OS in DEFUN WARNING: redefining UIOP/OS:OS-COND in DEFMACRO WARNING: redefining UIOP/OS:GETENV in DEFUN WARNING: redefining UIOP/OS:GETENVP in DEFUN WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN WARNING: redefining UIOP/OS:HOSTNAME in DEFUN WARNING: redefining UIOP/OS:GETCWD in DEFUN WARNING: redefining UIOP/OS:CHDIR in DEFUN WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN WARNING: redefining UIOP/PATHNAME:TRANSLATE-PATHNAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN WARNING: redefining UIOP/STREAM:WRITELN in DEFUN WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN WARNING: redefining UIOP/IMAGE:QUIT in DEFUN WARNING: redefining UIOP/IMAGE:DIE in DEFUN WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:RESOLVE-LOCATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN WARNING: redefining UIOP/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/readtable.lisp ; in: DEFUN |#{-reader| ; (LENGTH RUTILS.READTABLE::KVS) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (/ (LENGTH RUTILS.READTABLE::KVS) 2) ; ; note: unable to optimize due to type uncertainty: The result is a (VALUES (RATIONAL 0 17592186044415/2) &OPTIONAL), not a (VALUES INTEGER &REST T). ; in: DEFUN |@-reader| ; (POSITION-IF ; (LAMBDA (RUTILS.READTABLE::X) (MEMBER RUTILS.READTABLE::X '(#\. #\#))) ; RUTILS.READTABLE::STR :START (1+ RUTILS.READTABLE::START)) ; ; note: unable to expand inline because: upgraded array element type not known at compile time ; in: DEFREADTABLE RUTILS-READTABLE ; (EDITOR-HINTS.NAMED-READTABLES:DEFREADTABLE RUTILS.READTABLE:RUTILS-READTABLE ; (:MERGE :STANDARD) ; (:MACRO-CHAR #\} (GET-MACRO-CHARACTER #\))) ; (:MACRO-CHAR #\^ #'RUTILS.READTABLE::|^-reader|) ; (:MACRO-CHAR #\@ #'RUTILS.READTABLE:|@-reader| T) ; (:DISPATCH-MACRO-CHAR #\# #\v #'RUTILS.READTABLE:|#v-reader|) ; (:DISPATCH-MACRO-CHAR #\# #\h #'RUTILS.READTABLE:|#h-reader|) ; (:DISPATCH-MACRO-CHAR #\# #\{ #'RUTILS.READTABLE:|#{-reader|) ; (:DISPATCH-MACRO-CHAR #\# #\` #'RUTILS.READTABLE:|#`-reader|) ; (:DISPATCH-MACRO-CHAR #\# #\/ #'RUTILS.READTABLE:|#/-reader|)) ; --> LET LET COND IF THE PROGN SETQ THE ; --> EDITOR-HINTS.NAMED-READTABLES::%CLEAR-READTABLE BLOCK PROG1 LET PROGN ; --> EDITOR-HINTS.NAMED-READTABLES::DO-READTABLE LET ; --> EDITOR-HINTS.NAMED-READTABLES::WITH-READTABLE-ITERATOR LET MACROLET LOOP ; --> BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL #:ITER+186 ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFREADTABLE STANDARD-READTABLE ; (EDITOR-HINTS.NAMED-READTABLES:DEFREADTABLE RUTILS.READTABLE:STANDARD-READTABLE ; (:MERGE :STANDARD)) ; --> LET LET COND IF THE PROGN SETQ THE ; --> EDITOR-HINTS.NAMED-READTABLES::%CLEAR-READTABLE BLOCK PROG1 LET PROGN ; --> EDITOR-HINTS.NAMED-READTABLES::DO-READTABLE LET ; --> EDITOR-HINTS.NAMED-READTABLES::WITH-READTABLE-ITERATOR LET MACROLET LOOP ; --> BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL #:ITER+200 ; --> FUNCALL ; ==> ; 1 ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/symbol.lisp ; in: DEFUN MAKE-GENSYM-LIST ; (STRING RUTILS.SYMBOL::X) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING SYMBOL). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (LOOP :REPEAT LENGTH ; :COLLECT (GENSYM RUTILS.SYMBOL::G)) ; --> LET CEILING ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to fold division by 1 due to type uncertainty: The first argument is a REAL, not a INTEGER. ; (TYPEP RUTILS.SYMBOL::X '(INTEGER 0)) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (LOOP :REPEAT LENGTH ; :COLLECT (GENSYM RUTILS.SYMBOL::G)) ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN ENSURE-SYMBOL ; (FORMAT NIL FORMAT RUTILS.SYMBOL::OBJ) ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR STRING FUNCTION), not a SIMPLE-STRING. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR STRING FUNCTION), not a FUNCTION. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/misc.lisp ; in: DEFUN LESS ; (< RUTILS.MISC::X RUTILS.MISC::Y) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; in: DEFUN NOT-MORE ; (<= RUTILS.MISC::X RUTILS.MISC::Y) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; in: DEFUN MORE ; (> RUTILS.MISC::X RUTILS.MISC::Y) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. ; in: DEFUN NOT-LESS ; (>= RUTILS.MISC::X RUTILS.MISC::Y) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; in: DEFMACRO VOID ; (DEFMACRO RUTILS.MISC:VOID (RUTILS.MISC::PLACE) ; "Nullify PLACE." ; `(SETF ,RUTILS.MISC::PLACE NIL)) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'RUTILS.MISC:VOID ; (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION RUTILS.MISC:VOID) ; (#:EXPR #:ENV) ; "Nullify PLACE." ; (DECLARE (SB-C::LAMBDA-LIST (RUTILS.MISC::PLACE))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO RUTILS.MISC:VOID . DEFMACRO) ; (RUTILS.MISC::PLACE) ; (CDR #:EXPR) ; (DECLARE (SB-C::CONSTANT-VALUE RUTILS.MISC::PLACE)) ; (BLOCK RUTILS.MISC:VOID `(SETF #)))) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; VOID is being redefined as a macro when it was previously assumed to be a function. ; in: DEFMACRO ONCE-ONLY ; (LENGTH RUTILS.MISC::SPECS) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (STRING (CAR RUTILS.READTABLE:%%)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING SYMBOL). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "misc"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/list.lisp ; in: DEFUN LAST1 ; (LAST LIST RUTILS.LIST::N) ; ; note: unable to optimize because: second argument type too vague ; in: DEFUN (SETF LAST1) ; (LAST LIST RUTILS.LIST::N) ; ; note: unable to optimize because: second argument type too vague ; in: DEFUN BUTLAST2 ; (LENGTH LIST) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (ASSERT (<= RUTILS.LIST::N (LENGTH LIST))) ; --> LET WHEN IF ; ==> ; (<= #:TEMP0 #:TEMP1) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; in: DEFUN FLATTEN ; (ZEROP RUTILS.LIST::DEPTH) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (1- RUTILS.LIST::DEPTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN TAKE ; (LOOP :FOR REST :ON LIST :BY (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA ; (NTHCDR STEP RUTILS.READTABLE:%)) ; :REPEAT RUTILS.LIST::N ; :COLLECT (CAR REST)) ; --> LET LET CEILING ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a (UNSIGNED-BYTE 62). ; ; note: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to fold division by 1 due to type uncertainty: The first argument is a REAL, not a INTEGER. ; (DEFUN RUTILS.LIST:TAKE (RUTILS.LIST::N LIST &OPTIONAL (STEP 1)) ; "Return a list with N elements, which are taken from LIST by this formula: ; INDEX of ELEMENT = I * STEP for I from 0" ; (DECLARE (TYPE (INTEGER 1) STEP)) ; (LOOP :FOR REST :ON LIST :BY (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA ; (NTHCDR STEP RUTILS.READTABLE:%)) ; :REPEAT RUTILS.LIST::N ; :COLLECT (CAR REST))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND IF THE ; --> PROGN SB-KERNEL:THE* #:G8 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (LOOP :FOR REST :ON LIST :BY (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA ; (NTHCDR STEP RUTILS.READTABLE:%)) ; :REPEAT RUTILS.LIST::N ; :COLLECT (CAR REST)) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= ; ==> ; 1 ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN DELETE-FROM-PLIST ; (ZEROP RUTILS.LIST::POS) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (1- RUTILS.LIST::POS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ RUTILS.LIST::POS 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 3) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 3) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (DECF RUTILS.LIST::POS 2) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER -1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (INCF RUTILS.LIST::POS 2) ; --> THE ; ==> ; (+ 2 RUTILS.LIST::POS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SET-EQUAL ; (MAPCAR RUTILS.LIST::KEY RUTILS.LIST::LIST1) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (MAPCAR RUTILS.LIST::KEY RUTILS.LIST::LIST2) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (MEMBER ELT RUTILS.LIST::KEYLIST2 :TEST RUTILS.LIST::TEST) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (MEMBER ELT RUTILS.LIST::KEYLIST1 :TEST RUTILS.LIST::TEST) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN ZIP-WITH ; (APPLY RUTILS.MISC:FN (MAPCAR #'CAR RUTILS.LIST::TAILS)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFUN ZIP*-WITH ; (APPLY RUTILS.MISC:FN (MAPCAR #'CAR RUTILS.LIST::TAILS)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFUN MAPTIMES ; (MAPCAR RUTILS.MISC:FN (RUTILS.LIST:RANGE 0 RUTILS.LIST::TIMES)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (DEFUN RUTILS.LIST:MAPTIMES (RUTILS.LIST::TIMES RUTILS.MISC:FN) ; "Map FN with number range from 0 to TIMES (exclusive)." ; (MAPCAR RUTILS.MISC:FN (RUTILS.LIST:RANGE 0 RUTILS.LIST::TIMES))) ; ==> ; (SB-IMPL::%DEFUN 'RUTILS.LIST:MAPTIMES ; (SB-INT:NAMED-LAMBDA RUTILS.LIST:MAPTIMES ; (RUTILS.LIST::TIMES RUTILS.MISC:FN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Map FN with number range from 0 to TIMES (exclusive)." ; (BLOCK RUTILS.LIST:MAPTIMES ; (MAPCAR RUTILS.MISC:FN ; (RUTILS.LIST:RANGE 0 RUTILS.LIST::TIMES))))) ; ; caught STYLE-WARNING: ; Call to RUTILS.LIST:RANGE could not be inlined because no definition for it was seen prior to its first use. ; in: DEFUN MAPINDEX ; (FUNCALL RUTILS.MISC:FN (INCF RUTILS.LIST::I) RUTILS.READTABLE:%) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (INCF RUTILS.LIST::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAPCANINDEX ; (FUNCALL RUTILS.MISC:FN (INCF RUTILS.LIST::I) RUTILS.READTABLE:%) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (INCF RUTILS.LIST::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN REMOVE-IDX ; (= RUTILS.LIST::I RUTILS.LIST::IDX) ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP :FOR RUTILS.LIST::I :FROM 0 ; :FOR ELT :IN LIST ; :UNLESS (= RUTILS.LIST::I RUTILS.LIST::IDX) ; :COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN RANGE ; (LOOP :FOR RUTILS.LIST::I :FROM RUTILS.LIST::START :TO (1- ; RUTILS.LIST::LIMIT) :BY STEP ; :COLLECT RUTILS.LIST::I) ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY WHEN IF ; ==> ; (> RUTILS.LIST::I #:LIM0) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (1- RUTILS.LIST::LIMIT) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOOP :FOR RUTILS.LIST::I :FROM RUTILS.LIST::START :TO (1- ; RUTILS.LIST::LIMIT) :BY STEP ; :COLLECT RUTILS.LIST::I) ; --> LET MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a RATIONAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a RATIONAL, not a FIXNUM. ; etc. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY WHEN IF ; ==> ; (> RUTILS.LIST::I #:LIM0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (+ RUTILS.LIST::I #:STEP1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (REAL (0)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (REAL (0)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "list"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/string.lisp ; in: DEFUN STRJOIN ; (FORMAT NIL (FORMAT NIL "~~{~~A~~^~A~~}" RUTILS.STRING::DELIM) ; RUTILS.STRING::STRINGS) ; ; note: unable to optimize because: The control string is not a constant. ; in: DEFUN SUBSTR ; (LENGTH STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MINUSP RUTILS.STRING::START) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (MINUSP RUTILS.STRING::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (SUBSEQ STRING ; (IF (MINUSP RUTILS.STRING::START) ; (+ RUTILS.STRING::LEN RUTILS.STRING::START) ; RUTILS.STRING::START) ; (IF (AND RUTILS.STRING::END (MINUSP RUTILS.STRING::END)) ; (+ RUTILS.STRING::LEN RUTILS.STRING::END) ; RUTILS.STRING::END)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (MINUSP RUTILS.STRING::START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ RUTILS.STRING::LEN RUTILS.STRING::START) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64). ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; (MINUSP RUTILS.STRING::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. ; in: DEFUN STARTS-WITH ; (LENGTH RUTILS.STRING::PREFIX) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ENDS-WITH ; (LENGTH STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN LAST-CHAR ; (CHAR STRING (1- (LENGTH STRING))) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/hash-table.lisp ; in: DEFUN COPY-HASH-TABLE ; (FUNCALL RUTILS.HASH-TABLE::KEY RUTILS.HASH-TABLE::V) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: KEY is not known to be a function ; in: DEFUN MERGE-HASH-TABLES-WITH ; (FUNCALL RUTILS.MISC:FN RUTILS.HASH-TABLE::V ; (GETHASH RUTILS.HASH-TABLE::K RUTILS.HASH-TABLE::REZ)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFUN PRINT-HASH-TABLE ; (INCF RUTILS.HASH-TABLE::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (> (INCF RUTILS.HASH-TABLE::I) *PRINT-LENGTH*) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a (OR UNSIGNED-BYTE NULL), not a FIXNUM. ; in: DEFMACRO DOTABLE ; (DEFMACRO RUTILS.HASH-TABLE:DOTABLE ; ( ; (RUTILS.HASH-TABLE::K ; RUTILS.HASH-TABLE::V ; RUTILS.HASH-TABLE::TABLE ; &OPTIONAL ; RUTILS.HASH-TABLE::REZ) ; &BODY RUTILS.HASH-TABLE::BODY) ; "Like DOLIST but iterates over key-value pairs (K V) in anything, that can be ; viewed as a table (hash-table, alist, plist, object). ; Autodeclares variables named _ as ignored." ; (RUTILS.SYMBOL:WITH-GENSYMS (RUTILS.HASH-TABLE::PAIR) ; (RUTILS.MISC:ONCE-ONLY (RUTILS.HASH-TABLE::TABLE) ; (LET (#) ; `(BLOCK NIL # ,RUTILS.HASH-TABLE::REZ))))) ; --> EVAL-WHEN ; ==> ; (SB-C::%DEFMACRO 'RUTILS.HASH-TABLE:DOTABLE ; (SB-INT:NAMED-LAMBDA (MACRO-FUNCTION ; RUTILS.HASH-TABLE:DOTABLE) ; (#:EXPR #:ENV) ; "Like DOLIST but iterates over key-value pairs (K V) in anything, that can be ; viewed as a table (hash-table, alist, plist, object). ; Autodeclares variables named _ as ignored." ; (DECLARE ; (SB-C::LAMBDA-LIST (# &BODY RUTILS.HASH-TABLE::BODY))) ; (DECLARE (IGNORE #:ENV)) ; (SB-INT:NAMED-DS-BIND (:MACRO RUTILS.HASH-TABLE:DOTABLE ; . DEFMACRO) ; ((RUTILS.HASH-TABLE::K RUTILS.HASH-TABLE::V ; RUTILS.HASH-TABLE::TABLE &OPTIONAL ; RUTILS.HASH-TABLE::REZ) ; &BODY RUTILS.HASH-TABLE::BODY) ; (CDR #:EXPR) ; (DECLARE ; (SB-C::CONSTANT-VALUE RUTILS.HASH-TABLE::K ; RUTILS.HASH-TABLE::V ; RUTILS.HASH-TABLE::TABLE ; RUTILS.HASH-TABLE::REZ ; RUTILS.HASH-TABLE::BODY)) ; (BLOCK RUTILS.HASH-TABLE:DOTABLE ; (RUTILS.SYMBOL:WITH-GENSYMS # ; #)))) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; DOTABLE is being redefined as a macro when it was previously assumed to be a function. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "hash-table"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/hash-set.lisp ; in: DEFUN |INTER#| ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET1) ; (WHEN (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: _ ; ; caught STYLE-WARNING: ; The variable _ is defined but never used. ; (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2) ; ; note: deleting unreachable code ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET) ; ; note: deleting unreachable code ; in: DEFUN |UNION#| ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET1) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: _ ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET2) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: _ ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET1) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; The variable _ is defined but never used. ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET2) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; The variable _ is defined but never used. ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET) ; ; note: deleting unreachable code ; in: DEFUN |DIFF#| ; (RUTILS.HASH-TABLE:DOTABLE (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_ ; RUTILS.HASH-SET::SET1) ; (UNLESS (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2) ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))) ; --> BLOCK ETYPECASE COND IF MAPHASH LET* SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; ==> ; 1 ; ; caught STYLE-WARNING: ; IGNORE declaration for an unknown variable: _ ; ; caught STYLE-WARNING: ; The variable _ is defined but never used. ; (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2) ; ; note: deleting unreachable code ; (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET) ; ; note: deleting unreachable code WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "hash-set"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/tree.lisp ; in: DEFUN MAPTREE ; (FUNCALL RUTILS.MISC:FN RUTILS.TREE::NODE) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFUN MAPLEAVES ; (FUNCALL RUTILS.MISC:FN RUTILS.TREE::NODE) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFUN TREE-SIZE ; (INCF RUTILS.TREE::ACC) ; --> THE ; ==> ; (+ 1 RUTILS.TREE::ACC) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN TREE-DEPTH ; (1+ ; (REDUCE #'MAX ; (CONS 1 (MAPCAR #'RUTILS.TREE:TREE-DEPTH (REST RUTILS.TREE::TREE))))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/array.lisp ; in: DEFUN SLICE ; (LENGTH RUTILS.ARRAY:VEC) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MAX 0 (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (+ RUTILS.ARRAY::BEG RUTILS.ARRAY::DISP-INDEX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ RUTILS.ARRAY::END RUTILS.ARRAY::DISP-INDEX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (MAX 0 (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; etc. ; in: DEFUN COPY-ARRAY ; (ARRAY-DIMENSION RUTILS.ARRAY::ARR (1- RUTILS.ARRAY::DIM-COUNT)) ; ; note: unable to optimize because: The axis is not constant. ; (ARRAY-DIMENSION RUTILS.ARRAY::ARR ; (- RUTILS.ARRAY::DIM-COUNT (LENGTH RUTILS.ARRAY::IS) 1)) ; ; note: unable to optimize because: The axis is not constant. ; (ARRAY-ELEMENT-TYPE RUTILS.ARRAY::ARR) ; ; note: unable to optimize due to type uncertainty: The first argument is a ARRAY, not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/sequence.lisp ; in: DEFUN SPLIT-SEQUENCE ; (LENGTH RUTILS.SEQUENCE::SEQ) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (MAX ; (OR ; (APPLY #'POSITION RUTILS.SEQUENCE::DELIMITER RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ (1+ RUTILS.SEQUENCE::LEFT) ; RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (MIN ; (OR ; (APPLY #'POSITION RUTILS.SEQUENCE::DELIMITER RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (1- RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MAX ; (OR ; (APPLY #'POSITION RUTILS.SEQUENCE::DELIMITER RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (REAL 0), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (REAL 0), not a DOUBLE-FLOAT. ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::RIGHT := ; RUTILS.SEQUENCE::END :THEN RUTILS.SEQUENCE::LEFT ; :FOR RUTILS.SEQUENCE::LEFT := (MAX ; (OR ; (APPLY #'POSITION ; RUTILS.SEQUENCE::DELIMITER ; RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END ; T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MIN ; (OR ; (APPLY #'POSITION RUTILS.SEQUENCE::DELIMITER RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::LEFT := RUTILS.SEQUENCE::START :THEN (+ ; RUTILS.SEQUENCE::RIGHT ; 1) ; :FOR RUTILS.SEQUENCE::RIGHT := (MIN ; (OR ; (APPLY #'POSITION ; RUTILS.SEQUENCE::DELIMITER ; RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT ; RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (+ RUTILS.SEQUENCE::RIGHT 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SPLIT-SEQUENCE-IF ; (LENGTH RUTILS.SEQUENCE::SEQ) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (MAX ; (OR ; (APPLY #'POSITION-IF RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ (1+ RUTILS.SEQUENCE::LEFT) ; RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (MIN ; (OR ; (APPLY #'POSITION-IF RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (1- RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MAX ; (OR ; (APPLY #'POSITION-IF RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (REAL 0), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (REAL 0), not a DOUBLE-FLOAT. ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::RIGHT := ; RUTILS.SEQUENCE::END :THEN RUTILS.SEQUENCE::LEFT ; :FOR RUTILS.SEQUENCE::LEFT := (MAX ; (OR ; (APPLY #'POSITION-IF ; RUTILS.SEQUENCE::PREDICATE ; RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END ; T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MIN ; (OR ; (APPLY #'POSITION-IF RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::LEFT := RUTILS.SEQUENCE::START :THEN (+ ; RUTILS.SEQUENCE::RIGHT ; 1) ; :FOR RUTILS.SEQUENCE::RIGHT := (MIN ; (OR ; (APPLY #'POSITION-IF ; RUTILS.SEQUENCE::PREDICATE ; RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT ; RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (+ RUTILS.SEQUENCE::RIGHT 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SPLIT-SEQUENCE-IF-NOT ; (LENGTH RUTILS.SEQUENCE::SEQ) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (MAX ; (OR ; (APPLY #'POSITION-IF-NOT RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ ; :END RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT.The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The second argument is a (REAL 0), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ (1+ RUTILS.SEQUENCE::LEFT) ; RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (MIN ; (OR ; (APPLY #'POSITION-IF-NOT RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ ; :START RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::RIGHT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (1- RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MAX ; (OR ; (APPLY #'POSITION-IF-NOT RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ ; :END RUTILS.SEQUENCE::RIGHT :FROM-END T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (= RUTILS.SEQUENCE::RIGHT (1+ RUTILS.SEQUENCE::LEFT)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (REAL 0), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a (REAL 0), not a DOUBLE-FLOAT. ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::RIGHT := ; RUTILS.SEQUENCE::END :THEN RUTILS.SEQUENCE::LEFT ; :FOR RUTILS.SEQUENCE::LEFT := (MAX ; (OR ; (APPLY #'POSITION-IF-NOT ; RUTILS.SEQUENCE::PREDICATE ; RUTILS.SEQUENCE::SEQ :END ; RUTILS.SEQUENCE::RIGHT :FROM-END ; T RUTILS.SEQUENCE::OTHER-KEYS) ; -1) ; (1- RUTILS.SEQUENCE::START)) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (< RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; (1+ RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT (-1.0)) (RATIONAL -1)), not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (MIN ; (OR ; (APPLY #'POSITION-IF-NOT RUTILS.SEQUENCE::PREDICATE RUTILS.SEQUENCE::SEQ ; :START RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; (= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::LEFT) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (LOOP :FOR RUTILS.SEQUENCE::LEFT := RUTILS.SEQUENCE::START :THEN (+ ; RUTILS.SEQUENCE::RIGHT ; 1) ; :FOR RUTILS.SEQUENCE::RIGHT := (MIN ; (OR ; (APPLY #'POSITION-IF-NOT ; RUTILS.SEQUENCE::PREDICATE ; RUTILS.SEQUENCE::SEQ :START ; RUTILS.SEQUENCE::LEFT ; RUTILS.SEQUENCE::OTHER-KEYS) ; RUTILS.SEQUENCE::LEN) ; RUTILS.SEQUENCE::END) ; :UNLESS ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::WITH-SUM-COUNT LET TAGBODY IF IF PROGN SETQ THE ; ==> ; (+ RUTILS.SEQUENCE::NR-ELTS 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; (+ RUTILS.SEQUENCE::RIGHT 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * 17592186044415) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES (REAL * 17592186044416) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN PARTITION-WITH ; (COPY-SEQ SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (COPY-SEQ RUTILS.SEQUENCE::KEY-SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SORT (COPY-SEQ RUTILS.SEQUENCE::KEY-SEQUENCE) RUTILS.SEQUENCE::ORDERING) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (COPY-SEQ RUTILS.SEQUENCE::KEY-S) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (LENGTH RUTILS.SEQUENCE::KEY-S) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL ; (IF RUTILS.SEQUENCE::KEY-P ; RUTILS.SEQUENCE::KEY ; #'IDENTITY) ; (FIRST RUTILS.SEQUENCE::SEQ-S)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL RUTILS.SEQUENCE::TEST RUTILS.SEQUENCE::ELT-K RUTILS.SEQUENCE::K) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL RUTILS.SEQUENCE::ORDERING RUTILS.SEQUENCE::K RUTILS.SEQUENCE::ELT-K) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: ORDERING is not known to be a function ; (MAP RUTILS.SEQUENCE::RESULT-TYPE ; (RUTILS.READTABLE::TRIVIAL-POSITIONAL-LAMBDA ; (COERCE (REVERSE RUTILS.READTABLE:%) RUTILS.SEQUENCE::RESULT-TYPE)) ; RUTILS.SEQUENCE::REZ) ; ; note: unable to open code because: RESULT-TYPE argument not constant ; (INCF RUTILS.SEQUENCE::I) ; --> THE ; ==> ; (+ 1 RUTILS.SEQUENCE::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN SHUFFLE ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (RANDOM (- RUTILS.SEQUENCE::I RUTILS.SEQUENCE::START)) ; ; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (FLOAT (0.0)) (INTEGER 1)), not a SINGLE-FLOAT. ; ; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (FLOAT (0.0)) (INTEGER 1)), not a DOUBLE-FLOAT. ; (ELT RUTILS.SEQUENCE::INDICES RUTILS.SEQUENCE::IDX) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (ELT SEQUENCE (ELT RUTILS.SEQUENCE::INDICES RUTILS.SEQUENCE::IDX)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (> RUTILS.SEQUENCE::I RUTILS.SEQUENCE::END) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (INTEGER * -12) (INTEGER 1 17592186044415)), not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; (- RUTILS.SEQUENCE::I RUTILS.SEQUENCE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -12) (INTEGER 1 17592186044415)), not a FIXNUM. ; The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -12) (INTEGER 1 17592186044415)), not a (UNSIGNED-BYTE 64). ; The second argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ RUTILS.SEQUENCE::START ; (RANDOM (- RUTILS.SEQUENCE::I RUTILS.SEQUENCE::START))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a FIXNUM. ; The second argument is a (OR (FLOAT 0.0) UNSIGNED-BYTE), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a (OR (RATIONAL * (17592186044415)) (SINGLE-FLOAT * (1.7592186e13)) (DOUBLE-FLOAT * (1.7592186044415d13))), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) UNSIGNED-BYTE), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (1- RUTILS.SEQUENCE::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER * -12) (INTEGER 1 17592186044415)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -13) (MOD 17592186044415)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -12) (INTEGER 1 17592186044415)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -13) (MOD 17592186044415)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN NSHUFFLE ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LOOP :FOR RUTILS.SEQUENCE::I :FROM RUTILS.SEQUENCE::START :BELOW ; RUTILS.SEQUENCE::END ; :DO (ROTATEF (ELT SEQUENCE RUTILS.SEQUENCE::I) ; (ELT SEQUENCE (+ RUTILS.SEQUENCE::I (RANDOM #))))) ; --> LET TAGBODY WHEN IF ; ==> ; (>= RUTILS.SEQUENCE::I #:LIM1) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I)) ; ; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (FLOAT (0.0)) (INTEGER 1)), not a SINGLE-FLOAT. ; ; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (FLOAT (0.0)) (INTEGER 1)), not a DOUBLE-FLOAT. ; (ROTATEF (ELT SEQUENCE RUTILS.SEQUENCE::I) ; (ELT SEQUENCE ; (+ RUTILS.SEQUENCE::I ; (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I))))) ; --> MULTIPLE-VALUE-BIND LET ; ==> ; (ELT #:SEQUENCE6 #:G7) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; --> MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET ; ==> ; (ELT #:SEQUENCE3 #:I4) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ==> ; (SB-KERNEL:%SETELT #:SEQUENCE3 #:I4 #:NEW2) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ==> ; (SB-KERNEL:%SETELT #:SEQUENCE6 #:G7 #:NEW5) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (LOOP :FOR RUTILS.SEQUENCE::I :FROM RUTILS.SEQUENCE::START :BELOW ; RUTILS.SEQUENCE::END ; :DO (ROTATEF (ELT SEQUENCE RUTILS.SEQUENCE::I) ; (ELT SEQUENCE (+ RUTILS.SEQUENCE::I (RANDOM #))))) ; --> LET TAGBODY WHEN IF ; ==> ; (>= RUTILS.SEQUENCE::I #:LIM1) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; (+ RUTILS.SEQUENCE::I (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (OR (FLOAT 0.0) UNSIGNED-BYTE), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT 0.0) UNSIGNED-BYTE), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFUN ROTATE ; (PLUSP RUTILS.SEQUENCE::N) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (MINUSP RUTILS.SEQUENCE::N) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL * 0), not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL * 0), not a DOUBLE-FLOAT. ; (- RUTILS.SEQUENCE::N) ; ; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a (REAL * (0)), not a RATIONAL. ; (PLUSP RUTILS.SEQUENCE::N) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (MINUSP RUTILS.SEQUENCE::N) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (REAL * 0), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (REAL * 0), not a FIXNUM. ; etc. ; (- RUTILS.SEQUENCE::N) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (REAL (0)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a (REAL * (0)), not a SINGLE-FLOAT. ; The result is a (VALUES (REAL (0)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; etc. ; in: DEFUN ROTATE-TAIL-TO-HEAD ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SUBSEQ SEQUENCE (- RUTILS.SEQUENCE::LEN RUTILS.SEQUENCE::M)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (REPLACE SEQUENCE SEQUENCE :START1 RUTILS.SEQUENCE::M :START2 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL). ; (REPLACE SEQUENCE RUTILS.SEQUENCE::TAIL) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; (DEFUN RUTILS.SEQUENCE::ROTATE-TAIL-TO-HEAD (SEQUENCE RUTILS.SEQUENCE::N) ; (DECLARE (TYPE (INTEGER 1) RUTILS.SEQUENCE::N)) ; (IF (LISTP SEQUENCE) ; (LET ((RUTILS.SEQUENCE::M #)) ; (IF (REST SEQUENCE) ; (LET* # ; # ; #) ; SEQUENCE)) ; (LET* ((RUTILS.SEQUENCE::LEN #) ; (RUTILS.SEQUENCE::M #) ; (RUTILS.SEQUENCE::TAIL #)) ; (REPLACE SEQUENCE SEQUENCE :START1 RUTILS.SEQUENCE::M :START2 0) ; (REPLACE SEQUENCE RUTILS.SEQUENCE::TAIL) ; SEQUENCE))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN ROTATE-HEAD-TO-TAIL ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SUBSEQ SEQUENCE 0 RUTILS.SEQUENCE::M) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (REPLACE SEQUENCE SEQUENCE :START1 0 :START2 RUTILS.SEQUENCE::M) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))).The second argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL). ; (REPLACE SEQUENCE RUTILS.SEQUENCE::HEAD :START1 ; (- RUTILS.SEQUENCE::LEN RUTILS.SEQUENCE::M)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY * (*))).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR SIMPLE-BASE-STRING NULL).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))).The second argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; (1- RUTILS.SEQUENCE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (DEFUN RUTILS.SEQUENCE::ROTATE-HEAD-TO-TAIL (SEQUENCE RUTILS.SEQUENCE::N) ; (DECLARE (TYPE (INTEGER 1) RUTILS.SEQUENCE::N)) ; (IF (LISTP SEQUENCE) ; (LET ((RUTILS.SEQUENCE::M #)) ; (IF (REST SEQUENCE) ; (LET* # ; # ; #) ; SEQUENCE)) ; (LET* ((RUTILS.SEQUENCE::LEN #) ; (RUTILS.SEQUENCE::M #) ; (RUTILS.SEQUENCE::HEAD #)) ; (REPLACE SEQUENCE SEQUENCE :START1 0 :START2 RUTILS.SEQUENCE::M) ; (REPLACE SEQUENCE RUTILS.SEQUENCE::HEAD :START1 ; (- RUTILS.SEQUENCE::LEN RUTILS.SEQUENCE::M)) ; SEQUENCE))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN EQUAL-LENGTHS ; (LENGTH FIRST) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-COMPILER-MACRO EQUAL-LENGTHS ; (LENGTH RUTILS.SEQUENCE::SEQUENCES) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN LENGTH= ; (ETYPECASE SEQUENCE ; (NULL (ZEROP LENGTH)) ; (CONS ; (LET ((RUTILS.SEQUENCE::N #)) ; (UNLESS (MINUSP RUTILS.SEQUENCE::N) ; (LET # ; #)))) ; (SEQUENCE (= LENGTH (LENGTH SEQUENCE)))) ; --> IF IF IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (AND ATOM (NOT NULL)), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; in: DEFUN LAST-ELT ; (TYPECASE SEQUENCE ; (LIST (COND ((CDR SEQUENCE) (RETURN #)) ((PLUSP #) (RETURN #)))) ; (SEQUENCE ; (LET ((RUTILS.SEQUENCE::LEN #)) ; (UNLESS (ZEROP RUTILS.SEQUENCE::LEN) (RETURN #))))) ; --> IF IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (AND ATOM (NOT NULL)), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (ELT SEQUENCE (1- RUTILS.SEQUENCE::LEN)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a SIMPLE-ARRAY. ; in: DEFUN (SETF LAST-ELT) ; (TYPECASE SEQUENCE ; (LIST (COND ((CDR SEQUENCE) (RETURN #)) ((PLUSP #) (RETURN #)))) ; (SEQUENCE ; (LET ((RUTILS.SEQUENCE::LEN #)) ; (UNLESS (ZEROP RUTILS.SEQUENCE::LEN) (RETURN #))))) ; --> IF IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (AND ATOM (NOT NULL)), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (LENGTH SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SETF (ELT SEQUENCE (1- RUTILS.SEQUENCE::LEN)) RUTILS.SEQUENCE::OBJECT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a (SIMPLE-ARRAY * (*)). ; in: DEFUN SAFE-SORT ; (COPY-SEQ SEQUENCE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN GROUP ; (ETYPECASE RUTILS.SEQUENCE::SEQ ; (LIST ; (LABELS ((RUTILS.SEQUENCE::REC # ; #)) ; (WHEN RUTILS.SEQUENCE::SEQ ; (RUTILS.SEQUENCE::REC RUTILS.SEQUENCE::SEQ)))) ; (SEQUENCE ; (WHEN (PLUSP (LENGTH RUTILS.SEQUENCE::SEQ)) ; (DO (# ; # ; #) ; (# #) ; (PUSH # RUTILS.SEQUENCE::ACC))))) ; --> IF IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (AND ATOM (NOT NULL)), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (LENGTH RUTILS.SEQUENCE::SEQ) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::I ; (+ RUTILS.SEQUENCE::I RUTILS.SEQUENCE::N)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR SB-KERNEL:EXTENDED-SEQUENCE VECTOR), not a SB-KERNEL:EXTENDED-SEQUENCE. ; (+ RUTILS.SEQUENCE::I RUTILS.SEQUENCE::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN KEEP ; (COMPLEMENT (OR RUTILS.SEQUENCE::TEST-NOT #'EQL)) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; (COMPLEMENT ; (OR RUTILS.SEQUENCE::TEST (COMPLEMENT (OR RUTILS.SEQUENCE::TEST-NOT #'EQL)))) ; ; note: unable to open code because: The function doesn't have a fixed argument count. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/kv.lisp ; in: DEFGENERIC MAPKV ; (FUNCALL RUTILS.MISC:FN RUTILS.READTABLE:% RUTILS.READTABLE:%%) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (FUNCALL RUTILS.MISC:FN (CAR RUTILS.READTABLE:%) (CDR RUTILS.READTABLE:%)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (FUNCALL RUTILS.MISC:FN RUTILS.KV::KEY RUTILS.KV::VAL) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/generic.lisp ; in: DEFGENERIC SMART-SLOT-VALUE ; (RUTILS.GENERIC::ADDING-SMART-SLOT-METHODS RUTILS.GENERIC::OBJ ; RUTILS.GENERIC::SLOT ; (SLOT-VALUE RUTILS.GENERIC::OBJ ; RUTILS.GENERIC::SLOT)) ; --> SB-INT:DX-FLET FLET #:FUN24 BLOCK PROGN LET DOLIST BLOCK LET TAGBODY ; --> UNLESS IF PROGN LET TAGBODY LET WHEN IF PROGN ADD-METHOD MAKE-INSTANCE ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRUCTURE-OBJECT. ; --> SB-INT:DX-FLET FLET #:FUN24 BLOCK PROGN LET DOLIST BLOCK LET TAGBODY ; --> UNLESS IF PROGN LET TAGBODY LET WHEN IF STRING= ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (SLOT-VALUE RUTILS.GENERIC::OBJ RUTILS.GENERIC::SLOT) ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRUCTURE-OBJECT. ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRUCTURE-OBJECT. ; in: DEFGENERIC SMART-SET-SLOT-VALUE ; (RUTILS.GENERIC::ADDING-SMART-SLOT-METHODS RUTILS.GENERIC::OBJ ; RUTILS.GENERIC::SLOT ; (:= ; (SLOT-VALUE RUTILS.GENERIC::OBJ ; RUTILS.GENERIC::SLOT) ; RUTILS.GENERIC::VAL)) ; --> SB-INT:DX-FLET FLET #:FUN27 BLOCK PROGN LET DOLIST BLOCK LET TAGBODY ; --> UNLESS IF PROGN LET TAGBODY LET WHEN IF PROGN ADD-METHOD MAKE-INSTANCE ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a STRUCTURE-OBJECT. ; --> SB-INT:DX-FLET FLET #:FUN27 BLOCK PROGN LET DOLIST BLOCK LET TAGBODY ; --> UNLESS IF PROGN LET TAGBODY LET WHEN IF STRING= ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING. ; ; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFMETHOD PRINT-OBJECT (GENERIC-ELT-ERROR T) ; (FORMAT STREAM ; "Generic element access error: object ~A can't be accessed by key: ~A" ; (SLOT-VALUE RUTILS.GENERIC::ERR 'RUTILS.GENERIC::OBJ) ; (SLOT-VALUE RUTILS.GENERIC::ERR 'RUTILS.GENERIC::KEY)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFMETHOD GENERIC-ELT (LIST T) ; (MINUSP RUTILS.GENERIC::KEY) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ (LENGTH RUTILS.GENERIC::OBJ) RUTILS.GENERIC::KEY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.37438953471d11) (SINGLE-FLOAT * 1.3743895e11) (RATIONAL * (137438953471))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64). ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.37438953471d11) (SINGLE-FLOAT * 1.3743895e11) (RATIONAL * (137438953471))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; in: DEFMETHOD GENERIC-ELT (VECTOR T) ; (MINUSP RUTILS.GENERIC::KEY) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (AREF RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (MINUSP RUTILS.GENERIC::KEY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ (LENGTH RUTILS.GENERIC::OBJ) RUTILS.GENERIC::KEY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64). ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; in: DEFMETHOD GENERIC-ELT (SEQUENCE T) ; (MINUSP RUTILS.GENERIC::KEY) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; (LENGTH RUTILS.GENERIC::OBJ) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (ELT RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (DEFMETHOD RUTILS.GENERIC:GENERIC-ELT ; ((RUTILS.GENERIC::OBJ SEQUENCE) RUTILS.GENERIC::KEY ; &REST RUTILS.GENERIC::KEYS) ; (DECLARE (IGNORE RUTILS.GENERIC::KEYS)) ; (WHEN (MINUSP RUTILS.GENERIC::KEY) ; (SETF RUTILS.GENERIC::KEY (+ # RUTILS.GENERIC::KEY))) ; (ELT RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY)) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION COND THE ; --> PROGN SB-KERNEL:THE* #:G11 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (MINUSP RUTILS.GENERIC::KEY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; (+ (LENGTH RUTILS.GENERIC::OBJ) RUTILS.GENERIC::KEY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The second argument is a (REAL * (0)), not a (SIGNED-BYTE 64). ; The result is a (VALUES (OR (DOUBLE-FLOAT * 1.7592186044415d13) (SINGLE-FLOAT * 1.7592186e13) (RATIONAL * (17592186044415))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; in: DEFMETHOD GENERIC-ELT (STRUCTURE-OBJECT T) ; (DEFMETHOD RUTILS.GENERIC:GENERIC-ELT ; ((RUTILS.GENERIC::OBJ STRUCTURE-OBJECT) RUTILS.GENERIC::KEY ; &REST RUTILS.GENERIC::KEYS) ; (DECLARE (IGNORE RUTILS.GENERIC::KEYS)) ; (RUTILS.GENERIC:SMART-SLOT-VALUE RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY)) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'RUTILS.GENERIC:GENERIC-ELT 'NIL ; (LIST (FIND-CLASS 'STRUCTURE-OBJECT) (FIND-CLASS 'T)) ; '(RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY &REST ; RUTILS.GENERIC::KEYS) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SETF # #) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (2 . T)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to RUTILS.GENERIC:SMART-SLOT-VALUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; in: DEFMETHOD GENERIC-SETF (VECTOR T) ; (SETF (AREF RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY) ; (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFMETHOD GENERIC-SETF (SEQUENCE T) ; (SETF (ELT RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY) ; (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL)) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (DEFMETHOD RUTILS.GENERIC::GENERIC-SETF ; ((RUTILS.GENERIC::OBJ SEQUENCE) RUTILS.GENERIC::KEY ; &REST RUTILS.GENERIC::KEYS-AND-VAL) ; (SETF (ELT RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY) ; (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL))) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION COND THE ; --> PROGN SB-KERNEL:THE* #:G11 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFMETHOD GENERIC-SETF (STRUCTURE-OBJECT T) ; (DEFMETHOD RUTILS.GENERIC::GENERIC-SETF ; ((RUTILS.GENERIC::OBJ STRUCTURE-OBJECT) RUTILS.GENERIC::KEY ; &REST RUTILS.GENERIC::KEYS-AND-VAL) ; (SETF (RUTILS.GENERIC:SMART-SLOT-VALUE RUTILS.GENERIC::OBJ ; RUTILS.GENERIC::KEY) ; (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL))) ; --> EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; ==> ; (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'RUTILS.GENERIC::GENERIC-SETF 'NIL ; (LIST (FIND-CLASS 'STRUCTURE-OBJECT) (FIND-CLASS 'T)) ; '(RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY &REST ; RUTILS.GENERIC::KEYS-AND-VAL) ; (LIST* :FUNCTION ; (LET* ((SB-PCL::FMF #) (SB-PCL::MF #)) ; (SETF # #) ; SB-PCL::MF) ; '(SB-PCL::PLIST (:ARG-INFO (2 . T)) ; SB-PCL::SIMPLE-NEXT-METHOD-CALL T)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Call to RUTILS.GENERIC::SMART-SET-SLOT-VALUE could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining. ; in: DEFGENERIC COPY ; (COPY-SEQ RUTILS.GENERIC::OBJ) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (:= (AREF RUTILS.GENERIC::REZ RUTILS.GENERIC::K) RUTILS.GENERIC::V) ; --> PSETF PROGN SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; (DEFGENERIC RUTILS.GENERIC:COPY ; (RUTILS.GENERIC::OBJ &REST RUTILS.GENERIC::KVS) ; (:DOCUMENTATION "Create a shallow copy of an object. ; If KVS are specified, they may be used to update the relevant parts ; (like slots of an object, keys in a hash-table ; or indexed elements of a sequence).") ; (:METHOD ((RUTILS.GENERIC::OBJ LIST) &REST RUTILS.GENERIC::KVS) ; (LET ((RUTILS.GENERIC::REZ #)) ; (WHEN RUTILS.GENERIC::KVS (DO # # #)) ; RUTILS.GENERIC::REZ)) ; (:METHOD ((RUTILS.GENERIC::OBJ SEQUENCE) &REST RUTILS.GENERIC::KVS) ; (LET ((RUTILS.GENERIC::REZ #)) ; (LOOP :FOR (RUTILS.GENERIC::K ; RUTILS.GENERIC::V) :ON RUTILS.GENERIC::KVS :BY #'CDDR ; :DO (:= # RUTILS.GENERIC::V)) ; RUTILS.GENERIC::REZ)) ; (:METHOD ((RUTILS.GENERIC::OBJ HASH-TABLE) &REST RUTILS.GENERIC::KVS) ; (LET ((RUTILS.GENERIC::REZ #)) ; (LOOP :FOR (RUTILS.GENERIC::K ; RUTILS.GENERIC::V) :ON RUTILS.GENERIC::KVS :BY #'CDDR ; :DO (RUTILS.HASH-TABLE:|SET#| RUTILS.GENERIC::K ; RUTILS.GENERIC::REZ RUTILS.GENERIC::V)) ; RUTILS.GENERIC::REZ)) ; (:METHOD ((RUTILS.GENERIC::OBJ STRUCTURE-OBJECT) &REST RUTILS.GENERIC::KVS) ; (LET ((RUTILS.GENERIC::REZ #)) ; (LOOP :FOR (RUTILS.GENERIC::K ; RUTILS.GENERIC::V) :ON RUTILS.GENERIC::KVS :BY #'CDDR ; :DO (:= # RUTILS.GENERIC::V)) ; RUTILS.GENERIC::REZ))) ; --> SB-PCL::SET-INITIAL-METHODS SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* ; --> LET* SB-INT:NAMED-LAMBDA FUNCTION COND THE PROGN SB-KERNEL:THE* #:G86 ; --> MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; (SORT (RUTILS.SEQUENCE:GROUP 2 RUTILS.GENERIC::KVS) '< :KEY 'RUTILS.PAIR:LT) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (= RUTILS.GENERIC::I RUTILS.GENERIC::K) ; ; note: unable to open code because: The operands might not be the same type. ; (1+ RUTILS.GENERIC::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFGENERIC TALLY ; (LENGTH RUTILS.GENERIC::OBJ) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "generic"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/bind.lisp ; in: DEFGENERIC BIND-DISPATCH ; (LOOP :FOR RUTILS.BIND::SYM :ACROSS RUTILS.BIND::ARG1 ; :FOR RUTILS.BIND::I :UPFROM 0 ; :COLLECT `(,(RUTILS.BIND::SUBST-IGNORE RUTILS.BIND::SYM) ; (AREF ,RUTILS.BIND::VALUE-VECTOR ,RUTILS.BIND::I))) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ ; --> SETQ THE AREF ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY SB-LOOP::LOOP-DESETQ ; --> SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/d25626f3c08c3155a7eb3425de22fd9277f00350/rutils-20250706-git/core/iter.lisp ; in: DEFUN GENVAR ; (INCF RUTILS.ITER::*GENVAR-COUNTER*) ; --> THE ; ==> ; (+ 1 RUTILS.ITER::*GENVAR-COUNTER*) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN WALK-SPECIAL-FORM ; (STRING (CAR RUTILS.ITER::FORM)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING SYMBOL). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (APPLY RUTILS.ITER::FUNC RUTILS.ITER::FORM) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FUNC is not known to be a function ; in: DEFUN WALK-SETQ ; (INCF RUTILS.ITER::I) ; --> THE ; ==> ; (+ 1 RUTILS.ITER::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN DISPLAY-KWS ; (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (= RUTILS.ITER::COL 1) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.The second argument is a REAL, not a RATIONAL. ; (+ RUTILS.ITER::COL RUTILS.ITER::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (INCF RUTILS.ITER::COL RUTILS.ITER::LEN) ; --> THE ; ==> ; (+ RUTILS.ITER::LEN RUTILS.ITER::COL) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a REAL, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ RUTILS.ITER::COL 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (INCF RUTILS.ITER::COL) ; --> THE ; ==> ; (+ 1 RUTILS.ITER::COL) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN CLAUSE-MATCHES? ; (EVERY #'EQ RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS) ; ; note: unable to open code because: can't determine sequence argument type ; in: DEFUN AMBIGUITY-CHECK-CLAUSE ; (= RUTILS.ITER::INSERT-N 2) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN AMBIGUOUS-CLAUSES? ; (LENGTH RUTILS.ITER::RK1) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN DISPLAY-INDEX ; (+ RUTILS.ITER::INDENT 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN REMOVE-CLAUSE ; (DELETE RUTILS.ITER::ENTRY (CDR RUTILS.ITER::INDEX)) ; ; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST. ; ; note: unable to convert to EQ test due to type uncertainty: The second argument is a SEQUENCE, not a LIST. ; in: DEFUN SPLIT-CLAUSE-TEMPLATE ; (LENGTH RUTILS.ITER::OPT-LIST) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-SHARED-BINDING ; (STRING RUTILS.ITER::VAR) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING SYMBOL). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; in: DEFUN LOCAL-BINDING-CHECK ; (LENGTH RUTILS.ITER::IT) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: ; DEFCLAUSE (:FOR PVAR :PREV VAR &OPTIONAL :INITIALLY (DEFAULT NIL DEFAULT?) :BACK (N-EXPR 1)) ; (> RUTILS.ITER::N 0) ; ; note: forced to do >-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1- RUTILS.ITER::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAKE-SAVE-VARS ; (DOTIMES (RUTILS.ITER::I RUTILS.ITER::N) ; (LET ((RUTILS.ITER::SVAR ; (RUTILS.ITER::MAKE-VAR-AND-DEFAULT-BINDING RUTILS.ITER::STR ; :USING-TYPE-OF RUTILS.ITER::VAR))) ; (PUSH RUTILS.ITER::SVAR RUTILS.ITER::REZ))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. WARNING: redefining RUTILS.SEQUENCE:GROUP in DEFUN WARNING: redefining TRIVIAL-SHELL::OS-PROCESS-ID in DEFUN WARNING: redefining (COMMON-LISP:SETF CL-BSON.TYPES:OPTIONS) in DEFGENERIC Unhandled EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST in thread #<SB-THREAD:THREAD tid=290972 "main thread" RUNNING {1200F08003}>: A readtable named LET-OVER-LAMBDA:LOL-SYNTAX does not exist. Backtrace for: #<SB-THREAD:THREAD tid=290972 "main thread" RUNNING {1200F08003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {122C34D3E3}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {122C34D3E3}>) 2: (INVOKE-DEBUGGER #<EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST {122C34D3E3}>) 3: (ERROR EDITOR-HINTS.NAMED-READTABLES:READTABLE-DOES-NOT-EXIST :READTABLE-NAME LET-OVER-LAMBDA:LOL-SYNTAX) 4: (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX NIL) 5: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp")) 6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) #<NULL-LEXENV>) 7: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) #<NULL-LEXENV>) 8: (SB-EXT:EVAL-TLF (PROGN (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) 2 #<NULL-LEXENV>) 9: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL)) 10: (SB-C::EVAL-COMPILE-TOPLEVEL ((SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX)))) ((SETQ *READTABLE* #1=(EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) #2=(SETF *READTABLE* #1#) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #2# (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #3=(*READTABLE*))) . #3#) SB-C::ORIGINAL-SOURCE-START 0 2)) 11: (SB-C::PROCESS-TOPLEVEL-FORM (SETQ *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (#1=(SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1# (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #2=(*READTABLE*))) . #2#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 12: (SB-C::PROCESS-TOPLEVEL-FORM (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 13: (SB-C::PROCESS-TOPLEVEL-PROGN ((SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) SB-C::ORIGINAL-SOURCE-START 0 2) (:COMPILE-TOPLEVEL)) 14: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETF *READTABLE* (EDITOR-HINTS.NAMED-READTABLES:ENSURE-READTABLE (QUOTE LET-OVER-LAMBDA:LOL-SYNTAX))) (WHEN (OR (FIND-PACKAGE :SWANK) (FIND-PACKAGE :SLYNK)) (EDITOR-HINTS.NAMED-READTABLES::%FROB-SWANK-READTABLE-ALIST *PACKAGE* . #1=(*READTABLE*))) . #1#) (SB-C::ORIGINAL-SOURCE-START 0 2) NIL) 15: (SB-C::PROCESS-TOPLEVEL-FORM (IN-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX) (SB-C::ORIGINAL-SOURCE-START 0 2) NIL) 16: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (IN-READTABLE LET-OVER-LAMBDA:LOL-SYNTAX) :CURRENT-INDEX 2) 17: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {B8003A603B}> #<SB-C::SOURCE-INFO {122C2E0383}> SB-C::INPUT-ERROR-IN-COMPILE-FILE) 18: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE)) 19: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 20: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {122C2E0383}> NIL) 21: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (223)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/rea... {122C38C57F}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :PROGRESS NIL :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL) 22: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<FUNCTION (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {122C2DE0DB}> NIL) 23: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" NIL #<FUNCTION (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {122C2DDBAB}>) 24: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/readtable.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (211)) /home/quicklisp/.cache/common-lisp/sbcl-2.5.5.114-85e41f89c-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-bson/74baa529bd8c1038f4dc509baabba84f545f001f/cl-bson-20250706-git/src/rea... {122C39C36F}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL) 25: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) 26: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) 27: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 28: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-bson" "src" "readtable">) [fast-method] 29: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204907913}>) [fast-method] 30: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 31: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1204907913}>) [fast-method] 32: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 33: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson-test">) 34: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 35: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-bson-test">) [fast-method] 36: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-bson-test") 37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 38: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bson-test") [fast-method] 39: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120492011B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 41: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12048E7A8B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 42: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-bson-test") [fast-method] 43: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-bson-test" "cl-bson-test") 44: (DEPCHECK::MAGIC "cl-bson-test" "cl-bson-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7wNtBQKf/depcheck-win.txt") 45: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-bson-test" "cl-bson-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7wNtBQKf/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7wNtBQKf/depcheck-fail.txt")) 46: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 47: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 48: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 49: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 2 fatal ERROR conditions ; caught 13 STYLE-WARNING conditions ; printed 414 notes