manardb

SBCL 1.4.11.105-54ce935 / ASDF 3.3.1

manardb

WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN
WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN
WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN
WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN
WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN
WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN
WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO
WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO
WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN
WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO
WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO
WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN
WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN
WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN
WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN
WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN
WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN
WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN
WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO
WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN
WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN
WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN
WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN
WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN
WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN
WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO
WARNING: redefining UIOP/OS:FEATUREP in DEFUN
WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN
WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN
WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN
WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN
WARNING: redefining UIOP/OS:DETECT-OS in DEFUN
WARNING: redefining UIOP/OS:OS-COND in DEFMACRO
WARNING: redefining UIOP/OS:GETENV in DEFUN
WARNING: redefining UIOP/OS:GETENVP in DEFUN
WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
WARNING: redefining UIOP/OS:GETCWD in DEFUN
WARNING: redefining UIOP/OS:CHDIR in DEFUN
WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO
WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN
WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN
WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO
WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO
WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN
WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN
WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN
WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN
WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN
WARNING: redefining UIOP/STREAM:WRITELN in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN
WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO
WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN
WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN
WARNING: redefining UIOP/IMAGE:QUIT in DEFUN
WARNING: redefining UIOP/IMAGE:DIE in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN
WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN
WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO
WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN
WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN
WARNING: UIOP/VERSION:PARSE-VERSION: "prerelease" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "prerelease" for component "cl-irregsexp" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/cl-irregsexp.asd", using NIL instead
WARNING: Invalid :version specifier "prerelease" for component "cl-irregsexp" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/cl-irregsexp.asd", using NIL instead
WARNING: No definition for CFLAG-VDSUSP
WARNING: No definition for CFLAG-VSTATUS
WARNING: No definition for TIOCGHAYESESP
WARNING: No definition for TIOCSHAYESESP

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MAKE-MPTR
;     (MANARDB::DEFUN-SPEEDY MANARDB::MAKE-MPTR
;         (MANARDB::TAG MANARDB::INDEX)
;       (DECLARE (TYPE MANARDB::MTAG MANARDB::TAG)
;                (TYPE MANARDB::MINDEX MANARDB::INDEX))
;       (THE MANARDB:MPTR
;            (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::MAKE-MPTR
;         (MANARDB::TAG MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE MANARDB::MTAG MANARDB::TAG)
;                (TYPE MANARDB::MINDEX MANARDB::INDEX))
;       (BLOCK MANARDB::MAKE-MPTR
;         (THE MANARDB:MPTR
;              (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPOINTER
;     (CFFI-SYS:INC-POINTER
;      (MANARDB::MTAGMAP-PTR
;       (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;      MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPTR-POINTER
;     (MANARDB::MPTR-TAG MANARDB:MPTR)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MPOINTER (MANARDB::MPTR-TAG MANARDB:MPTR)
;      (MANARDB::MPTR-INDEX MANARDB:MPTR))
; --> BLOCK 
; ==>
;   (CFFI-SYS:INC-POINTER
;    (MANARDB::MTAGMAP-PTR
;     (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;    MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPTR-TO-LISP-OBJECT
;     (MANARDB::MPTR-TAG MANARDB:MPTR)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mop.lisp
; in: DEFUN-SPEEDY PTR
;     (MANARDB::DEFUN-SPEEDY MANARDB::PTR
;         (MANARDB::OBJECT)
;       (DECLARE (TYPE MANARDB:MM-OBJECT MANARDB::OBJECT))
;       (THE MANARDB:MPTR (MANARDB::%PTR MANARDB::OBJECT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'PTR #:G1)
; 
; note: can't open-code test of unknown type MM-OBJECT

;     (THE MANARDB:MPTR (MANARDB::%PTR MANARDB::OBJECT))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mop.lisp
; in: DEFUN-SPEEDY MM-OBJECT-POINTER
;     (MANARDB::PTR MANARDB:MM-OBJECT)
; --> THE MANARDB::%PTR 
; ==>
;   (THE MANARDB:MM-OBJECT MANARDB:MM-OBJECT)
; 
; note: can't open-code test of unknown type MM-OBJECT

; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MPTR-POINTER (MANARDB::PTR MANARDB:MM-OBJECT))
; --> BLOCK MANARDB::MPOINTER BLOCK 
; ==>
;   (CFFI-SYS:INC-POINTER
;    (MANARDB::MTAGMAP-PTR
;     (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;    MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-WORD
;     (MANARDB::DEFUN-SPEEDY MANARDB::MTAGMAP-WORD
;         (MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                   MANARDB::WORD))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::MTAGMAP-WORD
;         (MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (BLOCK MANARDB::MTAGMAP-WORD
;         (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                     MANARDB::WORD)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY (SETF MTAGMAP-WORD)
;     (MANARDB::DEFUN-SPEEDY (SETF MANARDB::MTAGMAP-WORD)
;         (MANARDB::VAL MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (DECLARE (TYPE (UNSIGNED-BYTE 64) MANARDB::VAL))
;       (SETF (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                         MANARDB::WORD)
;               MANARDB::VAL))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-LAST-INDEX
;     (MANARDB::MTAGMAP-NEXT MANARDB::MTAGMAP)
; ==>
;   (MANARDB::MTAGMAP-WORD MANARDB::MTAGMAP 0)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-ELEM-POS
;     (/ (- MANARDB::INDEX (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP))
;        (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP))
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (- MANARDB::INDEX (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-ELEM-POS-TO-INDEX
;     (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a NUMBER, not a INTEGER.

;     (+ (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP)
;        (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The second 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 5) because:
;       The second 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.

;     (+ (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP)
;        (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-CLOSED-P
;     (MANARDB::DEFUN-SPEEDY MANARDB::MTAGMAP-CLOSED-P
;         (MANARDB::MTAGMAP)
;       (= -1 (MANARDB::MTAGMAP-FD MANARDB::MTAGMAP)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::MTAGMAP-CLOSED-P) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::MTAGMAP-CLOSED-P to be INLINE, but 5 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "manardb" "src" "mtagmap">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFINE-LISP-OBJECT-TO-MPTR
;     (MANARDB::DEFINE-LISP-OBJECT-TO-MPTR)
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK TYPECASE LET COND IF PROGN 
; --> MANARDB::PTR 
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY FORCE-MPTR
;     (MANARDB::PTR MANARDB::OBJ)
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

;     (ETYPECASE MANARDB::OBJ
;       (MANARDB:MPTR MANARDB::OBJ)
;       (MANARDB:MM-OBJECT (MANARDB::PTR MANARDB::OBJ)))
; --> LET COND IF TYPEP LET SB-C::%TYPEP-WRAPPER SB-KERNEL:UNSIGNED-BYTE-64-P 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY MPTR
;     (MANARDB::FORCE-MPTR MANARDB::OBJ)
; --> BLOCK ETYPECASE LET COND IF IF PROGN MANARDB::PTR 
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; --> BLOCK ETYPECASE LET COND IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY FORCE-TAG
;     (MANARDB::DEFUN-SPEEDY MANARDB::FORCE-TAG
;         (MANARDB::OBJ)
;       (ETYPECASE MANARDB::OBJ
;         (MANARDB::MTAG MANARDB::OBJ)
;         (MANARDB::MTAGMAP
;          (MANARDB::MM-METACLASS-TAG (MANARDB::MTAGMAP-CLASS MANARDB::OBJ)))
;         (SYMBOL (MANARDB::MM-METACLASS-TAG (FIND-CLASS MANARDB::OBJ)))
;         (MANARDB:MM-METACLASS (MANARDB::MM-METACLASS-TAG MANARDB::OBJ))
;         (MANARDB:MM-OBJECT (MANARDB::MPTR-TAG (MANARDB::PTR MANARDB::OBJ)))
;         (MANARDB:MPTR (MANARDB::MPTR-TAG MANARDB::OBJ))))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::FORCE-TAG) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::FORCE-TAG to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use.

;     (ETYPECASE MANARDB::OBJ
;       (MANARDB::MTAG MANARDB::OBJ)
;       (MANARDB::MTAGMAP
;        (MANARDB::MM-METACLASS-TAG (MANARDB::MTAGMAP-CLASS MANARDB::OBJ)))
;       (SYMBOL (MANARDB::MM-METACLASS-TAG (FIND-CLASS MANARDB::OBJ)))
;       (MANARDB:MM-METACLASS (MANARDB::MM-METACLASS-TAG MANARDB::OBJ))
;       (MANARDB:MM-OBJECT (MANARDB::MPTR-TAG (MANARDB::PTR MANARDB::OBJ)))
;       (MANARDB:MPTR (MANARDB::MPTR-TAG MANARDB::OBJ)))
; --> LET COND IF IF IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT6)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (NOT SYMBOL), not a FIXNUM.

;     (MANARDB::PTR MANARDB::OBJ)
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY MM-METACLASS-ALLOC
;     (* MANARDB::AMOUNT (MANARDB::MM-METACLASS-LEN CLASS))
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The second 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 5) because:
;       The second 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.

;     (MANARDB::MAKE-MPTR (MANARDB::MM-METACLASS-TAG CLASS)
;                         (MANARDB::MTAGMAP-ALLOC
;                          (MANARDB::MM-METACLASS-MTAGMAP CLASS)
;                          (* MANARDB::AMOUNT (MANARDB::MM-METACLASS-LEN CLASS))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "manardb" "src" "class">
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.

; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 0 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 0
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 0) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 1 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 1
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 1) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 2 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 2
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 2) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 3 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 3
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 3) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 4 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 4
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 4) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.

; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 5 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 5
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 5) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 6 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 6
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 6) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/types.lisp
; in: DEFINE-BOX-ARRAY GENERAL-BOX-ARRAY
;     (MANARDB::DEFINE-BOX-ARRAY MANARDB::GENERAL-BOX-ARRAY MANARDB::MM-BOX T
;                                :CONVERTOR MANARDB:LISP-OBJECT-TO-MPTR)
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G84)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET LOCALLY SETF LET* FUNCALL 
; --> SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G88)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::GENERAL-BOX-ARRAY
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY T (*)) ARRAY))
;       (BLOCK MANARDB::GENERAL-BOX-ARRAY
;         (LET* ((MANARDB::LEN #)
;                (MANARDB::INDEX #)
;                (MANARDB::POINTER #)
;                (ARRAY #))
;           (DECLARE (TYPE # ARRAY))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (UNSIGNED-BYTE 8))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-8 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 7 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 7
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 7) 1)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/types.lisp
; in: DEFINE-BOXED-NUMERIC-TYPES (BYTE (UNSIGNED-BYTE 8))
;     (MANARDB::DEFINE-BOXED-NUMERIC-TYPES (BYTE (UNSIGNED-BYTE 8)) DOUBLE-FLOAT
;                                          SINGLE-FLOAT
;                                          (MANARDB::UNSIGNED (UNSIGNED-BYTE 64))
;                                          (MANARDB::SIGNED (SIGNED-BYTE 64)))
; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-BYTE-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-BYTE-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 DOUBLE-FLOAT))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       DOUBLE-FLOAT)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-DOUBLE MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 8 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 8
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 8) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-DOUBLE-FLOAT
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-DOUBLE-FLOAT
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     DOUBLE-FLOAT)))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-DOUBLE * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       SINGLE-FLOAT)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-SINGLE MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 9 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 9
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 9) 4)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-SINGLE-FLOAT-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY SINGLE-FLOAT (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-SINGLE-FLOAT-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                   (UNSIGNED-BYTE 64)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (UNSIGNED-BYTE 64))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 10 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 10
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 10) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-UNSIGNED
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-UNSIGNED
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     (UNSIGNED-BYTE 64))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-UNSIGNED-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-UNSIGNED-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                   (SIGNED-BYTE 64)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (SIGNED-BYTE 64))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 11 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 11
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 11) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-SIGNED
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-SIGNED
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     (SIGNED-BYTE 64))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SIGNED-SAP-REF-64 
; --> * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-SIGNED-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-SIGNED-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DECLAIM 
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::BOX-OBJECT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::BOX-OBJECT to be INLINE, but 7 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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> TYPECASE LET COND IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT485)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (AND (NOT SINGLE-FLOAT) (NOT DOUBLE-FLOAT) (NOT INTEGER)) (INTEGER * -1) (INTEGER 256)), not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOX-OBJECT
;         (MANARDB::OBJECT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::BOX-OBJECT
;         (TYPECASE MANARDB::OBJECT
;           ((UNSIGNED-BYTE 8)
;            (LET #
;              #
;              #))
;           (DOUBLE-FLOAT
;            (LET #
;              #
;              #))
;           (SINGLE-FLOAT
;            (LET #
;              #
;              #))
;           ((UNSIGNED-BYTE 64)
;            (LET #
;              #
;              #))
;           ((SIGNED-BYTE 64)
;            (LET #
;              #
;              #))
;           (SYMBOL (MANARDB::BOX-SYMBOL MANARDB::OBJECT))
;           (STRING (MANARDB::BOX-STRING MANARDB::OBJECT))
;           (ARRAY (LOCALLY # #))
;           (CONS (MANARDB::BOX-CONS MANARDB::OBJECT))
;           (T (MANARDB:LISP-OBJECT-TO-MPTR-IMPL MANARDB::OBJECT)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1088)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (AND (NOT DOUBLE-FLOAT) (NOT SINGLE-FLOAT)), not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G1392)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET LOCALLY SETF LET* FUNCALL 
; --> SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G1496)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF PROGN 
; --> MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC 
; --> * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF PROGN 
; --> MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY 
; --> SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-DOUBLE * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF PROGN 
; --> MANARDB::BOXED-UNSIGNED-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF PROGN 
; --> MANARDB::BOXED-UNSIGNED-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY 
; --> SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF PROGN 
; --> MANARDB::BOXED-SIGNED-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF PROGN 
; --> MANARDB::BOXED-SIGNED-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY SETF 
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF IF PROGN 
; ==>
;   (MANARDB::GENERAL-BOX-ARRAY MANARDB::OBJECT)
; 
; caught WARNING:
;   Derived type of OBJECT is (VALUES (AND ARRAY (NOT SIMPLE-ARRAY)) &OPTIONAL), conflicting with its asserted type SIMPLE-VECTOR.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOX-ARRAY
;         (MANARDB::OBJECT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::BOX-ARRAY
;         (ASSERT (NOT (CDR #)))
;         (DECLAIM (NOTINLINE MANARDB::GENERAL-BOX-ARRAY))
;         (ETYPECASE MANARDB::OBJECT
;           (SIMPLE-ARRAY (TYPECASE MANARDB::OBJECT # # # # # #))
;           (ARRAY (MANARDB::GENERAL-BOX-ARRAY MANARDB::OBJECT)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 16) 0
;        MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 16)
;            0 MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 12 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 12
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 12)
;                                                         24)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "manardb" "src" "types">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10088D1833}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10088D1833}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10088D1833}>)
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 "manardb" "src" "types">)))
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 "manardb" "src" "types">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "manardb" "src" "types">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "manardb" "src" "types">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10055580E3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10055580E3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "manardb")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "manardb") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100554F59B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100550C7DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "manardb") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "manardb" "manardb")
23: (DEPCHECK::MAGIC "manardb" "manardb" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4PS5cJcM/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "manardb" "manardb" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4PS5cJcM/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-4PS5cJcM/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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

manardb-test

WARNING: redefining UIOP/PACKAGE:FIND-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:FIND-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-CALL in DEFUN
WARNING: redefining UIOP/PACKAGE:INTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:EXPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOWING-IMPORT* in DEFUN
WARNING: redefining UIOP/PACKAGE:SHADOW* in DEFUN
WARNING: redefining UIOP/PACKAGE:MAKE-SYMBOL* in DEFUN
WARNING: redefining UIOP/PACKAGE:UNINTERN* in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-SHADOWING-P in DEFUN
WARNING: redefining UIOP/PACKAGE:HOME-PACKAGE-P in DEFUN
WARNING: redefining UIOP/PACKAGE:SYMBOL-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:STANDARD-COMMON-LISP-SYMBOL-P in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:REIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:UNREIFY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::RECORD-FISHY in DEFUN
WARNING: redefining UIOP/PACKAGE::WHEN-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::NOTE-PACKAGE-FISHINESS in DEFMACRO
WARNING: redefining UIOP/PACKAGE::SET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::MAKE-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::GET-DUMMY-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL-IN-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:NUKE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:REHOME-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE-UNUSED in DEFUN
WARNING: redefining UIOP/PACKAGE:DELETE-PACKAGE* in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGES-FROM-NAMES in DEFUN
WARNING: redefining UIOP/PACKAGE:FRESH-PACKAGE-NAME in DEFUN
WARNING: redefining UIOP/PACKAGE:RENAME-PACKAGE-AWAY in DEFUN
WARNING: redefining UIOP/PACKAGE:PACKAGE-DEFINITION-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SHADOWING-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-IMPORT in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-INHERITED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-MIX in DEFUN
WARNING: redefining UIOP/PACKAGE::RECYCLE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::SYMBOL-RECYCLED-P in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-SYMBOL in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED-TO-USER in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORTED in DEFUN
WARNING: redefining UIOP/PACKAGE::ENSURE-EXPORT in DEFUN
WARNING: redefining UIOP/PACKAGE:ENSURE-PACKAGE in DEFUN
WARNING: redefining UIOP/PACKAGE:PARSE-DEFINE-PACKAGE-FORM in DEFUN
WARNING: redefining UIOP/PACKAGE:DEFINE-PACKAGE in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::LOOP* in DEFMACRO
WARNING: redefining UIOP/COMMON-LISP::FROB-SUBSTRINGS in DEFUN
WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFGENERIC* in DEFMACRO
WARNING: redefining UIOP/UTILITY:DEFUN* in DEFMACRO
WARNING: redefining UIOP/UTILITY:WITH-UPGRADABILITY in DEFMACRO
WARNING: redefining UIOP/UTILITY:UIOP-DEBUG in DEFMACRO
WARNING: redefining UIOP/UTILITY:LOAD-UIOP-DEBUG-UTILITY in DEFUN
WARNING: redefining UIOP/UTILITY:NEST in DEFMACRO
WARNING: redefining UIOP/UTILITY:IF-LET in DEFMACRO
WARNING: redefining UIOP/UTILITY:PARSE-BODY in DEFUN
WARNING: redefining UIOP/UTILITY:WHILE-COLLECTING in DEFMACRO
WARNING: redefining UIOP/UTILITY:APPENDF in DEFMACRO
WARNING: redefining UIOP/UTILITY:LENGTH=N-P in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-LIST in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEY in DEFUN
WARNING: redefining UIOP/UTILITY:REMOVE-PLIST-KEYS in DEFUN
WARNING: redefining UIOP/UTILITY:EMPTYP in DEFUN
WARNING: redefining UIOP/UTILITY:CHARACTER-TYPE-INDEX in DEFUN
WARNING: redefining UIOP/UTILITY:BASE-STRING-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRINGS-COMMON-ELEMENT-TYPE in DEFUN
WARNING: redefining UIOP/UTILITY:REDUCE/STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:STRCAT in DEFUN
WARNING: redefining UIOP/UTILITY:FIRST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:LAST-CHAR in DEFUN
WARNING: redefining UIOP/UTILITY:SPLIT-STRING in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-PREFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-SUFFIX-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRING-ENCLOSED-P in DEFUN
WARNING: redefining UIOP/UTILITY:STRIPLN in DEFUN
WARNING: redefining UIOP/UTILITY:STANDARD-CASE-SYMBOL-NAME in DEFUN
WARNING: redefining UIOP/UTILITY:FIND-STANDARD-CASE-SYMBOL in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP*< in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMP<= in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-EARLIEST in DEFUN
WARNING: redefining UIOP/UTILITY:EARLIEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATER-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:TIMESTAMPS-LATEST in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP in DEFUN
WARNING: redefining UIOP/UTILITY:LATEST-TIMESTAMP-F in DEFMACRO
WARNING: redefining UIOP/UTILITY:ENSURE-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT in DEFUN
WARNING: redefining UIOP/UTILITY:ACCESS-AT-COUNT in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-FUNCTIONS in DEFUN
WARNING: redefining UIOP/UTILITY:REGISTER-HOOK-FUNCTION in DEFUN
WARNING: redefining UIOP/UTILITY:COERCE-CLASS in DEFUN
WARNING: redefining UIOP/UTILITY:ENSURE-GETHASH in DEFUN
WARNING: redefining UIOP/UTILITY:LIST-TO-HASH-SET in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC< in DEFUN
WARNING: redefining UIOP/UTILITY:LEXICOGRAPHIC<= in DEFUN
WARNING: redefining UIOP/UTILITY:STYLE-WARN in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:MATCH-ANY-CONDITION-P in DEFUN
WARNING: redefining UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS in DEFUN
WARNING: redefining UIOP/UTILITY:WITH-MUFFLED-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/UTILITY:NOT-IMPLEMENTED-ERROR in DEFUN
WARNING: redefining UIOP/UTILITY:PARAMETER-ERROR in DEFUN
WARNING: redefining UIOP/VERSION:UNPARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:PARSE-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:NEXT-VERSION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION< in DEFUN
WARNING: redefining UIOP/VERSION:VERSION<= in DEFUN
WARNING: redefining UIOP/VERSION::DEPRECATED-FUNCTION-CONDITION-KIND in DEFUN
WARNING: redefining PRINT-OBJECT (#<SB-PCL::CONDITION-CLASS UIOP/VERSION:DEPRECATED-FUNCTION-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/VERSION::NOTIFY-DEPRECATED-FUNCTION in DEFUN
WARNING: redefining UIOP/VERSION:VERSION-DEPRECATION in DEFUN
WARNING: redefining UIOP/VERSION:WITH-DEPRECATION in DEFMACRO
WARNING: redefining UIOP/OS:FEATUREP in DEFUN
WARNING: redefining UIOP/OS:OS-MACOSX-P in DEFUN
WARNING: redefining UIOP/OS:OS-UNIX-P in DEFUN
WARNING: redefining UIOP/OS:OS-WINDOWS-P in DEFUN
WARNING: redefining UIOP/OS:OS-GENERA-P in DEFUN
WARNING: redefining UIOP/OS::OS-OLDMAC-P in DEFUN
WARNING: redefining UIOP/OS::OS-HAIKU-P in DEFUN
WARNING: redefining UIOP/OS:DETECT-OS in DEFUN
WARNING: redefining UIOP/OS:OS-COND in DEFMACRO
WARNING: redefining UIOP/OS:GETENV in DEFUN
WARNING: redefining UIOP/OS:GETENVP in DEFUN
WARNING: redefining UIOP/OS::FIRST-FEATURE in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-TYPE in DEFUN
WARNING: redefining UIOP/OS:OPERATING-SYSTEM in DEFUN
WARNING: redefining UIOP/OS:ARCHITECTURE in DEFUN
WARNING: redefining UIOP/OS:LISP-VERSION-STRING in DEFUN
WARNING: redefining UIOP/OS:IMPLEMENTATION-IDENTIFIER in DEFUN
WARNING: redefining UIOP/OS:HOSTNAME in DEFUN
WARNING: redefining UIOP/OS:GETCWD in DEFUN
WARNING: redefining UIOP/OS:CHDIR in DEFUN
WARNING: redefining UIOP/OS:READ-NULL-TERMINATED-STRING in DEFUN
WARNING: redefining UIOP/OS:READ-LITTLE-ENDIAN in DEFUN
WARNING: redefining UIOP/OS:PARSE-FILE-LOCATION-INFO in DEFUN
WARNING: redefining UIOP/OS:PARSE-WINDOWS-SHORTCUT in DEFUN
WARNING: redefining UIOP/PATHNAME:NORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:DENORMALIZE-PATHNAME-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAME-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-COMPONENT-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MAKE-PATHNAME-LOGICAL in DEFUN
WARNING: redefining UIOP/PATHNAME:MERGE-PATHNAMES* in DEFUN
WARNING: redefining UIOP/PATHNAME:LOGICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICAL-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PHYSICALIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:NIL-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-PATHNAME-DEFAULTS in DEFMACRO
WARNING: redefining UIOP/PATHNAME:PATHNAME-EQUAL in DEFUN
WARNING: redefining UIOP/PATHNAME:ABSOLUTE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:HIDDEN-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:FILE-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-PARENT-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-PATHNAME-P in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-DIRECTORY-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-UNIX-NAMESTRING-DIRECTORY-COMPONENTS in DEFUN
WARNING: redefining UIOP/PATHNAME:SPLIT-NAME-TYPE in DEFUN
WARNING: redefining UIOP/PATHNAME:PARSE-UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:UNIX-NAMESTRING in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHNAME* in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-ROOT in DEFUN
WARNING: redefining UIOP/PATHNAME:PATHNAME-HOST-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-ABSOLUTE-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:SUBPATHP in DEFUN
WARNING: redefining UIOP/PATHNAME:ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME in DEFUN
WARNING: redefining UIOP/PATHNAME:WITH-ENOUGH-PATHNAME in DEFMACRO
WARNING: redefining UIOP/PATHNAME:WILDEN in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-DIRECTORY-COMPONENT in DEFUN
WARNING: redefining UIOP/PATHNAME:RELATIVIZE-PATHNAME-DIRECTORY in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORY-SEPARATOR-FOR-HOST in DEFUN
WARNING: redefining UIOP/PATHNAME:DIRECTORIZE-PATHNAME-HOST-DEVICE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PARSE-NATIVE-NAMESTRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAME* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SAFE-FILE-WRITE-DATE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:PROBE-FILE* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILE-EXISTS-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY* in DEFUN
WARNING: redefining UIOP/FILESYSTEM:FILTER-LOGICAL-DIRECTORY-RESULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DIRECTORY-FILES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SUBDIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:COLLECT-SUB*DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:TRUENAMIZE in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RESOLVE-SYMLINKS* in DEFUN
WARNING: redefining UIOP/PATHNAME:ENSURE-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GET-PATHNAME-DEFAULTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:CALL-WITH-CURRENT-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:WITH-CURRENT-DIRECTORY in DEFMACRO
WARNING: redefining UIOP/FILESYSTEM:INTER-DIRECTORY-SEPARATOR in DEFUN
WARNING: redefining UIOP/FILESYSTEM:SPLIT-NATIVE-PATHNAMES-STRING in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAME in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-PATHNAMES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:GETENV-ABSOLUTE-DIRECTORIES in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:LISP-IMPLEMENTATION-PATHNAME-P in DEFUN
WARNING: redefining UIOP/FILESYSTEM:ENSURE-ALL-DIRECTORIES-EXIST in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-FILE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/FILESYSTEM:RENAME-FILE-OVERWRITING-TARGET in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-EMPTY-DIRECTORY in DEFUN
WARNING: redefining UIOP/FILESYSTEM:DELETE-DIRECTORY-TREE in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDIN in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDOUT in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-STDERR in DEFUN
WARNING: redefining UIOP/STREAM:ALWAYS-DEFAULT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DETECT-ENCODING in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:ENCODING-EXTERNAL-FORMAT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-SAFE-IO-SYNTAX in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FROM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-OUTPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-INPUT-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::CALL-WITH-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:INPUT-STRING in DEFUN
WARNING: redefining UIOP/STREAM:NULL-DEVICE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-INPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:CALL-WITH-NULL-OUTPUT in DEFUN
WARNING: redefining UIOP/STREAM:WITH-NULL-OUTPUT in DEFMACRO
WARNING: redefining UIOP/STREAM:FINISH-OUTPUTS in DEFUN
WARNING: redefining UIOP/STREAM:FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-FORMAT! in DEFUN
WARNING: redefining UIOP/STREAM:COPY-STREAM-TO-STREAM in DEFUN
WARNING: redefining UIOP/STREAM:CONCATENATE-FILES in DEFUN
WARNING: redefining UIOP/STREAM:COPY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-STRING in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINES in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:SLURP-STREAM-FORM in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-STRING in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINES in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORMS in DEFUN
WARNING: redefining UIOP/STREAM:READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-LINE in DEFUN
WARNING: redefining UIOP/STREAM:SAFE-READ-FILE-FORM in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-INPUT in DEFUN
WARNING: redefining UIOP/STREAM:EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:STANDARD-EVAL-THUNK in DEFUN
WARNING: redefining UIOP/STREAM:PRINTLN in DEFUN
WARNING: redefining UIOP/STREAM:WRITELN in DEFUN
WARNING: redefining UIOP/STREAM:DEFAULT-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:SETUP-TEMPORARY-DIRECTORY in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:WITH-TEMPORARY-FILE in DEFMACRO
WARNING: redefining UIOP/STREAM::GET-TEMPORARY-FILE in DEFUN
WARNING: redefining UIOP/STREAM:ADD-PATHNAME-SUFFIX in DEFUN
WARNING: redefining UIOP/STREAM:TMPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:CALL-WITH-STAGING-PATHNAME in DEFUN
WARNING: redefining UIOP/STREAM:WITH-STAGING-PATHNAME in DEFMACRO
WARNING: redefining UIOP/STREAM:FILE-STREAM-P in DEFUN
WARNING: redefining UIOP/STREAM:FILE-OR-SYNONYM-STREAM-P in DEFUN
WARNING: redefining UIOP/IMAGE:QUIT in DEFUN
WARNING: redefining UIOP/IMAGE:DIE in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:PRINT-CONDITION-BACKTRACE in DEFUN
WARNING: redefining UIOP/IMAGE:FATAL-CONDITION-P in DEFUN
WARNING: redefining UIOP/IMAGE:HANDLE-FATAL-CONDITION in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-WITH-FATAL-CONDITION-HANDLER in DEFUN
WARNING: redefining UIOP/IMAGE:WITH-FATAL-CONDITION-HANDLER in DEFMACRO
WARNING: redefining UIOP/IMAGE:SHELL-BOOLEAN-EXIT in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:REGISTER-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-RESTORE-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:CALL-IMAGE-DUMP-HOOK in DEFUN
WARNING: redefining UIOP/IMAGE:RAW-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:ARGV0 in DEFUN
WARNING: redefining UIOP/IMAGE:SETUP-COMMAND-LINE-ARGUMENTS in DEFUN
WARNING: redefining UIOP/IMAGE:RESTORE-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:DUMP-IMAGE in DEFUN
WARNING: redefining UIOP/IMAGE:CREATE-IMAGE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:GET-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:PROCLAIM-OPTIMIZATION-SETTINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-OPTIMIZATION-SETTINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD::SB-GROVEL-UNKNOWN-CONSTANT-CONDITION-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-COMPILER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-COMPILER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CALL-WITH-MUFFLED-LOADER-CONDITIONS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-MUFFLED-LOADER-CONDITIONS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-SIMPLE-SEXP in DEFUN
WARNING: redefining UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:UNREIFY-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:RESET-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:ENABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:DISABLE-DEFERRED-WARNINGS-CHECK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WARNINGS-FILE-P in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CHECK-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS in DEFUN
WARNING: redefining UIOP/LISP-BUILD:WITH-SAVED-DEFERRED-WARNINGS in DEFMACRO
WARNING: redefining UIOP/LISP-BUILD:CURRENT-LISP-FILE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LISPIZE-PATHNAME in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-TYPE in DEFUN
WARNING: redefining UIOP/LISP-BUILD:CALL-AROUND-HOOK in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMPILE-FILE-PATHNAME* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD* in DEFUN
WARNING: redefining UIOP/LISP-BUILD:LOAD-FROM-STRING in DEFUN
WARNING: redefining UIOP/LISP-BUILD:COMBINE-FASLS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::REQUIRES-ESCAPING-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-WINDOWS-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::EASY-WINDOWS-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::ESCAPE-SH-TOKEN-WITHIN-DOUBLE-QUOTES in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:EASY-SH-CHARACTER-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-TOKEN in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-WINDOWS-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SH-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:ESCAPE-SHELL-COMMAND in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%NORMALIZE-IO-SPECIFIER in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%INTERACTIVEP in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%SIGNAL-TO-EXIT-CODE in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%CODE-TO-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-EXISTS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%HANDLE-IF-DOES-NOT-EXIST in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-ERROR-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-INPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-OUTPUT in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-INFO-PID in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%PROCESS-STATUS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:PROCESS-ALIVE-P in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:WAIT-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM::%POSIX-SEND-SIGNAL in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:TERMINATE-PROCESS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:CLOSE-STREAMS in DEFUN
WARNING: redefining UIOP/LAUNCH-PROGRAM:LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::CALL-STREAM-PROCESSOR in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:SLURP-INPUT-STREAM in DEFGENERIC
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINES> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :LINE> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORMS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER :FORM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining SLURP-INPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM:VOMIT-OUTPUT-STREAM in DEFGENERIC
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:FUNCTION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:CONS> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:STREAM> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:STRING> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-MOP:EQL-SPECIALIZER T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<BUILT-IN-CLASS COMMON-LISP:NULL> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<STRUCTURE-CLASS COMMON-LISP:PATHNAME> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining VOMIT-OUTPUT-STREAM (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: redefining UIOP/RUN-PROGRAM::%CHECK-RESULT in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%ACTIVE-IO-SPECIFIER-P in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%CALL-WITH-PROGRAM-IO in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::PLACE-SETTER in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-INPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::WITH-PROGRAM-ERROR-OUTPUT in DEFMACRO
WARNING: redefining UIOP/RUN-PROGRAM::%USE-LAUNCH-PROGRAM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%NORMALIZE-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%REDIRECTED-SYSTEM-COMMAND in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM::%USE-SYSTEM in DEFUN
WARNING: redefining UIOP/RUN-PROGRAM:RUN-PROGRAM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CONFIGURATION-INHERITANCE-DIRECTIVE-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REPORT-INVALID-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FORM in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:VALIDATE-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-RELATIVE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:RESOLVE-ABSOLUTE-LOCATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-DESIGNATOR-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:LOCATION-FUNCTION-P in DEFUN
WARNING: redefining UIOP/CONFIGURATION:REGISTER-CLEAR-CONFIGURATION-HOOK in DEFUN
WARNING: redefining UIOP/CONFIGURATION:CLEAR-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:UPGRADE-CONFIGURATION in DEFUN
WARNING: redefining UIOP/CONFIGURATION:GET-FOLDER-PATH in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-DIRS in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CACHE-HOME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-RUNTIME-DIR in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FILTER-PATHNAME-SET in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAMES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:FIND-PREFERRED-FILE in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-DATA-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:XDG-CONFIG-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION::COMPUTE-USER-CACHE in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN
WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN
WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN
WARNING: UIOP/VERSION:PARSE-VERSION: "prerelease" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "prerelease" for component "cl-irregsexp" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/cl-irregsexp.asd", using NIL instead
WARNING: Invalid :version specifier "prerelease" for component "cl-irregsexp" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/cl-irregsexp.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/stefil/cfdf382b594d7a56b1f802c716be750a04b8d02d/stefil-20181011-git/stefil.asd" contains definition for system "stefil-test". Please only define "stefil" and secondary systems with a name starting with "stefil/" (e.g. "stefil/test") in that file.
WARNING: No definition for CFLAG-VDSUSP
WARNING: No definition for CFLAG-VSTATUS
WARNING: No definition for TIOCGHAYESESP
WARNING: No definition for TIOCSHAYESESP

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/macros.lisp
; in: DEFINE-ALIST-GET ALIST-GET
;     (CL-IRREGSEXP::DEFINE-ALIST-GET CL-IRREGSEXP.UTILS:ALIST-GET ASSOC CDR ACONS)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOOP BLOCK LET LET TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL 
; --> THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-IRREGSEXP::TEST)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/macros.lisp
; in: DEFINE-ALIST-GET RALIST-GET
;     (CL-IRREGSEXP::DEFINE-ALIST-GET CL-IRREGSEXP::RALIST-GET RASSOC CAR
;      CL-IRREGSEXP::RACONS)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LOOP BLOCK LET LET TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL 
; --> THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-IRREGSEXP::TEST)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/byte-vector.lisp
; in: DEFUN-SPEEDY MAKE-BYTE-VECTOR
;     (MAKE-ARRAY CL-IRREGSEXP::LEN :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
; --> MULTIPLE-VALUE-BIND LET UNLESS IF OR LET IF TYPEP LET 
; --> SB-C::%TYPEP-WRAPPER AND IF LOCALLY AND THE <= IF <= IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       etc.

;     (CL-IRREGSEXP.UTILS:DEFUN-SPEEDY CL-IRREGSEXP.BYTESTRINGS:MAKE-BYTE-VECTOR
;         (CL-IRREGSEXP::LEN)
;       (DECLARE (TYPE (UNSIGNED-BYTE *) CL-IRREGSEXP::LEN))
;       (MAKE-ARRAY CL-IRREGSEXP::LEN :ELEMENT-TYPE '(UNSIGNED-BYTE 8)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF AND IF LOCALLY 
; --> AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/utf8.lisp
; in: DEFUN-CONSISTENT UTF8-ENCODE
;     (CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT CL-IRREGSEXP.BYTESTRINGS:UTF8-ENCODE
;         (CL-IRREGSEXP::STR)
;       (DECLARE (TYPE SIMPLE-STRING CL-IRREGSEXP::STR))
;       (DECLARE (OPTIMIZE SPEED))
;       (LET ((CL-IRREGSEXP::VEC (CL-IRREGSEXP.BYTESTRINGS:MAKE-BYTE-VECTOR #)))
;         (LOOP CL-IRREGSEXP::FOR CL-IRREGSEXP::I FIXNUM CL-IRREGSEXP::FROM 0
;               CL-IRREGSEXP::FOR CL-IRREGSEXP::S CL-IRREGSEXP::ACROSS CL-IRREGSEXP::STR
;               DO (LET (#)
;                    (WHEN # # #)
;                    (SETF #)))
;         CL-IRREGSEXP::VEC))
; --> PROGN CL-IRREGSEXP.UTILS:DEFUN-CAREFUL PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-IRREGSEXP.BYTESTRINGS::UTF8-ENCODE-CONSISTENT-INTERNAL-CAREFUL
;         (CL-IRREGSEXP::STR)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE DEBUG SAFETY (SPEED 0)))
;       (DECLARE (TYPE SIMPLE-STRING CL-IRREGSEXP::STR))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK CL-IRREGSEXP.BYTESTRINGS::UTF8-ENCODE-CONSISTENT-INTERNAL-CAREFUL
;         (LET ((CL-IRREGSEXP::VEC #))
;           (LOOP CL-IRREGSEXP::FOR CL-IRREGSEXP::I FIXNUM CL-IRREGSEXP::FROM 0
;                 CL-IRREGSEXP::FOR CL-IRREGSEXP::S CL-IRREGSEXP::ACROSS CL-IRREGSEXP::STR
;                 DO (LET #
;                      #
;                      #))
;           CL-IRREGSEXP::VEC)))
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE quality. Using (SPEED 3)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-irregsexp" "src" "utf8">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT FORCE-STRING
;     (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT FORCE-BYTE-VECTOR
;     (COERCE CL-IRREGSEXP::VAL 'CL-IRREGSEXP.BYTESTRINGS:BYTE-VECTOR)
; --> THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT FORCE-SIMPLE-BYTE-VECTOR
;     (CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR CL-IRREGSEXP::VAL)
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT BYTE-VECTOR-TO-STRING
;     (CL-IRREGSEXP.BYTESTRINGS:UTF8-DECODE
;      (CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-BYTE-VECTOR CL-IRREGSEXP::VEC))
; --> CL-IRREGSEXP.BYTESTRINGS::UTF8-DECODE-CONSISTENT-INTERNAL 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT FORCE-SIMPLE-STRING
;     (LENGTH CL-IRREGSEXP::VAL)
; ==>
;   CL-IRREGSEXP::VAL
; 
; note: deleting unreachable code

;     (CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING CL-IRREGSEXP::VAL)
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

;     (CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-STRING
;         (CL-IRREGSEXP::VAL)
;       "Return a representation of VAL as a string, doing the work at compile-time if possible."
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (LET ((CL-IRREGSEXP::VAL
;              (CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING CL-IRREGSEXP::VAL)))
;         (ETYPECASE CL-IRREGSEXP::VAL
;           (SIMPLE-STRING CL-IRREGSEXP::VAL)
;           (STRING (REPLACE # CL-IRREGSEXP::VAL)))))
; --> PROGN CL-IRREGSEXP.UTILS:DEFUN-CAREFUL PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL-CAREFUL
;         (CL-IRREGSEXP::VAL)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Return a representation of VAL as a string, doing the work at compile-time if possible."
;       (DECLARE (OPTIMIZE DEBUG SAFETY (SPEED 0)))
;       (DECLARE (OPTIMIZE SPEED (SAFETY 0)))
;       (BLOCK
;           CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL-CAREFUL
;         (LET ((CL-IRREGSEXP::VAL #))
;           (ETYPECASE CL-IRREGSEXP::VAL
;             (SIMPLE-STRING CL-IRREGSEXP::VAL)
;             (STRING #)))))
; 
; caught STYLE-WARNING:
;   Repeated OPTIMIZE qualities. Using (SAFETY 0) and (SPEED 3)

;     (LENGTH CL-IRREGSEXP::VAL)
; ==>
;   CL-IRREGSEXP::VAL
; 
; note: deleting unreachable code

;     (CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING CL-IRREGSEXP::VAL)
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

;     (LENGTH CL-IRREGSEXP::VAL)
; ==>
;   CL-IRREGSEXP::VAL
; 
; note: deleting unreachable code

;     (CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING CL-IRREGSEXP::VAL)
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/force.lisp
; in: DEFUN-CONSISTENT FORCE-SIMPLE-VECTOR
;     (COPY-SEQ CL-IRREGSEXP::V)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-irregsexp" "src" "force">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/harness.lisp
; in:
;      WITH-DEFINE-SPECIALIZED-MATCH-FUNCTIONS (DEFMACRO FORCE-TO-TARGET-SEQUENCE (V) (SB-INT:QUASIQUOTE (FORCE #S(SB-IMPL::COMMA :EXPR V :KIND 0))))
;     (CL-IRREGSEXP::WITH-DEFINE-SPECIALIZED-MATCH-FUNCTIONS
;       (DEFMACRO CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE (CL-IRREGSEXP::V)
;         `(CL-IRREGSEXP::FORCE ,CL-IRREGSEXP::V))
;       (DEFMACRO CL-IRREGSEXP::LEN-AVAILABLE ()
;         `(- (LENGTH CL-IRREGSEXP::TARGET) CL-IRREGSEXP::POS))
;       (DEFMACRO CL-IRREGSEXP::CHECK-LEN-AVAILABLE (CL-IRREGSEXP::LEN)
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::LEN)
;           `(LOCALLY
;             (DECLARE #
;                      #)
;             (WHEN # #)
;             (VALUES))))
;       (DEFMACRO CL-IRREGSEXP::PEEK
;                 (&OPTIONAL (CL-IRREGSEXP::LEN '(CL-IRREGSEXP::LEN-AVAILABLE)))
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::LEN)
;           `(LOCALLY
;             (DECLARE #)
;             (CL-IRREGSEXP::CHECK-LEN-AVAILABLE ,CL-IRREGSEXP::LEN)
;             (CL-IRREGSEXP::TARGET-SUBSEQ CL-IRREGSEXP::POS #))))
;       (DEFMACRO CL-IRREGSEXP::EAT (&OPTIONAL (CL-IRREGSEXP::LEN 1))
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::LEN)
;           `(PROG1 (CL-IRREGSEXP::PEEK ,CL-IRREGSEXP::LEN)
;              (CL-IRREGSEXP::EAT-UNCHECKED ,CL-IRREGSEXP::LEN))))
;       (DEFMACRO CL-IRREGSEXP::EAT-UNCHECKED (&OPTIONAL (CL-IRREGSEXP::LEN 1))
;         `(LOCALLY
;           (DECLARE (OPTIMIZE SPEED #)
;                    (TYPE CL-IRREGSEXP::INTEGER-MATCH-INDEX CL-IRREGSEXP::POS))
;           (INCF CL-IRREGSEXP::POS ,CL-IRREGSEXP::LEN)
;           (VALUES)))
;       (DEFMACRO CL-IRREGSEXP::ELT-TARGET (CL-IRREGSEXP::I)
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::I)
;           `(LOCALLY
;             (DECLARE #
;                      #)
;             (ELT CL-IRREGSEXP::TARGET ,CL-IRREGSEXP::I))))
;       (DEFMACRO CL-IRREGSEXP::PEEK-ONE-UNCHECKED (&OPTIONAL (CL-IRREGSEXP::I 0))
;         `(CL-IRREGSEXP::ELT-TARGET (+ CL-IRREGSEXP::POS ,CL-IRREGSEXP::I)))
;       (DEFMACRO CL-IRREGSEXP::PEEK-ONE (&OPTIONAL (CL-IRREGSEXP::I 0))
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::I)
;           `(PROGN
;             (CL-IRREGSEXP::CHECK-LEN-AVAILABLE #)
;             (CL-IRREGSEXP::PEEK-ONE-UNCHECKED ,CL-IRREGSEXP::I))))
;       (CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT CL-IRREGSEXP::FORCE-TO-TARGET-ELEMENT-TYPE
;           (CL-IRREGSEXP::C)
;         (LET ((CL-IRREGSEXP::S #))
;           (ASSERT (= 1 #))
;           (ELT CL-IRREGSEXP::S 0)))
;       (DEFMACRO CL-IRREGSEXP::TARGET-SUBSEQ
;                 (CL-IRREGSEXP::START CL-IRREGSEXP::END)
;         (ALEXANDRIA.0.DEV:ONCE-ONLY (CL-IRREGSEXP::START CL-IRREGSEXP::END)
;           `(LOCALLY
;             (DECLARE #
;                      #)
;             (COND # #))))
;       ...)
; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN CL-IRREGSEXP.UTILS:DEFUN-SPEEDY 
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; --> CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN 
; --> CL-IRREGSEXP.UTILS:DEFUN-CAREFUL PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION MULTIPLE-VALUE-PROG1 PROGN 
; --> BLOCK LET CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> CL-IRREGSEXP::FORCE-TO-TARGET-ELEMENT-TYPE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN CL-IRREGSEXP.UTILS:DEFUN-SPEEDY 
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL BLOCK 
; --> LET CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN 
; --> CL-IRREGSEXP.UTILS:DEFUN-CAREFUL PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION MULTIPLE-VALUE-PROG1 PROGN 
; --> BLOCK LET CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL BLOCK 
; --> LET CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; --> PROGN CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP.UTILS:DEFUN-CONSISTENT PROGN DEFUN PROGN SB-IMPL::%DEFUN 
; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> CL-IRREGSEXP::FORCE-TO-TARGET-ELEMENT-TYPE-SIMPLE-STRING-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL BLOCK 
; --> LET CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/helpers.lisp
; in: DEFSIMPLIFIER LITERAL
;     (CL-IRREGSEXP::DEFSIMPLIFIER CL-IRREGSEXP::LITERAL
;         (CL-IRREGSEXP::VALUE)
;       (COND
;        ((CONSTANTP CL-IRREGSEXP::VALUE)
;         (CL-IRREGSEXP::MAKE-CONST :VALUE
;                                   (CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE #)))
;        (T `(CL-IRREGSEXP::DYNAMIC-LITERAL ,CL-IRREGSEXP::VALUE))))
; --> CL-IRREGSEXP::WITH-DEFINE-SPECIALIZED-MATCH-FUNCTIONS PROGN 
; --> CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP::DEFSIMPLIFIER-GO PROGN EVAL-WHEN SETF LET* LET* 
; --> CL-IRREGSEXP::MAKE-SIMPLIFIER LAMBDA FUNCTION DESTRUCTURING-BIND 
; --> SB-INT:BINDING* LET* COND IF CL-IRREGSEXP::MAKE-CONST 
; --> CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-BYTE-VECTOR-CONSISTENT-INTERNAL 
; --> BLOCK LET CL-IRREGSEXP.BYTESTRINGS:FORCE-BYTE-VECTOR 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-BYTE-VECTOR-CONSISTENT-INTERNAL BLOCK 
; --> TYPECASE LET COND IF IF IF IF IF PROGN COERCE THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS (AND (NOT (VECTOR (UNSIGNED-BYTE 8))) (NOT BASE-STRING) (NOT (VECTOR NIL)) (NOT (VECTOR CHARACTER)) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

; --> CL-IRREGSEXP::WITH-DEFINE-SPECIALIZED-MATCH-FUNCTIONS PROGN 
; --> CL-IRREGSEXP::WITH-SPECIALIZED-MATCH-FUNCTIONS PROGN MACROLET 
; --> CL-IRREGSEXP::DEFSIMPLIFIER-GO PROGN EVAL-WHEN SETF LET* LET* 
; --> CL-IRREGSEXP::MAKE-SIMPLIFIER LAMBDA FUNCTION DESTRUCTURING-BIND 
; --> SB-INT:BINDING* LET* COND IF CL-IRREGSEXP::MAKE-CONST 
; --> CL-IRREGSEXP::FORCE-TO-TARGET-SEQUENCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS:FORCE-SIMPLE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-SIMPLE-STRING-CONSISTENT-INTERNAL BLOCK 
; --> LET CL-IRREGSEXP.BYTESTRINGS:FORCE-STRING 
; --> CL-IRREGSEXP.BYTESTRINGS::FORCE-STRING-CONSISTENT-INTERNAL BLOCK LET THE 
; --> TYPECASE LET COND IF IF IF IF IF THE PROGN WITH-STANDARD-IO-SYNTAX 
; --> SB-INT:DX-FLET FLET #:THUNK BLOCK 
; ==>
;   (PRINC-TO-STRING CL-IRREGSEXP::VAL)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a NUMBER.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-irregsexp/40dd190eaf28eea03b2208469408590b390d07c2/cl-irregsexp-20181011-git/src/replace.lisp
; in: DEFUN REPLACE-CONCATENATE-SEQUENCES
;     (AREF CL-IRREGSEXP::SEQUENCES 0)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CL-IRREGSEXP::GEN CL-IRREGSEXP.BYTESTRINGS:BYTE-VECTOR STRING)
; --> ETYPECASE LET COND IF PROGN LOOP BLOCK LET LET TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

; --> ETYPECASE LET COND IF IF PROGN LOOP BLOCK LET LET TAGBODY 
; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

; --> ETYPECASE LET COND IF IF PROGN LOOP BLOCK LET LET TAGBODY LET 
; ==>
;   (REPLACE CL-IRREGSEXP::RESULT CL-IRREGSEXP::S :START1 CL-IRREGSEXP::I)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The result is a (VALUES SIMPLE-STRING &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES SIMPLE-STRING &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The second argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The result is a (VALUES SIMPLE-STRING &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SIMPLE-STRING, not a (SIMPLE-ARRAY CHARACTER (*)).The second argument is a SIMPLE-STRING, not a SIMPLE-BASE-STRING.The result is a (VALUES SIMPLE-STRING &OPTIONAL), not a (VALUES (SIMPLE-ARRAY CHARACTER (*)) &REST T).

;     (MAKE-ARRAY CL-IRREGSEXP::TOTAL-LENGTH :ELEMENT-TYPE
;                 (ARRAY-ELEMENT-TYPE CL-IRREGSEXP::PROTOTYPE))
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MAKE-MPTR
;     (MANARDB::DEFUN-SPEEDY MANARDB::MAKE-MPTR
;         (MANARDB::TAG MANARDB::INDEX)
;       (DECLARE (TYPE MANARDB::MTAG MANARDB::TAG)
;                (TYPE MANARDB::MINDEX MANARDB::INDEX))
;       (THE MANARDB:MPTR
;            (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::MAKE-MPTR
;         (MANARDB::TAG MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE MANARDB::MTAG MANARDB::TAG)
;                (TYPE MANARDB::MINDEX MANARDB::INDEX))
;       (BLOCK MANARDB::MAKE-MPTR
;         (THE MANARDB:MPTR
;              (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPOINTER
;     (CFFI-SYS:INC-POINTER
;      (MANARDB::MTAGMAP-PTR
;       (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;      MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPTR-POINTER
;     (MANARDB::MPTR-TAG MANARDB:MPTR)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MPOINTER (MANARDB::MPTR-TAG MANARDB:MPTR)
;      (MANARDB::MPTR-INDEX MANARDB:MPTR))
; --> BLOCK 
; ==>
;   (CFFI-SYS:INC-POINTER
;    (MANARDB::MTAGMAP-PTR
;     (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;    MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/struct.lisp
; in: DEFUN-SPEEDY MPTR-TO-LISP-OBJECT
;     (MANARDB::MPTR-TAG MANARDB:MPTR)
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mop.lisp
; in: DEFUN-SPEEDY PTR
;     (MANARDB::DEFUN-SPEEDY MANARDB::PTR
;         (MANARDB::OBJECT)
;       (DECLARE (TYPE MANARDB:MM-OBJECT MANARDB::OBJECT))
;       (THE MANARDB:MPTR (MANARDB::%PTR MANARDB::OBJECT)))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION 
; ==>
;   (SB-C::%FUNCALL #'PTR #:G1)
; 
; note: can't open-code test of unknown type MM-OBJECT

;     (THE MANARDB:MPTR (MANARDB::%PTR MANARDB::OBJECT))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mop.lisp
; in: DEFUN-SPEEDY MM-OBJECT-POINTER
;     (MANARDB::PTR MANARDB:MM-OBJECT)
; --> THE MANARDB::%PTR 
; ==>
;   (THE MANARDB:MM-OBJECT MANARDB:MM-OBJECT)
; 
; note: can't open-code test of unknown type MM-OBJECT

; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MPTR-POINTER (MANARDB::PTR MANARDB:MM-OBJECT))
; --> BLOCK MANARDB::MPOINTER BLOCK 
; ==>
;   (CFFI-SYS:INC-POINTER
;    (MANARDB::MTAGMAP-PTR
;     (THE MANARDB::MTAGMAP (MANARDB::MTAGMAP MANARDB::MTAG)))
;    MANARDB::MINDEX)
; 
; note: doing SAP to pointer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-WORD
;     (MANARDB::DEFUN-SPEEDY MANARDB::MTAGMAP-WORD
;         (MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                   MANARDB::WORD))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::MTAGMAP-WORD
;         (MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (BLOCK MANARDB::MTAGMAP-WORD
;         (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                     MANARDB::WORD)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY (SETF MTAGMAP-WORD)
;     (MANARDB::DEFUN-SPEEDY (SETF MANARDB::MTAGMAP-WORD)
;         (MANARDB::VAL MANARDB::MTAGMAP MANARDB::WINDEX)
;       (DECLARE (TYPE MANARDB::MINDEX MANARDB::WINDEX))
;       (DECLARE (TYPE (UNSIGNED-BYTE 64) MANARDB::VAL))
;       (SETF (MANARDB::D (MANARDB::MTAGMAP-PTR MANARDB::MTAGMAP) MANARDB::WINDEX
;                         MANARDB::WORD)
;               MANARDB::VAL))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-LAST-INDEX
;     (MANARDB::MTAGMAP-NEXT MANARDB::MTAGMAP)
; ==>
;   (MANARDB::MTAGMAP-WORD MANARDB::MTAGMAP 0)
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-ELEM-POS
;     (/ (- MANARDB::INDEX (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP))
;        (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP))
; 
; note: unable to convert x/2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER.

;     (- MANARDB::INDEX (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP))
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-ELEM-POS-TO-INDEX
;     (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a NUMBER, not a INTEGER.

;     (+ (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP)
;        (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The second 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 5) because:
;       The second 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.

;     (+ (MANARDB::MTAGMAP-FIRST-INDEX MANARDB::MTAGMAP)
;        (* (MANARDB::MTAGMAP-ELEM-LEN MANARDB::MTAGMAP) MANARDB::POS))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/mtagmap.lisp
; in: DEFUN-SPEEDY MTAGMAP-CLOSED-P
;     (MANARDB::DEFUN-SPEEDY MANARDB::MTAGMAP-CLOSED-P
;         (MANARDB::MTAGMAP)
;       (= -1 (MANARDB::MTAGMAP-FD MANARDB::MTAGMAP)))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::MTAGMAP-CLOSED-P) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::MTAGMAP-CLOSED-P to be INLINE, but 5 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.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "manardb" "src" "mtagmap">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFINE-LISP-OBJECT-TO-MPTR
;     (MANARDB::DEFINE-LISP-OBJECT-TO-MPTR)
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK TYPECASE LET COND IF PROGN 
; --> MANARDB::PTR 
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY FORCE-MPTR
;     (MANARDB::PTR MANARDB::OBJ)
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

;     (ETYPECASE MANARDB::OBJ
;       (MANARDB:MPTR MANARDB::OBJ)
;       (MANARDB:MM-OBJECT (MANARDB::PTR MANARDB::OBJ)))
; --> LET COND IF TYPEP LET SB-C::%TYPEP-WRAPPER SB-KERNEL:UNSIGNED-BYTE-64-P 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY MPTR
;     (MANARDB::FORCE-MPTR MANARDB::OBJ)
; --> BLOCK ETYPECASE LET COND IF IF PROGN MANARDB::PTR 
; ==>
;   (THE MANARDB:MPTR (MANARDB::%PTR (THE MANARDB:MM-OBJECT MANARDB::OBJ)))
; 
; note: type assertion too complex to check:
; (VALUES (UNSIGNED-BYTE 64) &REST T).

; --> BLOCK ETYPECASE LET COND IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY FORCE-TAG
;     (MANARDB::DEFUN-SPEEDY MANARDB::FORCE-TAG
;         (MANARDB::OBJ)
;       (ETYPECASE MANARDB::OBJ
;         (MANARDB::MTAG MANARDB::OBJ)
;         (MANARDB::MTAGMAP
;          (MANARDB::MM-METACLASS-TAG (MANARDB::MTAGMAP-CLASS MANARDB::OBJ)))
;         (SYMBOL (MANARDB::MM-METACLASS-TAG (FIND-CLASS MANARDB::OBJ)))
;         (MANARDB:MM-METACLASS (MANARDB::MM-METACLASS-TAG MANARDB::OBJ))
;         (MANARDB:MM-OBJECT (MANARDB::MPTR-TAG (MANARDB::PTR MANARDB::OBJ)))
;         (MANARDB:MPTR (MANARDB::MPTR-TAG MANARDB::OBJ))))
; --> PROGN DECLAIM EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::FORCE-TAG) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::FORCE-TAG to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use.

;     (ETYPECASE MANARDB::OBJ
;       (MANARDB::MTAG MANARDB::OBJ)
;       (MANARDB::MTAGMAP
;        (MANARDB::MM-METACLASS-TAG (MANARDB::MTAGMAP-CLASS MANARDB::OBJ)))
;       (SYMBOL (MANARDB::MM-METACLASS-TAG (FIND-CLASS MANARDB::OBJ)))
;       (MANARDB:MM-METACLASS (MANARDB::MM-METACLASS-TAG MANARDB::OBJ))
;       (MANARDB:MM-OBJECT (MANARDB::MPTR-TAG (MANARDB::PTR MANARDB::OBJ)))
;       (MANARDB:MPTR (MANARDB::MPTR-TAG MANARDB::OBJ)))
; --> LET COND IF IF IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT6)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (NOT SYMBOL), not a FIXNUM.

;     (MANARDB::PTR MANARDB::OBJ)
; --> THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/class.lisp
; in: DEFUN-SPEEDY MM-METACLASS-ALLOC
;     (* MANARDB::AMOUNT (MANARDB::MM-METACLASS-LEN CLASS))
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The second argument is a NUMBER, not a INTEGER.
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The second 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 5) because:
;       The second 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.

;     (MANARDB::MAKE-MPTR (MANARDB::MM-METACLASS-TAG CLASS)
;                         (MANARDB::MTAGMAP-ALLOC
;                          (MANARDB::MM-METACLASS-MTAGMAP CLASS)
;                          (* MANARDB::AMOUNT (MANARDB::MM-METACLASS-LEN CLASS))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "manardb" "src" "class">
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.

; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 0 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 0
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 0) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 1 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 1
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 1) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 2 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 2
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 2) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 3 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 3
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 3) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 4 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 4
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 4) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB:LISP-OBJECT-TO-MPTR MANARDB::NEW-VAL)
; --> BLOCK TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G11)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G15)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G26)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.

; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G12)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 5 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 5
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 5) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 6 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 6
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 6) 16)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/types.lisp
; in: DEFINE-BOX-ARRAY GENERAL-BOX-ARRAY
;     (MANARDB::DEFINE-BOX-ARRAY MANARDB::GENERAL-BOX-ARRAY MANARDB::MM-BOX T
;                                :CONVERTOR MANARDB:LISP-OBJECT-TO-MPTR)
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G84)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET LOCALLY SETF LET* FUNCALL 
; --> SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G88)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::GENERAL-BOX-ARRAY
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY T (*)) ARRAY))
;       (BLOCK MANARDB::GENERAL-BOX-ARRAY
;         (LET* ((MANARDB::LEN #)
;                (MANARDB::INDEX #)
;                (MANARDB::POINTER #)
;                (ARRAY #))
;           (DECLARE (TYPE # ARRAY))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (UNSIGNED-BYTE 8))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-8 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 7 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 7
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 7) 1)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/manardb/353872344da18333ca6c81d827820a4f2a7120a4/manardb-20181011-git/src/types.lisp
; in: DEFINE-BOXED-NUMERIC-TYPES (BYTE (UNSIGNED-BYTE 8))
;     (MANARDB::DEFINE-BOXED-NUMERIC-TYPES (BYTE (UNSIGNED-BYTE 8)) DOUBLE-FLOAT
;                                          SINGLE-FLOAT
;                                          (MANARDB::UNSIGNED (UNSIGNED-BYTE 64))
;                                          (MANARDB::SIGNED (SIGNED-BYTE 64)))
; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-BYTE-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-BYTE-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 DOUBLE-FLOAT))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       DOUBLE-FLOAT)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-DOUBLE MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 8 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 8
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 8) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-DOUBLE-FLOAT
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-DOUBLE-FLOAT
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     DOUBLE-FLOAT)))
; 
; note: doing float to pointer coercion (cost 13) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-DOUBLE * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       SINGLE-FLOAT)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-SINGLE MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE) (MANARDB::MAKE-MPTR 9 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 9
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 9) 4)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-SINGLE-FLOAT-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY SINGLE-FLOAT (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-SINGLE-FLOAT-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                   (UNSIGNED-BYTE 64)))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (UNSIGNED-BYTE 64))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 10 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 10
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 10) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-UNSIGNED
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-UNSIGNED
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     (UNSIGNED-BYTE 64))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-UNSIGNED-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-UNSIGNED-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                   (SIGNED-BYTE 64)))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       (SIGNED-BYTE 64))
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 MANARDB::MM-OBJECT-POINTER BLOCK 
; --> MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 11 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 11
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 11) 8)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN PROGN MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::UNBOX-BOXED-SIGNED
;         (MANARDB::INDEX)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::UNBOX-BOXED-SIGNED
;         (MANARDB::D (MANARDB::MPOINTER MANARDB::TAG MANARDB::INDEX) 0
;                     (SIGNED-BYTE 64))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SIGNED-SAP-REF-64 
; --> * 
; ==>
;   (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.

; --> PROGN PROGN MANARDB::DEFINE-BOX-ARRAY 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::WITH-CONSTANT-TAG-FOR-CLASS PROGN SYMBOL-MACROLET 
; --> MANARDB::DEFUN-SPEEDY PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOXED-SIGNED-ARRAY-BOXER
;         (ARRAY)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (DECLARE (TYPE (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ARRAY))
;       (BLOCK MANARDB::BOXED-SIGNED-ARRAY-BOXER
;         (LET* ((MANARDB::LEN #) (MANARDB::INDEX #) (MANARDB::POINTER #))
;           (LOOP ITERATE:FOR MANARDB::I MANARDB::BELOW MANARDB::LEN
;                 DO (SETF #))
;           (LET (#)
;             (MANARDB::WITH-POINTER-SLOTS #
;                 #
;               #
;               #)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DECLAIM 
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE MANARDB::BOX-OBJECT) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming MANARDB::BOX-OBJECT to be INLINE, but 7 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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> TYPECASE LET COND IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT485)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (AND (NOT SINGLE-FLOAT) (NOT DOUBLE-FLOAT) (NOT INTEGER)) (INTEGER * -1) (INTEGER 256)), not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOX-OBJECT
;         (MANARDB::OBJECT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::BOX-OBJECT
;         (TYPECASE MANARDB::OBJECT
;           ((UNSIGNED-BYTE 8)
;            (LET #
;              #
;              #))
;           (DOUBLE-FLOAT
;            (LET #
;              #
;              #))
;           (SINGLE-FLOAT
;            (LET #
;              #
;              #))
;           ((UNSIGNED-BYTE 64)
;            (LET #
;              #
;              #))
;           ((SIGNED-BYTE 64)
;            (LET #
;              #
;              #))
;           (SYMBOL (MANARDB::BOX-SYMBOL MANARDB::OBJECT))
;           (STRING (MANARDB::BOX-STRING MANARDB::OBJECT))
;           (ARRAY (LOCALLY # #))
;           (CONS (MANARDB::BOX-CONS MANARDB::OBJECT))
;           (T (MANARDB:LISP-OBJECT-TO-MPTR-IMPL MANARDB::OBJECT)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF TYPEP LET SB-C::%TYPEP-WRAPPER 
; --> SB-KERNEL:UNSIGNED-BYTE-64-P IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:OBJECT1088)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (AND (NOT DOUBLE-FLOAT) (NOT SINGLE-FLOAT)), not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF PROGN MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G1392)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET LOCALLY SETF LET* FUNCALL 
; --> SB-C::%FUNCALL (SETF AREF) MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G1496)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF PROGN 
; --> MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC 
; --> * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF PROGN 
; --> MANARDB::BOXED-DOUBLE-FLOAT-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY 
; --> SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-DOUBLE * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF PROGN 
; --> MANARDB::BOXED-UNSIGNED-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF PROGN 
; --> MANARDB::BOXED-UNSIGNED-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY 
; --> SETF LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF PROGN 
; --> MANARDB::BOXED-SIGNED-ARRAY-BOXER BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF PROGN 
; --> MANARDB::BOXED-SIGNED-ARRAY-BOXER BLOCK LET* LOOP BLOCK LET TAGBODY SETF 
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF 
; --> SB-KERNEL:%SET-SIGNED-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MANARDB::MTAGMAP-ALLOC * 
; ==>
;   (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 36893488147419103201) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline ASH (cost 3) because:
;       The result is a (VALUES (MOD 36893488147419103201) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T).
;       etc.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* LOOP BLOCK LET TAGBODY SETF LET* 
; --> CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 * 
; ==>
;   (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.

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF IF PROGN 
; ==>
;   (MANARDB::GENERAL-BOX-ARRAY MANARDB::OBJECT)
; 
; caught WARNING:
;   Derived type of OBJECT is (VALUES (AND ARRAY (NOT SIMPLE-ARRAY)) &OPTIONAL), conflicting with its asserted type SIMPLE-VECTOR.
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA MANARDB::BOX-ARRAY
;         (MANARDB::OBJECT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (OPTIMIZE SPEED))
;       (BLOCK MANARDB::BOX-ARRAY
;         (ASSERT (NOT (CDR #)))
;         (DECLAIM (NOTINLINE MANARDB::GENERAL-BOX-ARRAY))
;         (ETYPECASE MANARDB::OBJECT
;           (SIMPLE-ARRAY (TYPECASE MANARDB::OBJECT # # # # # #))
;           (ARRAY (MANARDB::GENERAL-BOX-ARRAY MANARDB::OBJECT)))))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)

; --> PROGN MACROLET MANARDB::LATER PROGN MANARDB::DEFUN-SPEEDY PROGN DEFUN 
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; --> ETYPECASE LET COND IF PROGN TYPECASE LET COND IF IF IF IF IF THE PROGN 
; --> MANARDB::GENERAL-BOX-ARRAY BLOCK LET* MAP TRULY-THE SB-KERNEL:%MAP 
; --> MAP-INTO DO BLOCK LET TAGBODY TAGBODY LET FUNCALL SB-C::%FUNCALL BLOCK 
; --> TYPECASE LET COND IF THE PROGN MANARDB::BOX-OBJECT BLOCK TYPECASE LET 
; --> COND IF IF PROGN LET MANARDB::MAKE-MPTR BLOCK THE 
; ==>
;   (LOGIOR (ASH MANARDB::INDEX MANARDB::+MTAG-BITS+) MANARDB::TAG)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0 MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (SETF (MANARDB::D (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 0
;                       MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MANARDB::MM-OBJECT-POINTER BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8) 0
;        MANARDB:MPTR))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 8)
;            0 MANARDB:MPTR)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (LAMBDA (MANARDB::OBJECT)
;       (DECLARE (OPTIMIZE SPEED))
;       (MANARDB::D
;        (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 16) 0
;        MANARDB::MINDEX))
; 
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: LAMBDA (NEW-VAL OBJECT)
;     (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT)
; --> BLOCK MANARDB::MPTR-POINTER MANARDB::PTR THE MULTIPLE-VALUE-BIND LET 
; --> UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.

;     (SETF (MANARDB::D
;            (CFFI-SYS:INC-POINTER (MANARDB::MM-OBJECT-POINTER MANARDB::OBJECT) 16)
;            0 MANARDB::MINDEX)
;             MANARDB::NEW-VAL)
; --> LET* CFFI::MEM-SET CFFI-SYS:%MEM-SET LET SETF SB-KERNEL:%SET-SAP-REF-64 
; --> MULTIPLE-VALUE-BIND LET UNLESS IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G19)
; 
; note: unable to optimize due to type uncertainty: The first argument is a T, not a FIXNUM.
; in: LAMBDA (MPTR WALKER-FUNC)
;     (MANARDB::MPTR-POINTER MANARDB::P)
; --> BLOCK MANARDB::MPOINTER MANARDB::MPTR-TAG MULTIPLE-VALUE-BIND LET UNLESS 
; --> IF 
; ==>
;   (SB-KERNEL:UNSIGNED-BYTE-64-P #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a FIXNUM.
; in: LAMBDA (INDEX)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 12 MANARDB::INDEX))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
; in: LAMBDA (INSTANCE INITARGS)
;     (SETF (MANARDB::%PTR MANARDB::INSTANCE)
;             (MANARDB::MAKE-MPTR 12
;                                 (MANARDB::MTAGMAP-ALLOC (MANARDB::MTAGMAP 12)
;                                                         24)))
; --> LET* FUNCALL SB-C::%FUNCALL 
; ==>
;   ((SETF MANARDB::%PTR) #:NEW1 #:INSTANCE0)
; 
; note: doing unsigned word to integer coercion (cost 20)
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "manardb" "src" "types">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100466FE63}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100466FE63}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100466FE63}>)
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 "manardb" "src" "types">)))
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 "manardb" "src" "types">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "manardb" "src" "types">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "manardb" "src" "types">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10055385D3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10055385D3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb-test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "manardb-test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "manardb-test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "manardb-test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100552F81B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10054ECA4B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "manardb-test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "manardb-test" "manardb-test")
23: (DEPCHECK::MAGIC "manardb-test" "manardb-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NaAeanvk/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "manardb-test" "manardb-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NaAeanvk/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-NaAeanvk/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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