weblocks-stores

SBCL 2.0.5 / ASDF 3.3.1

weblocks-postmodern

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

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/sql-string.lisp
; in: DEFUN WRITE-RATIO-AS-FLOATING-POINT
;     (< NUMBER 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

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

;     (TRUNCATE
;      (IF (< NUMBER 0)
;          (PROGN (WRITE-CHAR #\- STREAM) (- NUMBER))
;          NUMBER))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.

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

;     (* CL-POSTGRES::REMAINDER 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a RATIONAL.

;     (FLOOR (* CL-POSTGRES::REMAINDER 10))
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a SINGLE-FLOAT.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a DOUBLE-FLOAT.

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

; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (+ REM SB-C::DIVISOR)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a RATIONAL.

; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF 
; --> MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a FLOAT.

;     (< NUMBER 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

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

;     (TRUNCATE
;      (IF (< NUMBER 0)
;          (PROGN (WRITE-CHAR #\- STREAM) (- NUMBER))
;          NUMBER))
; --> TRUNCATE LET VALUES LOCALLY 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a REAL, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (* CL-POSTGRES::REMAINDER 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (FLOOR (* CL-POSTGRES::REMAINDER 10))
; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE LET VALUES LOCALLY 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF 
; --> MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))), not a FIXNUM.
;       etc.

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

; --> FLOOR MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES 
; ==>
;   (+ REM SB-C::DIVISOR)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (0) (2))) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (0) (2))) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (CL-POSTGRES::FAIL NIL
;      (UNLESS CL-POSTGRES::SILENTLY-TRUNCATE?
;        (RESTART-CASE (ERROR 'CL-POSTGRES:DATABASE-ERROR :MESSAGE
;                             (FORMAT NIL
;                                     "Can not write the ratio ~A as a floating point number with only ~A available digits. You may want to (setf ~S t) if you don't mind the loss of precision."
;                                     NUMBER CL-POSTGRES::DIGIT-LENGTH-LIMIT
;                                     'CL-POSTGRES:*SILENTLY-TRUNCATE-RATIOS*))
;          (CONTINUE NIL :REPORT (LAMBDA # #) (SETF #))
;          (CL-POSTGRES::DISABLE-ASSERTION NIL :REPORT (LAMBDA # #) (SETF #)
;           (SETF #)))))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/strings-utf-8.lisp
; in: DEFUN ENC-READ-STRING
;     (DEFUN CL-POSTGRES::ENC-READ-STRING
;            (CL-POSTGRES::INPUT
;             &KEY CL-POSTGRES::NULL-TERMINATED (CL-POSTGRES::BYTE-LENGTH -1))
;       (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT
;                                                    :NULL-TERMINATED
;                                                    CL-POSTGRES::NULL-TERMINATED
;                                                    :BYTE-LENGTH
;                                                    CL-POSTGRES::BYTE-LENGTH))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::ENC-READ-STRING
;         (CL-POSTGRES::INPUT &KEY CL-POSTGRES::NULL-TERMINATED
;          (CL-POSTGRES::BYTE-LENGTH -1))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CL-POSTGRES::ENC-READ-STRING
;         (CL-POSTGRES-TRIVIAL-UTF-8:READ-UTF-8-STRING CL-POSTGRES::INPUT
;                                                      :NULL-TERMINATED
;                                                      CL-POSTGRES::NULL-TERMINATED
;                                                      :BYTE-LENGTH
;                                                      CL-POSTGRES::BYTE-LENGTH)))
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/communicate.lisp
; in: INTEGER-READER 8
;     (CL-POSTGRES::INTEGER-READER 8)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-INT8
;         (CL-POSTGRES::SOCKET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
;                 (COMPILATION-SPEED 0)))
;       (BLOCK CL-POSTGRES::READ-INT8
;         (LET ((CL-POSTGRES::RESULT 0))
;           (DECLARE (TYPE # CL-POSTGRES::RESULT))
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (IF (LOGBITP 63 CL-POSTGRES::RESULT)
;               (DPB CL-POSTGRES::RESULT # -1)
;               CL-POSTGRES::RESULT))))
; 
; note: doing signed word to integer coercion (cost 20) to "<return value>"

; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-POSTGRES::READ-UINT8
;         (CL-POSTGRES::SOCKET)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (TYPE STREAM CL-POSTGRES::SOCKET)
;                (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 1) (DEBUG 1)
;                 (COMPILATION-SPEED 0)))
;       (BLOCK CL-POSTGRES::READ-UINT8
;         (LET ((CL-POSTGRES::RESULT 0))
;           (DECLARE (TYPE # CL-POSTGRES::RESULT))
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           (SETF # #)
;           CL-POSTGRES::RESULT)))
; 
; note: doing unsigned word to integer coercion (cost 20) from RESULT to "<return value>"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/communicate.lisp
; in: DEFUN READ-SIMPLE-STR
;     (< CL-POSTGRES::B 128)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE STARTUP-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::STARTUP-MESSAGE
;         NIL
;         (CL-POSTGRES::USER CL-POSTGRES::DATABASE)
;       (CL-POSTGRES::UINT 4 196608)
;       (STRING "user")
;       (STRING CL-POSTGRES::USER)
;       (STRING "database")
;       (STRING CL-POSTGRES::DATABASE)
;       (STRING "client_encoding")
;       (STRING CL-POSTGRES::*CLIENT-ENCODING*)
;       (CL-POSTGRES::UINT 1 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + + + 
; ==>
;   (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a 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.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + + 
; ==>
;   (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
;      (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + + 
; ==>
;   (+
;    (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
;       (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
;    (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + 
; ==>
;   (+
;    (+
;     (+ (+ 15 (CL-POSTGRES::ENC-BYTE-LENGTH #:G7))
;        (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
;     (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
;    (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + 
; ==>
;   (+
;    (+
;     (+ (+ (+ 15 #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G6))
;        (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
;     (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
;    (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a DOUBLE-FLOAT.
;       The second argument is a NUMBER, not a DOUBLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a SINGLE-FLOAT.
;       The second argument is a NUMBER, not a SINGLE-FLOAT.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).
;       etc.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + 
; ==>
;   (+
;    (+
;     (+ (+ (+ # #) (CL-POSTGRES::ENC-BYTE-LENGTH #:G5))
;        (CL-POSTGRES::ENC-BYTE-LENGTH #:G4))
;     (CL-POSTGRES::ENC-BYTE-LENGTH #:G3))
;    (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (SIGNED-BYTE 64).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE PLAIN-PASSWORD-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PLAIN-PASSWORD-MESSAGE
;         #\p
;         (CL-POSTGRES::PASSWORD)
;       (STRING CL-POSTGRES::PASSWORD))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFUN BYTES-TO-HEX-STRING
;     (LOOP :FOR BYTE :ACROSS CL-POSTGRES::BYTES
;           :FOR CL-POSTGRES::POS :FROM 0 :BY 2
;           :DO ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (VECTOR (UNSIGNED-BYTE 8)), not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE MD5-PASSWORD-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::MD5-PASSWORD-MESSAGE
;         #\p
;         (CL-POSTGRES::PASSWORD CL-POSTGRES::USER CL-POSTGRES::SALT)
;       (STRING
;        (CL-POSTGRES::MD5-PASSWORD CL-POSTGRES::PASSWORD CL-POSTGRES::USER
;         CL-POSTGRES::SALT)))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE GSS-AUTH-BUFFER-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::GSS-AUTH-BUFFER-MESSAGE
;         #\p
;         (CL-POSTGRES::BUF)
;       (CL-POSTGRES::BYTES CL-POSTGRES::BUF))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + 
; ==>
;   (LENGTH #:G1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SCRAM-TYPE-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SCRAM-TYPE-MESSAGE
;         #\p
;         (CL-POSTGRES::CLIENT-INITIAL-MESSAGE)
;       (STRING "SCRAM-SHA-256")
;       (CL-POSTGRES::UINT 4
;        (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::CLIENT-INITIAL-MESSAGE))
;       (CL-POSTGRES::BYTES
;        (CL-POSTGRES-TRIVIAL-UTF-8:STRING-TO-UTF-8-BYTES
;         CL-POSTGRES::CLIENT-INITIAL-MESSAGE)))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + + 
; ==>
;   (LENGTH #:G3)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + 
; ==>
;   (+ (+ 9 (LENGTH #:G3)) (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 9 4611686018427387909), not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The second argument is a NUMBER, not a (SIGNED-BYTE 64).
;       etc.
; 
; note: doing unsigned word to integer coercion (cost 20), for:
;       the first argument of GENERIC-+

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SCRAM-CONT-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SCRAM-CONT-MESSAGE
;         #\p
;         (CL-POSTGRES::FINAL-MESSAGE)
;       (CL-POSTGRES::BYTES
;        (CL-POSTGRES-TRIVIAL-UTF-8:STRING-TO-UTF-8-BYTES
;         CL-POSTGRES::FINAL-MESSAGE)))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + 
; ==>
;   (LENGTH #:G1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE QUERY-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::QUERY-MESSAGE
;         #\Q
;         (CL-POSTGRES::QUERY)
;       (STRING CL-POSTGRES::QUERY))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SIMPLE-PARSE-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::SIMPLE-PARSE-MESSAGE
;         #\P
;         (CL-POSTGRES::QUERY)
;       (CL-POSTGRES::UINT 1 0)
;       (STRING CL-POSTGRES::QUERY)
;       (CL-POSTGRES::UINT 2 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE PARSE-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::PARSE-MESSAGE
;         #\P
;         (CL-POSTGRES::NAME CL-POSTGRES::QUERY)
;       (STRING CL-POSTGRES::NAME)
;       (STRING CL-POSTGRES::QUERY)
;       (CL-POSTGRES::UINT 2 0))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + + 
; ==>
;   (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a 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.

; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 + 
; ==>
;   (+ (+ 8 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
;      (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a NUMBER, not a FIXNUM.
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The second argument is a NUMBER, not a (SIGNED-BYTE 64).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE CLOSE-PREPARED-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::CLOSE-PREPARED-MESSAGE
;         #\C
;         (CL-POSTGRES::NAME)
;       (CL-POSTGRES::UINT 1 83)
;       (STRING CL-POSTGRES::NAME))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFUN FORMATS-TO-BYTES
;     (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::FORMATS
;           :FOR CL-POSTGRES::POS :FROM 1 :BY 2
;           :DO ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY.

; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 
; ==>
;   (+ CL-POSTGRES::POS 2)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 3) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (INTEGER 1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 3) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE SIMPLE-BIND-MESSAGE
;     (LENGTH CL-POSTGRES::FORMATS)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFUN BIND-MESSAGE
;     (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME)
;        (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS)
;        (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
;              :SUM CL-POSTGRES::SIZE))
; --> + + + 
; ==>
;   (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (LOOP :FOR FORMAT :ACROSS CL-POSTGRES::RESULT-FORMATS
;           :DO (CL-POSTGRES::WRITE-UINT2 CL-POSTGRES::SOCKET
;                                         (IF FORMAT
;                                             1
;                                             0)))
; --> BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY.

;     (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME)
;        (* 6 CL-POSTGRES::N-PARAMS) (* 2 CL-POSTGRES::N-RESULT-FORMATS)
;        (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
;              :SUM CL-POSTGRES::SIZE))
; --> + + + 
; ==>
;   (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
; 
; 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.

; --> + + 
; ==>
;   (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
;      (* 6 CL-POSTGRES::N-PARAMS))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> + 
; ==>
;   (+
;    (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
;       (* 6 CL-POSTGRES::N-PARAMS))
;    (* 2 CL-POSTGRES::N-RESULT-FORMATS))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; ==>
;   (+
;    (+
;     (+ (+ 12 (CL-POSTGRES::ENC-BYTE-LENGTH CL-POSTGRES::NAME))
;        (* 6 CL-POSTGRES::N-PARAMS))
;     (* 2 CL-POSTGRES::N-RESULT-FORMATS))
;    (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
;          :SUM CL-POSTGRES::SIZE))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a NUMBER, not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       etc.

;     (LOOP :FOR CL-POSTGRES::SIZE :OF-TYPE FIXNUM :ACROSS CL-POSTGRES::PARAM-SIZES
;           :SUM CL-POSTGRES::SIZE)
; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE 
; ==>
;   (+ #:LOOP-SUM-15 CL-POSTGRES::SIZE)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE DESCRIBE-PREPARED-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::DESCRIBE-PREPARED-MESSAGE
;         #\D
;         (CL-POSTGRES::NAME)
;       (CL-POSTGRES::UINT 1 83)
;       (STRING CL-POSTGRES::NAME))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 6 (CL-POSTGRES::ENC-BYTE-LENGTH #:G2))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/messages.lisp
; in: DEFINE-MESSAGE COPY-FAIL-MESSAGE
;     (CL-POSTGRES::DEFINE-MESSAGE CL-POSTGRES::COPY-FAIL-MESSAGE
;         #\f
;         (CL-POSTGRES::REASON)
;       (STRING CL-POSTGRES::REASON))
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION 
; --> BLOCK LET CL-POSTGRES::WRITE-UINT4 
; ==>
;   (+ 5 (CL-POSTGRES::ENC-BYTE-LENGTH #:G1))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFUN INTERPRET-AS-TEXT
;     (CL-POSTGRES::ENC-READ-STRING STREAM :BYTE-LENGTH CL-POSTGRES::SIZE)
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+
;     (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+TEXT+
;         "text"
;         STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER 
; --> CL-POSTGRES::BINARY-READER FUNCTION 
; ==>
;   (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+
;     (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+BPCHAR+
;         "bpchar"
;         STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER 
; --> CL-POSTGRES::BINARY-READER FUNCTION 
; ==>
;   (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+
;     (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+VARCHAR+
;         "varchar"
;         STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER 
; --> CL-POSTGRES::BINARY-READER FUNCTION 
; ==>
;   (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFINE-INTERPRETER CL-POSTGRES-OID:+JSON+
;     (CL-POSTGRES::DEFINE-INTERPRETER CL-POSTGRES-OID:+JSON+
;         "json"
;         STRING)
; --> CL-POSTGRES:SET-SQL-READER CL-POSTGRES:SET-SQL-READER 
; --> CL-POSTGRES::BINARY-READER FUNCTION 
; ==>
;   (CL-POSTGRES::ENC-READ-STRING #:G2 :BYTE-LENGTH (- #:G3 0))
; 
; note: Type assertion too complex to check:
; (VALUES STRING &REST T).
; It allows an unknown number of values, consider using
; (VALUES STRING &OPTIONAL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFUN READ-BINARY-ARRAY-VALUE
;     (LET ((CL-POSTGRES::NUM-DIMS (CL-POSTGRES::READ-UINT4 STREAM))
;           (CL-POSTGRES::HAS-NULL (CL-POSTGRES::READ-UINT4 STREAM))
;           (CL-POSTGRES::ELEMENT-TYPE (CL-POSTGRES::READ-UINT4 STREAM)))
;       (COND ((ZEROP CL-POSTGRES::NUM-DIMS) NIL)
;             (T
;              (LET* (# #)
;                (LET #
;                  #
;                  CL-POSTGRES::RESULTS)))))
; 
; caught STYLE-WARNING:
;   The variable HAS-NULL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/interpret.lisp
; in: DEFUN READ-ARRAY-VALUE
;     (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES::TRANSFORM)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: TRANSFORM is not known to be a function

;     (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-POSTGRES::VALUE (INCF CL-POSTGRES::POS))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CHAR CL-POSTGRES::VALUE CL-POSTGRES::POS)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (CL-POSTGRES::INTERPRET (CL-POSTGRES::WORD)
;      (IF (STRING= CL-POSTGRES::WORD "NULL")
;          :NULL
;          (FUNCALL CL-POSTGRES::TRANSFORM CL-POSTGRES::WORD)))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-postgres" "cl-postgres" "interpret">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/scram.lisp
; in: DEFUN PARSE-SCRAM-SERVER-FIRST-RESPONSE
;     (LET* ((CL-POSTGRES::SPLIT-RESPONSE
;             (CL-POSTGRES::SPLIT-SERVER-RESPONSE CL-POSTGRES::RESPONSE))
;            (CL-POSTGRES::SERVER-NONCE
;             (CDR (ASSOC "r" CL-POSTGRES::SPLIT-RESPONSE :TEST 'EQUAL)))
;            (CL-POSTGRES::SERVER-NONCE-VALIDATED
;             (CL-POSTGRES::VALIDATE-SERVER-NONCE CL-POSTGRES::SERVER-NONCE
;              CL-POSTGRES::CLIENT-NONCE))
;            (CL-POSTGRES::SERVER-SALT
;             (CDR (ASSOC "s" CL-POSTGRES::SPLIT-RESPONSE :TEST 'EQUAL)))
;            (CL-POSTGRES::SERVER-ITERATIONS (PARSE-INTEGER (CDR #)))
;            (CL-POSTGRES::NUM-OF-SPLIT (LENGTH CL-POSTGRES::SPLIT-RESPONSE)))
;       (WHEN (NOT (= 3 CL-POSTGRES::NUM-OF-SPLIT))
;         (ERROR 'CL-POSTGRES::PROTOCOL-ERROR :MESSAGE
;                (FORMAT NIL "There was an error in parsing the server
;   response. Parsing had ~a results instead of 3"
;                        CL-POSTGRES::NUM-OF-SPLIT)))
;       (VALUES CL-POSTGRES::SERVER-NONCE CL-POSTGRES::SERVER-SALT
;               CL-POSTGRES::SERVER-ITERATIONS))
; 
; caught STYLE-WARNING:
;   The variable SERVER-NONCE-VALIDATED is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-postgres" "cl-postgres" "scram">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/protocol.lisp
; in: DEFUN SEND-QUERY
;     (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET 
; ==>
;   (LENGTH #:G97)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR SIMPLE-VECTOR NULL), not a VECTOR.

;     (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET
;              CL-POSTGRES::ROW-DESCRIPTION)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:ROW-READER)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ROW-READER is not known to be a function

;     (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY)
;       (LET ((CL-POSTGRES::ROW-DESCRIPTION NIL))
;         (CL-POSTGRES::SIMPLE-PARSE-MESSAGE CL-POSTGRES::SOCKET
;                                            CL-POSTGRES::QUERY)
;         (CL-POSTGRES::SIMPLE-DESCRIBE-MESSAGE CL-POSTGRES::SOCKET)
;         (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET)
;         (FORCE-OUTPUT CL-POSTGRES::SOCKET)
;         (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
;           (#\1))
;         (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
;           (#\t :SKIP))
;         (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
;           (#\T (SETF #))
;           (#\n))
;         (CL-POSTGRES::SIMPLE-BIND-MESSAGE CL-POSTGRES::SOCKET
;                                           (MAP 'VECTOR
;                                                'CL-POSTGRES::FIELD-BINARY-P
;                                                CL-POSTGRES::ROW-DESCRIPTION))
;         (CL-POSTGRES::SIMPLE-EXECUTE-MESSAGE CL-POSTGRES::SOCKET)
;         (CL-POSTGRES::SYNC-MESSAGE CL-POSTGRES::SOCKET)
;         ...))
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:*QUERY-CALLBACK*)
; 
; 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/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/protocol.lisp
; in: DEFUN SEND-PARSE
;     (CL-POSTGRES::WITH-QUERY (CL-POSTGRES::QUERY)
;       (CL-POSTGRES::PARSE-MESSAGE CL-POSTGRES::SOCKET CL-POSTGRES::NAME
;                                   CL-POSTGRES::QUERY)
;       (CL-POSTGRES::FLUSH-MESSAGE CL-POSTGRES::SOCKET)
;       (FORCE-OUTPUT CL-POSTGRES::SOCKET)
;       (CL-POSTGRES::MESSAGE-CASE CL-POSTGRES::SOCKET
;         (#\1)))
; --> LET MULTIPLE-VALUE-PROG1 WHEN IF FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:*QUERY-CALLBACK*)
; 
; 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/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/protocol.lisp
; in: DEFUN SEND-EXECUTE
;     (MAP 'VECTOR 'CL-POSTGRES::FIELD-BINARY-P CL-POSTGRES::ROW-DESCRIPTION)
; --> TRULY-THE SB-KERNEL:%MAP MAP-INTO MAKE-SEQUENCE MIN LET 
; ==>
;   (LENGTH #:G97)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR SIMPLE-VECTOR NULL), not a VECTOR.

;     (FUNCALL CL-POSTGRES:ROW-READER CL-POSTGRES::SOCKET
;              CL-POSTGRES::ROW-DESCRIPTION)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL CL-POSTGRES:ROW-READER)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: ROW-READER is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/cl-postgres/public.lisp
; in: DEFUN INITIATE-CONNECTION
;     (HANDLER-CASE
;      (CL-POSTGRES::AUTHENTICATE CL-POSTGRES::SOCKET CL-POSTGRES::CONN)
;      (CL-POSTGRES-ERROR:PROTOCOL-VIOLATION (CL-POSTGRES::ERR)
;       (SETF CL-POSTGRES::FINISHED T)
;       (CL-POSTGRES::ENSURE-SOCKET-IS-CLOSED CL-POSTGRES::SOCKET)
;       (INCF CL-POSTGRES::CONNECTION-ATTEMPTS)
;       (WHEN
;           (< CL-POSTGRES::CONNECTION-ATTEMPTS CL-POSTGRES:*RETRY-CONNECT-TIMES*)
;         (CL-POSTGRES::INITIATE-CONNECTION CL-POSTGRES::CONN
;          CL-POSTGRES::CONNECTION-ATTEMPTS))))
; --> SB-INT:DX-FLET FLET 
; ==>
;   (#:FUN18 (CL-POSTGRES::ERR)
;    (PROGN
;     (SETF CL-POSTGRES::FINISHED T)
;     (CL-POSTGRES::ENSURE-SOCKET-IS-CLOSED CL-POSTGRES::SOCKET)
;     (INCF CL-POSTGRES::CONNECTION-ATTEMPTS)
;     (WHEN
;         (< CL-POSTGRES::CONNECTION-ATTEMPTS CL-POSTGRES:*RETRY-CONNECT-TIMES*)
;       (CL-POSTGRES::INITIATE-CONNECTION CL-POSTGRES::CONN
;        CL-POSTGRES::CONNECTION-ATTEMPTS))))
; 
; caught STYLE-WARNING:
;   The variable ERR is defined but never used.

;     (CL-POSTGRES::ASSERT-UNIX)
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-postgres" "cl-postgres" "public">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/postmodern/f9a9df49b890b596ccca0a5a4d3b004a32202c1c/postmodern-20210403-git/s-sql/s-sql.lisp
; in: DEFUN TO-SQL-NAME
;     (CHAR S-SQL::STR S-SQL::I)
; --> 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.

;     (CHAR-DOWNCASE (CHAR S-SQL::STR S-SQL::I))
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

;     (CHAR S-SQL::STR S-SQL::I)
; --> 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.

;     (STRING (CADR S-SQL::NAME))
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (STRING S-SQL::NAME)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN
WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE-AS-LIST)
WARNING: redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD
Unhandled NAME-CONFLICT in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}>: USE-PACKAGE #<PACKAGE "WEBLOCKS-STORES"> causes name-conflicts in #<PACKAGE "WEBLOCKS-POSTMODERN"> between the following symbols: WEBLOCKS-STORES:ROLLBACK-TRANSACTION, POSTMODERN:ROLLBACK-TRANSACTION
See also:
  The ANSI Standard, Section 11.1.1.2.5

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<NAME-CONFLICT {1003F1DA33}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<NAME-CONFLICT {1003F1DA33}>)
2: (INVOKE-DEBUGGER #<NAME-CONFLICT {1003F1DA33}>)
3: (ERROR #<NAME-CONFLICT {1003F1DA33}>)
4: (SB-KERNEL:WITH-SIMPLE-CONDITION-RESTARTS ERROR NIL NAME-CONFLICT :PACKAGE #<PACKAGE "WEBLOCKS-POSTMODERN"> :SYMBOLS (WEBLOCKS-STORES:ROLLBACK-TRANSACTION POSTMODERN:ROLLBACK-TRANSACTION) :FUNCTION USE-PACKAGE :DATUM #<PACKAGE "WEBLOCKS-STORES">)
5: (NAME-CONFLICT #<PACKAGE "WEBLOCKS-POSTMODERN"> USE-PACKAGE #<PACKAGE "WEBLOCKS-STORES"> WEBLOCKS-STORES:ROLLBACK-TRANSACTION POSTMODERN:ROLLBACK-TRANSACTION)
6: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN USE-PACKAGE))
7: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN USE-PACKAGE) {7FFAE892DB6B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}>> T NIL)
9: (USE-PACKAGE (#<PACKAGE "COMMON-LISP"> #<PACKAGE "POSTMODERN"> #<PACKAGE "WEBLOCKS"> #<PACKAGE "WEBLOCKS-STORES">) #<PACKAGE "WEBLOCKS-POSTMODERN">)
10: (SB-IMPL::UPDATE-PACKAGE #<PACKAGE "WEBLOCKS-POSTMODERN"> NIL #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/store/postmodern/postmodern.lisp" :INDICES 32769) NIL (S-SQL:TEXT WEBLOCKS-STORES:COMMIT-TRANSACTION) (#<PACKAGE "COMMON-LISP"> #<PACKAGE "POSTMODERN"> #<PACKAGE "WEBLOCKS"> #<PACKAGE "WEBLOCKS-STORES">) NIL NIL NIL ("WEBLOCKS-POSTMODERN") NIL NIL "A driver for weblocks backend store API that connects to Postmodern.")
11: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
12: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::%DEFPACKAGE) {7FFAE892DE2B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}>> T NIL)
13: (SB-IMPL::%DEFPACKAGE "WEBLOCKS-POSTMODERN" NIL NIL NIL (("WEBLOCKS" "COMMIT-TRANSACTION") ("POSTMODERN" "TEXT")) ("CL" "POSTMODERN" "WEBLOCKS" "WEBLOCKS-STORES") NIL NIL NIL ("WEBLOCKS-POSTMODERN") NIL NIL #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/store/postmodern/postmodern.lisp" :INDICES 32769) "A driver for weblocks backend store API that connects to Postmodern.")
14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...) #<NULL-LEXENV>)
15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) #<NULL-LEXENV>)
16: (EVAL-TLF (PROGN (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) 0 #<NULL-LEXENV>)
17: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
18: (SB-C::EVAL-COMPILE-TOPLEVEL ((SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) (#1=(SB-IMPL::%DEFPACKAGE #2="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#3="WEBLOCKS" "COMMIT-TRANSACTION") (#4="POSTMODERN" "TEXT"))) (QUOTE ("CL" #4# #3# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#2#)) (QUOTE NIL) ...) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB-C::ORIGINAL-SOURCE-START 0 0))
19: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (# #)) (QUOTE ("CL" "POSTMODERN" "WEBLOCKS" "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
20: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (# #)) (QUOTE ("CL" "POSTMODERN" "WEBLOCKS" "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
21: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="WEBLOCKS-POSTMODERN" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ((#2="WEBLOCKS" "COMMIT-TRANSACTION") (#3="POSTMODERN" "TEXT"))) (QUOTE ("CL" #3# #2# "WEBLOCKS-STORES")) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE (#1#)) (QUOTE NIL) ...)) (SB-C::ORIGINAL-SOURCE-START 0 0) NIL)
22: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE #:WEBLOCKS-POSTMODERN (:USE :CL :POSTMODERN :WEBLOCKS :WEBLOCKS-STORES) (:SHADOWING-IMPORT-FROM :POSTMODERN #:TEXT) (:SHADOWING-IMPORT-FROM :WEBLOCKS #:COMMIT-TRANSACTION) (:DOCUMENTATION "A driver for weblocks backend store API that connects to Postmodern.")) (SB-C::ORIGINAL-SOURCE-START 0 0) NIL)
23: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) (DEFPACKAGE #:WEBLOCKS-POSTMODERN (:USE :CL :POSTMODERN :WEBLOCKS :WEBLOCKS-STORES) (:SHADOWING-IMPORT-FROM :POSTMODERN #:TEXT) (:SHADOWING-IMPORT-FROM :WEBLOCKS #:COMMIT-TRANSACTION) (:DOCUMENTATION "A driver for weblocks backend store API that connects to Postmodern.")) :CURRENT-INDEX 0)
24: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-COMPILE-FILE) {5226387B}> #<SB-C::SOURCE-INFO {1003F10BB3}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
25: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
26: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
27: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7FFAE892E74B}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {1000A10083}>> T NIL)
28: ((FLET "LAMBDA0" :IN "SYS:SRC;COMPILER;MAIN.LISP"))
29: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
30: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {1003F10BB3}> NIL)
31: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/store/postmodern/postmodern.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (243)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/s... {1003F88E5F}> :VERBOSE NIL :PRINT NIL :PROGRESS NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :ENTRY-POINTS NIL :EMIT-CFASL NIL)
32: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F0E06B}> NIL)
33: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/store/postmodern/postmodern.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F0D79B}>)
34: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/store/postmodern/postmodern.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (231)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210403-git/src/s... {1003F94B1F}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
35: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-postmodern" "postmodern">)
36: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-postmodern" "postmodern">)
37: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
38: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-postmodern" "postmodern">) [fast-method]
39: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {1005527EB3}>) [fast-method]
40: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
41: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {1005527EB3}>) [fast-method]
42: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-postmodern"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
43: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-postmodern">)
44: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
45: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-postmodern">) [fast-method]
46: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-postmodern")
47: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
48: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-postmodern") [fast-method]
49: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100551F9FB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
50: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
51: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10054DA8FB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
52: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-postmodern") [fast-method]
53: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-postmodern" "weblocks-postmodern")
54: (DEPCHECK::MAGIC "weblocks-postmodern" "weblocks-postmodern" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VLpySl0q/depcheck-win.txt")
55: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-postmodern" "weblocks-postmodern" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VLpySl0q/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-VLpySl0q/depcheck-fail.txt"))
56: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
57: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
58: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SAVE-LISP-AND-DIE))
59: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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