lack

SBCL 2.0.5.98-5bdb2e381 / ASDF 3.3.1

lack-session-store-redis

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200627-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/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: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::LOOP* in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
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/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: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/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:WITH-OUTPUT in DEFMACRO
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:GET-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO
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: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 (#<STRUCTURE-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 (#<STRUCTURE-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: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/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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200627-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/6a672a245e7ad55311ceaa8722aae0f1f0b2d5fd/cl-fad-20200627-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-redis/115869a63c9bf9d0ae0bac481971d5791622cb71/cl-redis-20200627-git/cl-redis.asd" contains definition for system "cl-redis-test". Please only define "cl-redis" and secondary systems with a name starting with "cl-redis/" (e.g. "cl-redis/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20200627-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-utf-8/a6eb987246e5f233c6b9c4b8b15edbbe2770d848/trivial-utf-8-20200627-git/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/readtable.lisp
; in: DEFUN |@-reader|
;     (POSITION-IF
;      (LAMBDA (RUTILS.READTABLE::X) (MEMBER RUTILS.READTABLE::X '(#\. #\#)))
;      RUTILS.READTABLE::STR :START (1+ RUTILS.READTABLE::START))
; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%FIND-POSITION-IF
;    (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END
;    SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY))
; 
; note: unable to expand inline because: upgraded array element type not known at compile time

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/readtable.lisp
; 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|))
; --> EVAL-WHEN 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+197 
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:G200)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/readtable.lisp
; in: DEFREADTABLE STANDARD-READTABLE
;     (EDITOR-HINTS.NAMED-READTABLES:DEFREADTABLE RUTILS.READTABLE:STANDARD-READTABLE
;       (:MERGE :STANDARD))
; --> EVAL-WHEN 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+207 
; --> FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL #:G210)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (LOOP :REPEAT LENGTH
;           :COLLECT (GENSYM RUTILS.SYMBOL::G))
; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; 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.

; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (TYPEP RUTILS.SYMBOL::X '(INTEGER 0))
; --> LET SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do FAST-IF-<-ZERO (cost 9)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

;     (LOOP :REPEAT LENGTH
;           :COLLECT (GENSYM RUTILS.SYMBOL::G))
; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> TRUNCATE LET VALUES LOCALLY 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; 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 INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF VALUES 
; ==>
;   (+ SB-C::TRU 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do FAST-IF->-ZERO (cost 8)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.

; --> BLOCK 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/symbol.lisp
; in: DEFUN ENSURE-SYMBOL
;     (FORMAT NIL FORMAT RUTILS.SYMBOL::OBJ)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING FUNCTION), not a SIMPLE-STRING.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING FUNCTION), not a FUNCTION.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/misc.lisp
; in: DEFUN NOT-MORE
;     (<= RUTILS.MISC::X RUTILS.MISC::Y)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       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.
;       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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/misc.lisp
; 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 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/misc.lisp
; in: DEFUN NOT-LESS
;     (>= RUTILS.MISC::X RUTILS.MISC::Y)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       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.
;       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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/misc.lisp
; in: DEFMACRO VOID
;     (DEFMACRO RUTILS.MISC:VOID (RUTILS.MISC::PLACE)
;       "Nullify PLACE."
;       `(SETF ,RUTILS.MISC::PLACE NIL))
; --> PROGN 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)
;                        (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/misc.lisp
; 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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "misc">
STYLE-WARNING: VOID was previously defined as a macro.
STYLE-WARNING: VOID is being redefined as a macro when it was previously assumed to be a function.
WARNING: redefining RUTILS.MISC:VOID in DEFMACRO

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN LAST1
;     (LAST LIST RUTILS.LIST::N)
; 
; note: unable to optimize because: second argument type too vague

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN (SETF LAST1)
;     (LAST LIST RUTILS.LIST::N)
; 
; note: unable to optimize because: second argument type too vague

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN BUTLAST2
;     (LENGTH LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LAST LIST RUTILS.LIST::N)
; 
; note: unable to optimize because: second argument type too vague

;     (ASSERT (<= RUTILS.LIST::N (LENGTH LIST)))
; --> TAGBODY LET WHEN IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> TAGBODY LET WHEN IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) (RATIONAL 0)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> TAGBODY LET WHEN IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN FLATTEN
;     (ZEROP RUTILS.LIST::DEPTH)
; ==>
;   (= RUTILS.LIST::DEPTH 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (1- RUTILS.LIST::DEPTH)
; ==>
;   (- RUTILS.LIST::DEPTH 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (NOT NULL), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; 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))
; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; 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.

; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF NOT IF ZEROP 
; ==>
;   (= REM 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> TRUNCATE LET VALUES LOCALLY 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; 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 INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF AND IF IF PLUSP 
; ==>
;   (> NUMBER 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; --> BLOCK LET LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; --> FUNCTION IF VALUES 
; ==>
;   (+ SB-C::TRU 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= 
; --> IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do FAST-IF->-ZERO (cost 8)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.

; --> BLOCK 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 &REST T).
;       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 &REST T).
;       etc.

;     (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)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION COND 
; --> IF THE SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY 
; --> AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN REMOVE-FROM-PLIST
;     (MEMBER RUTILS.LIST::KEY RUTILS.LIST::KEYS :TEST #'EQL)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN DELETE-FROM-PLIST
;     (MEMBER RUTILS.LIST::KEY RUTILS.LIST::KEYS :TEST #'EQL)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

;     (ZEROP RUTILS.LIST::POS)
; ==>
;   (= RUTILS.LIST::POS 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.LIST::POS 2)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (INCF RUTILS.LIST::POS 2)
; --> SETQ THE 
; ==>
;   (+ 2 RUTILS.LIST::POS)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (1- RUTILS.LIST::POS)
; ==>
;   (- RUTILS.LIST::POS 1)
; 
; 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 &REST T).
;       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 &REST T).
;       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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 &REST T).
;       etc.

;     (DECF RUTILS.LIST::POS 2)
; --> 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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 &REST T).
;       etc.

;     (INCF RUTILS.LIST::POS 2)
; --> SETQ 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 (OR NUMBER NULL), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR NUMBER NULL), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN SET-EQUAL
;     (MAPCAR RUTILS.LIST::KEY RUTILS.LIST::LIST1)
; --> LET 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN RUTILS.LIST::KEY)
; 
; 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)
; --> LET 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN RUTILS.LIST::KEY)
; 
; 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)
; --> SB-KERNEL:%MEMBER-TEST 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::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)
; --> SB-KERNEL:%MEMBER-TEST 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::TEST)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN ZIP-WITH
;     (APPLY RUTILS.MISC:FN (MAPCAR #'CAR RUTILS.LIST::TAILS))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN ZIP*-WITH
;     (APPLY RUTILS.MISC:FN (MAPCAR #'CAR RUTILS.LIST::TAILS))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN MAPTIMES
;     (MAPCAR RUTILS.MISC:FN (RUTILS.LIST:RANGE 0 RUTILS.LIST::TIMES))
; --> LET 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN RUTILS.MISC:FN)
; 
; 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)))
; --> PROGN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN MAPINDEX
;     (FUNCALL RUTILS.MISC:FN (INCF RUTILS.LIST::I) RUTILS.READTABLE:%)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

;     (INCF RUTILS.LIST::I)
; --> SETQ THE 
; ==>
;   (+ 1 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN MAPCANINDEX
;     (FUNCALL RUTILS.MISC:FN (INCF RUTILS.LIST::I) RUTILS.READTABLE:%)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function

;     (INCF RUTILS.LIST::I)
; --> SETQ THE 
; ==>
;   (+ 1 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; 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 ...)
; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ 
; ==>
;   (+ RUTILS.LIST::I 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/list.lisp
; in: DEFUN RANGE
;     (LOOP :FOR RUTILS.LIST::I :FROM RUTILS.LIST::START :TO (1-
;                                                             RUTILS.LIST::LIMIT) :BY STEP
;           :COLLECT RUTILS.LIST::I)
; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY WHEN IF 
; ==>
;   (> RUTILS.LIST::I #:LOOP-LIMIT-0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

;     (1- RUTILS.LIST::LIMIT)
; ==>
;   (- RUTILS.LIST::LIMIT 1)
; 
; 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 &REST T).
;       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 &REST T).
;       etc.

;     (LOOP :FOR RUTILS.LIST::I :FROM RUTILS.LIST::START :TO (1-
;                                                             RUTILS.LIST::LIMIT) :BY STEP
;           :COLLECT RUTILS.LIST::I)
; --> BLOCK LET MULTIPLE-VALUE-BIND LET UNLESS IF OR LET IF LET IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE > IF 
; ==>
;   (> (TRULY-THE RATIONAL #:OBJECT29) 0)
; 
; 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.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY WHEN IF 
; ==>
;   (> RUTILS.LIST::I #:LOOP-LIMIT-0)
; 
; 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.

; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (+ RUTILS.LIST::I #:LOOP-STEP-BY-1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (RATIONAL (0))), not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       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 (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (RATIONAL (0))), not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "rutils" "core" "list">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/string.lisp
; 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)
; ==>
;   (< RUTILS.STRING::START 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (MINUSP RUTILS.STRING::END)
; ==>
;   (< RUTILS.STRING::END 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a 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)
; ==>
;   (< RUTILS.STRING::START 0)
; 
; 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 (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

;     (MINUSP RUTILS.STRING::END)
; ==>
;   (< RUTILS.STRING::END 0)
; 
; 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.

;     (+ RUTILS.STRING::LEN RUTILS.STRING::END)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/string.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/string.lisp
; in: DEFUN ENDS-WITH
;     (LENGTH STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (- (LENGTH STRING) RUTILS.STRING::-END)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a (NOT NULL), not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (NOT NULL), not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/string.lisp
; in: DEFUN LAST-CHAR
;     (CHAR STRING (1- (LENGTH STRING)))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-table.lisp
; in: DEFUN COPY-HASH-TABLE
;     (FUNCALL RUTILS.HASH-TABLE::KEY RUTILS.HASH-TABLE::V)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.HASH-TABLE::KEY)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: KEY is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-table.lisp
; in: DEFUN MERGE-HASH-TABLES-WITH
;     (FUNCALL RUTILS.MISC:FN RUTILS.HASH-TABLE::V
;              (GETHASH RUTILS.HASH-TABLE::K RUTILS.HASH-TABLE::REZ))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-table.lisp
; in: DEFUN PRINT-HASH-TABLE
;     (INCF RUTILS.HASH-TABLE::I)
; --> SETQ THE 
; ==>
;   (+ 1 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 &REST T).
;       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 &REST T).
;       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 UNSIGNED-BYTE, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-table.lisp
; 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)))))
; --> PROGN 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)
;                        (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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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)))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (WHEN (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2)
;         (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)))
; 
; 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)
; --> SB-IMPL::GETHASH3 
; ==>
;   RUTILS.HASH-SET::ITEM
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-set.lisp
; 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))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))
; 
; 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))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))
; 
; 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))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))
; 
; 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))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET))
; 
; caught STYLE-WARNING:
;   The variable _ is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/hash-set.lisp
; 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)))
; --> LET BLOCK ETYPECASE LET COND IF PROGN MAPHASH LET* 
; --> SB-KERNEL:%COERCE-CALLABLE-TO-FUN LAMBDA 
; ==>
;   #'(LAMBDA (RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::_)
;       (DECLARE (IGNORE RUTILS.BIND:_))
;       (UNLESS (GETHASH RUTILS.HASH-SET::ITEM RUTILS.HASH-SET::SET2)
;         (RUTILS.HASH-SET:|ADD#| RUTILS.HASH-SET::ITEM SET)))
; 
; 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)
; --> SB-IMPL::GETHASH3 
; ==>
;   RUTILS.HASH-SET::ITEM
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/tree.lisp
; in: DEFUN MAPTREE
;     (FUNCALL RUTILS.MISC:FN RUTILS.TREE::NODE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/tree.lisp
; in: DEFUN MAPLEAVES
;     (FUNCALL RUTILS.MISC:FN RUTILS.TREE::NODE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/tree.lisp
; in: DEFUN TREE-SIZE
;     (INCF RUTILS.TREE::ACC)
; --> SETQ 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/tree.lisp
; in: DEFUN TREE-DEPTH
;     (1+
;      (REDUCE #'MAX
;              (CONS 1 (MAPCAR #'RUTILS.TREE:TREE-DEPTH (REST RUTILS.TREE::TREE)))))
; ==>
;   (+
;    (REDUCE #'MAX
;            (CONS 1 (MAPCAR #'RUTILS.TREE:TREE-DEPTH (REST RUTILS.TREE::TREE))))
;    1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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.

;     (ZEROP RUTILS.ARRAY::SIZE)
; ==>
;   (= RUTILS.ARRAY::SIZE 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) (RATIONAL 0)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (MAX 0 (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG))
; --> LET LET IF >= <= IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> LET LET IF >= <= IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT 0.0d0) (SINGLE-FLOAT 0.0) (RATIONAL 0)), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       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 &REST T).
;       etc.

;     (MAX 0 (- (OR RUTILS.ARRAY::END (LENGTH RUTILS.ARRAY:VEC)) RUTILS.ARRAY::BEG))
; --> LET LET IF >= <= IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/array.lisp
; 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)))
; 
; note: unable to optimize because: The axis is not constant.

;     (MAKE-ARRAY RUTILS.ARRAY::DIMS :ELEMENT-TYPE
;                 (ARRAY-ELEMENT-TYPE RUTILS.ARRAY::ARR))
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-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.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 FLOAT.The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a 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 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a RATIONAL.

;     (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))
; --> LET LET IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (MIN
;      (OR
;       (APPLY #'POSITION RUTILS.SEQUENCE::DELIMITER RUTILS.SEQUENCE::SEQ :START
;              RUTILS.SEQUENCE::LEFT RUTILS.SEQUENCE::OTHER-KEYS)
;       RUTILS.SEQUENCE::LEN)
;      RUTILS.SEQUENCE::END)
; --> LET LET IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1- RUTILS.SEQUENCE::START)
; ==>
;   (- RUTILS.SEQUENCE::START 1)
; 
; 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 &REST T).
;       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 &REST T).
;       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))
; --> LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 T, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       etc.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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)
; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       etc.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 FLOAT.The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a 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 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a RATIONAL.

;     (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))
; --> LET LET IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (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)
; --> LET LET IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1- RUTILS.SEQUENCE::START)
; ==>
;   (- RUTILS.SEQUENCE::START 1)
; 
; 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 &REST T).
;       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 &REST T).
;       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))
; --> LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 T, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       etc.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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)
; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       etc.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 FLOAT.The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a RATIONAL.

;     (= 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a 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 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a RATIONAL.

;     (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))
; --> LET LET IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (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)
; --> LET LET IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (1- RUTILS.SEQUENCE::START)
; ==>
;   (- RUTILS.SEQUENCE::START 1)
; 
; 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 &REST T).
;       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 &REST T).
;       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))
; --> LET LET IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 T, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)), not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       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 (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       etc.

;     (1+ RUTILS.SEQUENCE::LEFT)
; ==>
;   (+ RUTILS.SEQUENCE::LEFT 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT -1.0d0) (SINGLE-FLOAT -1.0) (RATIONAL -1)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL 0) (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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)
; --> LET LET IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The second argument is a REAL, 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.

;     (>= RUTILS.SEQUENCE::NR-ELTS COUNT)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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 REAL, not a FIXNUM.

;     (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 ...)
; --> BLOCK 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 &REST T).
;       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 &REST T).
;       etc.

;     (>= RUTILS.SEQUENCE::RIGHT RUTILS.SEQUENCE::END)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), 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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       etc.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a SINGLE-FLOAT.
;       The second argument is a REAL, not a SINGLE-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 (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427388d18) (SINGLE-FLOAT * 4.611686e18) (RATIONAL * 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * 4611686018427387901) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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 (SIMPLE-ARRAY * (*)) CONS NULL 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))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
;    (IF RUTILS.SEQUENCE::KEY-P
;        RUTILS.SEQUENCE::KEY
;        #'IDENTITY))
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.SEQUENCE::TEST)
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.SEQUENCE::ORDERING)
; 
; 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)
; --> TRULY-THE 
; ==>
;   (SB-KERNEL:%MAP SB-C::RESULT-TYPE-ARG SB-C::FUN #:G48)
; 
; note: unable to open code because: RESULT-TYPE argument not constant

;     (INCF RUTILS.SEQUENCE::I)
; --> SETQ 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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 (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (INTEGER 1)), not a SINGLE-FLOAT.
; 
; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (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::START)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

;     (> 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 * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.

;     (<= RUTILS.SEQUENCE::I RUTILS.SEQUENCE::START)
; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The second argument is a REAL, 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 * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The second argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a (SIGNED-BYTE 64).
;       The second argument is a REAL, not a (SIGNED-BYTE 64).
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ RUTILS.SEQUENCE::START
;        (RANDOM (- RUTILS.SEQUENCE::I RUTILS.SEQUENCE::START)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) UNSIGNED-BYTE), not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       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 (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) UNSIGNED-BYTE), not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

;     (1- RUTILS.SEQUENCE::I)
; ==>
;   (- RUTILS.SEQUENCE::I 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (MOD 4611686018427387900) (INTEGER * -2)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (MOD 4611686018427387900) (INTEGER * -2)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (MOD 4611686018427387900) (INTEGER * -2)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1 4611686018427387900)), not a FIXNUM.
;       The result is a (VALUES (OR (MOD 4611686018427387900) (INTEGER * -2)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN NSHUFFLE
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I))
; 
; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (INTEGER 1)), not a SINGLE-FLOAT.
; 
; note: unable to Use inline float operations. due to type uncertainty: The first argument is a (OR (SINGLE-FLOAT (0.0)) (DOUBLE-FLOAT (0.0d0)) (INTEGER 1)), not a DOUBLE-FLOAT.

;     (ROTATEF (ELT SEQUENCE RUTILS.SEQUENCE::I)
;              (ELT SEQUENCE
;                   (+ RUTILS.SEQUENCE::I
;                      (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I)))))
; --> LET* MULTIPLE-VALUE-BIND LET 
; ==>
;   (ELT #:SEQUENCE4 #:G5)
; 
; 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.

; --> LET* MULTIPLE-VALUE-BIND LET MULTIPLE-VALUE-BIND LET 
; ==>
;   (ELT #:SEQUENCE2 #:I3)
; 
; 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 #:SEQUENCE2 #:I3 #:NEW1)
; 
; 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 #:SEQUENCE4 #:G5 #:NEW1)
; 
; 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 #)))))
; --> BLOCK LET TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> BLOCK LET TAGBODY WHEN IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

; --> BLOCK LET TAGBODY WHEN IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> BLOCK LET TAGBODY WHEN IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       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.
;       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.

;     (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a REAL, not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       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 &REST T).
;       etc.

;     (+ RUTILS.SEQUENCE::I (RANDOM (- RUTILS.SEQUENCE::END RUTILS.SEQUENCE::I)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a REAL, not a DOUBLE-FLOAT.
;       The second argument is a (OR (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) UNSIGNED-BYTE), not a DOUBLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       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 (SINGLE-FLOAT 0.0) (DOUBLE-FLOAT 0.0d0) UNSIGNED-BYTE), not a SINGLE-FLOAT.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN ROTATE
;     (PLUSP RUTILS.SEQUENCE::N)
; ==>
;   (> RUTILS.SEQUENCE::N 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (MINUSP RUTILS.SEQUENCE::N)
; ==>
;   (< RUTILS.SEQUENCE::N 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) (RATIONAL * 0)), not a FLOAT.

;     (- RUTILS.SEQUENCE::N)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER RUTILS.SEQUENCE::N))
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a RATIONAL.

;     (PLUSP RUTILS.SEQUENCE::N)
; ==>
;   (> RUTILS.SEQUENCE::N 0)
; 
; 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)
; ==>
;   (< RUTILS.SEQUENCE::N 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) (RATIONAL * 0)), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (DOUBLE-FLOAT * 0.0d0) (SINGLE-FLOAT * 0.0) (RATIONAL * 0)), not a FIXNUM.
;       etc.

;     (- RUTILS.SEQUENCE::N)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER RUTILS.SEQUENCE::N))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a DOUBLE-FLOAT.
;       The result is a (VALUES (OR (RATIONAL (0)) (SINGLE-FLOAT (-0.0)) (DOUBLE-FLOAT (-0.0d0))) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a SINGLE-FLOAT.
;       The result is a (VALUES (OR (RATIONAL (0)) (SINGLE-FLOAT (-0.0)) (DOUBLE-FLOAT (-0.0d0))) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN ROTATE-TAIL-TO-HEAD
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), 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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), 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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY SINGLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY DOUBLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).

;     (REPLACE SEQUENCE RUTILS.SEQUENCE::TAIL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY SINGLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY DOUBLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).

;     (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)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY AND THE 
; --> >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN ROTATE-HEAD-TO-TAIL
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (SUBSEQ SEQUENCE 0 RUTILS.SEQUENCE::M)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), 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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY SINGLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY DOUBLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).

;     (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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY SINGLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY SINGLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY DOUBLE-FLOAT (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BIT-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY FIXNUM (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY FIXNUM (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-VECTOR.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL SB-KERNEL:EXTENDED-SEQUENCE), not a SIMPLE-BASE-STRING.The result is a (VALUES (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE) &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).

;     (1- RUTILS.SEQUENCE::N)
; ==>
;   (- RUTILS.SEQUENCE::N 1)
; 
; 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 &REST T).
;       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 &REST T).
;       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)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY AND THE 
; --> >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN EQUAL-LENGTHS
;     (LENGTH FIRST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN LENGTH=
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN LAST-ELT
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ELT SEQUENCE (1- RUTILS.SEQUENCE::LEN))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN (SETF LAST-ELT)
;     (LENGTH SEQUENCE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (SETF (ELT SEQUENCE (1- RUTILS.SEQUENCE::LEN)) RUTILS.SEQUENCE::OBJECT)
; ==>
;   (SB-KERNEL:%SETELT SEQUENCE (1- RUTILS.SEQUENCE::LEN) RUTILS.SEQUENCE::OBJECT)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; in: DEFUN GROUP
;     (LENGTH RUTILS.SEQUENCE::SEQ)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (SUBSEQ RUTILS.SEQUENCE::SEQ RUTILS.SEQUENCE::I)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), 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 VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE), 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 &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (>= (+ RUTILS.SEQUENCE::I RUTILS.SEQUENCE::N) RUTILS.SEQUENCE::LEN)
; --> IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.

;     (+ 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 &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       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 &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/sequence.lisp
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/kv.lisp
; in: DEFGENERIC MAPKV
;     (FUNCALL RUTILS.MISC:FN RUTILS.READTABLE:% RUTILS.READTABLE:%%)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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:%))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.MISC:FN)
; 
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD PRINT-OBJECT (GENERIC-ELT-ERROR T)
;     (DEFMETHOD PRINT-OBJECT
;                ((RUTILS.GENERIC::ERR RUTILS.GENERIC:GENERIC-ELT-ERROR) STREAM)
;       (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)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION 
; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* 
; --> LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$Generic element access error: object ~A can't be accessed by key: ~A"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "Generic element access error: object " STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-STRING " can't be accessed by key: " STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG2 STREAM))
;             NIL)
;           #:G8 #:G9)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD GENERIC-ELT (LIST T)
;     (MINUSP RUTILS.GENERIC::KEY)
; ==>
;   (< RUTILS.GENERIC::KEY 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a 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 (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD GENERIC-ELT (VECTOR T)
;     (MINUSP RUTILS.GENERIC::KEY)
; ==>
;   (< RUTILS.GENERIC::KEY 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (AREF RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (MINUSP RUTILS.GENERIC::KEY)
; ==>
;   (< RUTILS.GENERIC::KEY 0)
; 
; 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 (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD GENERIC-ELT (SEQUENCE T)
;     (MINUSP RUTILS.GENERIC::KEY)
; ==>
;   (< RUTILS.GENERIC::KEY 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a 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.

;     (MINUSP RUTILS.GENERIC::KEY)
; ==>
;   (< RUTILS.GENERIC::KEY 0)
; 
; 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 (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a (OR (DOUBLE-FLOAT * (0.0d0)) (SINGLE-FLOAT * (0.0)) (RATIONAL * (0))), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL * (4611686018427387900)) (SINGLE-FLOAT * 4.611686e18) (DOUBLE-FLOAT * 4.611686018427388d18)) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD GENERIC-SETF (VECTOR T)
;     (SETF (AREF RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY)
;             (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL))
; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS ARRAY SB-INT:INDEX
;                                                 SB-C::NEW-VALUE)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; in: DEFMETHOD GENERIC-SETF (SEQUENCE T)
;     (SETF (ELT RUTILS.GENERIC::OBJ RUTILS.GENERIC::KEY)
;             (RUTILS.LIST:ATOMIZE RUTILS.GENERIC::KEYS-AND-VAL))
; ==>
;   (SB-KERNEL:%SETELT 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; 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)))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/generic.lisp
; 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/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN GENVAR
;     (INCF RUTILS.ITER::*GENVAR-COUNTER*)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::*GENVAR-COUNTER*)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN SPECIAL-FORM?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN WALK-SPECIAL-FORM
;     (STRING (CAR RUTILS.ITER::FORM))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (ASSOC
;      (IF (KEYWORDP (CAR RUTILS.ITER::FORM))
;          (FIND-SYMBOL (STRING (CAR RUTILS.ITER::FORM)) 'RUTILS.ITER::RUTILS.ITER)
;          (CAR RUTILS.ITER::FORM))
;      RUTILS.ITER::*SPECIAL-FORM-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

;     (APPLY RUTILS.ITER::FUNC RUTILS.ITER::FORM)
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL RUTILS.ITER::FUNC)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: FUNC is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN WALK-SETQ
;     (INCF RUTILS.ITER::I)
; --> SETQ 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN PROCESS-CLAUSE
;     (ASSOC (CAR RUTILS.ITER::CLAUSE) RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN DISPLAY-KWS
;     (= RUTILS.ITER::COL 1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ RUTILS.ITER::COL 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (INCF RUTILS.ITER::COL)
; --> SETQ THE 
; ==>
;   (+ 1 RUTILS.ITER::COL)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: unable to open code because: The operands might not be the same type.

;     (+ 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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (>= (+ RUTILS.ITER::COL RUTILS.ITER::LEN) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       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.
;       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.

;     (INCF RUTILS.ITER::COL RUTILS.ITER::LEN)
; --> SETQ 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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 &REST T).
;       etc.

;     (>= (+ RUTILS.ITER::COL 1) RUTILS.ITER::+FILL-COL+)
; --> OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; 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.

; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-= (cost 10)
;       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.
;       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.

;     (INCF RUTILS.ITER::COL)
; --> SETQ 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 NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN CLAUSE-MATCHES?
;     (EVERY #'EQ RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; --> BLOCK SB-INT:DX-FLET FLET 
; ==>
;   (SB-KERNEL:%MAP NIL #'#:WRAPPER4 RUTILS.ITER::CLAUSE-SPEC RUTILS.ITER::KWS)
; 
; note: unable to open code because: can't determine sequence argument type

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN STARTS-CLAUSE?
;     (ASSOC SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; 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 FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (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.

;     (MEMBER RUTILS.ITER::K2 RUTILS.ITER::OK1)
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; in: DEFUN DISPLAY-INDEX
;     (+ RUTILS.ITER::INDENT 2)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; 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 &REST T).
;       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 &REST T).
;       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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN MAKE-ACCUM-VAR-BINDING-INTERNAL
;     (ASSOC RUTILS.ITER::VAR RUTILS.ITER::*BINDINGS*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN MAKE-SHARED-BINDING
;     (STRING RUTILS.ITER::VAR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN INSTALL-SPECIAL-CLAUSE-FUNCTION
;     (ASSOC RUTILS.ITER::KEY-SYMBOL RUTILS.ITER::*SPECIAL-CLAUSE-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN RETURN-COLLECTION-CODE
;     (RUTILS.ITER::WITH-TEMPORARY RUTILS.ITER::TEMP-VAR
;       (LET* ((RUTILS.ITER::UPDATE-CODE
;               `(IF ,RUTILS.ITER::COLLECT-VAR
;                    #
;                    #))
;              (RUTILS.ITER::MAIN-CODE (COND # # #)))
;         (RUTILS.ITER::RETURN-CODE :BODY
;          `((PROGN ,.RUTILS.ITER::MAIN-CODE ,RUTILS.ITER::COLLECT-VAR)) :FINAL
;          (IF (EQ RUTILS.ITER::RESULT-TYPE 'LIST)
;              NIL
;              `(#)))))
; --> FLET RUTILS.ITER::GET-FREE-TEMP BLOCK LET SOME BLOCK SB-INT:DX-FLET FLET 
; --> #:WRAPPER4 BLOCK LET FUNCALL SB-C::%FUNCALL UNLESS IF MEMBER 
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in:
;      DEFCLAUSE (:ADJOIN EXPR &OPTIONAL :INTO VAR :AT (PLACE (QUOTE END)) :TEST (TEST (QUOTE (FUNCTION EQL))) :RESULT-TYPE (TYPE (QUOTE LIST)))
;     (RUTILS.ITER::WITH-TEMPORARY RUTILS.ITER::TEMP
;       (RUTILS.ITER::RETURN-COLLECTION-CODE :VARIABLE RUTILS.ITER::VAR :EXPRESSION
;        RUTILS.ITER::EXPR :START-OPERATION
;        `(SUBST (RUTILS.ITER::EXPR RUTILS.ITER::VAR)
;                (PROGN
;                 ,RUTILS.ITER::TEMP
;                 (ADJOIN RUTILS.ITER::EXPR RUTILS.ITER::VAR :TEST
;                         ,RUTILS.ITER::TEST)))
;        :TEST
;        `(SUBST (RUTILS.ITER::VAR RUTILS.ITER::EXPR) (PROGN (SETQ #) (NOT #)))
;        :END-OPERATION
;        `(SUBST (RUTILS.ITER::VAR RUTILS.ITER::EXPR) (LIST ,RUTILS.ITER::TEMP))
;        :ONE-ELEMENT ...))
; --> FLET RUTILS.ITER::GET-FREE-TEMP BLOCK LET SOME BLOCK SB-INT:DX-FLET FLET 
; --> #:WRAPPER3 BLOCK LET FUNCALL SB-C::%FUNCALL UNLESS IF MEMBER 
; ==>
;   (SB-KERNEL:%MEMBER SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in:
;      DEFCLAUSE (:FOR PVAR :PREV VAR &OPTIONAL :INITIALLY (DEFAULT NIL DEFAULT?) :BACK (N-EXPR 1))
;     (> RUTILS.ITER::N 0)
; 
; note: forced to do FAST-IF->-ZERO (cost 8)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.

;     (1- RUTILS.ITER::N)
; ==>
;   (- RUTILS.ITER::N 1)
; 
; 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; in: DEFUN INTERN-PREVIOUS-INFO
;     (ASSOC RUTILS.ITER::VAR RUTILS.ITER::*PREVIOUS-VARS-ALIST*)
; ==>
;   (SB-KERNEL:%ASSOC SB-C::ITEM LIST)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a (OR FIXNUM SINGLE-FLOAT (NOT NUMBER)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/iter.lisp
; 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)))
; --> DO BLOCK LET TAGBODY UNLESS IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; 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.

; --> DO BLOCK LET TAGBODY PSETQ PROGN SETQ THE 1+ 
; ==>
;   (+ RUTILS.ITER::I 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 &REST T).
;       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 &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rutils/52b9283ec55b786b0a597d0a9986336baa90a6d3/rutils-20200627-git/core/abbr.lisp
; in: DEFSETF ?
;     (DEFSETF RUTILS.GENERIC:? RUTILS.GENERIC::GENERIC-SETF)
; --> EVAL-WHEN 
; ==>
;   (SB-IMPL::%DEFSETF 'RUTILS.GENERIC:? 'RUTILS.GENERIC::GENERIC-SETF)
; 
; caught WARNING:
;   defining setf macro for ? when (SETF ?) was previously treated as a function
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "rutils" "core" "abbr">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005268113}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005268113}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005268113}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "abbr">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "abbr">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "abbr">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "rutils" "core" "abbr">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10051FC8E3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10051FC8E3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "lack-session-store-redis"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "lack-session-store-redis">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "lack-session-store-redis">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "lack-session-store-redis")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "lack-session-store-redis") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10051F58BB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10051B059B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "lack-session-store-redis") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "lack-session-store-redis" "lack-session-store-redis")
23: (DEPCHECK::MAGIC "lack-session-store-redis" "lack-session-store-redis" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f7WTDnaZ/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "lack-session-store-redis" "lack-session-store-redis" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f7WTDnaZ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f7WTDnaZ/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 13 STYLE-WARNING conditions
;   printed 512 notes