weblocks-examples

SBCL 2.0.5.91-ada264956 / ASDF 3.3.1

weblocks-demo

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-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20200621-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/6a672a245e7ad55311ceaa8722aae0f1f0b2d5fd/cl-fad-20200621-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200621-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/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200621-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/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20200621-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20200621-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-20200621-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
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
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("cl-containers/with-moptilities")) while visiting (ASDF/LISP-ACTION:LOAD-OP "weblocks-demo" "conf" "stores") - please use proper dependencies instead
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("cl-containers/with-utilities")) while visiting (ASDF/LISP-ACTION:LOAD-OP "weblocks-demo" "conf" "stores") - please use proper dependencies instead
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("weblocks-memory")) while visiting (ASDF/LISP-ACTION:LOAD-OP "weblocks-demo" "conf" "stores") - please use proper dependencies instead
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("weblocks-prevalence")) while visiting (ASDF/LISP-ACTION:LOAD-OP "weblocks-demo" "conf" "stores") - please use proper dependencies instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20200621-git/s-xml.asd" contains definition for system "s-xml.test". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20200621-git/s-xml.asd" contains definition for system "s-xml.examples". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file.
; 
; caught ERROR:
;   READ error during COMPILE-FILE: The symbol "SLOT-DEFINITION-NAME" is not external in the SB-PCL package. Line: 83, Column: 39, File-Position: 3161 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/cl-prevalence/46cf67ce3c176ff3de5334af7ec8ca2ab56c983a/cl-prevalence-20200621-git/src/serialization/serialization.lisp" {100A2C6D43}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A5814E3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A5814E3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100A5814E3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {100A048E63}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {100A048E63}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP #:WEBLOCKS-PREVALENCE)
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP #:WEBLOCKS-PREVALENCE) [fast-method]
18: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 247) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {1008E1A7FF}> {1008E1A963}> :TABLE #(27 SET *PACKAGE* "WEBLOCKS-DEMO" #<PACKAGE "WEBLOCKS-STORES"> WEBLOCKS-STORES::%DEFSTORE-PREDEFINE #<PACKAGE "WEBLOCKS-DEMO"> *SCRATCH-STORE* :MEMORY #<PACKAGE "SB-IMPL"> SB-IMPL::%DEFVAR "/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examples-20200621-git/weblocks-demo/conf/stores.lisp" ...) :STACK #(0 WEBLOCKS-STORES::%DEFSTORE-POSTDEFINE *PREVALENCE-STORE* :PREVALENCE NIL #<SB-KERNEL:LAYOUT for SB-C:DEFINITION-SOURCE-LOCATION {50201883}> #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examples-20200621-git/weblocks-demo/" :WEBLOCKS-DEMO "data" 0 0 0 ...) :NAME-BUFFER #("" "WEBLOCKS-DEMOIRECTORY") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
19: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 247) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {1008E1A7FF}> {1008E1A963}> NIL NIL)
20: ((FLET SB-FASL::THUNK :IN LOAD))
21: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7F5ABD3FEA5B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 247) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {1008E1A7FF}> {1008E1A963}>)
22: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 247) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {1008E1A7FF}> {1008E1A963}> T)
23: (LOAD #P#<(SIMPLE-ARRAY CHARACTER (242)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examples-2... {100ABD20DF}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
24: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {1008E18D0B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
25: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "conf" "stores">)
26: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
27: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "conf" "stores">) [fast-method]
28: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-demo" "conf" "stores">) [fast-method]
29: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {10052F51B3}>) [fast-method]
30: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
31: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {10052F51B3}>) [fast-method]
32: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
33: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">)
34: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
35: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-demo">) [fast-method]
36: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-demo")
37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
38: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method]
39: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052ED7EB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
41: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052A849B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
42: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-demo") [fast-method]
43: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-demo" "weblocks-demo")
44: (DEPCHECK::MAGIC "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-w06wJi2k/depcheck-win.txt")
45: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-demo" "weblocks-demo" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-w06wJi2k/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-w06wJi2k/depcheck-fail.txt"))
46: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
47: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
48: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
49: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 3 fatal ERROR conditions
;   caught 1 ERROR condition

