SBCL 2.0.5 / ASDF 3.3.1
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-20210406-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-20210406-git/uax-15.asd", using NIL instead WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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-20210406-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 {1003F25A33}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<NAME-CONFLICT {1003F25A33}>) 2: (INVOKE-DEBUGGER #<NAME-CONFLICT {1003F25A33}>) 3: (ERROR #<NAME-CONFLICT {1003F25A33}>) 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) {7F99A5165B6B}> #<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-20210406-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) {7F99A5165E2B}> #<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-20210406-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 {1003F18BB3}> 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) {7F99A516674B}> #<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 {1003F18BB3}> NIL) 31: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210406-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-20210406-git/src/s... {1003F90E5F}> :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*) {1003F1606B}> NIL) 33: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210406-git/src/store/postmodern/postmodern.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003F1579B}>) 34: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20210406-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-20210406-git/src/s... {1003F9CB1F}> :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-UmLJH0aZ/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-UmLJH0aZ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-UmLJH0aZ/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