weblocks-prototype-js

SBCL 1.4.12.120-6b7a9a7 / ASDF 3.3.1

weblocks-prototype-js

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/hunchentoot/4fb0bf93d3cf3720e0bf0b222d01df8df1012857/hunchentoot-v1.2.38/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/4fb0bf93d3cf3720e0bf0b222d01df8df1012857/hunchentoot-v1.2.38/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-20181204-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/e389592fd6c0af849f4f420657cd784036c44bc5/cl-fad-20181204-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/303f5a11b3d38e3d07c5da54d8f8bdba573c9460/cl-ppcre-20181204-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/357a99b5a15e0607af668e4f7ad82eaf4cde82ec/flexi-streams-20181204-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl+ssl/fed8d36abc90616579252085f7a747a539d0a9cf/cl+ssl-20181204-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/5a959ebf99b02db45859fe36963c283d102bad11/trivial-garbage-20181204-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20181204-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-20181204-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/5eee5f82fc134dc50cf7972f4f461d89ff63e084/cl-who-20181204-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: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "weblocks-utils" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/weblocks-utils.asd", using NIL instead
WARNING: Invalid :version specifier (:READ-FROM-FILE "version.lisp-expr") for component "clache" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/clache/2c09d8401c5e225019bb7393ca899e0056f31790/clache-20181204-git/clache.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-store/b012f80f36c8bf210f1a24b3e2769a4624aafdcb/cl-store-20181204-git/cl-store.asd" contains definition for system "cl-store-tests". Please only define "cl-store" and secondary systems with a name starting with "cl-store/" (e.g. "cl-store/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/collectors/1e386552e3b2900580e3972c46152fb776dcc28a/collectors-20181204-git/collectors.asd" contains definition for system "collectors-test". Please only define "collectors" and secondary systems with a name starting with "collectors/" (e.g. "collectors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/symbol-munger/a8589c60f470b8b280eacd9c983d96bc5f337341/symbol-munger-20181204-git/symbol-munger.asd" contains definition for system "symbol-munger-test". Please only define "symbol-munger" and secondary systems with a name starting with "symbol-munger/" (e.g. "symbol-munger/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20181204-git/cl-tidy.asd
; in: SETF (COMPONENT-PROPERTY (FIND-SYSTEM :CL-TIDY) :WEBSITE)
;     (SETF (ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY
;            (ASDF/SYSTEM:FIND-SYSTEM :CL-TIDY) :WEBSITE)
;             "http://github.com/gonzojive/cl-tidy")
; --> PROGN LET* 
; ==>
;   (FUNCALL #'(SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) #:NEW1 #:G483
;            :WEBSITE)
; 
; caught STYLE-WARNING:
;   DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function (SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) -- please update your code to use a newer API.