simple-blog

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-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20200621-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/6a672a245e7ad55311ceaa8722aae0f1f0b2d5fd/cl-fad-20200621-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20200621-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/flexi-streams/f3246e8db85c807c6011fb28de887286ed68b28a/flexi-streams-20200621-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/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20200621-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20200621-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-20200621-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
WARNING: redefining METABANG.UTILITIES:FIND-ALL in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/utils/html-parts.lisp
; in: DEFUN UPDATE-CURRENT-HTML-PART-CHILDREN
;     (WEBLOCKS-UTIL:MD5 WEBLOCKS-UTIL::VALUE)
; ==>
;   WEBLOCKS-UTIL::VALUE
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (PUSH WEBLOCKS-UTIL::VALUE WEBLOCKS-UTIL::*CURRENT-HTML-PART-CHILDREN*)
; --> LET* 
; ==>
;   WEBLOCKS-UTIL::VALUE
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/utils/templates.lisp
; in: DEFUN CALCULATE-TEMPLATE-PRIORITY
;     (LET ((WEBLOCKS-UTIL::NAME (CAR WEBLOCKS-UTIL::TEMPLATE))
;           (WEBLOCKS-UTIL::CONTEXT (COPY-TREE (CDR WEBLOCKS-UTIL::TEMPLATE))))
;       (OR
;        (LOOP WEBLOCKS-UTIL::FOR (WEBLOCKS-UTIL::KEY
;                                  WEBLOCKS-UTIL::VALUE) WEBLOCKS-UTIL::ON WEBLOCKS-UTIL::CONTEXT :BY #'CDDR
;              WEBLOCKS-UTIL::SUM (COND (# #) (# #) (# #) (T 0)))
;        0))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-util" "src" "utils" "templates">
WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS COMMON-LISP:STANDARD-OBJECT> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/utils/html.lisp
; in: DEFUN RENDER-LINK
;     (DEFUN WEBLOCKS::RENDER-LINK
;            (WEBLOCKS::ACTION PARENSCRIPT:LABEL
;             &KEY (WEBLOCKS::AJAXP T) WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE
;             WEBLOCKS::RENDER-FN)
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
;   default), the link will be rendered in such a way that the action will
;   be invoked via AJAX or will fall back to a regular request if
;   JavaScrip... {100C3E5A7F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (LET* ((*PRINT-PRETTY* NIL)
;              (WEBLOCKS::ACTION-CODE
;               (WEBLOCKS::FUNCTION-OR-ACTION->ACTION WEBLOCKS::ACTION))
;              (WEBLOCKS::URL (WEBLOCKS::MAKE-ACTION-URL WEBLOCKS::ACTION-CODE)))
;         (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID :CLASS
;                                  CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                  (WHEN WEBLOCKS::AJAXP
;                                    (FORMAT NIL
;                                            "initiateAction(\"~A\", \"~A\"); return false;"
;                                            WEBLOCKS::ACTION-CODE #))
;                                  :CONTENT ...)
;         (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;          WEBLOCKS-STORES:ID :CLASS CLASS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-LINK
;         (WEBLOCKS::ACTION PARENSCRIPT:LABEL &KEY (WEBLOCKS::AJAXP T)
;          WEBLOCKS-STORES:ID CLASS WEBLOCKS::TITLE WEBLOCKS::RENDER-FN)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       #<(SIMPLE-ARRAY CHARACTER
;          (636)) Renders an action into a href link. If AJAXP is true (the
; default), the link will be rendered in such a way that the action will
; be invoked via AJAX or will fall back to a regular request if
; JavaScrip... {100C3E5A7F}>
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (BLOCK WEBLOCKS::RENDER-LINK
;         (LET* ((*PRINT-PRETTY* NIL) (WEBLOCKS::ACTION-CODE #) (WEBLOCKS::URL #))
;           (WEBLOCKS-UTIL:RENDER-WT :HTML-LINK-WT NIL :ID WEBLOCKS-STORES:ID
;                                    :CLASS CLASS :HREF WEBLOCKS::URL :ONCLICK
;                                    (WHEN WEBLOCKS::AJAXP #) :CONTENT ...)
;           (WEBLOCKS::LOG-LINK PARENSCRIPT:LABEL WEBLOCKS::ACTION-CODE :ID
;            WEBLOCKS-STORES:ID :CLASS CLASS))))
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

;     (FUNCALL
;      (OR WEBLOCKS::RENDER-FN
;          (LAMBDA (PARENSCRIPT:LABEL) (CL-WHO:HTM (CL-WHO:STR #))))
;      PARENSCRIPT:LABEL)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL
;    (OR WEBLOCKS::RENDER-FN
;        (LAMBDA (PARENSCRIPT:LABEL) (CL-WHO:HTM (CL-WHO:STR #)))))
; 
; 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/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/utils/html.lisp
; in: DEFUN BUTTON-WT
;     (DEFUN WEBLOCKS::BUTTON-WT
;            (
;             &KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;             WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID :CLASS
;          CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::BUTTON-WT
;         (&KEY WEBLOCKS::VALUE WEBLOCKS::NAME WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::DISABLEDP WEBLOCKS::SUBMITP)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::BUTTON-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (:INPUT :NAME WEBLOCKS::NAME :TYPE "submit" :ID WEBLOCKS-STORES:ID
;            :CLASS CLASS :VALUE WEBLOCKS::VALUE :DISABLED ...))))
; 
; caught STYLE-WARNING:
;   The variable SUBMITP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/utils/html.lisp
; in: DEFUN RENDER-INPUT-FIELD
;     (DEFUN WEBLOCKS::RENDER-INPUT-FIELD
;            (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE
;             &KEY WEBLOCKS-STORES:ID CLASS WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE
;             METABANG.UTILITIES:SIZE WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR
;             WEBLOCKS::TABINDEX ...)
;       (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID :TYPE
;                                TYPE :CLASS CLASS :NAME
;                                (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                :DISABLED ...))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-INPUT-FIELD
;         (TYPE WEBLOCKS::NAME WEBLOCKS::VALUE &KEY WEBLOCKS-STORES:ID CLASS
;          WEBLOCKS::MAXLENGTH WEBLOCKS::STYLE METABANG.UTILITIES:SIZE
;          WEBLOCKS::ONFOCUS WEBLOCKS::ONBLUR WEBLOCKS::TABINDEX ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::RENDER-INPUT-FIELD
;         (WEBLOCKS-UTIL:RENDER-WT :INPUT-FIELD-WT NIL :ID WEBLOCKS-STORES:ID
;                                  :TYPE TYPE :CLASS CLASS :NAME
;                                  (WEBLOCKS:ATTRIBUTIZE-NAME WEBLOCKS::NAME)
;                                  :DISABLED ...)))
; 
; caught STYLE-WARNING:
;   The variable STYLE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TABINDEX is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "utils" "html">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/bundling.lisp
; in: DEFUN BUNDLE-SOME-DEPENDENCIES
;     (TYPEP WEBLOCKS::DEP WEBLOCKS::DEPENDENCY-TYPE)
; 
; note: unable to optimize because: can't open-code test of non-constant type

;     (FIND WEBLOCKS::PATH WEBLOCKS::EXCEPTIONS :TEST #'STRING-EQUAL)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

;     (STRING= "css" (PATHNAME-TYPE WEBLOCKS::PATH))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (SIMPLE-ARRAY CHARACTER (*)) (SIMPLE-ARRAY NIL (*)) SIMPLE-BASE-STRING (MEMBER :WILD :UNSPECIFIC NIL)), not a SIMPLE-STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/acceptor.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE
;     (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE
;       :AFTER
;       ((WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR) &REST WEBLOCKS::INITARGS)
;       "Set the session secret to prevent a Hunchentoot warning emitted upon
;     starting the acceptor."
;       (UNLESS (BOUNDP 'HUNCHENTOOT:*SESSION-SECRET*)
;         (HUNCHENTOOT:RESET-SESSION-SECRET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (WEBLOCKS::WEBLOCKS-ACCEPTOR))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::INST &REST
;          WEBLOCKS::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::INST &REST WEBLOCKS::INITARGS)
;           "Set the session secret to prevent a Hunchentoot warning emitted upon
;   starting the acceptor."
;           (UNLESS # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::INST))
;       (DECLARE (IGNORABLE WEBLOCKS::INST))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::INST)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::INST) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::INST WEBLOCKS::WEBLOCKS-ACCEPTOR))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "acceptor">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/actions.lisp
; in: DEFUN DEFAULT-EXPIRED-ACTION-HANDLER
;     (DEFUN WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;            (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Default value of *expired-action-handler*. Redirects to application
;   root and sets a query parameter 'timeout' to true, so that the home
;   page may display a relevant message, if necessary."
;       (WEBLOCKS::REDIRECT
;        (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t") :DEFER
;        NIL))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (&OPTIONAL (WEBLOCKS::APP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Default value of *expired-action-handler*. Redirects to application
; root and sets a query parameter 'timeout' to true, so that the home
; page may display a relevant message, if necessary."
;       (BLOCK WEBLOCKS::DEFAULT-EXPIRED-ACTION-HANDLER
;         (WEBLOCKS::REDIRECT
;          (CONCATENATE 'STRING (WEBLOCKS::MAKE-WEBAPP-URI "/") "?timeout=t")
;          :DEFER NIL)))
; 
; caught STYLE-WARNING:
;   The variable APP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "actions">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFMETHOD PRINT-OBJECT
;     (FORMAT STREAM "~A" (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ))
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$~A"
;               (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
;             NIL)
;           #:G9)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFUN SORT-DEPENDENCIES-BY-TYPE
;     (STABLE-SORT WEBLOCKS::DEPENDENCY-LIST #'WEBLOCKS::DEPENDENCIES-LESSP)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR VECTOR CONS NULL).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFUN BUNDLE-DEPENDENCIES
;     (FIND :STYLESHEET WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

;     (FIND :SCRIPT WEBLOCKS::BUNDLE-TYPES)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFGENERIC COMPACT-DEPENDENCIES
;     (WEBLOCKS:TIMING "sort-deps"
;       (WEBLOCKS::SORT-DEPENDENCIES-BY-TYPE
;        (WEBLOCKS:TIMING "bundle-deps"
;          (WEBLOCKS::BUNDLE-DEPENDENCIES
;           (WEBLOCKS:TIMING "prune-deps"
;             #)))))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "bundle-deps"
;       (WEBLOCKS::BUNDLE-DEPENDENCIES
;        (WEBLOCKS:TIMING "prune-deps"
;          (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "prune-deps"
;       (WEBLOCKS::PRUNE-DEPENDENCIES WEBLOCKS::DEPENDENCY-LIST))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:LINK :REL "stylesheet" :TYPE "text/css" :HREF
;        (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :MEDIA
;        (WEBLOCKS::STYLESHEET-MEDIA WEBLOCKS::OBJ)))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG25 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG26 STREAM)))
;             NIL)
;           #:G21 #:G22 #:G23 #:G24)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG45 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG46 STREAM)))
;             NIL)
;           #:G41 #:G42 #:G43 #:G44)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG65 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG66 STREAM)))
;             NIL)
;           #:G61 #:G62 #:G63 #:G64)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG85 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG86 STREAM)))
;             NIL)
;           #:G81 #:G82 #:G83 #:G84)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG105 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG106 STREAM)))
;             NIL)
;           #:G101 #:G102 #:G103 #:G104)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG125 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG126 STREAM)))
;             NIL)
;           #:G121 #:G122 #:G123 #:G124)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG145 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG146 STREAM)))
;             NIL)
;           #:G141 #:G142 #:G143 #:G144)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG165 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG166 STREAM)))
;             NIL)
;           #:G161 #:G162 #:G163 #:G164)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFMETHOD RENDER-DEPENDENCY-IN-PAGE-HEAD
;     (WEBLOCKS:WITH-HTML
;       (:SCRIPT :SRC (WEBLOCKS::DEPENDENCY-URL WEBLOCKS::OBJ) :TYPE
;        "text/javascript" ""))
; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG21 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG22 STREAM)))
;             NIL)
;           #:G17 #:G18 #:G19 #:G20)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG41 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG42 STREAM)))
;             NIL)
;           #:G37 #:G38 #:G39 #:G40)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG61 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG62 STREAM)))
;             NIL)
;           #:G57 #:G58 #:G59 #:G60)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; --> CL-WHO:WITH-HTML-OUTPUT LET MACROLET LET COND OR LET IF IF THE CL-WHO:FMT 
; --> FORMAT 
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "fmt$ ~A=~C~A~C"
;               (STREAM SB-FORMAT::FORMAT-ARG1 SB-FORMAT::FORMAT-ARG2
;                SB-FORMAT::FORMAT-ARG3 SB-FORMAT::FORMAT-ARG4 &REST
;                SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-CHAR #\  STREAM)
;               (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)
;               (WRITE-CHAR #\= STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG81 STREAM))
;               (PRINC SB-FORMAT::FORMAT-ARG3 STREAM)
;               (LET (#)
;                 (UNLESS # #)
;                 (WRITE-CHAR #:ARG82 STREAM)))
;             NIL)
;           #:G77 #:G78 #:G79 #:G80)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/dependencies.lisp
; in: DEFUN MAKE-LOCAL-DEPENDENCY
;     (FIND TYPE (WEBLOCKS::VERSION-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

;     (FIND TYPE (WEBLOCKS::GZIP-DEPENDENCY-TYPES* WEBLOCKS::WEBAPP))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/application.lisp
; in: DEFUN DELETE-WEBAPP-SESSION-VALUE
;     (DEFUN WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;            (WEBLOCKS::KEY
;             &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;             (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       "Clear the session value for the currently running webapp.
;   KEY is compared using EQUAL."
;       (LET ((WEBLOCKS::WEBAPP-SESSION
;              (HUNCHENTOOT:SESSION-VALUE # HUNCHENTOOT:SESSION)))
;         (WHEN WEBLOCKS::WEBAPP-SESSION
;           (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (WEBLOCKS::KEY &OPTIONAL (HUNCHENTOOT:SESSION HUNCHENTOOT:*SESSION*)
;          (WEBLOCKS::WEBAPP (WEBLOCKS::CURRENT-WEBAPP)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Clear the session value for the currently running webapp.
; KEY is compared using EQUAL."
;       (BLOCK WEBLOCKS::DELETE-WEBAPP-SESSION-VALUE
;         (LET ((WEBLOCKS::WEBAPP-SESSION #))
;           (WHEN WEBLOCKS::WEBAPP-SESSION
;             (REMHASH WEBLOCKS::KEY WEBLOCKS::WEBAPP-SESSION)))))
; 
; caught STYLE-WARNING:
;   The variable WEBAPP is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "application">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/page-template.lisp
; in: DEFMETHOD RENDER-PAGE
;     (WEBLOCKS:TIMING "compact-dependencies"
;       (WEBLOCKS:COMPACT-DEPENDENCIES
;        (APPEND (WEBLOCKS:WEBAPP-APPLICATION-DEPENDENCIES)
;                WEBLOCKS::*PAGE-DEPENDENCIES*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/request-hooks.lisp
; in: EVAL-WHEN (:LOAD-TOPLEVEL)
;     (WEBLOCKS:TIMING "html parts processing"
;       (PROGN
;        (WEBLOCKS-UTIL:UPDATE-HTML-PARTS-CONNECTIONS)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-HASH*)
;        (SETF (WEBLOCKS:WEBAPP-SESSION-VALUE 'WEBLOCKS::PARTS-MD5-CONTEXT-HASH)
;                WEBLOCKS-UTIL:*PARTS-MD5-CONTEXT-HASH*)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-HTTP-ERROR
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::HANDLE-HTTP-ERROR
;       ((WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP) WEBLOCKS::CODE &OPTIONAL
;        CONDITION)
;       (WEBLOCKS::WITH-ERROR-PAGE-HTML ((CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #))
;                                        (CL-WHO:ESCAPE-STRING
;                                         (FORMAT NIL "~A ~A" WEBLOCKS::CODE #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::HANDLE-HTTP-ERROR
;                           (WEBLOCKS:WEBLOCKS-WEBAPP T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::APP WEBLOCKS::CODE
;          &OPTIONAL CONDITION)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::APP WEBLOCKS::CODE &OPTIONAL CONDITION)
;           (WEBLOCKS::WITH-ERROR-PAGE-HTML #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::CODE))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::APP))
;       (DECLARE (TYPE T WEBLOCKS::CODE))
;       (DECLARE (IGNORABLE WEBLOCKS::CODE WEBLOCKS::APP))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::APP WEBLOCKS::CODE)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::APP WEBLOCKS:WEBLOCKS-WEBAPP))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable CONDITION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/error-handler.lisp
; in: DEFMETHOD HANDLE-ERROR-CONDITION
;     (BACKTRACE-AS-LIST)
; 
; caught STYLE-WARNING:
;   The function SB-DEBUG:BACKTRACE-AS-LIST has been deprecated as of SBCL version 1.2.15.
;   
;   Use SB-DEBUG:LIST-BACKTRACE instead.
;   In future SBCL versions SB-DEBUG:BACKTRACE-AS-LIST will signal a full warning at compile-time.
;   See also:
;     The SBCL Manual, Node "Deprecation Conditions"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "error-handler">
WARNING: Reference to deprecated function (SB-DEBUG:BACKTRACE-AS-LIST)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (HANDLER-BIND ((COM.METABANG.TRIVIAL-TIMEOUT:TIMEOUT-ERROR
;                     (LAMBDA (WEBLOCKS::C) (ERROR "Your request timed out."))))
;       (COM.METABANG.TRIVIAL-TIMEOUT:WITH-TIMEOUT (WEBLOCKS::*REQUEST-TIMEOUT*)
;         (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request prelude")
;         (UNWIND-PROTECT
;             (LET* (# # # #)
;               (DOLIST # # # #)
;               WEBLOCKS::RESULT)
;           (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS "Request complete/idle"))))
; --> SB-KERNEL::%HANDLER-BIND SB-INT:DX-FLET FLET 
; ==>
;   (#:H0 (WEBLOCKS::C) (ERROR "Your request timed out."))
; 
; caught STYLE-WARNING:
;   The variable C is defined but never used.

;     (WEBLOCKS:TIMING "handle-client-request"
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-CLIENT-REQUEST
;     (WEBLOCKS:TIMING "action processing (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-ACTION)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-ACTION) (WEBLOCKS::EVAL-ACTION))
;       (WEBLOCKS::EVAL-HOOK :POST-ACTION))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "rendering (w/ hooks)"
;       (WEBLOCKS::EVAL-HOOK :PRE-RENDER)
;       (WEBLOCKS::WITH-DYNAMIC-HOOKS (:DYNAMIC-RENDER)
;                                     (IF (WEBLOCKS:AJAX-REQUEST-P)
;                                         (WEBLOCKS::HANDLE-AJAX-REQUEST
;                                          WEBLOCKS::APP)
;                                         (WEBLOCKS::HANDLE-NORMAL-REQUEST
;                                          WEBLOCKS::APP)))
;       (WEBLOCKS::EVAL-HOOK :POST-RENDER))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-AJAX-REQUEST
;     (WEBLOCKS:TIMING "handle-ajax-request"
;       (WEBLOCKS::UPDATE-LOCATION-HASH-DEPENDENTS)
;       (WEBLOCKS::RENDER-DIRTY-WIDGETS))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/request-handler.lisp
; in: DEFMETHOD HANDLE-NORMAL-REQUEST
;     (WEBLOCKS:TIMING "page render"
;       (WEBLOCKS:RENDER-PAGE WEBLOCKS::APP))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "tree shakedown"
;       (WEBLOCKS::UPDATE-WIDGET-TREE))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.

;     (WEBLOCKS:TIMING "widget tree rendering"
;       (WEBLOCKS::RENDER-WIDGET (WEBLOCKS:ROOT-WIDGET)))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "request-handler">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/linguistic/grammar.lisp
; in: DEFUN DEFAULT-TRANSLATION-FUNCTION
;     (IGNORE WEBLOCKS::ARGS)
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "linguistic" "grammar">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widget-translation.lisp
; in: DEFGENERIC WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-TRANSLATION-TABLE
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION
;        #<(SIMPLE-ARRAY CHARACTER
;           (781)) Widget translation table is an alist with all strings used in widget which should be translated.
;                      The idea of this table is to hold every string so we just translate this table to tr... {100B1FA49F}>)
;       (:METHOD-COMBINATION APPEND)
;       (:METHOD APPEND (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                               . WEBLOCKS::VALUE) PARENSCRIPT:IN (GET
;                                                                  'WEBLOCKS::DYNAMIC-TRANSLATION-TABLE
;                                                                  WEBLOCKS::OBJ)
;              WEBLOCKS::COLLECT (CONS WEBLOCKS::KEY
;                                      (IF #
;                                          #
;                                          WEBLOCKS::VALUE)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST CONS DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           WEBLOCKS::WIDGET-TRANSLATION-TABLE APPEND (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (LOOP PARENSCRIPT:FOR # PARENSCRIPT:IN #
;                 WEBLOCKS::COLLECT #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widget-translation">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW) &REST WEBLOCKS::ARGS)
;       (APPLY #'APPEND
;              (REMOVE-DUPLICATES
;               (WEBLOCKS::MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS::OBJ NIL) :TEST
;               #'EQUAL)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) (APPLY # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;        (SLOT-VALUE WEBLOCKS::OBJ 'WEBLOCKS::PRESENTATION)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/view/view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       #<(SIMPLE-ARRAY CHARACTER
;          (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;      or when current label is equal to generated one. 
;      First case is for 'widget-translate', it will... {100B7AD66F}>
;       (WITH-SLOTS (WEBLOCKS::SLOT-NAME PARENSCRIPT:LABEL)
;           WEBLOCKS::OBJ
;         (UNLESS PARENSCRIPT:LABEL
;           (RETURN-FROM WEBLOCKS:WIDGET-TRANSLATION-TABLE `(#)))
;         (WHEN (STRING= PARENSCRIPT:LABEL (WEBLOCKS-UTIL:TRANSLATE #))
;           `((:LABEL . ,#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::INLINE-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           #<(SIMPLE-ARRAY CHARACTER
;              (304)) Returns translation table. :label key/value are present when there is no label set for view-field 
;    or when current label is equal to generated one. 
;    First case is for 'widget-translate', it will... {100B7AD66F}>
;           (WITH-SLOTS #
;               WEBLOCKS::OBJ
;             #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::INLINE-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/view/scaffold.lisp
; in: DEFUN INSPECT-TYPESPEC
;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'OR 'NULL WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y 'NULL) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       ((LIST 'OR WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

;     (OPTIMA:MATCH WEBLOCKS::TYPESPEC
;       ((LIST 'AND WEBLOCKS::Y) (WEBLOCKS::INSPECT-TYPESPEC WEBLOCKS::Y))
;       (WEBLOCKS::Y (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC))))
; --> OPTIMA::%OR BLOCK TAGBODY RETURN-FROM OPTIMA::%OR BLOCK TAGBODY 
; --> RETURN-FROM SYMBOL-MACROLET OPTIMA::%OR 
; ==>
;   (LET ((WEBLOCKS::Y WEBLOCKS::TYPESPEC))
;     (VALUES (CAR WEBLOCKS::TYPESPEC) (CDR WEBLOCKS::TYPESPEC)))
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "view" "scaffold">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::TEXT-PRESENTATION)) &REST WEBLOCKS::ARGS)
;       `((:NULL-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Not Specified"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::TEXT-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/dataview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::TEXT-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::TEXT-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::TEXT-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "dataview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-VALIDATION-SUMMARY
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; ==>
;   WEBLOCKS:VIEW
; 
; caught STYLE-WARNING:
;   reading an ignored variable: VIEW

; ==>
;   WEBLOCKS::OBJ
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/formview.lisp
; in: DEFGENERIC RENDER-FORM-VIEW-BUTTONS
;     (LIST :VIEW WEBLOCKS:VIEW :OBJECT WEBLOCKS::OBJ :WIDGET WEBLOCKS::WIDGET)
; ==>
;   WEBLOCKS::OBJ
; 
; caught STYLE-WARNING:
;   reading an ignored variable: OBJ

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/formview.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD) &REST WEBLOCKS::ARGS)
;       `((:REQUIRED-INDICATOR
;          . ,(WEBLOCKS-UTIL:TRANSLATE WEBLOCKS::*DEFAULT-REQUIRED-INDICATOR*))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::FORM-VIEW-FIELD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::FORM-VIEW-FIELD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "formview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/parser.lisp
; in: DEFMETHOD VIEW-ARGUMENT-QUOTING-STRATEGY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY
;       ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;       :LIST)
; --> DEFMETHOD PROGN 
; ==>
;   (EVAL-WHEN (:EXECUTE)
;     (SB-PCL::%DEFMETHOD-EXPANDER WEBLOCKS:VIEW-ARGUMENT-QUOTING-STRATEGY NIL
;                                  ((WEBLOCKS::ARG-NAME (EQL :PRESENT-AS)))
;                                  (:LIST)))
; 
; caught STYLE-WARNING:
;   redefining VIEW-ARGUMENT-QUOTING-STRATEGY (#<EQL-SPECIALIZER :PRESENT-AS>) in DEFMETHOD
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "parser">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/request-deserialization.lisp
; in: DEFUN UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;     (DEFUN WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;            (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE
;             WEBLOCKS::ARGS)
;       (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;         (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS
;                (LAMBDA (WEBLOCKS:FIELD-INFO)
;                  (LET* #
;                    #))
;                WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::ARGS)
;         (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (WEBLOCKS::OBJ WEBLOCKS:VIEW WEBLOCKS-STORES:CLASS-STORE WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::UPDATE-INTERMEDIATE-VALUES-FROM-REQUEST
;         (LET (WEBLOCKS::RESULTS WEBLOCKS::ERRORS)
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (VALUES WEBLOCKS::RESULTS WEBLOCKS::ERRORS))))
; 
; caught STYLE-WARNING:
;   The variable CLASS-STORE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "request-deserialization">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/template-form-view.lisp
; in: DEFUN TEMPLATE-FORM-VIEW-BODY-WT
;     (DEFUN WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;            (
;             &REST WEBLOCKS::ARGS
;             &KEY WEBLOCKS::CAPTION CLASS-NAME WEBLOCKS::VALIDATION-SUMMARY
;             WEBLOCKS:FORM-VIEW-BUTTONS WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION
;             WEBLOCKS::FORM-ID WEBLOCKS::HEADER-CLASS ...)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID WEBLOCKS::FORM-ID
;                                   :CLASS WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                   WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                   WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                   WEBLOCKS::USE-AJAX-P)
;           (WHEN WEBLOCKS::CAPTION (CL-WHO:HTM #))
;           (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;           (:UL
;            (LOOP PARENSCRIPT:FOR # WEBLOCKS::ON WEBLOCKS::FIELDS-DATA :BY #'CDDR
;                  DO #))
;           (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (&REST WEBLOCKS::ARGS &KEY WEBLOCKS::CAPTION CLASS-NAME
;          WEBLOCKS::VALIDATION-SUMMARY WEBLOCKS:FORM-VIEW-BUTTONS
;          WEBLOCKS::CONTENT METHOD WEBLOCKS::ACTION WEBLOCKS::FORM-ID
;          WEBLOCKS::HEADER-CLASS ...)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::TEMPLATE-FORM-VIEW-BODY-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (WEBLOCKS:WITH-HTML-FORM (METHOD WEBLOCKS::ACTION :ID
;                                     WEBLOCKS::FORM-ID :CLASS
;                                     WEBLOCKS::HEADER-CLASS :ENCTYPE
;                                     WEBLOCKS::ENCTYPE :EXTRA-SUBMIT-CODE
;                                     WEBLOCKS::EXTRA-SUBMIT-CODE :USE-AJAX-P
;                                     WEBLOCKS::USE-AJAX-P)
;             (WHEN WEBLOCKS::CAPTION #)
;             (CL-WHO:STR WEBLOCKS::VALIDATION-SUMMARY)
;             (:UL #)
;             (CL-WHO:STR WEBLOCKS:FORM-VIEW-BUTTONS)))))
; 
; caught STYLE-WARNING:
;   The variable CONTENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/formview/template-form-view.lisp
; in: DEFMETHOD WITH-VIEW-HEADER
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WITH-VIEW-HEADER
;       ((WEBLOCKS:VIEW WEBLOCKS::TEMPLATE-FORM-VIEW) WEBLOCKS::OBJ
;        WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;        (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;        (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-PREFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;        (WEBLOCKS::FIELDS-SUFFIX-FN
;         (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW))
;        WEBLOCKS::VALIDATION-ERRORS ...)
;       (DECLARE
;        (SPECIAL WEBLOCKS:*ON-AJAX-COMPLETE-SCRIPTS*
;         WEBLOCKS:*FORM-SUBMIT-DEPENDENCIES*))
;       (WITH-SLOTS (WEBLOCKS::TEMPLATE WEBLOCKS::ADDITIONAL-VARIABLES-FN)
;           WEBLOCKS:VIEW
;         (LET ((WEBLOCKS::FORM-ID #)
;               (WEBLOCKS::FIELDS-DATA)
;               (WEBLOCKS::FIELD-VALUES-DATA)
;               (WEBLOCKS::LABELS-DATA))
;           (APPLY #'WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA # # # #) WEBLOCKS:VIEW
;                  WEBLOCKS::OBJ WEBLOCKS::ARGS)
;           (APPLY #'WEBLOCKS-UTIL:RENDER-WT
;                  (LIST* WEBLOCKS::TEMPLATE # :METHOD METHOD :ACTION
;                         WEBLOCKS::ACTION :HEADER-CLASS # :ENCTYPE #
;                         :EXTRA-SUBMIT-CODE ...))))
;       (WHEN (WEBLOCKS:FORM-VIEW-FOCUS-P WEBLOCKS:VIEW)
;         (WEBLOCKS:SEND-SCRIPT (PARENSCRIPT:PS* `(#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WITH-VIEW-HEADER
;                           (WEBLOCKS::TEMPLATE-FORM-VIEW T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:VIEW WEBLOCKS::OBJ
;          WEBLOCKS::WIDGET WEBLOCKS::BODY-FN &REST WEBLOCKS::ARGS &KEY
;          (METHOD (WEBLOCKS:FORM-VIEW-DEFAULT-METHOD WEBLOCKS:VIEW))
;          (WEBLOCKS::ACTION (WEBLOCKS:FORM-VIEW-DEFAULT-ACTION WEBLOCKS:VIEW))
;          (WEBLOCKS::FIELDS-PREFIX-FN
;           (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS:VIEW WEBLOCKS::OBJ WEBLOCKS::WIDGET WEBLOCKS::BODY-FN
;              &REST WEBLOCKS::ARGS
;              &KEY # # # # WEBLOCKS::VALIDATION-ERRORS ...)
;           (DECLARE #)
;           (WITH-SLOTS #
;               WEBLOCKS:VIEW
;             #)
;           (WHEN # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::BODY-FN))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (TYPE T WEBLOCKS::BODY-FN))
;       (DECLARE (TYPE T WEBLOCKS::WIDGET))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable FIELDS-PREFIX-FN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FIELDS-SUFFIX-FN is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "formview" "template-form-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::SEQUENCE-VIEW)) &REST WEBLOCKS::ARGS)
;       `((:EMPTY-MESSAGE
;          . ,(WEBLOCKS-UTIL:TRANSLATE "No information available."))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::SEQUENCE-VIEW)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/sequence-view.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::SEQUENCE-VIEW))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::SEQUENCE-VIEW))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::SEQUENCE-VIEW))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "sequence-view">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/tableview.lisp
; in: DEFGENERIC RENDER-VIEW-FIELD-HEADER
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;         (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION
;          WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY
;          WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (:DOCUMENTATION "Renders a table header cell.")
;       (:METHOD
;        ((WEBLOCKS::FIELD WEBLOCKS::TABLE-VIEW-FIELD)
;         (WEBLOCKS:VIEW WEBLOCKS::TABLE-VIEW) WEBLOCKS::WIDGET
;         WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ &REST WEBLOCKS::ARGS
;         &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;        (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT
;                                 (LIST :VIEW WEBLOCKS:VIEW :FIELD WEBLOCKS::FIELD
;                                       :WIDGET WEBLOCKS::WIDGET :PRESENTATION
;                                       WEBLOCKS:PRESENTATION :OBJECT
;                                       WEBLOCKS::OBJ)
;                                 :ROW-CLASS
;                                 (IF WEBLOCKS:FIELD-INFO
;                                     (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME
;                                      WEBLOCKS:FIELD-INFO)
;                                     (WEBLOCKS:ATTRIBUTIZE-NAME #))
;                                 :LABEL
;                                 (WEBLOCKS-UTIL:TRANSLATE
;                                  (WEBLOCKS:VIEW-FIELD-LABEL WEBLOCKS::FIELD)))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST CONS DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD
;                           WEBLOCKS::RENDER-VIEW-FIELD-HEADER
;                           (WEBLOCKS::TABLE-VIEW-FIELD WEBLOCKS::TABLE-VIEW T T
;                            T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::FIELD WEBLOCKS:VIEW
;          WEBLOCKS::WIDGET WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ
;          &REST WEBLOCKS::ARGS &KEY WEBLOCKS:FIELD-INFO ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;              WEBLOCKS:PRESENTATION WEBLOCKS::VALUE WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;           (WEBLOCKS-UTIL:RENDER-WT :TABLE-VIEW-FIELD-HEADER-WT # :ROW-CLASS #
;                                    :LABEL #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "tableview">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ (EQL 'WEBLOCKS::PREDICATE-PRESENTATION)) &REST
;        WEBLOCKS::ARGS)
;       `((:TRUE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "Yes"))
;         (:FALSE-STRING . ,(WEBLOCKS-UTIL:TRANSLATE "No"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::PREDICATE-PRESENTATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/types/boolean.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION) &REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::PREDICATE-PRESENTATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::PREDICATE-PRESENTATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::PREDICATE-PRESENTATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "boolean">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/types/presentations/widget.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::WIDGET-PRESENTATION)
;        WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ &REST
;        WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;       (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;              (IF WEBLOCKS:FIELD-INFO
;                  #
;                  #))
;             (WEBLOCKS::FIELD-WIDGET (SETF #)))
;         (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable INTERMEDIATE-VALUES is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; --> LET* LOCALLY SYMBOL-MACROLET SB-PCL::PV-BINDING SB-PCL::PV-BINDING1 
; --> SB-PCL::PV-ENV LOCALLY LET BLOCK 
; ==>
;   (LET ((WEBLOCKS::ATTRIBUTIZED-SLOT-NAME
;          (IF WEBLOCKS:FIELD-INFO
;              (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;              (WEBLOCKS:ATTRIBUTIZE-NAME #)))
;         (WEBLOCKS::FIELD-WIDGET
;          (SB-C::WITH-SOURCE-FORM (SETF #) (SB-C::WITH-SOURCE-FORM # #))))
;     (WEBLOCKS::RENDER-WIDGET WEBLOCKS::FIELD-WIDGET))
; 
; caught STYLE-WARNING:
;   The variable ATTRIBUTIZED-SLOT-NAME is defined but never used.

; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;                           (T WEBLOCKS::WIDGET-PRESENTATION T T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::VALUE
;          WEBLOCKS:PRESENTATION WEBLOCKS::FIELD WEBLOCKS:VIEW WEBLOCKS::WIDGET
;          WEBLOCKS::OBJ &REST WEBLOCKS::ARGS &KEY WEBLOCKS::INTERMEDIATE-VALUES
;          ...)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA
;             (WEBLOCKS::VALUE WEBLOCKS:PRESENTATION WEBLOCKS::FIELD
;              WEBLOCKS:VIEW WEBLOCKS::WIDGET WEBLOCKS::OBJ
;              &REST WEBLOCKS::ARGS
;              &KEY WEBLOCKS::INTERMEDIATE-VALUES WEBLOCKS:FIELD-INFO)
;           (LET #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::FIELD))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:PRESENTATION))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::VALUE))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "presentations" "widget">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       (WEBLOCKS::VALUE (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/views/types/password.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-VALUE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;       ((WEBLOCKS::VALUE NULL)
;        (WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION)
;        (WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD)
;        (WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW) WEBLOCKS::WIDGET WEBLOCKS::OBJ &KEY
;        WEBLOCKS:FIELD-INFO &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORE WEBLOCKS::ARGS)
;                (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;       (WEBLOCKS:RENDER-PASSWORD
;        (IF WEBLOCKS:FIELD-INFO
;            (WEBLOCKS:ATTRIBUTIZE-VIEW-FIELD-NAME WEBLOCKS:FIELD-INFO)
;            (WEBLOCKS:ATTRIBUTIZE-NAME
;             (WEBLOCKS:VIEW-FIELD-SLOT-NAME WEBLOCKS::FIELD)))
;        NIL :MAXLENGTH
;        (WEBLOCKS:INPUT-PRESENTATION-MAX-LENGTH WEBLOCKS:PRESENTATION) :SIZE
;        (WEBLOCKS::INPUT-PRESENTATION-SIZE WEBLOCKS:PRESENTATION) :ID
;        WEBLOCKS:*PRESENTATION-DOM-ID*))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. NIL) (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SPECIAL WEBLOCKS:*PRESENTATION-DOM-ID*))
;     (DECLARE (IGNORE WEBLOCKS::ARGS))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS:FORM-VIEW))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::FIELD WEBLOCKS:FORM-VIEW-FIELD))
;     (DECLARE
;      (SB-PCL::%CLASS WEBLOCKS:PRESENTATION WEBLOCKS::PASSWORD-PRESENTATION))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::VALUE NULL))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS:RENDER-VIEW-FIELD-VALUE
;          (WEBLOCKS:RENDER-PASSWORD # NIL :MAXLENGTH # :SIZE # :ID
;                                    WEBLOCKS:*PRESENTATION-DOM-ID*)))))
; 
; caught STYLE-WARNING:
;   IGNORE declaration for an unknown variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "views" "types" "password">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::WIDGET-CHILDREN
;         (WEBLOCKS::W &OPTIONAL TYPE)
;       (:DOCUMENTATION "Return a list of all widgets (all types) who are
;   children of w (e.g. may be rendered when w is rendered).")
;       (:METHOD (WEBLOCKS::W &OPTIONAL TYPE) "NIL unless defined otherwise." NIL)
;       (:METHOD ((WEBLOCKS::W WEBLOCKS::WIDGET) &OPTIONAL TYPE)
;        (IF TYPE
;            (CDR (ASSOC TYPE #))
;            (REDUCE #'APPEND
;                    (SLOT-VALUE WEBLOCKS::W 'METABANG.CL-CONTAINERS:CHILDREN)
;                    :FROM-END T :KEY #'CDR))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::WIDGET-CHILDREN (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &OPTIONAL TYPE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &OPTIONAL TYPE)
;           "NIL unless defined otherwise."
;           NIL)))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (TYPE T WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/widget/widget.lisp
; in: DEFGENERIC RENDER-WIDGET-CHILDREN
;     (CLOSER-MOP:DEFGENERIC WEBLOCKS::RENDER-WIDGET-CHILDREN
;         (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;       (:DOCUMENTATION "Renders the widget's children.")
;       (:METHOD (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;        (WARN
;         "Cannot update the widget children of ~S because it is not a widget."
;         WEBLOCKS::OBJ))
;       (:METHOD ((WEBLOCKS::OBJ WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;        "Render all children. Specialize this method if you only want
;   to render widgets of a certain type."
;        (MAPC
;         (LAMBDA (WEBLOCKS::CHILD)
;           (APPLY #'WEBLOCKS::RENDER-WIDGET WEBLOCKS::CHILD WEBLOCKS::ARGS))
;         (WEBLOCKS::WIDGET-CHILDREN WEBLOCKS::OBJ))))
; --> PROGN EVAL-WHEN DEFGENERIC PROGN SB-PCL::SET-INITIAL-METHODS 
; --> SB-PCL::SET-INITIAL-METHODS LIST DEFMETHOD PROGN EVAL-WHEN 
; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::RENDER-WIDGET-CHILDREN
;                           (T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (WARN
;            "Cannot update the widget children of ~S because it is not a widget."
;            WEBLOCKS::OBJ))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (TYPE T WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD MARK-DIRTY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::MARK-DIRTY
;       ((WEBLOCKS::W WEBLOCKS::WIDGET) &KEY
;        (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;        (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED))
;       (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;       (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED
;            (ERROR
;             "You specified both PROPAGATE and PUTP as arguments to MARK-DIRTY. Are you kidding me?"))
;       (UNLESS (WEBLOCKS::WIDGET-DIRTY-P WEBLOCKS::W)
;         (PUSHNEW WEBLOCKS::W WEBLOCKS::*DIRTY-WIDGETS*)
;         (VALUES T
;                 (WHEN (AND WEBLOCKS::PROPAGATE #)
;                   (MAPC #'WEBLOCKS::MARK-DIRTY #)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS::MARK-DIRTY
;                           (WEBLOCKS::WIDGET))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::W &KEY
;          (WEBLOCKS::PROPAGATE T WEBLOCKS::PROPAGATE-SUPPLIED)
;          (WEBLOCKS::PUTP NIL WEBLOCKS::PUTP-SUPPLIED) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::W &KEY # #)
;           (DECLARE #)
;           (AND WEBLOCKS::PROPAGATE-SUPPLIED WEBLOCKS::PUTP-SUPPLIED #)
;           (UNLESS # # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::W))
;       (DECLARE (IGNORABLE WEBLOCKS::W))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::W)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::W) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SPECIAL WEBLOCKS::*DIRTY-WIDGETS*))
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::W WEBLOCKS::WIDGET))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable PUTP is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/widget/widget.lisp
; in: DEFMETHOD RENDER-WIDGET-BODY
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS::RENDER-WIDGET-BODY
;       :AROUND
;       ((WEBLOCKS::WIDGET WEBLOCKS::WIDGET) &REST WEBLOCKS::ARGS)
;       "Record profiling information."
;       (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS
;        (CONCATENATE 'STRING "rendering widget "
;                     (PRINC-TO-STRING WEBLOCKS::WIDGET)))
;       (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                     (PRINC-TO-STRING WEBLOCKS::WIDGET))
;         (CALL-NEXT-METHOD)))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET 
; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS 
; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET LET SB-PCL::BIND-ARGS 
; ==>
;   (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.)
;          (WEBLOCKS::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS::WIDGET WEBLOCKS::WIDGET))
;     (LOCALLY
;      (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;      (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #))
;        (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED))
;        (BLOCK WEBLOCKS::RENDER-WIDGET-BODY
;          (WEBLOCKS:WEBAPP-UPDATE-THREAD-STATUS #)
;          (WEBLOCKS:TIMING #
;            #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (WEBLOCKS:TIMING (CONCATENATE 'STRING "render-widget "
;                                   (PRINC-TO-STRING WEBLOCKS::WIDGET))
;       (CALL-NEXT-METHOD))
; --> LET IF LET PROG1 LET PROGN LET* MULTIPLE-VALUE-BIND LET UNLESS IF AND IF 
; --> LOCALLY AND THE >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (RATIONAL -2305843009213693951/1000 2305843009213693951/1000), not a FIXNUM.
;       etc.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "widget" "widget">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/data-editor.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::DATA-EDITOR) &REST WEBLOCKS::ARGS)
;       `((:CLOSE-LINK-TITLE . ,(WEBLOCKS-UTIL:TRANSLATE "Close"))
;         (:MODIFY-LINK-TITLE . ,(WEBLOCKS-UTIL:TRANSLATE "Modify"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::DATA-EDITOR))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATA-EDITOR))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "data-editor">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataform.lisp
; in: DEFMETHOD WIDGET-CHILDREN
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-CHILDREN
;       ((WEBLOCKS::OBJ WEBLOCKS::DATAFORM) &OPTIONAL TYPE)
;       "Returns all widgets from all view fields with presentation widget-presentation"
;       (LET ((WEBLOCKS::WIDGETS))
;         (WEBLOCKS:MAP-VIEW-FIELDS (LAMBDA (WEBLOCKS:FIELD-INFO) (WHEN # #))
;                                   (WEBLOCKS::DATAFORM-FORM-VIEW WEBLOCKS::OBJ)
;                                   (WEBLOCKS:DATAFORM-DATA WEBLOCKS::OBJ))
;         WEBLOCKS::WIDGETS))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-CHILDREN
;                           (WEBLOCKS::DATAFORM))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &OPTIONAL TYPE)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &OPTIONAL TYPE)
;           "Returns all widgets from all view fields with presentation widget-presentation"
;           (LET #
;             #
;             WEBLOCKS::WIDGETS))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATAFORM))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataform.lisp
; in: DEFUN UPDATE-FORM-INTERMEDIATE-VALUES-ON-FORM-ACTION
;     (DEFUN WEBLOCKS::UPDATE-FORM-INTERMEDIATE-VALUES-ON-FORM-ACTION
;            (&REST WEBLOCKS::ARGS)
;       (WHEN
;           (AND (WEBLOCKS-UTIL:REQUEST-PARAMETERS)
;                (WEBLOCKS-UTIL:REQUEST-PARAMETER "form-id"))
;         (LET ((WEBLOCKS:FORM #))
;           (WHEN (SUBTYPEP # 'WEBLOCKS::DATAFORM) (SETF #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::UPDATE-FORM-INTERMEDIATE-VALUES-ON-FORM-ACTION
;         (&REST WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::UPDATE-FORM-INTERMEDIATE-VALUES-ON-FORM-ACTION
;         (WHEN
;             (AND (WEBLOCKS-UTIL:REQUEST-PARAMETERS)
;                  (WEBLOCKS-UTIL:REQUEST-PARAMETER "form-id"))
;           (LET (#)
;             (WHEN # #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataform.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::DATAFORM) &REST WEBLOCKS::ARGS)
;       (LET ((WEBLOCKS::RESULT)
;             (WEBLOCKS:FORM-VIEW (WEBLOCKS::DATAFORM-FORM-VIEW WEBLOCKS::OBJ)))
;         (WHEN WEBLOCKS:FORM-VIEW (SETF WEBLOCKS::RESULT #))
;         (SETF WEBLOCKS:FORM-VIEW (IGNORE-ERRORS #))
;         (WHEN WEBLOCKS:FORM-VIEW (SETF WEBLOCKS::RESULT #))
;         WEBLOCKS::RESULT))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::DATAFORM))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           (LET #
;             #
;             #
;             #
;             WEBLOCKS::RESULT))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATAFORM))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "dataform">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/wizard.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE
;     (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE
;       :AFTER
;       ((WEBLOCKS::INST WEBLOCKS::WIZARD) &REST WEBLOCKS::INITARGS)
;       "Initialize the wizard's first page."
;       (WEBLOCKS::WIZARD-UPDATE-CURRENT-WIDGET WEBLOCKS::INST))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (WEBLOCKS::WIZARD))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::INST &REST
;          WEBLOCKS::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::INST &REST WEBLOCKS::INITARGS)
;           "Initialize the wizard's first page."
;           (WEBLOCKS::WIZARD-UPDATE-CURRENT-WIDGET WEBLOCKS::INST))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::INST))
;       (DECLARE (IGNORABLE WEBLOCKS::INST))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::INST)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::INST) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::INST WEBLOCKS::WIZARD))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/wizard.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE
;     (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE
;       :AFTER
;       ((WEBLOCKS:FORM WEBLOCKS::WIZARD-DATAFORM) &REST WEBLOCKS::INITARGS)
;       (LET ((WEBLOCKS::WIZARD (WEBLOCKS::WIZARD-DATAFORM-WIZARD WEBLOCKS:FORM)))
;         (SETF (WEBLOCKS:DATAFORM-ON-CANCEL WEBLOCKS:FORM)
;                 (F-UNDERSCORE:F_%
;                   #))
;         (SETF (WEBLOCKS:DATAFORM-ON-SUCCESS WEBLOCKS:FORM)
;                 (F-UNDERSCORE:F_%
;                   #))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AFTER
;                           (WEBLOCKS::WIZARD-DATAFORM))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:FORM &REST
;          WEBLOCKS::INITARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS:FORM &REST WEBLOCKS::INITARGS)
;           (LET #
;             #
;             #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:FORM))
;       (DECLARE (IGNORABLE WEBLOCKS:FORM))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS:FORM)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS:FORM) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS:FORM WEBLOCKS::WIZARD-DATAFORM))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable INITARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "wizard">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataseq/dataseq.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::DATASEQ) &REST WEBLOCKS::ARGS)
;       "Returns widget translation table for dataseq"
;       `(,@(LOOP PARENSCRIPT:FOR WEBLOCKS::COUNT-KEYWORD PARENSCRIPT:IN (WEBLOCKS::LOCALE-NUMBER-FORMS
;                                                                         (WEBLOCKS:CURRENT-LOCALE))
;                 WEBLOCKS::COLLECT (CONS
;                                    (WEBLOCKS-UTIL:CONCATENATE-KEYWORDS
;                                     :TOTAL-MESSAGE- WEBLOCKS::COUNT-KEYWORD)
;                                    (FORMAT NIL # #)))
;         ,@(LET ((WEBLOCKS::VIEW-KEYWORD #))
;             (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                                    . WEBLOCKS::VAL) PARENSCRIPT:IN (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                                                                     #)
;                   WEBLOCKS::COLLECT (CONS # WEBLOCKS::VAL)))
;         ,@(WHEN (WEBLOCKS::DATASEQ-ALLOW-PAGINATION-P WEBLOCKS::OBJ)
;             (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                                    . WEBLOCKS::VAL) PARENSCRIPT:IN (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                                                                     #)
;                   WEBLOCKS::COLLECT (CONS # WEBLOCKS::VAL)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::DATASEQ))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           "Returns widget translation table for dataseq"
;           `(,@# ,@# ,@#))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATASEQ))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "dataseq" "dataseq">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/datagrid/datagrid.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::DATAGRID) &REST WEBLOCKS::ARGS)
;       `((:SELECT-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Select: "))
;         (:SELECT-ALL-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "All"))
;         (:SELECT-NONE-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "None"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::DATAGRID))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) `(# # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATAGRID))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "datagrid" "datagrid">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/datagrid/select.lisp
; in: DEFUN TABLE-SELECT-VIEW-FIELD-HEADER-WT
;     (DEFUN WEBLOCKS::TABLE-SELECT-VIEW-FIELD-HEADER-WT (&REST WEBLOCKS::ARGS)
;       (WEBLOCKS:WITH-HTML-TO-STRING
;         (:TH :CLASS "select" "")))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::TABLE-SELECT-VIEW-FIELD-HEADER-WT
;         (&REST WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK WEBLOCKS::TABLE-SELECT-VIEW-FIELD-HEADER-WT
;         (WEBLOCKS:WITH-HTML-TO-STRING
;           (:TH :CLASS "select" ""))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/datagrid/select.lisp
; in: DEFMETHOD RENDER-VIEW-FIELD-HEADER
;     (LIST :FIELD WEBLOCKS::FIELD :VIEW WEBLOCKS:VIEW :WIDGET WEBLOCKS:WIDGET
;           :PRESENTATION WEBLOCKS:PRESENTATION :VALUE WEBLOCKS::VALUE :OBJECT ...)
; ==>
;   WEBLOCKS:WIDGET
; 
; caught STYLE-WARNING:
;   reading an ignored variable: WIDGET
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "datagrid" "select">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataedit/delete-action.lisp
; in: DEFUN/CC DATAEDIT-DELETE-ITEMS-FLOW
;     (CL-CONT:DEFUN/CC WEBLOCKS::DATAEDIT-DELETE-ITEMS-FLOW
;         (WEBLOCKS::OBJ WEBLOCKS::ITEMS)
;       #<(SIMPLE-ARRAY CHARACTER
;          (321)) If 'dataedit-on-delete-items' is specified, simply calls
;   'dataedit-on-delete-items'. Otherwise, if 'data' is a sequence,
;   deletes the specified items from the sequence. The 'items' parameter
;   is similar... {100E53961F}>
;       (LET ((WEBLOCKS::ITEM-NAME (WEBLOCKS:HUMANIZE-NAME #)))
;         (WHEN (WEBLOCKS:DATASEQ-SELECTION-EMPTY-P WEBLOCKS::ITEMS)
;           (WEBLOCKS:FLASH-MESSAGE (WEBLOCKS:DATASEQ-FLASH WEBLOCKS::OBJ)
;                                   (WEBLOCKS:WIDGET-TRANSLATE WEBLOCKS::OBJ
;                                                              :CHOOSE-ITEMS-FOR-DELETION-MESSAGE))
;           (WEBLOCKS:MARK-DIRTY WEBLOCKS::OBJ)
;           (RETURN-FROM WEBLOCKS::DATAEDIT-DELETE-ITEMS-FLOW))
;         (LET ((WEBLOCKS::INITIAL-ITEMS-COUNT #) WEBLOCKS::DELETED-ITEMS-COUNT)
;           (UNLESS (EQ :YES #) (RETURN-FROM WEBLOCKS::DATAEDIT-DELETE-ITEMS-FLOW))
;           (IF (WEBLOCKS::DATAEDIT-ON-DELETE-ITEMS WEBLOCKS::OBJ)
;               (FUNCALL # WEBLOCKS::OBJ WEBLOCKS::ITEMS)
;               (ECASE # #))
;           (SETF WEBLOCKS::DELETED-ITEMS-COUNT #)
;           (WEBLOCKS:MARK-DIRTY WEBLOCKS::OBJ :PROPAGATE T)
;           (WEBLOCKS:FLASH-MESSAGE (WEBLOCKS:DATASEQ-FLASH WEBLOCKS::OBJ)
;                                   (FORMAT NIL # WEBLOCKS::DELETED-ITEMS-COUNT))
;           (WEBLOCKS-UTIL:SAFE-FUNCALL
;            (WEBLOCKS::DATAEDIT-ON-DELETE-ITEMS-COMPLETED WEBLOCKS::OBJ)
;            WEBLOCKS::OBJ WEBLOCKS::ITEMS))))
; --> CL-CONT:WITH-CALL/CC PROGN SETF SB-KERNEL:%SET-FDEFINITION 
; --> SB-KERNEL:%SET-FDEFINITION CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION 
; --> FUNCALL SB-C::%FUNCALL LET FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G4 &REST G5) IN /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataedit/delete-action.lisp)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G16 WEBLOCKS::ITEM-NAME)
;       (DECLARE (IGNORABLE #:G16))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G292 &REST #:G293)
;          (DECLARE (IGNORABLE #:G292))
;          (DECLARE (IGNORE #:G293))
;          (FUNCALL (LAMBDA # # # #) WEBLOCKS::ITEMS))
;        #'WEBLOCKS:DATASEQ-SELECTION-EMPTY-P))
; 
; caught STYLE-WARNING:
;   The variable ITEM-NAME is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "dataedit" "delete-action">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/dataedit/dataedit.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::DATAEDIT-MIXIN) &REST WEBLOCKS::ARGS)
;       (LIST* (CONS :ADD-NEW-ITEM "Add") (CONS :DELETE-ITEMS "Delete")
;              (CONS :CHOOSE-ITEMS-FOR-DELETION-MESSAGE
;                    (FORMAT NIL
;                            (WEBLOCKS-UTIL:TRANSLATE
;                             "Please select ~A to delete.")
;                            (WEBLOCKS-UTIL:TRANSLATE # :PLURAL-P T
;                                                     :ACCUSATIVE-FORM-P T)))
;              (APPEND
;               (LOOP PARENSCRIPT:FOR WEBLOCKS::COUNT-KEYWORD PARENSCRIPT:IN (WEBLOCKS::LOCALE-NUMBER-FORMS
;                                                                             #)
;                     WEBLOCKS::COLLECT (CONS # #))
;               (LOOP PARENSCRIPT:FOR WEBLOCKS::COUNT-KEYWORD PARENSCRIPT:IN (WEBLOCKS::LOCALE-NUMBER-FORMS
;                                                                             #)
;                     WEBLOCKS::COLLECT (CONS # #))
;               (LOOP PARENSCRIPT:FOR (WEBLOCKS::KEY
;                                      . WEBLOCKS::VAL) PARENSCRIPT:IN (WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                                                                       'WEBLOCKS::DO-CONFIRMATION
;                                                                       :CONFIRMATION-TYPE
;                                                                       :YES/NO)
;                     WEBLOCKS::COLLECT (CONS # WEBLOCKS::VAL)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::DATAEDIT-MIXIN))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS) (LIST* # # # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::DATAEDIT-MIXIN))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "dataedit" "dataedit">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/gridedit.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::GRIDEDIT) &REST WEBLOCKS::ARGS)
;       "Returns widget translation table for gridedit"
;       (LIST
;        (CONS :ITEM-MODIFIED-MESSAGE
;              (FORMAT NIL
;                      (WEBLOCKS-UTIL:TRANSLATE "Modified ~A." :PRECEDING-GENDER #)
;                      (WEBLOCKS-UTIL:TRANSLATE #)))
;        (CONS :ITEM-ADDED-MESSAGE
;              (FORMAT NIL
;                      (WEBLOCKS-UTIL:TRANSLATE "Added ~A." :PRECEDING-GENDER #)
;                      (WEBLOCKS-UTIL:TRANSLATE # :ACCUSATIVE-FORM-P T)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::GRIDEDIT))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           "Returns widget translation table for gridedit"
;           (LIST # #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::GRIDEDIT))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "gridedit">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/pagination.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((TYPE (EQL 'WEBLOCKS::PAGINATION)) &REST WEBLOCKS::ARGS)
;       "Returns widget translation table for pagination"
;       `((:VIEWING-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Viewing "))
;         (:PAGE-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Page "))
;         (:OF-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE " of "))
;         (:NEXT-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Next >"))
;         (:PREVIOUS-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "< Previous"))
;         (:GO-TO-PAGE-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Go to page:&nbsp;"))
;         (:GO-LABEL . ,(WEBLOCKS-UTIL:TRANSLATE "Go"))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::PAGINATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. TYPE &REST WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TYPE &REST WEBLOCKS::ARGS)
;           "Returns widget translation table for pagination"
;           `(# # # # # # #))))
;       (DECLARE (SB-PCL::%PARAMETER TYPE))
;       (DECLARE (IGNORABLE TYPE))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TYPE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TYPE) NIL :CALL-NEXT-METHOD-P
;                                                 NIL :SETQ-P NIL
;                                                 :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/pagination.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((WEBLOCKS::OBJ WEBLOCKS::PAGINATION) &REST WEBLOCKS::ARGS)
;       "Returns widget translation table for pagination. Contains pagination for symbol 'pagination"
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS::PAGINATION))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND (WEBLOCKS::PAGINATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS::OBJ &REST
;          WEBLOCKS::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (WEBLOCKS::OBJ &REST WEBLOCKS::ARGS)
;           "Returns widget translation table for pagination. Contains pagination for symbol 'pagination"
;           (WEBLOCKS:WIDGET-TRANSLATION-TABLE #))))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS::OBJ WEBLOCKS::PAGINATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "pagination">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/widgets/navigation.lisp
; in: DEFUN MAKE-LAZY-NAVIGATION
;     (DEFUN WEBLOCKS::MAKE-LAZY-NAVIGATION (WEBLOCKS::NAME &REST WEBLOCKS::ARGS)
;       "Convenience function to create a lazy navigation."
;       (APPLY #'WEBLOCKS::MAKE-NAVIGATION
;              (APPEND WEBLOCKS::ARGS
;                      '(:NAVIGATION-CLASS WEBLOCKS::LAZY-NAVIGATION))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::MAKE-LAZY-NAVIGATION
;         (WEBLOCKS::NAME &REST WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Convenience function to create a lazy navigation."
;       (BLOCK WEBLOCKS::MAKE-LAZY-NAVIGATION
;         (APPLY #'WEBLOCKS::MAKE-NAVIGATION
;                (APPEND WEBLOCKS::ARGS
;                        '(:NAVIGATION-CLASS WEBLOCKS::LAZY-NAVIGATION)))))
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "widgets" "navigation">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/control-flow/dialog.lisp
; in: DEFUN RENDER-CHOICES-POST
;     (DEFUN WEBLOCKS::RENDER-CHOICES-POST
;            (WEBLOCKS::MSG WEBLOCKS::CHOICES WEBLOCKS::K &REST WEBLOCKS::ARGS)
;       "Renders the contents of a choice dialog with choices displayed as
;      form buttons in a POST form."
;       (WEBLOCKS:WITH-HTML-FORM (:POST
;                                 (LAMBDA (&REST WEBLOCKS::ARGS)
;                                   (LOOP PARENSCRIPT:FOR WEBLOCKS::CHOICE PARENSCRIPT:IN WEBLOCKS::CHOICES
;                                         DO #)))
;         (WEBLOCKS-UTIL:RENDER-WT :CHOICES-POST-WT NIL :MESSAGE WEBLOCKS::MSG
;                                  :CONTENT
;                                  (WEBLOCKS::CAPTURE-WEBLOCKS-OUTPUT
;                                    (LOOP PARENSCRIPT:FOR WEBLOCKS::CHOICE PARENSCRIPT:IN WEBLOCKS::CHOICES
;                                          DO #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS::RENDER-CHOICES-POST
;         (WEBLOCKS::MSG WEBLOCKS::CHOICES WEBLOCKS::K &REST WEBLOCKS::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Renders the contents of a choice dialog with choices displayed as
;    form buttons in a POST form."
;       (BLOCK WEBLOCKS::RENDER-CHOICES-POST
;         (WEBLOCKS:WITH-HTML-FORM (:POST (LAMBDA # #))
;           (WEBLOCKS-UTIL:RENDER-WT :CHOICES-POST-WT NIL :MESSAGE WEBLOCKS::MSG
;                                    :CONTENT
;                                    (WEBLOCKS::CAPTURE-WEBLOCKS-OUTPUT
;                                      #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks/e416f64744e54eb0e7cb6e199c09d3b797ea21b3/weblocks-20200621-git/src/control-flow/dialog.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE
;     (CLOSER-MOP:DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;       APPEND
;       ((TYPE (EQL 'WEBLOCKS::DO-CONFIRMATION)) &REST WEBLOCKS::ARGS &KEY
;        WEBLOCKS::CONFIRMATION-TYPE)
;       "Returns"
;       `((:TITLE . ,(WEBLOCKS-UTIL:TRANSLATE "Confirmation"))
;         ,@(WHEN
;               (OR (NOT WEBLOCKS::CONFIRMATION-TYPE)
;                   (EQUAL WEBLOCKS::CONFIRMATION-TYPE :YES/NO))
;             `((:YES . ,#) (:NO . ,#)))
;         ,@(WHEN
;               (OR (NOT WEBLOCKS::CONFIRMATION-TYPE)
;                   (EQUAL WEBLOCKS::CONFIRMATION-TYPE :OK/CANCEL))
;             `((:OK . ,#) (:CANCEL . ,#)))))
; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* 
; --> SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE
;                           APPEND ((EQL 'WEBLOCKS::DO-CONFIRMATION)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. TYPE &REST WEBLOCKS::ARGS &KEY
;          WEBLOCKS::CONFIRMATION-TYPE &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE
;        (SB-C::SOURCE-FORM
;         (LAMBDA (TYPE &REST WEBLOCKS::ARGS &KEY WEBLOCKS::CONFIRMATION-TYPE)
;           "Returns"
;           `(# ,@# ,@#))))
;       (DECLARE (SB-PCL::%PARAMETER TYPE))
;       (DECLARE (IGNORABLE TYPE))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((TYPE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (TYPE) NIL :CALL-NEXT-METHOD-P
;                                                 NIL :SETQ-P NIL
;                                                 :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks" "src" "control-flow" "dialog">
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("cl-containers/with-moptilities")) while visiting (ASDF/LISP-ACTION:LOAD-OP "simple-blog" "conf" "stores") - please use proper dependencies instead
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("cl-containers/with-utilities")) while visiting (ASDF/LISP-ACTION:LOAD-OP "simple-blog" "conf" "stores") - please use proper dependencies instead
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("weblocks-prevalence")) while visiting (ASDF/LISP-ACTION:LOAD-OP "simple-blog" "conf" "stores") - please use proper dependencies instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20200621-git/s-xml.asd" contains definition for system "s-xml.test". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/s-xml/03cb87aacf1c44877a76572510df60c563727125/s-xml-20200621-git/s-xml.asd" contains definition for system "s-xml.examples". Please only define "s-xml" and secondary systems with a name starting with "s-xml/" (e.g. "s-xml/test") in that file.
; 
; caught ERROR:
;   READ error during COMPILE-FILE: The symbol "SLOT-DEFINITION-NAME" is not external in the SB-PCL package. Line: 83, Column: 39, File-Position: 3161 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/cl-prevalence/46cf67ce3c176ff3de5334af7ec8ca2ab56c983a/cl-prevalence-20200621-git/src/serialization/serialization.lisp" {100B753D03}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1000A30083}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BA094E3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BA094E3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100BA094E3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-prevalence" "src" "serialization" "serialization">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {100B4A68A3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {100B4A68A3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prevalence">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP #:WEBLOCKS-PREVALENCE)
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP #:WEBLOCKS-PREVALENCE) [fast-method]
18: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 245) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {100B14F74F}> {100B14F8B3}> :TABLE #(24 SET *PACKAGE* "SIMPLE-BLOG" #<PACKAGE "WEBLOCKS-STORES"> WEBLOCKS-STORES::%DEFSTORE-PREDEFINE #<PACKAGE "SIMPLE-BLOG"> *BLOG-STORE* :PREVALENCE MERGE-PATHNAMES MAKE-PATHNAME :DIRECTORY ...) :STACK #(0 WEBLOCKS-STORES::%DEFSTORE-POSTDEFINE *BLOG-STORE* :PREVALENCE NIL #<SB-KERNEL:LAYOUT for SB-C:DEFINITION-SOURCE-LOCATION {50201883}> #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examples-20200621-git/simple-blog/" :SIMPLE-BLOG "data" 0 0 0 ...) :NAME-BUFFER #("" "%DEFSTORE-POSTDEFINEY") :DEPRECATED-STUFF NIL :SKIP-UNTIL NIL) NIL)
19: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 245) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {100B14F74F}> {100B14F8B3}> NIL NIL)
20: ((FLET SB-FASL::THUNK :IN LOAD))
21: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<CLOSURE (FLET SB-FASL::THUNK :IN LOAD) {7F274C76EA5B}> #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 245) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {100B14F74F}> {100B14F8B3}>)
22: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for #<(SIMPLE-BASE-STRING 245) file /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examp... {100B14F74F}> {100B14F8B3}> T)
23: (LOAD #P#<(SIMPLE-ARRAY CHARACTER (240)) /home/quicklisp/.cache/common-lisp/sbcl-2.0.5.91-ada264956-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-examples/ed2905772b09a5f2b2a053c3e6c080f8384e45bd/weblocks-examples-2... {100C05329F}> :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
24: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:LOAD*) {100B14DC7B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :ASDF-FINALIZERS)))
25: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "simple-blog" "conf" "stores">)
26: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
27: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "simple-blog" "conf" "stores">) [fast-method]
28: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "simple-blog" "conf" "stores">) [fast-method]
29: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {10052F77E3}>) [fast-method]
30: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
31: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<unknown pointer object, lowtag=#x3 {10052F77E3}>) [fast-method]
32: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
33: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">)
34: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
35: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "simple-blog">) [fast-method]
36: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "simple-blog")
37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
38: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method]
39: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052EFF7B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
40: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
41: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10052AAC9B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
42: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "simple-blog") [fast-method]
43: (DEPCHECK::COMPUTE-DEPENDENCIES "simple-blog" "simple-blog")
44: (DEPCHECK::MAGIC "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vil07oXk/depcheck-win.txt")
45: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "simple-blog" "simple-blog" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vil07oXk/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vil07oXk/depcheck-fail.txt"))
46: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
47: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
48: ((FLET "WITHOUT-INTERRUPTS-BODY-14" :IN SB-EXT:SAVE-LISP-AND-DIE))
49: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

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