cl-directed-graph

SBCL 1.3.14.debian / ASDF WARNING:

cl-directed-graph

WARNING: compiling #<STATIC-FILE "uiop" "contrib/debug.lisp"> completed without its input file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/uiop/da3ee39fe426d6df6707bb7a34ef7ab8fcc6b55d/uiop-3.3.2/contrib/debug.lisp"
WARNING: loading #<STATIC-FILE "uiop" "contrib/debug.lisp"> completed without its input file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/uiop/da3ee39fe426d6df6707bb7a34ef7ab8fcc6b55d/uiop-3.3.2/contrib/debug.lisp"
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: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: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: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/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
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: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/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/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::%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

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/introspect-environment/599d21a1de88776bb340d0830e7f3774f061c269/introspect-environment-20180622-git/sbcl.lisp
; in: DEFUN PARSE-COMPILER-MACRO
;     (ERROR "Don't know how to PARSE-COMPILER-MACRO on this SBCL version.")
; ==>
;   "Don't know how to PARSE-COMPILER-MACRO on this SBCL version."
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/trivial-file-size/cf8f78bbbbb18e547dd47cff487ac30a4f356c43/trivial-file-size-20180622-git/trivial-file-size.lisp
; in: DEFUN FILE-SIZE-IN-OCTETS
;     (DEFUN TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS (TRIVIAL-FILE-SIZE::FILE)
;       "Return the size of FILE in octets.
;   Whenever possible, get the size from the file's metadata.
;   
;   Some platforms (e.g. ABCL) may return 0 when the file does not exist."
;       (MULTIPLE-VALUE-BIND (TRIVIAL-FILE-SIZE::PATH NAMESTRING)
;           (ETYPECASE TRIVIAL-FILE-SIZE::FILE
;             (STRING (VALUES # TRIVIAL-FILE-SIZE::FILE))
;             (PATHNAME (VALUES TRIVIAL-FILE-SIZE::FILE #)))
;         (DECLARE (IGNORABLE TRIVIAL-FILE-SIZE::PATH NAMESTRING))
;         (HANDLER-CASE (PROGN (SB-POSIX:STAT-SIZE #)) (ERROR NIL NIL))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS
;         (TRIVIAL-FILE-SIZE::FILE)
;       "Return the size of FILE in octets.
; Whenever possible, get the size from the file's metadata.
; 
; Some platforms (e.g. ABCL) may return 0 when the file does not exist."
;       (BLOCK TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS
;         (MULTIPLE-VALUE-BIND (TRIVIAL-FILE-SIZE::PATH NAMESTRING)
;             (ETYPECASE TRIVIAL-FILE-SIZE::FILE (STRING #) (PATHNAME #))
;           (DECLARE (IGNORABLE TRIVIAL-FILE-SIZE::PATH NAMESTRING))
;           (HANDLER-CASE (PROGN #) (ERROR NIL NIL)))))
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL (OR NULL UNSIGNED-BYTE) &REST T).

;     (SB-POSIX:STAT TRIVIAL-FILE-SIZE::PATH)
; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP 
; --> RETURN-FROM PROGN LET SB-POSIX::ALIEN-TO-STAT SB-POSIX::A-STAT 
; --> SB-ALIEN-INTERNALS:LOCAL-ALIEN SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #
;                                                                              :OFFSET
;                                                                              0)
;                                                                             (SB-POSIX::INO
;                                                                              #
;                                                                              :OFFSET
;                                                                              64)
;                                                                             (SB-POSIX::NLINK
;                                                                              #
;                                                                              :OFFSET
;                                                                              128)
;                                                                             (SB-POSIX::MODE
;                                                                              #
;                                                                              :OFFSET
;                                                                              192)
;                                                                             (SB-POSIX::UID
;                                                                              #
;                                                                              :OFFSET
;                                                                              224)
;                                                                             (SB-POSIX::GID
;                                                                              #
;                                                                              :OFFSET
;                                                                              256)
;                                                                             (SB-POSIX::PADDING-4-36
;                                                                              #
;                                                                              :OFFSET
;                                                                              288)
;                                                                             (SB-POSIX::RDEV
;                                                                              #
;                                                                              :OFFSET
;                                                                              320)
;                                                                             (SB-POSIX::SIZE
;                                                                              #
;                                                                              :OFFSET
;                                                                              384)
;                                                                             (SB-POSIX::PADDING-16-56
;                                                                              #
;                                                                              :OFFSET
;                                                                              448)
;                                                                             ...))>)
; 
; note: unable to optimize because: could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; --> BLOCK SB-POSIX::WITH-ALIEN-STAT WITH-ALIEN SYMBOL-MACROLET 
; --> SYMBOL-MACROLET LET LET LET SYMBOL-MACROLET UNWIND-PROTECT FLET BLOCK 
; --> SB-POSIX::FREE-ALIEN-STAT SB-POSIX::A-STAT SB-ALIEN-INTERNALS:LOCAL-ALIEN 
; --> SB-ALIEN-INTERNALS:NATURALIZE 
; ==>
;   (SB-ALIEN-INTERNALS:%SAP-ALIEN ALIEN
;                                  '#<SB-ALIEN-INTERNALS:ALIEN-POINTER-TYPE (*
;                                                                            (SB-ALIEN:STRUCT
;                                                                             SB-POSIX::ALIEN-STAT
;                                                                             (SB-POSIX::DEV
;                                                                              #
;                                                                              :OFFSET
;                                                                              0)
;                                                                             (SB-POSIX::INO
;                                                                              #
;                                                                              :OFFSET
;                                                                              64)
;                                                                             (SB-POSIX::NLINK
;                                                                              #
;                                                                              :OFFSET
;                                                                              128)
;                                                                             (SB-POSIX::MODE
;                                                                              #
;                                                                              :OFFSET
;                                                                              192)
;                                                                             (SB-POSIX::UID
;                                                                              #
;                                                                              :OFFSET
;                                                                              224)
;                                                                             (SB-POSIX::GID
;                                                                              #
;                                                                              :OFFSET
;                                                                              256)
;                                                                             (SB-POSIX::PADDING-4-36
;                                                                              #
;                                                                              :OFFSET
;                                                                              288)
;                                                                             (SB-POSIX::RDEV
;                                                                              #
;                                                                              :OFFSET
;                                                                              320)
;                                                                             (SB-POSIX::SIZE
;                                                                              #
;                                                                              :OFFSET
;                                                                              384)
;                                                                             (SB-POSIX::PADDING-16-56
;                                                                              #
;                                                                              :OFFSET
;                                                                              448)
;                                                                             ...))>)
; 
; note: unable to optimize because: could not optimize away %SAP-ALIEN: forced to do runtime 
; allocation of alien-value structure

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/types.lisp
; in: DEFMACRO WITH-TYPE-DECLARATIONS-TRUSTED
;     (LET ((SPEED (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SPEED SERAPEUM::ENV))
;           (SAFETY (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SAFETY SERAPEUM::ENV)))
;       (IF (AND (< SAFETY 3) (>= SPEED SAFETY))
;           (VALUES SPEED SAFETY)
;           (LET* ((SAFETY #) (SPEED #))
;             (VALUES SPEED SAFETY))))
; 
; note: deleting unreachable code

;     (>= SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (< SAFETY 3)
; ==>
;   SAFETY
; 
; note: deleting unreachable code

;     (VALUES SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (>= SPEED SAFETY)
; ==>
;   SPEED
; 
; note: deleting unreachable code

;     (LET ((SPEED (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SPEED SERAPEUM::ENV))
;           (SAFETY (INTROSPECT-ENVIRONMENT:POLICY-QUALITY 'SAFETY SERAPEUM::ENV)))
;       (IF (AND (< SAFETY 3) (>= SPEED SAFETY))
;           (VALUES SPEED SAFETY)
;           (LET* ((SAFETY #) (SPEED #))
;             (VALUES SPEED SAFETY))))
; 
; note: deleting unreachable code

;     (IF (AND (< SAFETY 3) (>= SPEED SAFETY))
;         (VALUES SPEED SAFETY)
;         (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;           (VALUES SPEED SAFETY)))
; 
; note: deleting unreachable code

;     (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;       (VALUES SPEED SAFETY))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (MAX SPEED SAFETY)
; --> LET LET MAX LET 
; ==>
;   SAFETY
; 
; note: deleting unreachable code

;     (LET* ((SAFETY (MIN SAFETY 2)) (SPEED (MAX SPEED SAFETY)))
;       (VALUES SPEED SAFETY))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
WARNING: Implicitly creating new generic function SERAPEUM/OP::OP-ENV-LAMBDA.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/trees.lisp
; in: DEFUN LEAF-WALK
;     (LABELS ((SERAPEUM:LEAF-WALK (SERAPEUM::FUN SERAPEUM::TREE)
;                (DECLARE (FUNCTION SERAPEUM::FUN))
;                (COND (# #) (T # #))))
;       (SERAPEUM:LEAF-WALK SERAPEUM::FUN SERAPEUM::TREE))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/files.lisp
; in: DEFUN FILE=
;     (= (TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS SERAPEUM::FILE1)
;        (TRIVIAL-FILE-SIZE:FILE-SIZE-IN-OCTETS SERAPEUM::FILE2))
; --> EQL IF EQL SB-KERNEL:%EQL/INTEGER IF 
; ==>
;   (SB-KERNEL:%EQL/INTEGER SB-C::X SB-C::Y)
; 
; note: forced to do %EQL/INTEGER (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 UNSIGNED-BYTE, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/files.lisp
; in: DEFUN FILE=/LOOP
;     (= (FILE-LENGTH SERAPEUM::FILE1) (FILE-LENGTH SERAPEUM::FILE2))
; --> EQL IF EQL SB-KERNEL:%EQL/INTEGER IF 
; ==>
;   (SB-KERNEL:%EQL/INTEGER SB-C::X SB-C::Y)
; 
; note: forced to do %EQL/INTEGER (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 UNSIGNED-BYTE, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/numbers.lisp
; in: DEFUN READ-FLOAT-AUX
;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (EXPT 10 SERAPEUM::E)
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a UNSIGNED-BYTE.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The second argument is a NUMBER, not a INTEGER.

;     (* SERAPEUM::E 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */* of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to associate *// of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (EXPT 10 SERAPEUM::E)
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: unable to optimize due to type uncertainty: The second argument is a NUMBER, not a UNSIGNED-BYTE.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.The second argument is a NUMBER, not a INTEGER.

;     (* NUMBER 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */* of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to associate *// of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* SERAPEUM::DIVISOR 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */* of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to associate *// of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* NUMBER 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.
; 
; note: unable to associate */* of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; 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 30)
;       unable to do inline fixnum arithmetic (cost 3) 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.

;     (+ (* NUMBER 10) SERAPEUM::DIGIT)
; 
; 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 5) 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.

;     (* NUMBER 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) 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.

;     (+ (* NUMBER 10) SERAPEUM::DIGIT)
; 
; 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 5) 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.

;     (* SERAPEUM::DIVISOR 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) 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.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T).
;       etc.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, 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.

;     (- SERAPEUM::E)
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SERAPEUM::E))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX SINGLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a (COMPLEX DOUBLE-FLOAT).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) &REST T).
;       etc.

;     (* (EXPT 10 SERAPEUM::E) SERAPEUM::N)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
;       The second argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (COMPLEX SINGLE-FLOAT) &REST T).
;       unable to do inline float arithmetic (cost 4) because:
;       The first argument is a NUMBER, 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.

;     (* SERAPEUM::E 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) 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 (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (+ (* SERAPEUM::E 10) SERAPEUM::DIGIT)
; 
; 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 5) 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/octets.lisp
; in: DEFUN OCTETS
;     (LDB (BYTE 8 BYTE) SERAPEUM::N)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 4) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The second argument is a (INTEGER -4611686018427387840 0), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       unable to do inline ASH (cost 5) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

;     (LDB (BYTE 8 (* SERAPEUM::I 8)) SERAPEUM::N)
; --> SB-KERNEL:%LDB LOGAND 
; ==>
;   (ASH INT (- SB-C::POSN))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 4) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The second argument is a (INTEGER -4611686018427387832 0), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       unable to do inline ASH (cost 5) because:
;       The first argument is a (OR (INTEGER * -4611686018427387905) (INTEGER 18446744073709551616)), not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/octets.lisp
; in: DEFUN UNOCTETS
;     (ASH SERAPEUM::SUM 8)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The first argument is a T, not a (UNSIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (+ SERAPEUM:OCTET (ASH SERAPEUM::SUM 8))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The second argument is a INTEGER, 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 5) because:
;       The first argument is a T, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (* SERAPEUM::I 8)
; ==>
;   (ASH SB-C::X 3)
; 
; note: forced to do full call
;       unable to do inline ASH (cost 2) because:
;       The result is a (VALUES (MOD 36893488147419103193) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103193) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

;     (ASH (AREF SERAPEUM::BYTES SERAPEUM::I) (* SERAPEUM::I 8))
; 
; note: forced to do full call
;       unable to do inline ASH (cost 3) because:
;       The second argument is a (MOD 36893488147419103193), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The second argument is a (MOD 36893488147419103193), not a (UNSIGNED-BYTE 62).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM (1-
;                                                     (LENGTH
;                                                      SERAPEUM::BYTES)) SERAPEUM::DOWNTO 0
;           SERAPEUM::SUM (ASH (AREF SERAPEUM::BYTES SERAPEUM::I)
;                              (* SERAPEUM::I 8)))
; --> BLOCK LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-128 (ASH (AREF SERAPEUM::BYTES SERAPEUM::I) (* SERAPEUM::I 8)))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The second argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64).
;       The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (DEFUN SERAPEUM:UNOCTETS (SERAPEUM::BYTES &KEY SERAPEUM::BIG-ENDIAN)
;       "Concatenate BYTES, an octet vector, into an integer.
;   Defaults to little-endian order."
;       (DECLARE (SERAPEUM:OCTET-VECTOR SERAPEUM::BYTES)
;                (INLINE REDUCE)
;                (OPTIMIZE SPEED))
;       (IF SERAPEUM::BIG-ENDIAN
;           (REDUCE (LAMBDA (SERAPEUM::SUM SERAPEUM:OCTET) (+ SERAPEUM:OCTET #))
;                   SERAPEUM::BYTES :INITIAL-VALUE 0)
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM (1-
;                                                           (LENGTH
;                                                            SERAPEUM::BYTES)) SERAPEUM::DOWNTO 0
;                 SERAPEUM::SUM (ASH (AREF SERAPEUM::BYTES SERAPEUM::I)
;                                    (* SERAPEUM::I 8)))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SERAPEUM:UNOCTETS
;                    (SB-INT:NAMED-LAMBDA SERAPEUM:UNOCTETS
;                        (SERAPEUM::BYTES &KEY SERAPEUM::BIG-ENDIAN)
;                      "Concatenate BYTES, an octet vector, into an integer.
; Defaults to little-endian order."
;                      (DECLARE (SERAPEUM:OCTET-VECTOR SERAPEUM::BYTES)
;                               (INLINE REDUCE)
;                               (OPTIMIZE SPEED))
;                      (BLOCK SERAPEUM:UNOCTETS
;                        (IF SERAPEUM::BIG-ENDIAN
;                            (REDUCE # SERAPEUM::BYTES :INITIAL-VALUE 0)
;                            (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM # SERAPEUM::DOWNTO 0
;                                  SERAPEUM::SUM #))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to COMMON-LISP:REDUCE 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level0" "octets">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/fbind.lisp
; in: DEFMACRO FBINDREC
;     (ALEXANDRIA.0.DEV:COMPOSE #'GENSYM #'STRING #'FIRST)
; --> LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:COMPOSE1800)
;                   (APPLY #:COMPOSE1801 ALEXANDRIA.0.DEV::ARGUMENTS))
; 
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/fbind.lisp
; in: DEFMACRO FBINDREC*
;     (ALEXANDRIA.0.DEV:COMPOSE #'GENSYM #'STRING #'FIRST)
; --> LET LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:COMPOSE2154)
;                   (APPLY #:COMPOSE2155 ALEXANDRIA.0.DEV::ARGUMENTS))
; 
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/lists.lisp
; in: DEFSUBST APPEND1
;     (SERAPEUM:DEFSUBST SERAPEUM:APPEND1
;         (LIST SERAPEUM::ITEM)
;       "Append an atom to a list.
;   
;       (append1 list item)
;       ≡ (append list (list item))"
;       (APPEND LIST (LIST SERAPEUM::ITEM)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SERAPEUM:APPEND1) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SERAPEUM:APPEND1 to be INLINE, but 2 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/lists.lisp
; in: DEFINE-COMPILER-MACRO MEMQ
;     (DEFINE-COMPILER-MACRO SERAPEUM:MEMQ
;         (&WHOLE SERAPEUM::CALL SERAPEUM::ITEM LIST &ENVIRONMENT SERAPEUM::ENV)
;       (MULTIPLE-VALUE-BIND (LIST SERAPEUM::CONSTANT?)
;           (SERAPEUM:EVAL-IF-CONSTANT LIST SERAPEUM::ENV)
;         (IF (NOT SERAPEUM::CONSTANT?)
;             SERAPEUM::CALL
;             (IF (NOT #)
;                 SERAPEUM::CALL
;                 `(CASE ,SERAPEUM::ITEM ,@#)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:MEMQ
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:MEMQ)
;                                     (#:EXPR SERAPEUM::ENV &AUX
;                                      (SERAPEUM::CALL #:EXPR))
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST (SERAPEUM::ITEM LIST)))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:MEMQ
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::ITEM LIST)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:MEMQ
;                                       (MULTIPLE-VALUE-BIND # # #)))))
; 
; caught STYLE-WARNING:
;   6 calls to SERAPEUM:MEMQ were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "lists">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN MAP-SUBSEQ
;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN702 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN702 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

;     (1- SERAPEUM::END)
; --> - 
; ==>
;   SERAPEUM::END
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                         SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1- - 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF < 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (LENGTH SERAPEUM::SEQ)
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;           SERAPEUM::END
;           DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
; --> BLOCK LET 
; ==>
;   SERAPEUM::START
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 
; --> 1+ + 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

; --> BLOCK LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)
; --> SVREF LET THE SB-KERNEL:DATA-VECTOR-REF 
; --> SB-KERNEL:DATA-VECTOR-REF-WITH-OFFSET SB-KERNEL:CHECK-BOUND 
; ==>
;   SERAPEUM::I
; 
; note: deleting unreachable code

;     (SERAPEUM:WITH-SUBTYPE-DISPATCH VECTOR
;         (SIMPLE-BIT-VECTOR BIT-VECTOR (SIMPLE-ARRAY CHARACTER (*))
;          SIMPLE-BASE-STRING)
;         SERAPEUM::SEQ
;       (LET ((SERAPEUM::END (OR SERAPEUM::END #)))
;         (IF SERAPEUM::FROM-END
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                                 SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                   DO (SERAPEUM::FN #))
;             (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                   SERAPEUM::END
;                   DO (SERAPEUM::FN #)))))
; --> SERAPEUM:WITH-TYPE-DISPATCH FLET ETYPECASE LET COND IF IF IF IF PROGN 
; --> #:TYPE-DISPATCH-FUN702 BLOCK SERAPEUM:WITH-READ-ONLY-VARS LET 
; ==>
;   SERAPEUM::SEQ
; 
; note: deleting unreachable code

;     (LET ((SERAPEUM::END (OR SERAPEUM::END (LENGTH SERAPEUM::SEQ))))
;       (IF SERAPEUM::FROM-END
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::DOWNFROM (1-
;                                                               SERAPEUM::END) SERAPEUM::TO SERAPEUM::START
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))
;           (LOOP SERAPEUM::FOR SERAPEUM::I SERAPEUM::FROM SERAPEUM::START SERAPEUM::BELOW
;                 SERAPEUM::END
;                 DO (SERAPEUM::FN (SERAPEUM:VREF SERAPEUM::SEQ SERAPEUM::I)))))
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFINE-DO-MACRO DO-SUBSEQ
;     (SERAPEUM:DEFINE-DO-MACRO SERAPEUM::DO-SUBSEQ
;         ((SERAPEUM::VAR SERAPEUM::SEQ &OPTIONAL RETURN &KEY SERAPEUM::START
;           SERAPEUM::END SERAPEUM::FROM-END)
;          &BODY SERAPEUM::BODY)
;       `(SERAPEUM::MAP-SUBSEQ (LAMBDA (,SERAPEUM::VAR) ,@SERAPEUM::BODY)
;         ,SERAPEUM::SEQ ,SERAPEUM::START ,SERAPEUM::END ,SERAPEUM::FROM-END))
; ==>
;   (DEFMACRO SERAPEUM::DO-SUBSEQ
;             (
;              (SERAPEUM::VAR
;               SERAPEUM::SEQ
;               &OPTIONAL
;               RETURN
;               &KEY
;               SERAPEUM::START
;               SERAPEUM::END
;               SERAPEUM::FROM-END)
;              &BODY SERAPEUM::BODY)
;     (MULTIPLE-VALUE-BIND (SERAPEUM::BODY SERAPEUM::DECLS)
;         (ALEXANDRIA.0.DEV:PARSE-BODY SERAPEUM::BODY)
;       (LET ((SERAPEUM::BODY #))
;         (FARE-QUASIQUOTE::LIST (FARE-QUASIQUOTE::QUOTE BLOCK) NIL
;                                `(SERAPEUM::MAP-SUBSEQ # ,SERAPEUM::SEQ
;                                  ,SERAPEUM::START ,SERAPEUM::END
;                                  ,SERAPEUM::FROM-END)
;                                (WHEN RETURN #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (VAR SEQ &OPTIONAL RETURN &KEY START END FROM-END)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN MAKE-BUCKET
;     (LIST SERAPEUM::INIT)
; --> CONS 
; ==>
;   SERAPEUM::INIT
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFINE-COMPILER-MACRO FILTER
;     (DEFINE-COMPILER-MACRO SERAPEUM:FILTER
;         (&WHOLE SERAPEUM::DECLINE SERAPEUM::PRED SERAPEUM::SEQ &REST
;          SERAPEUM::ARGS &KEY COUNT &ALLOW-OTHER-KEYS)
;       "In the absence of COUNT, expand directly to `remove-if-not'."
;       (IF (NULL COUNT)
;           `(REMOVE-IF-NOT ,SERAPEUM::PRED ,SERAPEUM::SEQ ,@SERAPEUM::ARGS)
;           SERAPEUM::DECLINE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:FILTER
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:FILTER)
;                                     (#:EXPR #:ENV &AUX
;                                      (SERAPEUM::DECLINE #:EXPR))
;                                   "In the absence of COUNT, expand directly to `remove-if-not'."
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::PRED SERAPEUM::SEQ &REST
;                                      SERAPEUM::ARGS &KEY COUNT
;                                      &ALLOW-OTHER-KEYS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:FILTER
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::PRED SERAPEUM::SEQ &REST
;                                        SERAPEUM::ARGS &KEY COUNT
;                                        &ALLOW-OTHER-KEYS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:FILTER
;                                       (IF #
;                                           `#
;                                           SERAPEUM::DECLINE)))))
; 
; caught STYLE-WARNING:
;   5 calls to SERAPEUM:FILTER were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFINE-COMPILER-MACRO KEEP
;     (DEFINE-COMPILER-MACRO SERAPEUM:KEEP
;         (&WHOLE SERAPEUM::DECLINE SERAPEUM::ITEM SERAPEUM::SEQ &REST
;          SERAPEUM::ARGS &KEY (SERAPEUM::TEST '#'EQL) COUNT &ALLOW-OTHER-KEYS)
;       "In the absence of COUNT, expand directly to `remove'."
;       (IF (NULL COUNT)
;           `(REMOVE ,SERAPEUM::ITEM ,SERAPEUM::SEQ :TEST-NOT ,SERAPEUM::TEST
;                    ,@(ALEXANDRIA.0.DEV:REMOVE-FROM-PLIST SERAPEUM::ARGS :TEST))
;           SERAPEUM::DECLINE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:KEEP
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:KEEP)
;                                     (#:EXPR #:ENV &AUX
;                                      (SERAPEUM::DECLINE #:EXPR))
;                                   "In the absence of COUNT, expand directly to `remove'."
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::ITEM SERAPEUM::SEQ &REST
;                                      SERAPEUM::ARGS &KEY # COUNT
;                                      &ALLOW-OTHER-KEYS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:KEEP
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::ITEM SERAPEUM::SEQ &REST
;                                        SERAPEUM::ARGS &KEY
;                                        (SERAPEUM::TEST '#'EQL) COUNT
;                                        &ALLOW-OTHER-KEYS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:KEEP
;                                       (IF #
;                                           `#
;                                           SERAPEUM::DECLINE)))))
; 
; caught STYLE-WARNING:
;   1 call to SERAPEUM:KEEP was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFSUBST SINGLE
;     (SERAPEUM:DEFSUBST SERAPEUM:SINGLE
;         (SERAPEUM::SEQ)
;       "Is SEQ a sequence of one element?"
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (AND SERAPEUM::SEQ (ENDP (CDR SERAPEUM::SEQ)))
;         (= (LENGTH SERAPEUM::SEQ) 1)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE SERAPEUM:SINGLE) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming SERAPEUM:SINGLE to be INLINE, but 4 calls to it were previously compiled. A declaration of NOTINLINE at the call sites will eliminate this warning, as will proclaiming and defining the function before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN BESTN
;     (SERAPEUM:TAKE SERAPEUM::N
;      (NREVERSE
;       (SERAPEUM::HEAP-EXTRACT-ALL SERAPEUM::HEAP :KEY SERAPEUM::KEY :TEST
;        #'SERAPEUM::TEST)))
; --> BLOCK SERAPEUM::SEQ-DISPATCH LET IF LET SERAPEUM:WITH-READ-ONLY-VARS LET 
; --> SYMBOL-MACROLET IF LAST ABS 
; ==>
;   SERAPEUM::N
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

; --> BLOCK SERAPEUM::SEQ-DISPATCH LET IF IF IF LET SERAPEUM::WITH-VREF LOCALLY 
; --> MACROLET SERAPEUM:WITH-READ-ONLY-VARS LET SYMBOL-MACROLET IF SUBSEQ MAX 
; --> LET LET MAX LET + 
; ==>
;   SERAPEUM::N
; 
; note: deleting unreachable code

; --> BLOCK SERAPEUM::SEQ-DISPATCH LET IF IF IF LET 
; --> SERAPEUM:WITH-READ-ONLY-VARS LET SYMBOL-MACROLET IF SUBSEQ MAX LET LET 
; --> MAX LET + 
; ==>
;   SERAPEUM::N
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN RESHUFFLE
;     (DEFUN SERAPEUM:RESHUFFLE (SERAPEUM::SEQ &KEY (SERAPEUM::ELEMENT-TYPE '*))
;       "Like `alexandria:shuffle', but non-destructive.
;   
;   Regardless of the type of SEQ, the return value is always a vector.
;   
;   If ELEMENT-TYPE is provided, this is the element type (modulo
;   upgrading) of the vector returned.
;   
;   If ELEMENT-TYPE is not provided, then the element type of the vector
;   returned is T, if SEQ is not a vector. If SEQ is a vector, then the
;   element type of the vector returned is the same as the as the element
;   type of SEQ."
;       (ALEXANDRIA.0.DEV:SHUFFLE
;        (ALEXANDRIA.0.DEV:COPY-SEQUENCE
;         `(SIMPLE-ARRAY ,SERAPEUM::ELEMENT-TYPE (*)) SERAPEUM::SEQ)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:RESHUFFLE
;         (SERAPEUM::SEQ &KEY (SERAPEUM::ELEMENT-TYPE '*))
;       "Like `alexandria:shuffle', but non-destructive.
; 
; Regardless of the type of SEQ, the return value is always a vector.
; 
; If ELEMENT-TYPE is provided, this is the element type (modulo
; upgrading) of the vector returned.
; 
; If ELEMENT-TYPE is not provided, then the element type of the vector
; returned is T, if SEQ is not a vector. If SEQ is a vector, then the
; element type of the vector returned is the same as the as the element
; type of SEQ."
;       (BLOCK SERAPEUM:RESHUFFLE
;         (ALEXANDRIA.0.DEV:SHUFFLE
;          (ALEXANDRIA.0.DEV:COPY-SEQUENCE
;           `(SIMPLE-ARRAY ,SERAPEUM::ELEMENT-TYPE #) SERAPEUM::SEQ))))
; 
; note: type assertion too complex to check:
; (VALUES (SIMPLE-ARRAY * (*)) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN TSORT
;     (ALEXANDRIA.0.DEV:REMOVEF SERAPEUM::CONSTRAINTS SERAPEUM::CHOICE :TEST
;                               #'MEMBER)
; --> LET* SETQ THE ALEXANDRIA.0.DEV::REMOVE/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::GLOBAL-VAR
;      :%SOURCE-NAME REMOVE
;      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {100D4F6223}>
;    #:G4320 #:G4321 #:G4322 #:G4323)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFSUBST INTERSPERSE
;     (SERAPEUM:DEFSUBST SERAPEUM:INTERSPERSE
;         (SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;       "Return a sequence like SEQ, but with NEW-ELT inserted between each
;   element."
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (SERAPEUM::INTERSPERSE/LIST SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;         (SERAPEUM::INTERSPERSE/SEQ SERAPEUM::NEW-ELT SERAPEUM::SEQ)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:INTERSPERSE
;         (SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;       "Return a sequence like SEQ, but with NEW-ELT inserted between each
; element."
;       (BLOCK SERAPEUM:INTERSPERSE
;         (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;           (SERAPEUM::INTERSPERSE/LIST SERAPEUM::NEW-ELT SERAPEUM::SEQ)
;           (SERAPEUM::INTERSPERSE/SEQ SERAPEUM::NEW-ELT SERAPEUM::SEQ))))
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL SEQUENCE &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/sequences.lisp
; in: DEFUN REPEAT-SEQUENCE
;     (DEFUN SERAPEUM:REPEAT-SEQUENCE (SERAPEUM::SEQ SERAPEUM::N)
;       "Return a sequence like SEQ, with the same content, but repeated N times.
;   
;       (repeat-sequence \"13\" 3)
;       => \"131313\"
;   
;   The length of the sequence returned will always be the length of SEQ
;   times N.
;   
;   This means that 0 repetitions results in an empty sequence:
;   
;       (repeat-sequence \"13\" 0)
;       => \"\"
;   
;   Conversely, N may be greater than the possible length of a sequence,
;   as long as SEQ is empty.
;   
;       (repeat-sequence \"\" (1+ array-dimension-limit))
;       => \"\"
;   "
;       (CHECK-TYPE SERAPEUM::N (INTEGER 0 *))
;       (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;         (SERAPEUM::REPEAT-LIST SERAPEUM::SEQ SERAPEUM::N)
;         (SERAPEUM::REPEAT-VECTOR SERAPEUM::SEQ SERAPEUM::N)
;         (LET ((SERAPEUM::LEN #))
;           (IF (ZEROP SERAPEUM::LEN)
;               (SERAPEUM::MAKE-SEQUENCE-LIKE SERAPEUM::SEQ 0)
;               (LOOP SERAPEUM::WITH SERAPEUM::OUT = #
;                     SERAPEUM::REPEAT SERAPEUM::N
;                     SERAPEUM::FOR SERAPEUM::OFFSET SERAPEUM::FROM 0 SERAPEUM::BY ...)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:REPEAT-SEQUENCE
;         (SERAPEUM::SEQ SERAPEUM::N)
;       "Return a sequence like SEQ, with the same content, but repeated N times.
; 
;     (repeat-sequence \"13\" 3)
;     => \"131313\"
; 
; The length of the sequence returned will always be the length of SEQ
; times N.
; 
; This means that 0 repetitions results in an empty sequence:
; 
;     (repeat-sequence \"13\" 0)
;     => \"\"
; 
; Conversely, N may be greater than the possible length of a sequence,
; as long as SEQ is empty.
; 
;     (repeat-sequence \"\" (1+ array-dimension-limit))
;     => \"\"
; "
;       (BLOCK SERAPEUM:REPEAT-SEQUENCE
;         (CHECK-TYPE SERAPEUM::N (INTEGER 0 *))
;         (SERAPEUM::SEQ-DISPATCH SERAPEUM::SEQ
;           (SERAPEUM::REPEAT-LIST SERAPEUM::SEQ SERAPEUM::N)
;           (SERAPEUM::REPEAT-VECTOR SERAPEUM::SEQ SERAPEUM::N)
;           (LET (#)
;             (IF #
;                 #
;                 #)))))
; 
; note: Assignment to argument: N
;   prevents use of assertion from function type proclamation:
;  UNSIGNED-BYTE
; 
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL SEQUENCE &REST T).
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "sequences">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/strings.lisp
; in: DEFUN STRING-UPCASE-INITIALS
;     (DEFUN SERAPEUM:STRING-UPCASE-INITIALS (STRING)
;       "Return STRING with the first letter of each word capitalized.
;   This differs from STRING-CAPITALIZE in that the other characters in
;   each word are not changed.
;   
;        (string-capitalize \"an ACRONYM\") -> \"An Acronym\")
;        (string-upcase-initials \"an ACRONYM\") -> \"An ACRONYM\")
;   
;   From Emacs Lisp (where it is simply `upcase-initials')."
;       (SERAPEUM:NSTRING-UPCASE-INITIALS (SERAPEUM::COPY-STRING STRING)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA SERAPEUM:STRING-UPCASE-INITIALS
;         (STRING)
;       "Return STRING with the first letter of each word capitalized.
; This differs from STRING-CAPITALIZE in that the other characters in
; each word are not changed.
; 
;      (string-capitalize \"an ACRONYM\") -> \"An Acronym\")
;      (string-upcase-initials \"an ACRONYM\") -> \"An ACRONYM\")
; 
; From Emacs Lisp (where it is simply `upcase-initials')."
;       (BLOCK SERAPEUM:STRING-UPCASE-INITIALS
;         (SERAPEUM:NSTRING-UPCASE-INITIALS (SERAPEUM::COPY-STRING STRING))))
; 
; note: type assertion too complex to check:
; (VALUES STRING &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/strings.lisp
; in: DEFUN WORDS
;     (DEFUN SERAPEUM:WORDS (STRING &KEY (SERAPEUM::START 0) SERAPEUM::END)
;       "Split STRING into words.
;   
;   The definition of a word is the same as that used by
;   `string-capitalize': a run of alphanumeric characters.
;   
;       (words \"Four score and seven years\")
;       => (\"Four\" \"score\" \"and\" \"seven\" \"years\")
;   
;       (words \"2 words\")
;       => (\"2\" \"words\")
;   
;       (words \"two_words\")
;       => (\"two\" \"words\")
;   
;       (words \"\\\"I'm here,\\\" Tom said presently.\")
;       => (\"I\" \"m\" \"here\" \"Tom\" \"said\" \"presently\")
;   
;   Cf. `tokens'."
;       (DECLARE (STRING STRING)
;                (OPTIMIZE SPEED)
;                (INLINE SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT))
;       (VALUES
;        (SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT #'ALPHANUMERICP STRING
;                                              :REMOVE-EMPTY-SUBSEQS T :START
;                                              SERAPEUM::START :END SERAPEUM::END)))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SERAPEUM:WORDS
;                    (SB-INT:NAMED-LAMBDA SERAPEUM:WORDS
;                        (STRING &KEY (SERAPEUM::START 0) SERAPEUM::END)
;                      "Split STRING into words.
; 
; The definition of a word is the same as that used by
; `string-capitalize': a run of alphanumeric characters.
; 
;     (words \"Four score and seven years\")
;     => (\"Four\" \"score\" \"and\" \"seven\" \"years\")
; 
;     (words \"2 words\")
;     => (\"2\" \"words\")
; 
;     (words \"two_words\")
;     => (\"two\" \"words\")
; 
;     (words \"\\\"I'm here,\\\" Tom said presently.\")
;     => (\"I\" \"m\" \"here\" \"Tom\" \"said\" \"presently\")
; 
; Cf. `tokens'."
;                      (DECLARE (STRING STRING)
;                               (OPTIMIZE SPEED)
;                               (INLINE SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT))
;                      (BLOCK SERAPEUM:WORDS
;                        (VALUES
;                         (SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT #'ALPHANUMERICP
;                                                               STRING
;                                                               :REMOVE-EMPTY-SUBSEQS
;                                                               T :START
;                                                               SERAPEUM::START
;                                                               :END
;                                                               SERAPEUM::END))))
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to SPLIT-SEQUENCE:SPLIT-SEQUENCE-IF-NOT 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/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/strings.lisp
; in: DEFINE-COMPILER-MACRO FMT
;     (DEFINE-COMPILER-MACRO SERAPEUM:FMT
;         (SERAPEUM::CONTROL-STRING &REST SERAPEUM::ARGS)
;       `(THE STRING
;             ,(IF (STRINGP SERAPEUM::CONTROL-STRING)
;                  (COND (# `#) (# #) (# #) (T `#))
;                  `(LET (*PRINT-PRETTY*)
;                     (FORMAT NIL ,SERAPEUM::CONTROL-STRING ,@SERAPEUM::ARGS)))))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:FMT
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:FMT)
;                                     (#:EXPR #:ENV)
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::CONTROL-STRING &REST
;                                      SERAPEUM::ARGS)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO SERAPEUM:FMT
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::CONTROL-STRING &REST
;                                        SERAPEUM::ARGS)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:FMT `(THE STRING ,#)))))
; 
; caught STYLE-WARNING:
;   2 calls to SERAPEUM:FMT were compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call sites will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/strings.lisp
; in: DEFCMP (STRING^= STRING-PREFIX-P)
;     (SERAPEUM::DEFCMP (SERAPEUM:STRING^= SERAPEUM:STRING-PREFIX-P)
;      (SERAPEUM::PREFIX STRING) "Is PREFIX a prefix of STRING?"
;      (LET ((SERAPEUM::MS (SERAPEUM::CALL MISMATCH SERAPEUM::PREFIX STRING)))
;        (OR (NOT SERAPEUM::MS) (= SERAPEUM::MS SERAPEUM::END1))))
; --> PROGN SERAPEUM:DEFSUBST PROGN DEFUN PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'SERAPEUM:STRING^=
;                    (SB-INT:NAMED-LAMBDA SERAPEUM:STRING^=
;                        (SERAPEUM::PREFIX STRING &KEY (SERAPEUM::START1 0)
;                         SERAPEUM::END1 (SERAPEUM::START2 0) SERAPEUM::END2)
;                      "Is PREFIX a prefix of STRING?"
;                      (DECLARE
;                       (ALEXANDRIA.0.DEV:ARRAY-LENGTH SERAPEUM::START1
;                        SERAPEUM::START2))
;                      (DECLARE (INLINE MISMATCH))
;                      (BLOCK SERAPEUM:STRING^=
;                        (LET* (# # # #)
;                          (DECLARE #)
;                          (DECLARE #)
;                          (MACROLET #
;                            #))))
;                    (SB-C:SOURCE-LOCATION)
;                    '(SB-C:LAMBDA-WITH-LEXENV
;                      (:MACRO ((SERAPEUM::DEFCMP LAMBDA # # #)))
;                      (SERAPEUM::PREFIX STRING &KEY (SERAPEUM::START1 0)
;                       SERAPEUM::END1 (SERAPEUM::START2 0) SERAPEUM::END2)
;                      (DECLARE
;                       (ALEXANDRIA.0.DEV:ARRAY-LENGTH SERAPEUM::START1
;                        SERAPEUM::START2))
;                      (DECLARE (INLINE MISMATCH))
;                      (BLOCK SERAPEUM:STRING^=
;                        (LET* (# # # #)
;                          (DECLARE #)
;                          (DECLARE #)
;                          (MACROLET #
;                            #)))))
; 
; caught STYLE-WARNING:
;   Call to COMMON-LISP:MISMATCH 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "strings">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/vectors.lisp
; in: DEFINE-COMPILER-MACRO PAD-START
;     (DEFINE-COMPILER-MACRO SERAPEUM:PAD-START
;         (&WHOLE SERAPEUM::CALL SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL
;          (SERAPEUM::PAD #\ ) &ENVIRONMENT SERAPEUM::ENV)
;       (SERAPEUM::EXPAND-PAD-X SERAPEUM::CALL 'SERAPEUM:PAD-START SERAPEUM::ENV
;        SERAPEUM::VEC SERAPEUM::LEN SERAPEUM::PAD))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:PAD-START
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:PAD-START)
;                                     (#:EXPR SERAPEUM::ENV &AUX
;                                      (SERAPEUM::CALL #:EXPR))
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL #)))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO
;                                                          SERAPEUM:PAD-START
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL
;                                        (SERAPEUM::PAD #\ ))
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:PAD-START
;                                       (SERAPEUM::EXPAND-PAD-X SERAPEUM::CALL
;                                        'SERAPEUM:PAD-START SERAPEUM::ENV
;                                        SERAPEUM::VEC SERAPEUM::LEN
;                                        SERAPEUM::PAD)))))
; 
; caught STYLE-WARNING:
;   1 call to SERAPEUM:PAD-START was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/vectors.lisp
; in: DEFINE-COMPILER-MACRO PAD-END
;     (DEFINE-COMPILER-MACRO SERAPEUM:PAD-END
;         (&WHOLE SERAPEUM::CALL SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL
;          (SERAPEUM::PAD #\ ) &ENVIRONMENT SERAPEUM::ENV)
;       (SERAPEUM::EXPAND-PAD-X SERAPEUM::CALL 'SERAPEUM:PAD-END SERAPEUM::ENV
;        SERAPEUM::VEC SERAPEUM::LEN SERAPEUM::PAD))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'SERAPEUM:PAD-END
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO
;                                                       SERAPEUM:PAD-END)
;                                     (#:EXPR SERAPEUM::ENV &AUX
;                                      (SERAPEUM::CALL #:EXPR))
;                                   (DECLARE
;                                    (SB-C::LAMBDA-LIST
;                                     (SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL #)))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO
;                                                          SERAPEUM:PAD-END
;                                                          . DEFINE-COMPILER-MACRO)
;                                       (SERAPEUM::VEC SERAPEUM::LEN &OPTIONAL
;                                        (SERAPEUM::PAD #\ ))
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK SERAPEUM:PAD-END
;                                       (SERAPEUM::EXPAND-PAD-X SERAPEUM::CALL
;                                        'SERAPEUM:PAD-END SERAPEUM::ENV
;                                        SERAPEUM::VEC SERAPEUM::LEN
;                                        SERAPEUM::PAD)))))
; 
; caught STYLE-WARNING:
;   1 call to SERAPEUM:PAD-END was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "serapeum" "level1" "vectors">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/VARS
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :VARS
;      (APPEND SERAPEUM/INTERNAL-DEFINITIONS::VARS
;              (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-VARS
;               SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-VARS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/SYMBOL-MACROS
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :VARS
;      (APPEND
;       (SERAPEUM:MAPPLY #'SERAPEUM/INTERNAL-DEFINITIONS::SYMBOL-MACRO
;                        SERAPEUM/INTERNAL-DEFINITIONS::SYMBOL-MACROS)
;       (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-VARS
;        SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-VARS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/BLOCK
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :BLOCKS
;      (CONS BLOCK
;            (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-BLOCKS
;             SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-BLOCKS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/TAGS
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :TAGS
;      (APPEND SERAPEUM/INTERNAL-DEFINITIONS::TAGS
;              (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-TAGS
;               SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-TAGS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/FUNS
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :FUNS
;      (APPEND
;       (MAPCAR
;        (LAMBDA (SERAPEUM/INTERNAL-DEFINITIONS::SPEC)
;          (SERAPEUM/INTERNAL-DEFINITIONS::FUN # #))
;        SERAPEUM/INTERNAL-DEFINITIONS::FUNS)
;       (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-FUNS
;        SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-FUNS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFUN AUGMENT/MACROS
;     (SERAPEUM/INTERNAL-DEFINITIONS::COPY-SUBENV
;      SERAPEUM/INTERNAL-DEFINITIONS::SUBENV :FUNS
;      (APPEND
;       (SERAPEUM:MAPPLY #'SERAPEUM/INTERNAL-DEFINITIONS::MACRO
;                        SERAPEUM/INTERNAL-DEFINITIONS::MACROS)
;       (SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-FUNS
;        SERAPEUM/INTERNAL-DEFINITIONS::SUBENV)))
; --> IF SERAPEUM/INTERNAL-DEFINITIONS::SUBENV-FUNS TRULY-THE 
; --> SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   SERAPEUM/INTERNAL-DEFINITIONS::SUBENV
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/serapeum/78558c1471d04b7f53ba62e5e2a362e629e09c4e/serapeum-20180622-git/internal-definitions.lisp
; in: DEFMETHODS INTERNAL-DEFINITIONS-ENV
;     (:METHOD SERAPEUM/INTERNAL-DEFINITIONS::SHADOW-SYMBOL-MACRO
;      (SERAPEUM/INTERNAL-DEFINITIONS::SELF SERAPEUM/INTERNAL-DEFINITIONS::NAME)
;      (ALEXANDRIA.0.DEV:REMOVEF
;       SERAPEUM/INTERNAL-DEFINITIONS::GLOBAL-SYMBOL-MACROS
;       SERAPEUM/INTERNAL-DEFINITIONS::NAME :KEY #'CAR))
; --> SYMBOL-MACROLET DEFMETHOD 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 BLOCK LET* LET LET 
; --> ALEXANDRIA.0.DEV::REMOVE/SWAPPED-ARGUMENTS BLOCK APPLY 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (SB-C::%FUNCALL
;    #<SB-C::GLOBAL-VAR
;      :%SOURCE-NAME REMOVE
;      :TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :DEFINED-TYPE #<SB-KERNEL:FUN-TYPE (FUNCTION # #)>
;      :WHERE-FROM :DECLARED
;      :KIND :GLOBAL-FUNCTION {1005E6B833}>
;    #:G1060 #:G1061 #:G1062 #:G1063)
; 
; note: The third argument (in keyword position) is not a constant, weakening keyword argument checking.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::ENSURE-VAR-ALIAS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::VAR-ALIAS-BINDINGS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::ALIAS-DECLS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::HOISTED-VAR?.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::KNOWN-VAR?.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::IN-SUBENV?.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::AT-BEGINNING?.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::CHECK-BEGINNING.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPAND-TOP.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::SPLICE-FORMS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EJECT-MACRO.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPAND-BODY.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::SAVE-SYMBOL-MACRO.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::SHADOW-SYMBOL-MACRO.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPANSION-DONE.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPAND-IN-ENV-1.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPAND-IN-ENV.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::WRAP-EXPR.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::WRAP-BINDINGS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::WRAP-FN-BINDINGS.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::STEP-EXPANSION.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::EXPAND-PARTIALLY.
WARNING: Implicitly creating new generic function SERAPEUM/INTERNAL-DEFINITIONS::GENERATE-INTERNAL-DEFINITIONS.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180622-git/src.lisp
; in: DEFUN MAP-EDGES
;     (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::K CL-DIRECTED-GRAPH::X)
;           CL-DIRECTED-GRAPH::RESULT)
; 
; caught WARNING:
;   RESULT is read-only in this environment

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180622-git/src.lisp
; in: DEFUN MAP-DEPTH-FIRST
;     (CL-DIRECTED-GRAPH::TRAVERSE
;       (CL-DIRECTED-GRAPH::TRAV CL-DIRECTED-GRAPH::X))
; --> PROGN COND OR LET IF THE PROGN 
; ==>
;   (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::VERTEX) CL-DIRECTED-GRAPH::RESULT)
; 
; caught WARNING:
;   RESULT is read-only in this environment

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-directed-graph/6824059d5894b688291b87105094a07ae6ff7cf6/cl-directed-graph-20180622-git/src.lisp
; in: DEFUN MAP-BREADTH-FIRST
;     (CL-DIRECTED-GRAPH::TRAVERSE
;       (PUSH CL-DIRECTED-GRAPH::X CL-DIRECTED-GRAPH::SEEN)
;       (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::X) CL-DIRECTED-GRAPH::RESULT))
; --> PROGN COND OR LET IF THE PROGN 
; ==>
;   (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::VERTEX) CL-DIRECTED-GRAPH::RESULT)
; 
; caught WARNING:
;   RESULT is read-only in this environment

;     (PUSH (FUNCALL FUNCTION CL-DIRECTED-GRAPH::X) CL-DIRECTED-GRAPH::RESULT)
; 
; caught WARNING:
;   RESULT is read-only in this environment
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {100207EEB3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-directed-graph" "src">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {100207EEB3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1004038F73}> #<unavailable argument>)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1004038F73}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1004038F73}>)
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 "cl-directed-graph" "src">)))
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 "cl-directed-graph" "src">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unavailable argument> #<unavailable argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">)
6: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-directed-graph" "src">) [fast-method]
7: ((:METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM #2="alexandria">) (#1# . #3=#<ASDF/COMPONENT:STATIC-FILE #2# "LICENCE">) (#4=#<ASDF/LISP-ACTION:COMPILE-OP > . #3#) (#5=#<ASDF/LISP-ACTION:LOAD-OP > . #3#) (#1# . #6=#<ASDF/COMPONENT:STATIC-FILE #2# "tests.lisp">) (#4# . #6#) (#5# . #6#) (#1# . #7=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#5# . #7#) (#1# . #8=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "definitions">) (#5# . #8#) (#1# . #<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "binding">) ...) :FORCE NIL) [fast-method]
8: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
9: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM #2="alexandria">) (#1# . #3=#<ASDF/COMPONENT:STATIC-FILE #2# "LICENCE">) (#4=#<ASDF/LISP-ACTION:COMPILE-OP > . #3#) (#5=#<ASDF/LISP-ACTION:LOAD-OP > . #3#) (#1# . #6=#<ASDF/COMPONENT:STATIC-FILE #2# "tests.lisp">) (#4# . #6#) (#5# . #6#) (#1# . #7=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#5# . #7#) (#1# . #8=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "definitions">) (#5# . #8#) (#1# . #<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "binding">) ...)) [fast-method]
10: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
11: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1006046B43}>) [fast-method]
12: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-directed-graph">) [fast-method]
13: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-directed-graph">)
14: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-directed-graph">) [fast-method]
16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph")
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100603ACDB}> :OVERRIDE NIL :KEY NIL)
19: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph") [fast-method]
20: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-directed-graph") [fast-method]
21: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-directed-graph" "cl-directed-graph")
22: (DEPCHECK::MAGIC "cl-directed-graph" "cl-directed-graph" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7XoH8EI5/depcheck-win.txt")
23: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-directed-graph" "cl-directed-graph" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7XoH8EI5/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-7XoH8EI5/depcheck-fail.txt"))
24: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
25: ((FLET #:WITHOUT-INTERRUPTS-BODY-77 :IN SAVE-LISP-AND-DIE))
26: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 4 WARNING conditions
;   caught 12 STYLE-WARNING conditions
;   printed 131 notes