; 
; caught STYLE-WARNING:
;   Call to (COMMON-LISP:SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) could not be inlined because its source code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be in effect to save function definitions for inlining.
WARNING: DEPRECATED-FUNCTION-STYLE-WARNING: Using deprecated function (SETF ASDF/BACKWARD-INTERFACE:COMPONENT-PROPERTY) -- please update your code to use a newer API.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20181204-git/cl-tidy.asd" contains definition for system "cl-tidy.doc". Please only define "cl-tidy" and secondary systems with a name starting with "cl-tidy/" (e.g. "cl-tidy/test") in that file.
; 
; compilation unit finished
;   caught 2 STYLE-WARNING conditions
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

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20181204-git/src/store/custom/custom.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :BEFORE (CUSTOM-STORE)
;     (DEFMETHOD INITIALIZE-INSTANCE :BEFORE
;                ((WEBLOCKS-CUSTOM::OBJ WEBLOCKS-CUSTOM::CUSTOM-STORE)
;                 &REST WEBLOCKS-CUSTOM::ARGS
;                 &KEY WEBLOCKS-CUSTOM::REDEFINING-P)
;       (LET ((WEBLOCKS-CUSTOM::SCHEMA (GETF WEBLOCKS-CUSTOM::ARGS :CLASSES)))
;         (LOOP WEBLOCKS-CUSTOM::FOR (WEBLOCKS-CUSTOM::KEY
;                                     WEBLOCKS-CUSTOM::VALUE) WEBLOCKS-CUSTOM::ON WEBLOCKS-CUSTOM::SCHEMA :BY #'CDDR
;               DO (WHEN (AND # #)
;                    (ERROR "Class ~A already exists" WEBLOCKS-CUSTOM::KEY)) (EVAL
;                                                                             `(DEFCLASS
;                                                                               ,WEBLOCKS-CUSTOM::KEY
;                                                                               #
;                                                                               ,#)) (EVAL
;                                                                                     `(DEFMETHOD INITIALIZE-INSTANCE :AFTER
;                                                                                                 #
;                                                                                        ,@#)))))
; --> 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 :BEFORE
;                           (WEBLOCKS-CUSTOM::CUSTOM-STORE))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS-CUSTOM::OBJ &REST
;          WEBLOCKS-CUSTOM::ARGS &KEY WEBLOCKS-CUSTOM::REDEFINING-P
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS-CUSTOM::OBJ))
;       (DECLARE (IGNORABLE WEBLOCKS-CUSTOM::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS-CUSTOM::OBJ)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS-CUSTOM::OBJ) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS-CUSTOM::OBJ WEBLOCKS-CUSTOM::CUSTOM-STORE))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable REDEFINING-P is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-stores/55f2582051f6490ec3e505ddc8c81edb063794c8/weblocks-stores-20181204-git/src/store/custom/custom.lisp
; in: DEFMETHOD OPEN-STORE ((EQL :CUSTOM))
;     (LIST* 'WEBLOCKS-CUSTOM::CUSTOM-STORE WEBLOCKS-CUSTOM::ARGS)
; --> CONS 
; ==>
;   WEBLOCKS-CUSTOM::ARGS
; 
; caught STYLE-WARNING:
;   reading an ignored variable: ARGS
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-custom" "custom">
WARNING: redefining IT.BESE.YACLML.TAGS:PARAM in DEFMACRO

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD TREE-DATA (TREE-WIDGET)
;     (ERROR "Inherit TREE-WIDGET and implement TREE-DATA method for it~%"
;            (CLASS-OF WEBLOCKS-TREE-WIDGET::OBJ))
; 
; caught STYLE-WARNING:
;   Too many arguments (1) to ERROR "Inherit TREE-WIDGET and implement TREE-DATA method for it~%": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2
; 
; caught STYLE-WARNING:
;   Too many arguments (1) to ERROR "Inherit TREE-WIDGET and implement TREE-DATA method for it
;   ": uses at most 0.
;   See also:
;     The ANSI Standard, Section 22.3.10.2

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD WITH-TABLE-VIEW-BODY-ROW :AROUND (TREE-VIEW T T)
;     (LAMBDA (WEBLOCKS:FIELD-INFO &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (SETF (WEBLOCKS-TREE-WIDGET::TREE-VIEW-FIELD-CURRENT-ROW-INFO
;              (WEBLOCKS:FIELD-INFO-FIELD WEBLOCKS:FIELD-INFO))
;               WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-DATA))
; ==>
;   #'(LAMBDA (WEBLOCKS:FIELD-INFO &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (SETF (WEBLOCKS-TREE-WIDGET::TREE-VIEW-FIELD-CURRENT-ROW-INFO
;              (WEBLOCKS:FIELD-INFO-FIELD WEBLOCKS:FIELD-INFO))
;               WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-DATA))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD WITH-TABLE-VIEW-HEADER-ROW :AROUND (TREE-VIEW T T)
;     (DEFMETHOD WEBLOCKS:WITH-TABLE-VIEW-HEADER-ROW :AROUND
;                ((WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET:TREE-VIEW)
;                 WEBLOCKS-TREE-WIDGET::OBJ WEBLOCKS:WIDGET
;                 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (CALL-NEXT-METHOD WEBLOCKS:VIEW
;        (IF (LISTP WEBLOCKS-TREE-WIDGET::OBJ)
;            (GETF WEBLOCKS-TREE-WIDGET::OBJ :ITEM)
;            WEBLOCKS-TREE-WIDGET::OBJ)
;        WEBLOCKS:WIDGET))
; --> 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-TREE-WIDGET::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET:TREE-VIEW))
;     (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:WITH-TABLE-VIEW-HEADER-ROW
;          (CALL-NEXT-METHOD WEBLOCKS:VIEW # WEBLOCKS:WIDGET)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD RENDER-OBJECT-VIEW-IMPL (SEQUENCE TREE-VIEW T)
;     (DEFMETHOD WEBLOCKS:RENDER-OBJECT-VIEW-IMPL
;                ((WEBLOCKS-TREE-WIDGET::OBJ SEQUENCE)
;                 (WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET:TREE-VIEW) WEBLOCKS:WIDGET
;                 &REST WEBLOCKS-TREE-WIDGET::ARGS
;                 &KEY
;                 (WEBLOCKS-TREE-WIDGET::FIELDS-PREFIX-FN
;                  (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;                 (WEBLOCKS-TREE-WIDGET::FIELDS-SUFFIX-FN
;                  (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW))
;                 &ALLOW-OTHER-KEYS)
;       (APPLY #'WEBLOCKS:WITH-VIEW-HEADER WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET::OBJ
;              WEBLOCKS:WIDGET
;              (LAMBDA
;                  (WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET::OBJ
;                   &REST WEBLOCKS-TREE-WIDGET::ARGS)
;                (APPLY #'WEBLOCKS:WITH-TABLE-VIEW-HEADER WEBLOCKS:VIEW
;                       WEBLOCKS-TREE-WIDGET::OBJ WEBLOCKS:WIDGET (LAMBDA # #)
;                       (LAMBDA # #) WEBLOCKS-TREE-WIDGET::ARGS))
;              WEBLOCKS-TREE-WIDGET::ARGS))
; --> 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-OBJECT-VIEW-IMPL
;                           (SEQUENCE WEBLOCKS-TREE-WIDGET:TREE-VIEW T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS-TREE-WIDGET::OBJ
;          WEBLOCKS:VIEW WEBLOCKS:WIDGET &REST WEBLOCKS-TREE-WIDGET::ARGS &KEY
;          (WEBLOCKS-TREE-WIDGET::FIELDS-PREFIX-FN
;           (WEBLOCKS:VIEW-FIELDS-DEFAULT-PREFIX-FN WEBLOCKS:VIEW))
;          (WEBLOCKS-TREE-WIDGET::FIELDS-SUFFIX-FN
;           (WEBLOCKS:VIEW-FIELDS-DEFAULT-SUFFIX-FN WEBLOCKS:VIEW))
;          &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:WIDGET))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:VIEW))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS-TREE-WIDGET::OBJ))
;       (DECLARE (TYPE T WEBLOCKS:WIDGET))
;       (DECLARE (TYPE SEQUENCE WEBLOCKS-TREE-WIDGET::OBJ))
;       (DECLARE
;        (IGNORABLE WEBLOCKS:WIDGET WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET::OBJ))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS-TREE-WIDGET::OBJ
;                                                  WEBLOCKS:VIEW WEBLOCKS:WIDGET)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS-TREE-WIDGET::OBJ
;                                                  WEBLOCKS:VIEW WEBLOCKS:WIDGET)
;                                                 NIL :CALL-NEXT-METHOD-P NIL
;                                                 :SETQ-P NIL :PARAMETERS-SETQD
;                                                 NIL :METHOD-CELL
;                                                 (#:METHOD-CELL) ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS:VIEW WEBLOCKS-TREE-WIDGET:TREE-VIEW))
;           (DECLARE (SB-PCL::%CLASS WEBLOCKS-TREE-WIDGET::OBJ SEQUENCE))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFUN TREE-BRANCHES-PRESENTATION-FIELD-VALUE-WT
;     (DEFUN WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-PRESENTATION-FIELD-VALUE-WT
;            (
;             &KEY WEBLOCKS-TREE-WIDGET::VALUE WEBLOCKS-TREE-WIDGET::LEVEL
;             WEBLOCKS-TREE-WIDGET::LASTP WEBLOCKS-TREE-WIDGET::SINGLE-CHILD-P
;             WEBLOCKS-TREE-WIDGET::LASTP-MAP WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;             WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS &ALLOW-OTHER-KEYS)
;       "Standard tree template uses ascii symbols for displaying tree branches"
;       (IT.BESE.YACLML:WITH-YACLML-OUTPUT-TO-STRING
;         (IT.BESE.YACLML.TAGS:DIV :STYLE
;                                  "font-family:monospace;white-space:nowrap;"
;                                  (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::J WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LASTP-MAP
;                                        DO (IF WEBLOCKS-TREE-WIDGET::J
;                                               #
;                                               #) (IT.BESE.YACLML.TAGS:AS-IS
;                                                   "&nbsp;&nbsp;"))
;                                  (IF WEBLOCKS-TREE-WIDGET::LASTP
;                                      (IT.BESE.YACLML.TAGS:AS-IS "`--")
;                                      (IT.BESE.YACLML.TAGS:AS-IS "|--"))
;                                  (WHEN
;                                      WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;                                    (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;                                          DO # #))
;                                  (IT.BESE.YACLML.TAGS:AS-IS
;                                   WEBLOCKS-TREE-WIDGET::VALUE))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-PRESENTATION-FIELD-VALUE-WT
;         (&KEY WEBLOCKS-TREE-WIDGET::VALUE WEBLOCKS-TREE-WIDGET::LEVEL
;          WEBLOCKS-TREE-WIDGET::LASTP WEBLOCKS-TREE-WIDGET::SINGLE-CHILD-P
;          WEBLOCKS-TREE-WIDGET::LASTP-MAP WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;          WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS &ALLOW-OTHER-KEYS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Standard tree template uses ascii symbols for displaying tree branches"
;       (BLOCK WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-PRESENTATION-FIELD-VALUE-WT
;         (IT.BESE.YACLML:WITH-YACLML-OUTPUT-TO-STRING
;           (IT.BESE.YACLML.TAGS:DIV :STYLE
;                                    "font-family:monospace;white-space:nowrap;"
;                                    (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::J WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LASTP-MAP
;                                          DO # #)
;                                    (IF WEBLOCKS-TREE-WIDGET::LASTP
;                                        #
;                                        #)
;                                    (WHEN
;                                        WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;                                      #)
;                                    (IT.BESE.YACLML.TAGS:AS-IS
;                                     WEBLOCKS-TREE-WIDGET::VALUE)))))
; 
; caught STYLE-WARNING:
;   The variable LEVEL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SINGLE-CHILD-P is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFUN TREE-BRANCHES-ADVANCED-PRESENTATION-FIELD-VALUE-WT
;     (DEFUN WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-ADVANCED-PRESENTATION-FIELD-VALUE-WT
;            (
;             &KEY WEBLOCKS-TREE-WIDGET::VALUE WEBLOCKS-TREE-WIDGET::LEVEL
;             WEBLOCKS-TREE-WIDGET::LASTP WEBLOCKS-TREE-WIDGET::SINGLE-CHILD-P
;             WEBLOCKS-TREE-WIDGET::LASTP-MAP WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;             WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;             WEBLOCKS-TREE-WIDGET::HAS-CHILDREN-P &ALLOW-OTHER-KEYS)
;       "This is additional tree template which uses utf-8 symbols for displaying branches"
;       (IT.BESE.YACLML:WITH-YACLML-OUTPUT-TO-STRING
;         (IT.BESE.YACLML.TAGS:DIV :STYLE
;                                  "font-family:monospace;white-space:nowrap;"
;                                  (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::J WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LASTP-MAP
;                                        DO (IF WEBLOCKS-TREE-WIDGET::J
;                                               #
;                                               #) (IT.BESE.YACLML.TAGS:AS-IS
;                                                   "&nbsp;&nbsp;"))
;                                  (IF WEBLOCKS-TREE-WIDGET::LASTP
;                                      (IT.BESE.YACLML.TAGS:AS-IS
;                                       "&#9492;&#9472;&#9472;")
;                                      (IT.BESE.YACLML.TAGS:AS-IS "├──"))
;                                  (IF WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;                                      (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;                                            DO # #)
;                                      (IT.BESE.YACLML.TAGS:AS-IS "&#9516;"))
;                                  (IT.BESE.YACLML.TAGS:AS-IS "&nbsp;")
;                                  (IT.BESE.YACLML.TAGS:AS-IS
;                                   WEBLOCKS-TREE-WIDGET::VALUE))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-ADVANCED-PRESENTATION-FIELD-VALUE-WT
;         (&KEY WEBLOCKS-TREE-WIDGET::VALUE WEBLOCKS-TREE-WIDGET::LEVEL
;          WEBLOCKS-TREE-WIDGET::LASTP WEBLOCKS-TREE-WIDGET::SINGLE-CHILD-P
;          WEBLOCKS-TREE-WIDGET::LASTP-MAP WEBLOCKS-TREE-WIDGET::LEVELS-LEFT
;          WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;          WEBLOCKS-TREE-WIDGET::HAS-CHILDREN-P &ALLOW-OTHER-KEYS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "This is additional tree template which uses utf-8 symbols for displaying branches"
;       (BLOCK
;           WEBLOCKS-TREE-WIDGET::TREE-BRANCHES-ADVANCED-PRESENTATION-FIELD-VALUE-WT
;         (IT.BESE.YACLML:WITH-YACLML-OUTPUT-TO-STRING
;           (IT.BESE.YACLML.TAGS:DIV :STYLE
;                                    "font-family:monospace;white-space:nowrap;"
;                                    (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::J WEBLOCKS-TREE-WIDGET::IN WEBLOCKS-TREE-WIDGET::LASTP-MAP
;                                          DO # #)
;                                    (IF WEBLOCKS-TREE-WIDGET::LASTP
;                                        #
;                                        #)
;                                    (IF WEBLOCKS-TREE-WIDGET::STRAIGHT-COLUMN-CAPTIONS
;                                        #
;                                        #)
;                                    (IT.BESE.YACLML.TAGS:AS-IS "&nbsp;")
;                                    (IT.BESE.YACLML.TAGS:AS-IS
;                                     WEBLOCKS-TREE-WIDGET::VALUE)))))
; 
; caught STYLE-WARNING:
;   The variable LEVEL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SINGLE-CHILD-P is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD DATAEDIT-CREATE-NEW-ITEM-WIDGET (TREE-WIDGET)
;     (CL-CONT:LAMBDA/CC (WEBLOCKS-TREE-WIDGET::OBJ)
;       (WEBLOCKS:ANSWER (WEBLOCKS:DATAEDIT-ITEM-WIDGET WEBLOCKS-TREE-WIDGET::GRID)
;                        T))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G54 WEBLOCKS-TREE-WIDGET::OBJ)
;       (DECLARE (IGNORABLE #:G54))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G55 &REST #:G56)
;          (DECLARE (IGNORABLE #:G55))
;          (DECLARE (IGNORE #:G56))
;          (FUNCALL (LAMBDA # # # #) #'WEBLOCKS:DATAEDIT-ITEM-WIDGET))
;        #'WEBLOCKS:ANSWER))
; 
; caught STYLE-WARNING:
;   The variable OBJ is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD RENDER-WIDGET-BODY (TREE-WIDGET)
;     (APPLY #'WEBLOCKS:DATASEQ-RENDER-MINING-BAR WEBLOCKS-TREE-WIDGET::OBJ
;            WEBLOCKS-TREE-WIDGET::ARGS)
; --> MULTIPLE-VALUE-CALL VALUES-LIST 
; ==>
;   WEBLOCKS-TREE-WIDGET::ARGS
; 
; caught STYLE-WARNING:
;   reading an ignored variable: ARGS

;     (APPLY #'WEBLOCKS:RENDER-DATASEQ-BODY WEBLOCKS-TREE-WIDGET::OBJ
;            WEBLOCKS-TREE-WIDGET::ARGS)
; --> MULTIPLE-VALUE-CALL VALUES-LIST 
; ==>
;   WEBLOCKS-TREE-WIDGET::ARGS
; 
; caught STYLE-WARNING:
;   reading an ignored variable: ARGS

;     (APPLY #'WEBLOCKS:DATASEQ-RENDER-OPERATIONS WEBLOCKS-TREE-WIDGET::OBJ
;            WEBLOCKS-TREE-WIDGET::ARGS)
; --> MULTIPLE-VALUE-CALL VALUES-LIST 
; ==>
;   WEBLOCKS-TREE-WIDGET::ARGS
; 
; caught STYLE-WARNING:
;   reading an ignored variable: ARGS

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFUN ACTION-LINKS-READER
;     (CL-CONT:LAMBDA/CC (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS:FORM))
;         (SETF WEBLOCKS:FORM
;                 (MAKE-INSTANCE 'WEBLOCKS:DATAFORM :DATA # :CLASS-STORE #
;                                :UI-STATE :FORM :ON-CANCEL # :ON-SUCCESS # ...))
;         (WEBLOCKS:DO-WIDGET WEBLOCKS-TREE-WIDGET::TREE WEBLOCKS:FORM)
;         (WEBLOCKS:DATAEDIT-RESET-STATE WEBLOCKS-TREE-WIDGET::TREE)))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G28 &REST G29) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL IF FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION 
; --> FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> FUNCALL SB-C::%FUNCALL CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA 
; --> FUNCTION CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION 
; --> FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G71 &REST G72) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G85 WEBLOCKS-TREE-WIDGET::OBJ)
;       (DECLARE (IGNORABLE #:G85))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G86 &REST #:G87)
;          (DECLARE (IGNORABLE #:G86))
;          (DECLARE (IGNORE #:G87))
;          (FUNCALL (LAMBDA # # # #) WEBLOCKS:FORM))
;        #'WEBLOCKS:ANSWER))
; 
; caught STYLE-WARNING:
;   The variable OBJ is defined but never used.

; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G28 &REST G29) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL IF FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL CL-CONT::FUNCALL/CC FUNCALL 
; --> SB-C::%FUNCALL LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION 
; --> CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G71 &REST G72) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G85 WEBLOCKS-TREE-WIDGET::OBJ)
;       (DECLARE (IGNORABLE #:G85))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G86 &REST #:G87)
;          (DECLARE (IGNORABLE #:G86))
;          (DECLARE (IGNORE #:G87))
;          (FUNCALL (LAMBDA # # # #) WEBLOCKS:FORM))
;        #'WEBLOCKS:ANSWER))
; 
; caught STYLE-WARNING:
;   The variable OBJ is defined but never used.

;     (CL-CONT:LAMBDA/CC (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS:FORM))
;         (SETF WEBLOCKS:FORM
;                 (MAKE-INSTANCE 'WEBLOCKS:DATAFORM :DATA
;                                WEBLOCKS-TREE-WIDGET::ITEM :CLASS-STORE #
;                                :UI-STATE :FORM :ON-CANCEL # :ON-SUCCESS # ...))
;         (WEBLOCKS:DO-WIDGET WEBLOCKS-TREE-WIDGET::TREE WEBLOCKS:FORM)
;         (WEBLOCKS:DATAEDIT-RESET-STATE WEBLOCKS-TREE-WIDGET::TREE)))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G380 &REST G381) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA FUNCTION FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> CL-CONT::FUNCALL/CC FUNCALL SB-C::%FUNCALL LAMBDA FUNCTION FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL 
; --> SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL FUNCALL SB-C::%FUNCALL 
; --> (FUNCTION (LAMBDA (&OPTIONAL G423 &REST G424) IN ACTION-LINKS-READER)) 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G437 WEBLOCKS-TREE-WIDGET::OBJ)
;       (DECLARE (IGNORABLE #:G437))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G438 &REST #:G439)
;          (DECLARE (IGNORABLE #:G438))
;          (DECLARE (IGNORE #:G439))
;          (FUNCALL (LAMBDA # # # #) WEBLOCKS:FORM))
;        #'WEBLOCKS:ANSWER))
; 
; caught STYLE-WARNING:
;   The variable OBJ is defined but never used.

;     (CL-CONT:LAMBDA/CC (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS-TREE-WIDGET::RET
;              (WEBLOCKS:DO-CONFIRMATION WEBLOCKS-TREE-WIDGET::DELETE-MESSAGE :TYPE
;                                        :YES/NO)))
;         (WHEN (EQUAL WEBLOCKS-TREE-WIDGET::RET :YES)
;           (WEBLOCKS-STORES:DELETE-PERSISTENT-OBJECT
;            (WEBLOCKS:DATASEQ-CLASS-STORE WEBLOCKS-TREE-WIDGET::TREE)
;            WEBLOCKS-TREE-WIDGET::ITEM)
;           (WEBLOCKS:MARK-DIRTY WEBLOCKS-TREE-WIDGET::TREE))))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G539 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (DECLARE (IGNORABLE #:G539))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G540 &REST #:G541)
;          (DECLARE (IGNORABLE #:G540))
;          (DECLARE (IGNORE #:G541))
;          (FUNCALL (LAMBDA # # # #) #'WEBLOCKS:DO-CONFIRMATION))
;        (CL-CONT::MAKE-FUNCALLABLE
;         (LAMBDA (#:G552 WEBLOCKS-TREE-WIDGET::RET)
;           (DECLARE #)
;           (FUNCALL # #'EQUAL)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (LAMBDA (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS-TREE-WIDGET::ITEMS-TO-COLLAPSE
;              (WEBLOCKS-TREE-WIDGET::TREE->LIST-OF-OBJECTS #)))
;         (SETF (SLOT-VALUE WEBLOCKS-TREE-WIDGET::TREE
;                           'WEBLOCKS-TREE-WIDGET::EXPANDED-ITEMS)
;                 (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN #
;                       UNLESS #
;                       WEBLOCKS-TREE-WIDGET::COLLECT WEBLOCKS-TREE-WIDGET::I))
;         (WEBLOCKS:MARK-DIRTY WEBLOCKS-TREE-WIDGET::TREE)))
; ==>
;   #'(LAMBDA (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS-TREE-WIDGET::ITEMS-TO-COLLAPSE
;              (WEBLOCKS-TREE-WIDGET::TREE->LIST-OF-OBJECTS #)))
;         (SETF (SLOT-VALUE WEBLOCKS-TREE-WIDGET::TREE
;                           'WEBLOCKS-TREE-WIDGET::EXPANDED-ITEMS)
;                 (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN #
;                       UNLESS #
;                       WEBLOCKS-TREE-WIDGET::COLLECT WEBLOCKS-TREE-WIDGET::I))
;         (WEBLOCKS:MARK-DIRTY WEBLOCKS-TREE-WIDGET::TREE)))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (LAMBDA (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (PUSHNEW WEBLOCKS-TREE-WIDGET::ITEM
;                (SLOT-VALUE WEBLOCKS-TREE-WIDGET::TREE
;                            'WEBLOCKS-TREE-WIDGET::EXPANDED-ITEMS)
;                :TEST #'EQUAL)
;       (WEBLOCKS:MARK-DIRTY WEBLOCKS-TREE-WIDGET::TREE))
; ==>
;   #'(LAMBDA (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (PUSHNEW WEBLOCKS-TREE-WIDGET::ITEM
;                (SLOT-VALUE WEBLOCKS-TREE-WIDGET::TREE
;                            'WEBLOCKS-TREE-WIDGET::EXPANDED-ITEMS)
;                :TEST #'EQUAL)
;       (WEBLOCKS:MARK-DIRTY WEBLOCKS-TREE-WIDGET::TREE))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (CL-CONT:LAMBDA/CC (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS:FORM))
;         (SETF WEBLOCKS:FORM
;                 (MAKE-INSTANCE 'WEBLOCKS:DATAFORM :DATA # :CLASS-STORE #
;                                :UI-STATE :FORM :ON-CANCEL # :ON-SUCCESS # ...))
;         (WEBLOCKS:DO-WIDGET WEBLOCKS-TREE-WIDGET::TREE WEBLOCKS:FORM)
;         (WEBLOCKS:DATAEDIT-RESET-STATE WEBLOCKS-TREE-WIDGET::TREE)))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G27 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (DECLARE (IGNORABLE #:G27))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G28 &REST #:G29)
;          (DECLARE (IGNORABLE #:G28))
;          (DECLARE (IGNORE #:G29))
;          (FUNCALL (LAMBDA # # # #) NIL))
;        (CL-CONT::MAKE-FUNCALLABLE
;         (LAMBDA (#:G32 WEBLOCKS:FORM)
;           (DECLARE #)
;           (FUNCALL # #'MAKE-INSTANCE)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

;     (CL-CONT:LAMBDA/CC (&REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LET ((WEBLOCKS:FORM))
;         (SETF WEBLOCKS:FORM
;                 (MAKE-INSTANCE 'WEBLOCKS:DATAFORM :DATA
;                                WEBLOCKS-TREE-WIDGET::ITEM :CLASS-STORE #
;                                :UI-STATE :FORM :ON-CANCEL # :ON-SUCCESS # ...))
;         (WEBLOCKS:DO-WIDGET WEBLOCKS-TREE-WIDGET::TREE WEBLOCKS:FORM)
;         (WEBLOCKS:DATAEDIT-RESET-STATE WEBLOCKS-TREE-WIDGET::TREE)))
; --> CL-CONT:WITH-CALL/CC FUNCALL SB-C::%FUNCALL VALUES PROG1 LET 
; --> CL-CONT::MAKE-FUNCALLABLE LAMBDA 
; ==>
;   #'(LAMBDA (#:G379 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (DECLARE (IGNORABLE #:G379))
;       (FUNCALL
;        (LAMBDA (&OPTIONAL #:G380 &REST #:G381)
;          (DECLARE (IGNORABLE #:G380))
;          (DECLARE (IGNORE #:G381))
;          (FUNCALL (LAMBDA # # # #) NIL))
;        (CL-CONT::MAKE-FUNCALLABLE
;         (LAMBDA (#:G384 WEBLOCKS:FORM)
;           (DECLARE #)
;           (FUNCALL # #'MAKE-INSTANCE)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in:
;      DEFMETHOD WIDGET-TRANSLATION-TABLE APPEND ((EQL (QUOTE TREE-WIDGET)))
;     (DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE APPEND
;                ((WEBLOCKS:WIDGET (EQL 'WEBLOCKS-TREE-WIDGET:TREE-WIDGET))
;                 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       `((:DELETE-ITEM . ,(WEBLOCKS-UTIL:TRANSLATE "delete item"))
;         (:EDIT-ITEM . ,(WEBLOCKS-UTIL:TRANSLATE "edit item"))
;         (:ADD-CHILD-TO-ITEM . ,(WEBLOCKS-UTIL:TRANSLATE "add child"))
;         (:EXPAND-ITEM . ,(WEBLOCKS-UTIL:TRANSLATE "expand"))
;         (:COLLAPSE-ITEM . ,(WEBLOCKS-UTIL:TRANSLATE "collapse"))))
; --> 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-TREE-WIDGET:TREE-WIDGET)))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:WIDGET &REST
;          WEBLOCKS-TREE-WIDGET::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:WIDGET))
;       (DECLARE (IGNORABLE WEBLOCKS:WIDGET))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS:WIDGET)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS:WIDGET) 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-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE APPEND (TREE-WIDGET)
;     (DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE APPEND
;                ((WEBLOCKS:WIDGET WEBLOCKS-TREE-WIDGET:TREE-WIDGET)
;                 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (WEBLOCKS:WIDGET-TRANSLATION-TABLE 'WEBLOCKS-TREE-WIDGET:TREE-WIDGET))
; --> 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-TREE-WIDGET:TREE-WIDGET))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WEBLOCKS:WIDGET &REST
;          WEBLOCKS-TREE-WIDGET::ARGS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER WEBLOCKS:WIDGET))
;       (DECLARE (IGNORABLE WEBLOCKS:WIDGET))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WEBLOCKS:WIDGET)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WEBLOCKS:WIDGET) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS WEBLOCKS:WIDGET WEBLOCKS-TREE-WIDGET:TREE-WIDGET))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-tree-widget/3c7ebac35e2c49ca5f288b84449f247475450854/weblocks-tree-widget-20181204-git/weblocks-tree-widget.lisp
; in: DEFMETHOD WIDGET-TRANSLATION-TABLE :AROUND (TREE-WIDGET)
;     (DEFMETHOD WEBLOCKS:WIDGET-TRANSLATION-TABLE :AROUND
;                ((WEBLOCKS:WIDGET WEBLOCKS-TREE-WIDGET:TREE-WIDGET)
;                 &REST WEBLOCKS-TREE-WIDGET::ARGS)
;       (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN (CALL-NEXT-METHOD)
;             UNLESS (CL-PPCRE:SCAN
;                     "items-delete|choose-items|item-modified|item-added|total-message"
;                     (STRING-DOWNCASE (CAR WEBLOCKS-TREE-WIDGET::I)))
;             WEBLOCKS-TREE-WIDGET::COLLECT WEBLOCKS-TREE-WIDGET::I))
; --> 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-TREE-WIDGET::ARGS SB-PCL::.ARGS-TAIL.)
;          (SB-PCL::.DUMMY0.))
;     (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.))
;     (DECLARE (SB-PCL::%CLASS WEBLOCKS:WIDGET WEBLOCKS-TREE-WIDGET:TREE-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:WIDGET-TRANSLATION-TABLE
;          (LOOP WEBLOCKS-TREE-WIDGET::FOR WEBLOCKS-TREE-WIDGET::I WEBLOCKS-TREE-WIDGET::IN #
;                UNLESS #
;                WEBLOCKS-TREE-WIDGET::COLLECT WEBLOCKS-TREE-WIDGET::I)))))
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-tree-widget" "weblocks-tree-widget">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20181204-git/src/main.lisp
; in: DEFUN INIT-TIDY-BUFFER
;     (SETF (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                                    'CL-TIDY::ALLOCATOR)
;             (CFFI-SYS:MAKE-POINTER 0)
;           (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                                    'CL-TIDY::BP)
;             (CFFI-SYS:MAKE-POINTER 0)
;           (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                                    'CL-TIDY::SIZE)
;             0
;           (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                                    'CL-TIDY::ALLOCATED)
;             0
;           (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                                    'CL-TIDY::NEXT)
;             0)
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE0 CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                           'CL-TIDY::ALLOCATOR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE12 CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                           'CL-TIDY::BP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE17 CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                           'CL-TIDY::SIZE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE22 CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                           'CL-TIDY::ALLOCATED)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE27 CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER
;                           'CL-TIDY::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20181204-git/src/main.lisp
; in: DEFUN CLEAN-UP-HTML
;     (CL-TIDY::WITH-TIDY-BUFFER (CL-TIDY::BUF)
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDYSHOWWARNINGS :NO)
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :XHTML-OUT :YES)
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDY-NUM-ENTITIES :YES)
;       (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;       (CL-TIDY::TIDY-CLEAN-AND-REPAIR CL-TIDY::DOC)
;       (CL-TIDY::TIDY-SAVE-BUFFER CL-TIDY::DOC CL-TIDY::BUF)
;       (CFFI:CONVERT-FROM-FOREIGN
;        (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER 'CL-TIDY::BP)
;        :STRING))
; ==>
;   (CFFI:WITH-FOREIGN-OBJECT (CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER)
;     (CL-TIDY::INIT-TIDY-BUFFER CL-TIDY::BUF)
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDYSHOWWARNINGS :NO)
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :XHTML-OUT :YES)
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDY-NUM-ENTITIES :YES)
;     (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;     (CL-TIDY::TIDY-CLEAN-AND-REPAIR CL-TIDY::DOC)
;     (CL-TIDY::TIDY-SAVE-BUFFER CL-TIDY::DOC CL-TIDY::BUF)
;     (CFFI:CONVERT-FROM-FOREIGN
;      (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER 'CL-TIDY::BP)
;      :STRING))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

;     (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER 'CL-TIDY::BP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-tidy/8510d6d70053a5dcf0471a22507013b245695875/cl-tidy-20181204-git/src/main.lisp
; in: DEFUN CHECK-HTML
;     (CL-TIDY::WITH-TIDY-BUFFER (CL-TIDY::BUF)
;       (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;       (CL-TIDY::TIDY-CLEAN-AND-REPAIR CL-TIDY::DOC)
;       (CL-TIDY::TIDY-RUN-DIAGNOSTICS CL-TIDY::DOC)
;       (VALUES (CL-TIDY::TIDY-WARNING-COUNT CL-TIDY::DOC)
;               (CL-TIDY::TIDY-ERROR-COUNT CL-TIDY::DOC)))
; ==>
;   (CFFI:WITH-FOREIGN-OBJECT (CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER)
;     (CL-TIDY::INIT-TIDY-BUFFER CL-TIDY::BUF)
;     (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;     (CL-TIDY::TIDY-CLEAN-AND-REPAIR CL-TIDY::DOC)
;     (CL-TIDY::TIDY-RUN-DIAGNOSTICS CL-TIDY::DOC)
;     (VALUES (CL-TIDY::TIDY-WARNING-COUNT CL-TIDY::DOC)
;             (CL-TIDY::TIDY-ERROR-COUNT CL-TIDY::DOC)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-tidy" "src" "main">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/weblocks-utils.lisp
; in: DEFUN FIND-BY-IN-SQL-STORE
;     (LET* ((WEBLOCKS-UTILS::RESULT)
;            (WEBLOCKS-UTILS::NEEDED-ITEMS-COUNT
;             (FUNCALL (FIND-SYMBOL "RANGE-TO-LIMIT" "WEBLOCKS-CLSQL")
;                      WEBLOCKS-UTILS::RANGE))
;            (WEBLOCKS-UTILS::NEW-RANGE
;             (CONS 0 WEBLOCKS-UTILS::NEEDED-ITEMS-COUNT))
;            (WEBLOCKS-UTILS::ITEMS-FOUND 0))
;       (LOOP DO (LET ((WEBLOCKS-UTILS::ITEMS #))
;                  (LOOP WEBLOCKS-UTILS::FOR WEBLOCKS-UTILS::ITEM WEBLOCKS-UTILS::IN WEBLOCKS-UTILS::ITEMS
;                        IF (AND # #)
;                        DO (IF #
;                               #
;                               #))
;                  (FORMAT T "Range ~A ~A ~A~%" WEBLOCKS-UTILS::NEW-RANGE
;                          WEBLOCKS-UTILS::RANGE WEBLOCKS-UTILS::ITEMS-FOUND)
;                  (INCF (CAR WEBLOCKS-UTILS::NEW-RANGE)
;                        WEBLOCKS-UTILS::NEEDED-ITEMS-COUNT)
;                  (INCF (CDR WEBLOCKS-UTILS::NEW-RANGE)
;                        WEBLOCKS-UTILS::NEEDED-ITEMS-COUNT)))
;       WEBLOCKS-UTILS::RESULT)
; ==>
;   WEBLOCKS-UTILS::RESULT
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/debug-utils.lisp
; in: DEFUN DESCRIBE-SET
;     (LET* ((WEBLOCKS-UTILS::CLS (CLASS-OF (FIRST WEBLOCKS-UTILS::OBJECTS)))
;            (WEBLOCKS-UTILS::SLOTS
;             (WEBLOCKS-STORES:CLASS-VISIBLE-SLOTS (CLASS-OF #)))
;            (LENGTH 15)
;            (WEBLOCKS-UTILS::ROW-LENGTH (+ (* # LENGTH) (* # 3))))
;       (FLET ((WEBLOCKS-UTILS::OUTPUT-ROW (WEBLOCKS-UTILS::ROW)
;                (WEBLOCKS-UTILS::JOIN " | " #)))
;         (FORMAT T "~A~%"
;                 (WEBLOCKS-UTILS::OUTPUT-ROW
;                  (LOOP WEBLOCKS-UTILS::FOR WEBLOCKS-UTILS::I WEBLOCKS-UTILS::IN WEBLOCKS-UTILS::SLOTS
;                        WEBLOCKS-UTILS::COLLECT #)))
;         (LOOP WEBLOCKS-UTILS::FOR WEBLOCKS-UTILS::I WEBLOCKS-UTILS::FROM 0 WEBLOCKS-UTILS::TO WEBLOCKS-UTILS::ROW-LENGTH
;               DO (FORMAT T "-"))
;         (FORMAT T "~%")
;         (LOOP WEBLOCKS-UTILS::FOR WEBLOCKS-UTILS::I WEBLOCKS-UTILS::IN WEBLOCKS-UTILS::OBJECTS
;               DO (FORMAT T "~A~%" (WEBLOCKS-UTILS::OUTPUT-ROW #)))))
; 
; caught STYLE-WARNING:
;   The variable CLS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-utils" "debug-utils">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/tidy-patch.lisp
; in: DEFUN CLEAN-UP-AND-INDENT-HTML-PART
;     (CL-TIDY::WITH-TIDY-BUFFER (CL-TIDY::BUF)
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDYSHOWWARNINGS :NO)
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :XHTML-OUT :YES)
;       (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "indent" "yes")
;       (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "input-xml" "yes")
;       (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDY-NUM-ENTITIES :YES)
;       (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "show-body-only" "yes")
;       (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "preserve-entities" "yes")
;       (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "char-encoding" "raw")
;       (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;       (CL-TIDY::TIDY-CLEAN-AND-REPAIR CL-TIDY::DOC)
;       ...)
; ==>
;   (CFFI:WITH-FOREIGN-OBJECT (CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER)
;     (CL-TIDY::INIT-TIDY-BUFFER CL-TIDY::BUF)
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDYSHOWWARNINGS :NO)
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :XHTML-OUT :YES)
;     (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "indent" "yes")
;     (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "input-xml" "yes")
;     (CL-TIDY::TIDY-OPT-SET-BOOL CL-TIDY::DOC :TIDY-NUM-ENTITIES :YES)
;     (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "show-body-only" "yes")
;     (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "preserve-entities" "yes")
;     (CL-TIDY::TIDY-OPT-PARSE-VALUE CL-TIDY::DOC "char-encoding" "raw")
;     (CL-TIDY::TIDY-PARSE-STRING CL-TIDY::DOC STRING)
;     ...)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.

;     (CFFI:FOREIGN-SLOT-VALUE CL-TIDY::BUF 'CL-TIDY::TIDY-BUFFER 'CL-TIDY::BP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TIDY-BUFFER)) or (:STRUCT TIDY-BUFFER) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "weblocks-utils" "tidy-patch">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/html-parts-debug.lisp
; in: DEFUN PRINT-TREE
;     (LET ((WEBLOCKS-UTILS::I-COPY WEBLOCKS-UTILS::I))
;       (WEBLOCKS:RENDER-LINK
;        (LAMBDA (&REST WEBLOCKS-UTILS::ARGS)
;          (DECLARE (IGNORE WEBLOCKS-UTILS::ARGS))
;          (WEBLOCKS:MARK-DIRTY (WEBLOCKS:ROOT-WIDGET))
;          (WEBLOCKS:DO-PAGE (WEBLOCKS:MAKE-WIDGET #)))
;        "info"))
; 
; caught STYLE-WARNING:
;   The variable I-COPY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/weblocks-utils/d73a491d6787b8338f269427c1d0e740e5de042b/weblocks-utils-20181204-git/html-parts-debug.lisp
; in: DEFUN WEBLOCKS-UTILS::RENDER-DEBUG-PAGE-PS
;     (PARENSCRIPT:PS
;       (UNLESS (PARENSCRIPT:@ WEBLOCKS-UTILS::WINDOW WEBLOCKS-UTILS::OPENER)
;         (SETF (PARENSCRIPT:@ # WEBLOCKS-UTILS::STYLE WEBLOCKS-UTILS::DISPLAY)
;                 "block")
;         (WEBLOCKS-UTILS::SET-TIMEOUT (LAMBDA () (PARENSCRIPT:CHAIN # #) (SETF #))
;          0))
;       (SETF WEBLOCKS-UTILS::PARENT-DOC
;               (PARENSCRIPT:@ WEBLOCKS-UTILS::WINDOW WEBLOCKS-UTILS::OPENER
;                WEBLOCKS-UTILS::DOCUMENT WEBLOCKS-UTILS::DOCUMENT-ELEMENT))
;       (SETF WEBLOCKS-UTILS::J-QUERY
;               (PARENSCRIPT:@ WEBLOCKS-UTILS::WINDOW WEBLOCKS-UTILS::OPENER
;                WEBLOCKS-UTILS::J-QUERY))
;       (SETF WEBLOCKS-UTILS::DOC-ROOT
;               (PARENSCRIPT:LISP
;                (WEBLOCKS-UTILS::WITH-DEBUGGED-APP-MD5-HASH
;                  #)))
;       (DEFUN WEBLOCKS-UTILS::GET-DOM-BY-HASH (WEBLOCKS-UTILS::HASH)
;         (WHEN (STRING= "undefined" (PARENSCRIPT:TYPEOF WEBLOCKS-UTILS::DOC-ROOT))
;           (WEBLOCKS-UTILS::ALERT
;            "Visual page debugging is not available yet. See instructions above for page debugging")
;           (RETURN-FROM WEBLOCKS-UTILS::GET-DOM-BY-HASH))
;         (IF (STRING= WEBLOCKS-UTILS::HASH WEBLOCKS-UTILS::DOC-ROOT)
;             (WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::PARENT-DOC)
;             (PARENSCRIPT:CHAIN (WEBLOCKS-UTILS::GET-SIMILAR-ELEMENTS #))))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::ELEMENTS-WITH-SAME-ID)
;               (LAMBDA (WEBLOCKS-UTILS::$ITEM) (PARENSCRIPT:CHAIN # #)))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::ELEMENTS-WITH-SAME-NAME)
;               (LAMBDA (WEBLOCKS-UTILS::$ITEM) (PARENSCRIPT:CHAIN # #)))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::ELEMENTS-WITH-SAME-CLASSES)
;               (LAMBDA (WEBLOCKS-UTILS::$ITEM)
;                 (LET* #
;                   #
;                   WEBLOCKS-UTILS::RET)))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::OUTER-H-T-M-L)
;               (LAMBDA ()
;                 (WHEN # #)
;                 (PARENSCRIPT:CHAIN # WEBLOCKS-UTILS::OUTER-H-T-M-L)))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::REMOVE-STYLE-ATTR-RECURSIVELY)
;               (LAMBDA () (PARENSCRIPT:CHAIN # # # # #)))
;       (SETF (PARENSCRIPT:@ WEBLOCKS-UTILS::J-QUERY WEBLOCKS-UTILS::FN
;              WEBLOCKS-UTILS::ELEMENTS-WITH-SAME-HTML)
;               (LAMBDA (WEBLOCKS-UTILS::$ITEM)
;                 (LET* #
;                   #)))
;       ...)
; 
; caught WARNING:
;   Parenscript symbol WINDOW.OPENER.DOCUMENT.BODY contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught WARNING:
;   Parenscript symbol WINDOW.OPENER.DOCUMENT.BODY contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
; 
; caught WARNING:
;   Parenscript symbol WINDOW.OPENER.DOCUMENT.WIDTH contains one or more dot operators.
;   This compound naming convention is deprecated and will be removed!
;   Use GETPROP, @, or CHAIN instead.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "weblocks-utils" "html-parts-debug">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F58B3F3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F58B3F3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100F58B3F3}>)
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 "weblocks-utils" "html-parts-debug">)))
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 "weblocks-utils" "html-parts-debug">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "weblocks-utils" "html-parts-debug">)
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 "weblocks-utils" "html-parts-debug">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<unknown pointer object, lowtag=#x3 {100544A7A3}>) [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 {100544A7A3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js"> :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-prototype-js">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "weblocks-prototype-js">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "weblocks-prototype-js")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-prototype-js") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005444C6B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100540179B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "weblocks-prototype-js") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "weblocks-prototype-js" "weblocks-prototype-js")
23: (DEPCHECK::MAGIC "weblocks-prototype-js" "weblocks-prototype-js" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-v6ZpT1XS/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "weblocks-prototype-js" "weblocks-prototype-js" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-v6ZpT1XS/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-v6ZpT1XS/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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