hu.dwim.asdf

SBCL 1.4.12.120-6b7a9a7 / ASDF 3.3.1

hu.dwim.asdf.documentation

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 SB-KERNEL:LINE-LENGTH in DEFUN
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/5a959ebf99b02db45859fe36963c283d102bad11/trivial-garbage-20181022-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/cl-fad/e389592fd6c0af849f4f420657cd784036c44bc5/cl-fad-20181022-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+ssl/fed8d36abc90616579252085f7a747a539d0a9cf/cl+ssl-20181022-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/flexi-streams/357a99b5a15e0607af668e4f7ad82eaf4cde82ec/flexi-streams-20181022-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-ppcre/303f5a11b3d38e3d07c5da54d8f8bdba573c9460/cl-ppcre-20181022-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/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20181022-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/queues.lisp
; in: DEFMETHOD INSERT-ITEM (BASIC-QUEUE T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE) (METABANG.CL-CONTAINERS::ITEM T))
;       "Add an item to the queue."
;       (LET ((METABANG.CL-CONTAINERS::NEW-ITEM (LIST METABANG.CL-CONTAINERS::ITEM)))
;         (COND ((METABANG.CL-CONTAINERS:EMPTY-P METABANG.CL-CONTAINERS::Q) (SETF #)) (T (SETF #))))
;       METABANG.CL-CONTAINERS::Q)
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; ==>
;   (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:INSERT-ITEM 'NIL (LIST (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE) (FIND-CLASS 'T))
;                           '(METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS::ITEM)
;                           (LIST* :FUNCTION
;                                  (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
;                                    (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION SB-PCL::MF (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION SB-PCL::FMF '#))
;                                    SB-PCL::MF)
;                                  '(SB-PCL::PLIST (:ARG-INFO (2)) SB-PCL::SIMPLE-NEXT-METHOD-CALL T :DOCUMENTATION "Add an item to the queue."))
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE 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.
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::TAIL-OF-QUEUE! 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/queues.lisp
; in: DEFMETHOD DELETE-FIRST (BASIC-QUEUE)
;     (DEFMETHOD METABANG.CL-CONTAINERS:DELETE-FIRST ((METABANG.CL-CONTAINERS::Q METABANG.CL-CONTAINERS:BASIC-QUEUE))
;       (LET ((METABANG.CL-CONTAINERS::RESULT (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)))
;         (SETF (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q) (CDR METABANG.CL-CONTAINERS::RESULT)
;               METABANG.CL-CONTAINERS::RESULT (FIRST METABANG.CL-CONTAINERS::RESULT))
;         (WHEN (NULL (METABANG.CL-CONTAINERS::FRONT-OF-QUEUE METABANG.CL-CONTAINERS::Q)) (METABANG.CL-CONTAINERS:EMPTY! METABANG.CL-CONTAINERS::Q))
;         METABANG.CL-CONTAINERS::RESULT))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER 
; ==>
;   (SB-PCL::LOAD-DEFMETHOD 'STANDARD-METHOD 'METABANG.CL-CONTAINERS:DELETE-FIRST 'NIL (LIST (FIND-CLASS 'METABANG.CL-CONTAINERS:BASIC-QUEUE))
;                           '(METABANG.CL-CONTAINERS::Q)
;                           (LIST* :FUNCTION
;                                  (LET* ((SB-PCL::FMF #) (SB-PCL::MF #))
;                                    (SB-MOP:SET-FUNCALLABLE-INSTANCE-FUNCTION SB-PCL::MF (SB-PCL::METHOD-FUNCTION-FROM-FAST-FUNCTION SB-PCL::FMF '#))
;                                    SB-PCL::MF)
;                                  '(SB-PCL::PLIST (:ARG-INFO (1)) SB-PCL::SIMPLE-NEXT-METHOD-CALL T))
;                           (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE 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.
; 
; caught STYLE-WARNING:
;   Call to METABANG.CL-CONTAINERS::FRONT-OF-QUEUE! 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: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "queues">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT (VECTOR-CONTAINER-MIXIN)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! (VECTOR-CONTAINER-MIXIN T)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/vectors.lisp
; in: DEFMETHOD ITEM-AT! :BEFORE (FLEXIBLE-VECTOR-CONTAINER T)
;     (FIRST METABANG.CL-CONTAINERS::INDICES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a NUMBER:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "vectors">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (LIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (SORTED-LIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a (MOD 4611686018427387901):
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD ITEM-AT (DLIST-CONTAINER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of SB-C::X is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE)
;                 (METABANG.CL-CONTAINERS::NEW-NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WHEN (= (METABANG.UTILITIES:SIZE LIST) 0)
;         (SETF (METABANG.CL-CONTAINERS:FIRST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE
;               (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE
;               (METABANG.UTILITIES:SIZE LIST) 1)
;         (RETURN-FROM METABANG.CL-CONTAINERS:INSERT-ITEM-ORDERED-ABOUT-NODE LIST))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (IF (AND # #)
;               (METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES LIST METABANG.CL-CONTAINERS::NODE #)
;               (METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES LIST METABANG.CL-CONTAINERS::NODE #))))
;       (SETF (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NEW-NODE) (METABANG.CL-CONTAINERS:NEXT-ITEM (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST))
;             (METABANG.CL-CONTAINERS:NEXT-ITEM (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST)) METABANG.CL-CONTAINERS::NEW-NODE
;             (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NEW-NODE) (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST)
;             (METABANG.CL-CONTAINERS:LAST-ELEMENT LIST) METABANG.CL-CONTAINERS::NEW-NODE)
;       (INCF (METABANG.UTILITIES:SIZE LIST))
;       (VALUES LIST))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-RIGHT-NODES LAMBDA FUNCTION LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE) (NEW-NODE DLIST-CONTAINER-NODE)) (WHEN (= (SIZE LIST) 0) (SETF (FIRST-ELEMENT LIST) NEW-NODE (LAST-ELEMENT LIST) NEW-NODE (SIZE LIST) 1) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE)))) (IF (AND (PREVIOUS-ITEM NODE) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE))))) (ITERATE-LEFT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((NOT (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (INSERT-ITEM-AFTER LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)))))) (ITERATE-RIGHT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((FUNCALL SORTER NEW-KEY CURRENT-KEY) (INSERT-ITEM-BEFORE LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST))))))))) (SETF (NEXT-ITEM NEW-NODE) (NEXT-ITEM (LAST-ELEMENT LIST)) (NEXT-ITEM (LAST-ELEMENT LIST)) NEW-NODE (PREVIOUS-ITEM NEW-NODE) (LAST-ELEMENT LIST) (LAST-ELEMENT LIST) NEW-NODE) (INCF (SIZE LIST)) (VALUES LIST))

; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF METABANG.CL-CONTAINERS:ITERATE-LEFT-NODES LAMBDA FUNCTION LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G3 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD INSERT-ITEM-ORDERED-ABOUT-NODE ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE) (NEW-NODE DLIST-CONTAINER-NODE)) (WHEN (= (SIZE LIST) 0) (SETF (FIRST-ELEMENT LIST) NEW-NODE (LAST-ELEMENT LIST) NEW-NODE (SIZE LIST) 1) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY (ELEMENT NEW-NODE)))) (IF (AND (PREVIOUS-ITEM NODE) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (PREVIOUS-ITEM NODE))))) (ITERATE-LEFT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((NOT (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (INSERT-ITEM-AFTER LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)))))) (ITERATE-RIGHT-NODES LIST NODE (LAMBDA (N) (LET ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (COND ((FUNCALL TEST (ELEMENT NEW-NODE) (ELEMENT N)) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST)) ((FUNCALL SORTER NEW-KEY CURRENT-KEY) (INSERT-ITEM-BEFORE LIST N NEW-NODE) (RETURN-FROM INSERT-ITEM-ORDERED-ABOUT-NODE LIST))))))))) (SETF (NEXT-ITEM NEW-NODE) (NEXT-ITEM (LAST-ELEMENT LIST)) (NEXT-ITEM (LAST-ELEMENT LIST)) NEW-NODE (PREVIOUS-ITEM NEW-NODE) (LAST-ELEMENT LIST) (LAST-ELEMENT LIST) NEW-NODE) (INCF (SIZE LIST)) (VALUES LIST))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD DELETE-ITEM (SORTED-DLIST-CONTAINER I-KNOW-MY-NODE-MIXIN)
;     (METABANG.CL-CONTAINERS:MY-NODE METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (MY-NODE ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD LEFT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:LEFT-NODE-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD LEFT-NODE-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL)) ((AND (= (SIZE LIST) 1) (NOT (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST)))))) (VALUES (FIRST-ELEMENT LIST))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM LEFT-NODE-FOR-ITEM (PREVIOUS-ITEM N)))))) (VALUES (LAST-ELEMENT LIST)))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD RIGHT-NODE-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:RIGHT-NODE-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD RIGHT-NODE-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL)) ((AND (= (SIZE LIST) 1) (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST))))) (VALUES (FIRST-ELEMENT LIST))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM RIGHT-NODE-FOR-ITEM N))))) (VALUES NIL))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM (SORTED-DLIST-CONTAINER T)
;     (DEFMETHOD METABANG.CL-CONTAINERS:LEFT-AND-RIGHT-NODES-FOR-ITEM ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::ITEM T))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NEW-KEY #))
;           (COND (# #) (# #) (T # #)))))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET IF IF THE PROGN METABANG.CL-CONTAINERS:ITERATE-NODES LAMBDA FUNCTION LET* FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::N))
; 
; note: could not stack allocate: (DEFMETHOD LEFT-AND-RIGHT-NODES-FOR-ITEM ((LIST SORTED-DLIST-CONTAINER) (ITEM T)) (WITH-SLOTS (KEY SORTER TEST) LIST (LET ((NEW-KEY (FUNCALL KEY ITEM))) (COND ((= (SIZE LIST) 0) (VALUES NIL NIL)) ((= (SIZE LIST) 1) (IF (FUNCALL SORTER NEW-KEY (FUNCALL KEY (ELEMENT (FIRST-ELEMENT LIST)))) (VALUES NIL (FIRST-ELEMENT LIST)) (VALUES (FIRST-ELEMENT LIST) NIL))) (T (ITERATE-NODES LIST (LAMBDA (N) (LET* ((CURRENT-KEY (FUNCALL KEY (ELEMENT N)))) (DECLARE (DYNAMIC-EXTENT CURRENT-KEY)) (WHEN (OR (FUNCALL TEST NEW-KEY CURRENT-KEY) (FUNCALL SORTER NEW-KEY CURRENT-KEY)) (RETURN-FROM LEFT-AND-RIGHT-NODES-FOR-ITEM (VALUES (PREVIOUS-ITEM N) N)))))) (VALUES (LAST-ELEMENT LIST) NIL))))))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD ITERATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
;     (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (PREVIOUS-ITEM ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD ITERATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE T)
;     (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::ITEM)
; 
; note: could not stack allocate: (NEXT-ITEM ITEM)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD SORT-UPDATE-LEFT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS::SORT-UPDATE-LEFT
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NODE-KEY #) (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #))
;           (DECLARE (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
;           (LOOP METABANG.CL-CONTAINERS::WHILE (AND METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #)
;                 DO (SETF #) (WHEN #
;                               #) (IF #
;                                      #
;                                      #) (SETF #) (SETF #))
;           (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR) (SETF #)))))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
; 
; note: could not stack allocate: (DEFMETHOD SORT-UPDATE-LEFT ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE)) (WITH-SLOTS (SORTER KEY TEST) LIST (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE))) (NEXT-NEIGHBOR (PREVIOUS-ITEM NODE))) (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR)) (LOOP WHILE (AND NEXT-NEIGHBOR (FUNCALL SORTER NODE-KEY (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR)))) DO (SETF (NEXT-ITEM NEXT-NEIGHBOR) (NEXT-ITEM NODE) (PREVIOUS-ITEM NODE) (PREVIOUS-ITEM NEXT-NEIGHBOR)) (WHEN (NOT (EQ NEXT-NEIGHBOR (FIRST-ELEMENT LIST))) (SETF (NEXT-ITEM (PREVIOUS-ITEM NEXT-NEIGHBOR)) NODE)) (IF (NOT (EQ NODE (LAST-ELEMENT LIST))) (SETF (PREVIOUS-ITEM (NEXT-ITEM NODE)) NEXT-NEIGHBOR) (SETF (LAST-ELEMENT LIST) NEXT-NEIGHBOR)) (SETF (NEXT-ITEM NODE) NEXT-NEIGHBOR (PREVIOUS-ITEM NEXT-NEIGHBOR) NODE) (SETF NEXT-NEIGHBOR (PREVIOUS-ITEM NODE))) (WHEN (NOT NEXT-NEIGHBOR) (SETF (FIRST-ELEMENT LIST) NODE)))))

;     (METABANG.CL-CONTAINERS:PREVIOUS-ITEM METABANG.CL-CONTAINERS::NODE)
; 
; note: could not stack allocate: (PREVIOUS-ITEM NODE)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/lists.lisp
; in: DEFMETHOD SORT-UPDATE-RIGHT (SORTED-DLIST-CONTAINER DLIST-CONTAINER-NODE)
;     (DEFMETHOD METABANG.CL-CONTAINERS::SORT-UPDATE-RIGHT
;                ((LIST METABANG.CL-CONTAINERS:SORTED-DLIST-CONTAINER) (METABANG.CL-CONTAINERS::NODE METABANG.CL-CONTAINERS:DLIST-CONTAINER-NODE))
;       (WITH-SLOTS (METABANG.CL-CONTAINERS::SORTER METABANG.CL-CONTAINERS::KEY METABANG.CL-CONTAINERS::TEST)
;           LIST
;         (LET ((METABANG.CL-CONTAINERS::NODE-KEY #) (METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #))
;           (DECLARE (DYNAMIC-EXTENT METABANG.CL-CONTAINERS::NODE-KEY METABANG.CL-CONTAINERS::NEXT-NEIGHBOR))
;           (LOOP METABANG.CL-CONTAINERS::WHILE (AND METABANG.CL-CONTAINERS::NEXT-NEIGHBOR #)
;                 DO (SETF #) (WHEN #
;                               #) (IF #
;                                      #
;                                      #) (SETF #) (SETF #))
;           (WHEN (NOT METABANG.CL-CONTAINERS::NEXT-NEIGHBOR) (SETF #)))))
; --> 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 SB-PCL::BIND-ARGS LET* LOCALLY SYMBOL-MACROLET BLOCK LET 
; --> SYMBOL-MACROLET LET FUNCALL 
; ==>
;   (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-FOR-CALL (SB-PCL::ACCESSOR-SLOT-VALUE #:G0 'METABANG.CL-CONTAINERS::KEY))
;                   (METABANG.UTILITIES:ELEMENT METABANG.CL-CONTAINERS::NODE))
; 
; note: could not stack allocate: (DEFMETHOD SORT-UPDATE-RIGHT ((LIST SORTED-DLIST-CONTAINER) (NODE DLIST-CONTAINER-NODE)) (WITH-SLOTS (SORTER KEY TEST) LIST (LET ((NODE-KEY (FUNCALL KEY (ELEMENT NODE))) (NEXT-NEIGHBOR (NEXT-ITEM NODE))) (DECLARE (DYNAMIC-EXTENT NODE-KEY NEXT-NEIGHBOR)) (LOOP WHILE (AND NEXT-NEIGHBOR (NOT (FUNCALL SORTER NODE-KEY (FUNCALL KEY (ELEMENT NEXT-NEIGHBOR))))) DO (SETF (PREVIOUS-ITEM NEXT-NEIGHBOR) (PREVIOUS-ITEM NODE) (NEXT-ITEM NODE) (NEXT-ITEM NEXT-NEIGHBOR)) (WHEN (NOT (EQ NEXT-NEIGHBOR (LAST-ELEMENT LIST))) (SETF (PREVIOUS-ITEM (NEXT-ITEM NEXT-NEIGHBOR)) NODE)) (IF (NOT (EQ NODE (FIRST-ELEMENT LIST))) (SETF (NEXT-ITEM (PREVIOUS-ITEM NEXT-NEIGHBOR)) NEXT-NEIGHBOR) (SETF (FIRST-ELEMENT LIST) NEXT-NEIGHBOR)) (SETF (PREVIOUS-ITEM NODE) NEXT-NEIGHBOR (NEXT-ITEM NEXT-NEIGHBOR) NODE) (SETF NEXT-NEIGHBOR (NEXT-ITEM NODE))) (WHEN (NOT NEXT-NEIGHBOR) (SETF (LAST-ELEMENT LIST) NODE)))))

;     (METABANG.CL-CONTAINERS:NEXT-ITEM METABANG.CL-CONTAINERS::NODE)
; 
; note: could not stack allocate: (NEXT-ITEM NODE)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "lists">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT (RING-BUFFER)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-containers/3b0e0761995c807fa27cdc74ef97fecf1ba48339/cl-containers-20181022-git/dev/ring-buffers.lisp
; in: DEFMETHOD ITEM-AT! (RING-BUFFER T)
;     (FIRST METABANG.CL-CONTAINERS::INDEXES)
; --> CAR SB-C::%REST-REF AND IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   The binding of NUMBER is not a REAL:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-containers" "dev" "ring-buffers">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-graph/2163417e2d2d61b2ad9d7c4eac1298d33573cdeb/cl-graph-20181022-git/dev/graph.lisp
; in: DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES (BASIC-GRAPH BASIC-VERTEX BASIC-VERTEX)
;     (HANDLER-CASE (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-1 CL-GRAPH::V-2 :ERROR-IF-NOT-FOUND? T)
;                   (CL-GRAPH:GRAPH-EDGE-NOT-FOUND-ERROR (CL-GRAPH::ENF)
;                    (WHEN (OR (NOT #) (AND # #) (AND # #))
;                      (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-2 CL-GRAPH::V-1 :ERROR-IF-NOT-FOUND? NIL))))
; --> SB-INT:DX-FLET FLET 
; ==>
;   (#:FUN24 (CL-GRAPH::ENF)
;    (PROGN (WHEN (OR (NOT #) (AND # #) (AND # #)) (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-2 CL-GRAPH::V-1 :ERROR-IF-NOT-FOUND? NIL))))
; 
; caught STYLE-WARNING:
;   The variable ENF is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-graph" "dev" "graph">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DTDISC-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDISC-T HU.DWIM.GRAPHVIZ.CFFI::_DTDISC-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DTLINK-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTLINK-T HU.DWIM.GRAPHVIZ.CFFI::_DTLINK-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DTDATA-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDATA-T HU.DWIM.GRAPHVIZ.CFFI::_DTDATA-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DTMETHOD-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTMETHOD-T HU.DWIM.GRAPHVIZ.CFFI::_DTMETHOD-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE DICT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DICT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT LAYOUT-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T
;       (HU.DWIM.GRAPHVIZ.CFFI:QUANTUM :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:SCALE :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:RATIO :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:MARGIN HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:PAGE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:FILLED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CENTERED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::LAYOUT-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:QUANTUM :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:SCALE :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:RATIO :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:MARGIN HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:PAGE HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FILLED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CENTERED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:RATIO-KIND HU.DWIM.GRAPHVIZ.CFFI:RATIO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE POINTF
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:POINTF HU.DWIM.GRAPHVIZ.CFFI:POINTF-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT TEXTLABEL-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T
;       (HU.DWIM.GRAPHVIZ.CFFI:TEXT (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIMEN HU.DWIM.GRAPHVIZ.CFFI:POINTF)
;       (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:D HU.DWIM.GRAPHVIZ.CFFI:POINTF)
;       (HU.DWIM.GRAPHVIZ.CFFI:SET HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:HTML HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::TEXTLABEL-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:TEXT (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIMEN HU.DWIM.GRAPHVIZ.CFFI:POINTF) (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:D HU.DWIM.GRAPHVIZ.CFFI:POINTF) (HU.DWIM.GRAPHVIZ.CFFI:SET HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HTML HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT BOX
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX
;       (HU.DWIM.GRAPHVIZ.CFFI:LL HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:UR HU.DWIM.GRAPHVIZ.CFFI:POINT))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BOX '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::BOX-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LL HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:UR HU.DWIM.GRAPHVIZ.CFFI:POINT)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE GVC-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GVC-T HU.DWIM.GRAPHVIZ.CFFI:GVC-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGRAPHINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:DRAWING :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:BORDER HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT 4)
;       (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CHARSET :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGRAPHINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:DRAWING :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BORDER HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT 4)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR) (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) (HU.DWIM.GRAPHVIZ.CFFI:CHARSET :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR :INT) (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT) (HU.DWIM.GRAPHVIZ.CFFI:HT-2 :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:FLAGS :UNSIGNED-SHORT) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGRAPH-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING1 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:UNIV :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:NODES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:INEDGES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ROOT :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:META-NODE :POINTER)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGRAPH-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING1 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:UNIV :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:NODES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:INEDGES :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ROOT :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:META-NODE :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:PROTO :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE GRAPH-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GRAPH-T HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGNODEINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SHAPE :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO (:POINTER :VOID))
;       (HU.DWIM.GRAPHVIZ.CFFI:COORD HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:WIDTH :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)
;       (HU.DWIM.GRAPHVIZ.CFFI:HT :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LW :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:RW :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGNODEINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SHAPE :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO (:POINTER :VOID))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:COORD HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:WIDTH :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT :DOUBLE) (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HT :INT) (HU.DWIM.GRAPHVIZ.CFFI:LW :INT) (HU.DWIM.GRAPHVIZ.CFFI:RW :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ALG (:POINTER :VOID))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:STATE :CHAR) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGNODE-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING2 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:GRAPH :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGNODE-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING2 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR))
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) (HU.DWIM.GRAPHVIZ.CFFI:GRAPH :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE NODE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:NODE-T HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT BEZIER
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER
;       (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:EP HU.DWIM.GRAPHVIZ.CFFI:POINT))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::BEZIER-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT) (HU.DWIM.GRAPHVIZ.CFFI:SP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EP HU.DWIM.GRAPHVIZ.CFFI:POINT)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT SPLINES
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES
;       (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::SPLINES-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT PORT
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PORT
;       (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:THETA :DOUBLE)
;       (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DEFINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:CLIP HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;       (HU.DWIM.GRAPHVIZ.CFFI:ORDER :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDE :UNSIGNED-CHAR))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PORT '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PORT-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:THETA :DOUBLE)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:DEFINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:CLIP HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) (HU.DWIM.GRAPHVIZ.CFFI:ORDER :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDE :UNSIGNED-CHAR)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE PPOINT-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOINT-T HU.DWIM.GRAPHVIZ.CFFI:POINTF-S)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE PPOLYLINE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOLYLINE-T HU.DWIM.GRAPHVIZ.CFFI:PPOLY-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGEDGEINFO-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SPL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP :CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGEDGEINFO-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SPL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT) (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE :CHAR) (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT :CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP :CHAR) (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:TO-ORIG :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ALG (:POINTER :VOID)) ...))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT AGEDGE-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T
;       (HU.DWIM.GRAPHVIZ.CFFI::PADDING3 :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:HEAD :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:TAIL :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::AGEDGE-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI::PADDING3 :INT) (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:HEAD :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:TAIL :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:ID :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE EDGE-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:EDGE-T HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT PATHEND-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T
;       (HU.DWIM.GRAPHVIZ.CFFI:NB HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:NP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXES HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT 20))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PATHEND-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:NB HU.DWIM.GRAPHVIZ.CFFI:BOX) (HU.DWIM.GRAPHVIZ.CFFI:NP HU.DWIM.GRAPHVIZ.CFFI:POINT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK :INT) (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:BOXES HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT 20)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE FILE
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:FILE HU.DWIM.GRAPHVIZ.CFFI::_IO-FILE)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT PATH
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATH
;       (HU.DWIM.GRAPHVIZ.CFFI:START HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:END HU.DWIM.GRAPHVIZ.CFFI:PORT)
;       (HU.DWIM.GRAPHVIZ.CFFI:ULPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:URPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LLPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:LRPP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:BOXES :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:DATA (:POINTER :VOID)))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATH '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::PATH-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:START HU.DWIM.GRAPHVIZ.CFFI:PORT) (HU.DWIM.GRAPHVIZ.CFFI:END HU.DWIM.GRAPHVIZ.CFFI:PORT)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ULPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:URPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:LLPP :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:LRPP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT) (HU.DWIM.GRAPHVIZ.CFFI:BOXES :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:DATA (:POINTER :VOID))))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCSTRUCT FIELD-T
;     (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:FIELD-T
;       (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT)
;       (HU.DWIM.GRAPHVIZ.CFFI:B HU.DWIM.GRAPHVIZ.CFFI:BOX)
;       (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT)
;       (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:FLD :POINTER)
;       (HU.DWIM.GRAPHVIZ.CFFI:ID (:POINTER :CHAR))
;       (HU.DWIM.GRAPHVIZ.CFFI:LR :UNSIGNED-CHAR)
;       (HU.DWIM.GRAPHVIZ.CFFI:SIDES :UNSIGNED-CHAR))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:FIELD-T '(:CLASS HU.DWIM.GRAPHVIZ.CFFI::FIELD-T-TCLASS)
;                                           '((HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT) (HU.DWIM.GRAPHVIZ.CFFI:B HU.DWIM.GRAPHVIZ.CFFI:BOX)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT) (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER) (HU.DWIM.GRAPHVIZ.CFFI:FLD :POINTER)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:ID (:POINTER :CHAR)) (HU.DWIM.GRAPHVIZ.CFFI:LR :UNSIGNED-CHAR)
;                                             (HU.DWIM.GRAPHVIZ.CFFI:SIDES :UNSIGNED-CHAR)))
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/cffi.lisp
; in: DEFCTYPE ATTRSYM-T
;     (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:ATTRSYM-T HU.DWIM.GRAPHVIZ.CFFI:AGSYM-T)
; 
; caught COMMON-LISP:STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "cffi">
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead.
COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN NODE-COORDINATE
;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:COORD)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 16) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN NODE-SIZE
;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN SPLINE-COUNT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SIZE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN SPLINES-OF-EDGE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:SPL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN SPLINES-BEZIER-AT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES 'HU.DWIM.GRAPHVIZ.CFFI:LIST)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-START-POINT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:SP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BEZIER 20) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-END-POINT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:EP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BEZIER 28) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-POINT-COUNT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:SIZE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BEZIER-POINT-AT
;     (CFFI:MEM-AREF HU.DWIM.GRAPHVIZ::POINTS 'HU.DWIM.GRAPHVIZ.CFFI:POINT HU.DWIM.GRAPHVIZ::INDEX)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; ==>
;   (CFFI:MEM-REF HU.DWIM.GRAPHVIZ::POINTS 'HU.DWIM.GRAPHVIZ.CFFI:POINT (* HU.DWIM.GRAPHVIZ::INDEX 8))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER 'HU.DWIM.GRAPHVIZ.CFFI:LIST)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN EDGE-TYPE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN EDGE-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN HEAD-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN TAIL-LABEL
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN LABEL-COORDINATE
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::LABEL 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T 'HU.DWIM.GRAPHVIZ.CFFI:P)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::LABEL 48) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BOX-LOWER-LEFT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX 'HU.DWIM.GRAPHVIZ.CFFI:LL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BOX 0) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN BOX-UPPER-RIGHT
;     (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX 'HU.DWIM.GRAPHVIZ.CFFI:UR)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER HU.DWIM.GRAPHVIZ::BOX 8) 'HU.DWIM.GRAPHVIZ.CFFI:POINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/187e541dfe4add0b4ce0e9d111c15a5cd30070fd/hu.dwim.graphviz-20181022-darcs/source/graphviz.lisp
; in: DEFUN GRAPH-BOUNDING-BOX
;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH-INFO 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T 'HU.DWIM.GRAPHVIZ.CFFI:BB)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T) instead.

;     (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T 'HU.DWIM.GRAPHVIZ.CFFI:U)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "graphviz">
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead.
WARNING: redefining HU.DWIM.COMMON:IN-PACKAGE in DEFMACRO
WARNING: redefining EMACS-INSPECT (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFUN VECTOR-EXTEND
;     (SETF (FILL-POINTER VECTOR) BABEL-STREAMS::NEW-LENGTH)
; ==>
;   (SB-KERNEL:%SET-FILL-POINTER VECTOR BABEL-STREAMS::NEW-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20)

;     (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFUN MAKE-IN-MEMORY-INPUT-STREAM
;     (LENGTH BABEL-STREAMS::DATA)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-READ-BYTE (VECTOR-INPUT-STREAM)
;     (< BABEL-STREAMS::INDEX (BABEL-STREAMS::VECTOR-STREAM-END STREAM))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.

;     (INCF (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM))
; --> LET* 
; ==>
;   (+ 1 (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM2))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (AREF (BABEL-STREAMS::VECTOR-STREAM-VECTOR STREAM) BABEL-STREAMS::INDEX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (< BABEL-STREAMS::INDEX (BABEL-STREAMS::VECTOR-STREAM-END STREAM))
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.

;     (INCF (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM))
; --> LET* 
; ==>
;   (+ 1 (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM2))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-LISTEN (VECTOR-INPUT-STREAM)
;     (< (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM) (BABEL-STREAMS::VECTOR-STREAM-END STREAM))
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.The second argument is a REAL, not a RATIONAL.
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       unable to do inline float comparison (cost 3) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-READ-SEQUENCE (VECTOR-INPUT-STREAM T T T)
;     (AREF VECTOR BABEL-STREAMS::VECTOR-INDEX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (SETF (ELT SEQUENCE BABEL-STREAMS::INDEX) (AREF VECTOR BABEL-STREAMS::VECTOR-INDEX))
; ==>
;   (SB-KERNEL:%SETELT SEQUENCE BABEL-STREAMS::INDEX (AREF VECTOR BABEL-STREAMS::VECTOR-INDEX))
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (INCF (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM))
; --> LET* 
; ==>
;   (+ 1 (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM7))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-BYTE (VECTOR-OUTPUT-STREAM T)
;     (INCF (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM))
; --> LET* 
; ==>
;   (+ 1 (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM5))
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFUN EXTEND-VECTOR-OUTPUT-STREAM-BUFFER
;     (BABEL-STREAMS::VECTOR-EXTEND BABEL-STREAMS::EXTENSION (BABEL-STREAMS::VECTOR-STREAM-VECTOR STREAM) :START BABEL-STREAMS::START :END BABEL-STREAMS::END)
; --> IF LENGTH 
; ==>
;   BABEL-STREAMS::EXTENSION
; 
; note: deleting unreachable code

;     (INCF (BABEL-STREAMS::VECTOR-STREAM-INDEX STREAM) (- BABEL-STREAMS::END BABEL-STREAMS::START))
; --> LET* 
; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM20))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (BABEL-STREAMS::VECTOR-EXTEND BABEL-STREAMS::EXTENSION (BABEL-STREAMS::VECTOR-STREAM-VECTOR STREAM) :START BABEL-STREAMS::START :END BABEL-STREAMS::END)
; --> BLOCK LET* SETF 
; ==>
;   (SB-KERNEL:%SET-FILL-POINTER VECTOR BABEL-STREAMS::NEW-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-CHAR (VECTOR-OUTPUT-STREAM T)
;     (STRING CHAR)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SYMBOL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (BABEL-STREAMS::EXTEND-VECTOR-OUTPUT-STREAM-BUFFER BABEL-STREAMS::OCTETS STREAM)
; --> BLOCK INCF LET* 
; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM22))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK 
; ==>
;   (LET* ((BABEL-STREAMS::ORIGINAL-LENGTH (LENGTH VECTOR))
;          (BABEL-STREAMS::EXTENSION-LENGTH (- BABEL-STREAMS::END BABEL-STREAMS::START))
;          (BABEL-STREAMS::NEW-LENGTH (+ BABEL-STREAMS::ORIGINAL-LENGTH BABEL-STREAMS::EXTENSION-LENGTH))
;          (BABEL-STREAMS::ORIGINAL-DIMENSION (ARRAY-DIMENSION VECTOR 0)))
;     (WHEN (< BABEL-STREAMS::ORIGINAL-DIMENSION BABEL-STREAMS::NEW-LENGTH) (SETF VECTOR (ADJUST-ARRAY VECTOR #)))
;     (SETF (FILL-POINTER VECTOR) BABEL-STREAMS::NEW-LENGTH)
;     (REPLACE VECTOR BABEL-STREAMS::EXTENSION :START1 BABEL-STREAMS::ORIGINAL-LENGTH :START2 BABEL-STREAMS::START :END2 BABEL-STREAMS::END)
;     VECTOR)
; 
; note: doing signed word to integer coercion (cost 20) to NEW-LENGTH

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFMETHOD STREAM-WRITE-SEQUENCE (VECTOR-OUTPUT-STREAM T T T)
;     (BABEL-STREAMS::EXTEND-VECTOR-OUTPUT-STREAM-BUFFER SEQUENCE STREAM :START BABEL-STREAMS::START :END BABEL-STREAMS::END)
; --> BLOCK INCF LET* 
; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM97))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM74))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM120))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (BABEL-STREAMS::EXTEND-VECTOR-OUTPUT-STREAM-BUFFER BABEL-STREAMS::OCTETS STREAM)
; --> BLOCK INCF LET* 
; ==>
;   (+ (- BABEL-STREAMS::END BABEL-STREAMS::START) (BABEL-STREAMS::VECTOR-STREAM-INDEX #:STREAM30))
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The second argument is a T, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The second argument is a T, not a (SIGNED-BYTE 64).
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK 
; ==>
;   (LET* ((BABEL-STREAMS::ORIGINAL-LENGTH (LENGTH VECTOR))
;          (BABEL-STREAMS::EXTENSION-LENGTH (- BABEL-STREAMS::END BABEL-STREAMS::START))
;          (BABEL-STREAMS::NEW-LENGTH (+ BABEL-STREAMS::ORIGINAL-LENGTH BABEL-STREAMS::EXTENSION-LENGTH))
;          (BABEL-STREAMS::ORIGINAL-DIMENSION (ARRAY-DIMENSION VECTOR 0)))
;     (WHEN (< BABEL-STREAMS::ORIGINAL-DIMENSION BABEL-STREAMS::NEW-LENGTH) (SETF VECTOR (ADJUST-ARRAY VECTOR #)))
;     (SETF (FILL-POINTER VECTOR) BABEL-STREAMS::NEW-LENGTH)
;     (REPLACE VECTOR BABEL-STREAMS::EXTENSION :START1 BABEL-STREAMS::ORIGINAL-LENGTH :START2 BABEL-STREAMS::START :END2 BABEL-STREAMS::END)
;     VECTOR)
; 
; note: doing signed word to integer coercion (cost 20) to NEW-LENGTH

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

;     (BABEL-STREAMS::EXTEND-VECTOR-OUTPUT-STREAM-BUFFER SEQUENCE STREAM :START BABEL-STREAMS::START :END BABEL-STREAMS::END)
; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* SETF 
; ==>
;   (SB-KERNEL:%SET-FILL-POINTER VECTOR BABEL-STREAMS::NEW-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* SETF 
; ==>
;   (SB-KERNEL:%SET-FILL-POINTER VECTOR BABEL-STREAMS::NEW-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* SETF 
; ==>
;   (SB-KERNEL:%SET-FILL-POINTER VECTOR BABEL-STREAMS::NEW-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20)

; --> BLOCK BABEL-STREAMS::VECTOR-EXTEND BLOCK LET* WHEN IF SETF SETQ THE 
; ==>
;   (ADJUST-ARRAY VECTOR (MAX (* 2 BABEL-STREAMS::ORIGINAL-DIMENSION) BABEL-STREAMS::NEW-LENGTH))
; 
; note: doing signed word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/babel/221c2b5e9378355934005cb441ea1cb3b2965590/babel-20181022-git/src/streams.lisp
; in: DEFUN MAKE-VECTOR-STREAM-BUFFER
;     (MAKE-ARRAY (THE ALEXANDRIA.0.DEV:ARRAY-INDEX (OR BABEL-STREAMS::INITIAL-SIZE 32)) :ADJUSTABLE T :FILL-POINTER 0 :ELEMENT-TYPE BABEL-STREAMS::ELEMENT-TYPE)
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.
STYLE-WARNING: Undefined alien: "gvcUsername"
STYLE-WARNING: Undefined alien: "agindex"
STYLE-WARNING: Undefined alien: "agfindsubg"
STYLE-WARNING: Undefined alien: "aginsert"
STYLE-WARNING: Undefined alien: "agusergraph"
STYLE-WARNING: Undefined alien: "aginitlib"
STYLE-WARNING: Undefined alien: "agraphattr"
STYLE-WARNING: Undefined alien: "agnodeattr"
STYLE-WARNING: Undefined alien: "gvUsername"
STYLE-WARNING: Undefined alien: "agedgeattr"
STYLE-WARNING: Undefined alien: "agfindedge"
STYLE-WARNING: Undefined alien: "agfindattr"
STYLE-WARNING: Undefined alien: "agcanonical"
STYLE-WARNING: Undefined alien: "agprotograph"
STYLE-WARNING: Undefined alien: "agfindnode"
STYLE-WARNING: Undefined alien: "agread_usergets"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.computed-class/ddb5126e5d2ff305ad5701106875710c8ac9c833/hu.dwim.computed-class-20181022-darcs/source/engine.lisp
; in: DEF STRUCTURE
;     (HU.DWIM.DEF:DEF STRUCTURE
;                      (HU.DWIM.COMPUTED-CLASS::COMPUTED-STATE (:CONC-NAME HU.DWIM.COMPUTED-CLASS::CS-)
;                       (:PRINT-OBJECT HU.DWIM.COMPUTED-CLASS::PRINT-COMPUTED-STATE))
;                      "Describes the different kind of computed states. The value present in the slot of an object or the value present in a variable."
;                      (HU.DWIM.COMPUTED-CLASS::UNIVERSE NIL :TYPE HU.DWIM.COMPUTED-CLASS:COMPUTED-UNIVERSE)
;                      (HU.DWIM.COMPUTED-CLASS::COMPUTED-AT-PULSE HU.DWIM.COMPUTED-CLASS::+INVALID-PULSE+ :TYPE INTEGER)
;                      (HU.DWIM.COMPUTED-CLASS::VALIDATED-AT-PULSE HU.DWIM.COMPUTED-CLASS::+INVALID-PULSE+ :TYPE INTEGER)
;                      (HU.DWIM.COMPUTED-CLASS::DEPENDS-ON NIL :TYPE LIST) (HU.DWIM.COMPUTED-CLASS::COMPUTE-AS NIL :TYPE (OR NULL SYMBOL FUNCTION))
;                      (HU.DWIM.COMPUTED-CLASS::OBJECT NIL :TYPE (OR NULL HU.DWIM.COMPUTED-CLASS:COMPUTED-OBJECT)) (HU.DWIM.COMPUTED-CLASS::VALUE NIL :TYPE T)
;                      (HU.DWIM.COMPUTED-CLASS::KIND 'HU.DWIM.COMPUTED-CLASS::STANDALONE :TYPE
;                       (MEMBER HU.DWIM.COMPUTED-CLASS::STANDALONE HU.DWIM.COMPUTED-CLASS::OBJECT-SLOT VARIABLE))
;                      ...)
; --> PROGN DEFSTRUCT PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION HU.DWIM.COMPUTED-CLASS::COMPUTED-STATE {10070EC5A3}>
;                                   '#(#<SB-KERNEL:LAYOUT for T {50300003}> #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {50300083}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to HU.DWIM.COMPUTED-CLASS::CS-UNIVERSE could not be inlined because the structure definition for HU.DWIM.COMPUTED-CLASS::COMPUTED-STATE was not yet seen. To avoid this warning, DEFSTRUCT should precede references to the affected functions, or they must be declared locally notinline at each call site.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.computed-class" "source" "engine">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/utils.lisp
; in: DEFUN WRITE-DECIMAL-DIGITS
;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::MAXIMUM-DIGIT-COUNT)
;       (SETF (VALUES CL-L10N::REMAINDER CL-L10N::DIGIT) (TRUNCATE CL-L10N::REMAINDER 10))
;       (PUSH CL-L10N::DIGIT CL-L10N::DIGITS)
;       (INCF CL-L10N::NUMBER-OF-DIGITS)
;       (ITERATE:UNTIL (ZEROP CL-L10N::REMAINDER)))
; --> LET* BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE CL-L10N::REMAINDER 10)
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT.
; 
; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT.
; 
; note: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER.
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a REAL, not a (UNSIGNED-BYTE 64).

;     (+ 48 CL-L10N::DIGIT)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::MAXIMUM-DIGIT-COUNT)
;       (SETF (VALUES CL-L10N::REMAINDER CL-L10N::DIGIT) (TRUNCATE CL-L10N::REMAINDER 10))
;       (PUSH CL-L10N::DIGIT CL-L10N::DIGITS)
;       (INCF CL-L10N::NUMBER-OF-DIGITS)
;       (ITERATE:UNTIL (ZEROP CL-L10N::REMAINDER)))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> LET* BLOCK TAGBODY PROGN IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::PADDING-LENGTH)
;       (WRITE-CHAR CL-L10N::PADDING-CHARACTER STREAM))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> LET* BLOCK TAGBODY PROGN IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (LIST)
; 
; note: could not stack allocate: (LIST)

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::MAXIMUM-DIGIT-COUNT)
;       (SETF (VALUES CL-L10N::REMAINDER CL-L10N::DIGIT) (TRUNCATE CL-L10N::REMAINDER 10))
;       (PUSH CL-L10N::DIGIT CL-L10N::DIGITS)
;       (INCF CL-L10N::NUMBER-OF-DIGITS)
;       (ITERATE:UNTIL (ZEROP CL-L10N::REMAINDER)))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < 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 REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::PADDING-LENGTH)
;       (WRITE-CHAR CL-L10N::PADDING-CHARACTER STREAM))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < 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 REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; --> LET* BLOCK TAGBODY PROGN SETQ THE 1- 
; ==>
;   (- #:COUNT71 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

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

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::MAXIMUM-DIGIT-COUNT)
;       (SETF (VALUES CL-L10N::REMAINDER CL-L10N::DIGIT) (TRUNCATE CL-L10N::REMAINDER 10))
;       (PUSH CL-L10N::DIGIT CL-L10N::DIGITS)
;       (INCF CL-L10N::NUMBER-OF-DIGITS)
;       (ITERATE:UNTIL (ZEROP CL-L10N::REMAINDER)))
; --> LET* BLOCK TAGBODY PROGN SETQ THE 1- 
; ==>
;   (- #:COUNT69 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (ITERATE:ITER
;       (ITERATE:REPEAT CL-L10N::PADDING-LENGTH)
;       (WRITE-CHAR CL-L10N::PADDING-CHARACTER STREAM))
; --> LET* BLOCK TAGBODY PROGN 
; ==>
;   (SETQ #:COUNT71 CL-L10N::PADDING-LENGTH)
; 
; note: doing signed word to integer coercion (cost 20) to #:COUNT71

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/utils.lisp
; in: DEFUN READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE
;     (DEFUN CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE (CL-L10N::FILE)
;       (WITH-OPEN-FILE (FILE-STREAM CL-L10N::FILE :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
;         (LET ((STREAM #))
;           (ITERATE:ITER
;             (ITERATE:WITH CL-L10N::RESULT = #)
;             (ITERATE:FOR CL-L10N::LINE CL-L10N::IN-STREAM STREAM :USING #)
;             (ITERATE:FOR CL-L10N::LINE-NUMBER CL-L10N::FROM 0)
;             (WHEN # #)
;             (ITERATE:FOR CL-L10N::PIECES = #)
;             (ITERATE:FOR CL-L10N::SPLIT-COUNT = #)
;             (WHEN # #)
;             (ITERATE:FOR CL-L10N::SINGULAR = #)
;             (ITERATE:FOR CL-L10N::PLURAL = #)
;             (ITERATE:FOR CL-L10N::ARTICLE = #)
;             (SETF #)
;             ...))))
; --> PROGN 
; ==>
;   (SB-IMPL::%DEFUN 'CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE
;                    (SB-INT:NAMED-LAMBDA CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE
;                        (CL-L10N::FILE)
;                      (DECLARE (SB-C::TOP-LEVEL-FORM))
;                      (BLOCK CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE
;                        (WITH-OPEN-FILE (FILE-STREAM CL-L10N::FILE :ELEMENT-TYPE '#)
;                          (LET #
;                            #)))))
; 
; caught STYLE-WARNING:
;   Call to CL-L10N::TRIM could not be inlined because no definition !
;                                 for it was seen prior to its first use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "utils">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/pattern-compiling.lisp
; in: DEFUN COMPILE-NUMBER-ABSOLUTE-VALUE-PATTERN/DECIMAL
;     (ABS NUMBER)
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).

;     (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT))
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a (OR INTEGER DOUBLE-FLOAT (RATIONAL 0)), not a INTEGER.

;     (TRUNCATE (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT)))
; --> TRUNCATE LET 
; ==>
;   (SB-KERNEL:%UNARY-TRUNCATE SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT.

;     (< CL-L10N::ROUNDED-FRACTION-PART 1)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FLOAT.

;     (ITERATE:ITER
;       (ITERATE:WHILE CL-L10N::FRACTION-DIGITS)
;       (ITERATE:FOR CL-L10N::DIGIT = (FIRST CL-L10N::FRACTION-DIGITS))
;       (ITERATE:WHILE (ZEROP CL-L10N::DIGIT))
;       (POP CL-L10N::FRACTION-DIGITS))
; --> LET* BLOCK TAGBODY PROGN IF NOT IF ZEROP 
; ==>
;   (= CL-L10N::DIGIT 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (COERCE CL-L10N::FORMATTED-DIGITS 'STRING)
; --> THE IF REPLACE MAKE-ARRAY 
; ==>
;   (LENGTH SB-C::X)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR CONS NULL (AND (NOT (VECTOR CHARACTER)) (NOT (VECTOR NIL)) (NOT BASE-STRING) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.

;     (ITERATE:ITER
;       (ITERATE:WITH CL-L10N::GROUPING-SIZE = (OR CL-L10N::PRIMARY-GROUPING-SIZE 0))
;       (ITERATE:WITH CL-L10N::REMAINDER = CL-L10N::ROUNDED-INTEGER-PART)
;       (ITERATE:WITH CL-L10N::NUMBER-OF-DIGITS = 0)
;       (ITERATE:WITH CL-L10N::GROUP)
;       (ITERATE:UNTIL (AND (ZEROP CL-L10N::REMAINDER) (>= CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS)))
;       (IF (ZEROP CL-L10N::GROUPING-SIZE)
;           (PROGN (SETF CL-L10N::GROUP CL-L10N::REMAINDER) (SETF CL-L10N::REMAINDER 0))
;           (SETF (VALUES CL-L10N::REMAINDER CL-L10N::GROUP) (TRUNCATE CL-L10N::REMAINDER #)))
;       (ITERATE:ITER
;         (ITERATE:WITH CL-L10N::DIGIT)
;         (ITERATE:WITH COUNT = 0)
;         (ITERATE:UNTIL (OR (AND # #) (AND # # #)))
;         (SETF (VALUES CL-L10N::GROUP CL-L10N::DIGIT) (TRUNCATE CL-L10N::GROUP 10))
;         (CL-L10N::EMIT (CL-L10N::LOCALIZE-NUMBER-SYMBOL-CHARACTER (DIGIT-CHAR CL-L10N::DIGIT)))
;         (INCF CL-L10N::NUMBER-OF-DIGITS)
;         (INCF COUNT))
;       (WHEN (AND (> CL-L10N::GROUPING-SIZE 0) (OR (NOT #) (< CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS)))
;         (CL-L10N::EMIT CL-L10N::LOCALIZED-THOUSAND-SEPARATOR))
;       (WHEN (AND (ITERATE:FIRST-TIME-P) (NOT (OR # #))) (SETF CL-L10N::GROUPING-SIZE CL-L10N::SECONDARY-GROUPING-SIZE)))
; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE CL-L10N::GROUP 10)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

;     (ITERATE:ITER
;       (ITERATE:WITH REST = CL-L10N::ROUNDED-FRACTION-PART)
;       (ITERATE:WITH CL-L10N::DIGIT)
;       (ITERATE:REPEAT CL-L10N::ROUNDING-FRACTION-LENGTH)
;       (SETF (VALUES CL-L10N::DIGIT REST) (TRUNCATE (* REST 10)))
;       (PUSH CL-L10N::DIGIT CL-L10N::FRACTION-DIGITS))
; --> LET* BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE TRUNCATE 
; ==>
;   (* REST 10)
; 
; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a INTEGER.
; 
; note: unable to associate */(* /) of constants due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a RATIONAL.

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

;     (<= 0 CL-L10N::ROUNDED-FRACTION-PART)
; --> >= IF >= OR LET > IF 
; ==>
;   (> SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FLOAT.

; --> >= IF >= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (ITERATE:ITER
;       (ITERATE:WITH REST = CL-L10N::ROUNDED-FRACTION-PART)
;       (ITERATE:WITH CL-L10N::DIGIT)
;       (ITERATE:REPEAT CL-L10N::ROUNDING-FRACTION-LENGTH)
;       (SETF (VALUES CL-L10N::DIGIT REST) (TRUNCATE (* REST 10)))
;       (PUSH CL-L10N::DIGIT CL-L10N::FRACTION-DIGITS))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

; --> LET* BLOCK TAGBODY PROGN IF <= OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.
; 
; note: unable to open code because: The operands might not be the same type.

;     (ABS NUMBER)
; 
; note: forced to do full call
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T).
;       unable to do inline float arithmetic (cost 1) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T).

;     (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT))
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 4) because:
;       The first argument is a (OR INTEGER DOUBLE-FLOAT (RATIONAL 0)), not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR DOUBLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a (OR INTEGER DOUBLE-FLOAT (RATIONAL 0)), not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR DOUBLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (TRUNCATE (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT)))
; --> TRUNCATE LET VALUES LOCALLY 
; ==>
;   (- SB-C::X SB-C::RES)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a FIXNUM.
;       The second argument is a INTEGER, not a FIXNUM.
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 5) because:
;       The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a (SIGNED-BYTE 64).
;       The second argument is a INTEGER, not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (<= 0 CL-L10N::ROUNDED-FRACTION-PART)
; --> >= IF >= OR LET > 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 (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FIXNUM.
;       etc.

;     (< CL-L10N::ROUNDED-FRACTION-PART 1)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT), not a FIXNUM.
;       etc.

;     (ITERATE:ITER
;       (ITERATE:WITH REST = CL-L10N::ROUNDED-FRACTION-PART)
;       (ITERATE:WITH CL-L10N::DIGIT)
;       (ITERATE:REPEAT CL-L10N::ROUNDING-FRACTION-LENGTH)
;       (SETF (VALUES CL-L10N::DIGIT REST) (TRUNCATE (* REST 10)))
;       (PUSH CL-L10N::DIGIT CL-L10N::FRACTION-DIGITS))
; --> LET* BLOCK TAGBODY PROGN IF <= OR LET < 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 REAL, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a REAL, not a FIXNUM.
;       etc.

; --> LET* BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL TRUNCATE TRUNCATE 
; ==>
;   (* REST 10)
; 
; note: forced to do GENERIC-* (cost 30)
;       unable to do inline fixnum arithmetic (cost 3) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a FIXNUM.
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 4) because:
;       The first argument is a (OR (RATIONAL (-1) (1)) DOUBLE-FLOAT SINGLE-FLOAT), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (OR SINGLE-FLOAT DOUBLE-FLOAT (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

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

; --> LET* BLOCK TAGBODY PROGN SETQ THE 1- 
; ==>
;   (- #:COUNT99 1)
; 
; note: forced to do GENERIC-- (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a REAL, not a FIXNUM.
;       The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (ITERATE:ITER
;       (ITERATE:WITH CL-L10N::GROUPING-SIZE = (OR CL-L10N::PRIMARY-GROUPING-SIZE 0))
;       (ITERATE:WITH CL-L10N::REMAINDER = CL-L10N::ROUNDED-INTEGER-PART)
;       (ITERATE:WITH CL-L10N::NUMBER-OF-DIGITS = 0)
;       (ITERATE:WITH CL-L10N::GROUP)
;       (ITERATE:UNTIL (AND (ZEROP CL-L10N::REMAINDER) (>= CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS)))
;       (IF (ZEROP CL-L10N::GROUPING-SIZE)
;           (PROGN (SETF CL-L10N::GROUP CL-L10N::REMAINDER) (SETF CL-L10N::REMAINDER 0))
;           (SETF (VALUES CL-L10N::REMAINDER CL-L10N::GROUP) (TRUNCATE CL-L10N::REMAINDER #)))
;       (ITERATE:ITER
;         (ITERATE:WITH CL-L10N::DIGIT)
;         (ITERATE:WITH COUNT = 0)
;         (ITERATE:UNTIL (OR (AND # #) (AND # # #)))
;         (SETF (VALUES CL-L10N::GROUP CL-L10N::DIGIT) (TRUNCATE CL-L10N::GROUP 10))
;         (CL-L10N::EMIT (CL-L10N::LOCALIZE-NUMBER-SYMBOL-CHARACTER (DIGIT-CHAR CL-L10N::DIGIT)))
;         (INCF CL-L10N::NUMBER-OF-DIGITS)
;         (INCF COUNT))
;       (WHEN (AND (> CL-L10N::GROUPING-SIZE 0) (OR (NOT #) (< CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS)))
;         (CL-L10N::EMIT CL-L10N::LOCALIZED-THOUSAND-SEPARATOR))
;       (WHEN (AND (ITERATE:FIRST-TIME-P) (NOT (OR # #))) (SETF CL-L10N::GROUPING-SIZE CL-L10N::SECONDARY-GROUPING-SIZE)))
; --> LET* BLOCK TAGBODY PROGN IF AND IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN IF OR LET AND IF OR LET >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN IF OR LET AND IF OR LET IF AND IF >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN IF OR LET IF AND IF >= IF >= IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> LET* BLOCK TAGBODY PROGN IF AND IF OR LET IF < IF 
; ==>
;   (< CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.

; --> LET* BLOCK TAGBODY PROGN LET* BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (+ 1 CL-L10N::NUMBER-OF-DIGITS)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; ==>
;   (+ 1 COUNT)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).
;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/pattern-compiling.lisp
; in: DEFUN COMPILE-DATE-TIME-PATTERNS/GREGORIAN-CALENDAR
;     (IF CL-L10N::TWELVE-HOUR
;         (MOD CL-L10N::HOUR 12)
;         CL-L10N::HOUR)
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (ZEROP CL-L10N::HOUR)
; --> = 
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (IF CL-L10N::TWELVE-HOUR
;         12
;         24)
; ==>
;   CL-L10N::TWELVE-HOUR
; 
; note: deleting unreachable code

;     (INCF CL-L10N::HOUR
;           (IF CL-L10N::TWELVE-HOUR
;               12
;               24))
; --> SETQ THE + 
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (IF CL-L10N::TWELVE-HOUR
;         (MOD CL-L10N::HOUR 12)
;         CL-L10N::HOUR)
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (ZEROP CL-L10N::HOUR)
; --> = 
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (IF CL-L10N::TWELVE-HOUR
;         12
;         24)
; ==>
;   CL-L10N::TWELVE-HOUR
; 
; note: deleting unreachable code

;     (INCF CL-L10N::HOUR
;           (IF CL-L10N::TWELVE-HOUR
;               12
;               24))
; --> SETQ THE + 
; ==>
;   CL-L10N::HOUR
; 
; note: deleting unreachable code

;     (/ CL-L10N::NANO-SECOND 1.0d9)
; ==>
;   (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y)
; 
; note: unable to convert to multiplication by reciprocal because: 1.0d9 does not have an exact reciprocal

;     (CL-L10N::ERA-FORMATTER CL-L10N::ABBREVIATED-ERA-NAMES)
; --> CL-L10N::PIECE-FORMATTER LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* PROGN WRITE-STRING AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CL-L10N::ERA-FORMATTER CL-L10N::NARROW-ERA-NAMES)
; --> CL-L10N::PIECE-FORMATTER LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* PROGN WRITE-STRING AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CL-L10N::ERA-FORMATTER CL-L10N::ERA-NAMES)
; --> CL-L10N::PIECE-FORMATTER LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* PROGN WRITE-STRING AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::ABBREVIATED-DAY-NAMES CL-L10N::DAY-OF-WEEK)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::NARROW-DAY-NAMES CL-L10N::DAY-OF-WEEK)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::DAY-NAMES CL-L10N::DAY-OF-WEEK)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::NARROW-MONTH-NAMES CL-L10N::MONTH-1)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::MONTH-NAMES CL-L10N::MONTH-1)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::ABBREVIATED-MONTH-NAMES CL-L10N::MONTH-1)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (LENGTH CL-L10N::OUTER-PIECE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH CL-L10N::PIECE)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR CL-L10N::PIECE 0)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (EXPT 10 (- LENGTH))
; 
; note: unable to optimize due to type uncertainty: The second argument is a (INTEGER -4611686018427387900 0), not a UNSIGNED-BYTE.

;     (ROUND (/ CL-L10N::NANO-SECOND 1.0d9) CL-L10N::ROUNDING-DIVISOR)
; 
; note: doing float to pointer coercion (cost 13)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/pattern-compiling.lisp
; in: DEFUN FIND-REPLACEMENT-MARKER-IN-PATTERN
;     (ERROR "~S: error while parsing pattern ~S starting from position ~A" 'CL-L10N::FIND-REPLACEMENT-MARKER-IN-PATTERN CL-L10N::PATTERN CL-L10N::START)
; ==>
;   "~S: error while parsing pattern ~S starting from position ~A"
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code
; 
; note: deleting unreachable code

;     (ITERATE:FINISH)
; 
; note: deleting unreachable code

;     (AREF CL-L10N::PATTERN CL-L10N::INDEX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::PATTERN (1+ CL-L10N::INDEX))
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (AREF CL-L10N::PATTERN CL-L10N::INDEX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (INCF CL-L10N::INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 CL-L10N::INDEX)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (< CL-L10N::INDEX CL-L10N::END)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (AREF CL-L10N::PATTERN CL-L10N::INDEX)
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (INCF CL-L10N::INDEX)
; --> SETQ THE 
; ==>
;   (+ 1 CL-L10N::INDEX)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (< CL-L10N::INDEX CL-L10N::END)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a NUMBER, not a FIXNUM.

;     (INCF CL-L10N::NUMBER-OF-MATCHES)
; ==>
;   (SETQ CL-L10N::NUMBER-OF-MATCHES (+ 1 CL-L10N::NUMBER-OF-MATCHES))
; 
; note: doing signed word to integer coercion (cost 20) to NUMBER-OF-MATCHES
; 
; note: doing signed word to integer coercion (cost 20) to NUMBER-OF-MATCHES

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/load-locale.lisp
; in: DECLAIM (INLINE CURRENT-LOCALE (SETF CURRENT-LOCALE))
;     (DECLAIM (INLINE CL-L10N:CURRENT-LOCALE (SETF CL-L10N:CURRENT-LOCALE)))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CL-L10N:CURRENT-LOCALE (SETF CL-L10N:CURRENT-LOCALE)) (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CL-L10N:CURRENT-LOCALE to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "load-locale">
WARNING: Timezone processing is not yet implemented for time pattern compiler. Pattern is: "h:mm:ss a z"
WARNING: Timezone processing is not yet implemented for time pattern compiler. Pattern is: "h:mm:ss a zzzz"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/formatters.lisp
; in: DEFUN FORMAT-TIMESTAMP/GREGORIAN-CALENDAR
;     (CL-L10N::%FORMAT-DATE-OR-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP "FORMAT-TIMESTAMP: Should not happen..." NIL NIL :VERBOSITY CL-L10N::VERBOSITY
;      :PATTERN CL-L10N::PATTERN)
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; ==>
;   CL-L10N::TIMESTAMP
; 
; caught STYLE-WARNING:
;   reading an ignored variable: TIMESTAMP

;     (CL-L10N::FORMAT-DATE/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY CL-L10N::VERBOSITY)
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; ==>
;   CL-L10N::TIMESTAMP
; 
; caught STYLE-WARNING:
;   reading an ignored variable: TIMESTAMP

;     (WRITE-CHAR #\  STREAM)
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

;     (CL-L10N::FORMAT-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY CL-L10N::VERBOSITY)
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; ==>
;   CL-L10N::TIMESTAMP
; 
; caught STYLE-WARNING:
;   reading an ignored variable: TIMESTAMP

;     (CL-L10N::WITH-NORMALIZED-STREAM-VARIABLE STREAM
;       (IF CL-L10N::PATTERN
;           (CL-L10N::%FORMAT-DATE-OR-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP "FORMAT-TIMESTAMP: Should not happen..." NIL NIL :VERBOSITY
;            CL-L10N::VERBOSITY :PATTERN CL-L10N::PATTERN)
;           (PROGN
;            (CL-L10N::FORMAT-DATE/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY CL-L10N::VERBOSITY)
;            (WRITE-CHAR #\  STREAM)
;            (CL-L10N::FORMAT-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY CL-L10N::VERBOSITY))))
; --> FLET IF STREAMP 
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; --> FLET IF METABANG.BIND:BIND LET* PROGN COND IF NULL IF 
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; --> FLET IF METABANG.BIND:BIND LET* PROGN COND IF PROGN SETF 
; ==>
;   (SETQ STREAM (MAKE-STRING-OUTPUT-STREAM))
; 
; caught STYLE-WARNING:
;   STREAM is being set even though it was declared to be ignored.

; --> FLET IF METABANG.BIND:BIND LET* PROGN COND IF IF EQ 
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; --> FLET IF METABANG.BIND:BIND LET* PROGN COND IF IF SETF 
; ==>
;   (SETQ STREAM *STANDARD-OUTPUT*)
; 
; caught STYLE-WARNING:
;   STREAM is being set even though it was declared to be ignored.

; --> FLET IF METABANG.BIND:BIND LET* PROGN IF GET-OUTPUT-STREAM-STRING 
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM

; --> FLET IF METABANG.BIND:BIND LET* PROGN IF 
; ==>
;   STREAM
; 
; caught STYLE-WARNING:
;   reading an ignored variable: STREAM
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "formatters">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/common.lisp
; in: DEFUN VOWEL-ENTRY-FOR
;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/common.lisp
; in: DEFUN CONSONANTP
;     (CHAR-DOWNCASE CHAR)
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/common.lisp
; in: DEFUN LAST-VOWEL-OF
;     (ITERATE:ITER
;       (ITERATE:FOR CL-L10N::I CL-L10N::FROM (1- (LENGTH CL-L10N::STR)) CL-L10N::DOWNTO 0)
;       (ITERATE:FOR CHAR = (ELT CL-L10N::STR CL-L10N::I))
;       (ITERATE:FINDING CHAR :SUCH-THAT (CL-L10N:VOWELP CHAR)))
; --> LET* BLOCK TAGBODY PROGN SETQ THE 
; ==>
;   (ELT CL-L10N::STR CL-L10N::I)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/common.lisp
; in: DEFUN STARTS-WITH-CONSONANT-P
;     (ELT CL-L10N::STR 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/common.lisp
; in: DEFUN STARTS-WITH-VOWEL-P
;     (ELT CL-L10N::STR 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/english.lisp
; in: DEFUN ENGLISH-PLURAL-OF
;     (ELT CL-L10N::WORD (1- LENGTH))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

;     (CHAR-DOWNCASE CL-L10N::ORIGINAL-LAST-LETTER)
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

;     (ELT CL-L10N::WORD (- LENGTH 2))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

;     (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 2)))
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/english.lisp
; in: DEFUN ENGLISH-INDEFINITE-ARTICLE-FOR
;     (ELT CL-L10N::WORD 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/hungarian.lisp
; in: DEFUN HUNGARIAN-PLURAL-OF
;     (ELT CL-L10N::WORD (1- LENGTH))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

;     (CHAR-DOWNCASE CL-L10N::ORIGINAL-LAST-LETTER)
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

;     (ELT CL-L10N::WORD (- LENGTH 2))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

;     (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 2)))
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

;     (ELT CL-L10N::WORD (- LENGTH 3))
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

;     (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 3)))
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/hungarian.lisp
; in: DEFUN HUNGARIAN-DEFINITE-ARTICLE-FOR
;     (ELT CL-L10N::WORD 0)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a (SIMPLE-ARRAY * (*)).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/ea99b5ca38a28b28302222f9861a8c552cac4d67/cl-l10n-20181022-git/src/languages/hungarian.lisp
; in: DEFUN JELZŐ-KÉPZŐ-RAG-EGÉSZ-SZÁMOKHOZ
;     (MOD NUMBER 10)
; --> LET IF AND IF IF PLUSP > 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

;     (MOD NUMBER 100)
; --> LET IF AND IF IF PLUSP > 
; ==>
;   NUMBER
; 
; note: deleting unreachable code

;     (ITERATE:ITER
;       (ITERATE:FOR (VALUES CL-L10N::I CL-L10N::REMAINDER) :FIRST (FLOOR NUMBER 10) :THEN (FLOOR CL-L10N::I 10))
;       (ITERATE:WHILE (ZEROP CL-L10N::REMAINDER))
;       (ITERATE:COUNTING T))
; --> LET* BLOCK TAGBODY PROGN COND IF PROGN MULTIPLE-VALUE-SETQ VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).

; --> LET* BLOCK TAGBODY PROGN COND IF THE MULTIPLE-VALUE-SETQ VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a INTEGER, not a (UNSIGNED-BYTE 64).

;     (MOD NUMBER 10)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).

;     (MOD NUMBER 100)
; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).

;     (FLOOR CL-L10N::NUMBER-OF-LEADING-ZEROS 3)
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL 
; ==>
;   (TRUNCATE NUMBER SB-C::DIVISOR)
; 
; note: unable to convert integer division to multiplication due to type uncertainty: The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64).

;     (ABS NUMBER)
; --> IF 
; ==>
;   (< SB-C::X 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

; --> IF - 
; ==>
;   (SB-KERNEL:%NEGATE (THE NUMBER SB-C::X))
; 
; note: forced to do GENERIC-NEGATE (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a (INTEGER * -1), not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline (signed-byte 64) arithmetic (cost 2) because:
;       The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64).
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T).
;       etc.

;     (ITERATE:ITER
;       (ITERATE:FOR (VALUES CL-L10N::I CL-L10N::REMAINDER) :FIRST (FLOOR NUMBER 10) :THEN (FLOOR CL-L10N::I 10))
;       (ITERATE:WHILE (ZEROP CL-L10N::REMAINDER))
;       (ITERATE:COUNTING T))
; --> LET* BLOCK TAGBODY PROGN COND IF THE MULTIPLE-VALUE-SETQ VALUES PROG1 LET SETF MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FLOOR MULTIPLE-VALUE-BIND 
; --> MULTIPLE-VALUE-CALL FUNCTION IF AND IF IF MINUSP 
; ==>
;   (< NUMBER 0)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a FIXNUM.
;       etc.

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

; --> LET* BLOCK TAGBODY PROGN IF SETQ THE 1+ 
; ==>
;   (+ #:RESULT196 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a UNSIGNED-BYTE, not a FIXNUM.
;       The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
STYLE-WARNING: Undefined alien: "gvcUsername"
STYLE-WARNING: Undefined alien: "agindex"
STYLE-WARNING: Undefined alien: "agfindsubg"
STYLE-WARNING: Undefined alien: "aginsert"
STYLE-WARNING: Undefined alien: "agusergraph"
STYLE-WARNING: Undefined alien: "aginitlib"
STYLE-WARNING: Undefined alien: "agraphattr"
STYLE-WARNING: Undefined alien: "agnodeattr"
STYLE-WARNING: Undefined alien: "gvUsername"
STYLE-WARNING: Undefined alien: "agedgeattr"
STYLE-WARNING: Undefined alien: "agfindedge"
STYLE-WARNING: Undefined alien: "agfindattr"
STYLE-WARNING: Undefined alien: "agcanonical"
STYLE-WARNING: Undefined alien: "agprotograph"
STYLE-WARNING: Undefined alien: "agfindnode"
STYLE-WARNING: Undefined alien: "agread_usergets"
STYLE-WARNING: Undefined alien: "lfp_mkostemp"
STYLE-WARNING: Undefined alien: "lfp_get_environ"
WARNING: No definition for LFP-SPAWN-USEVFORK
WARNING: HU.DWIM.QUASI-QUOTE also exports the following symbols:
  (HU.DWIM.QUASI-QUOTE:IMPORT-EXTERNAL-QUASI-QUOTE-SYMBOLS-FOR-EXTENSIONS)
See also:
  The ANSI Standard, Macro DEFPACKAGE
  The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE*

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.quasi-quote/a6cfe34f6d330f543155a40b1324a70c94272fa5/hu.dwim.quasi-quote-20181022-darcs/source/generic/list.lisp
; in: DEFINE-COMPILER-MACRO BQ-LIST-TO-VECTOR
;     (DEFINE-COMPILER-MACRO HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR
;         (&WHOLE HU.DWIM.QUASI-QUOTE::WHOLE HU.DWIM.QUASI-QUOTE::FORM)
;       (IF (HU.DWIM.UTIL:QUOTED-FORM? HU.DWIM.QUASI-QUOTE::FORM)
;           (HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR (SECOND HU.DWIM.QUASI-QUOTE::FORM))
;           HU.DWIM.QUASI-QUOTE::WHOLE))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-C::%DEFINE-COMPILER-MACRO 'HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR
;                                 (SB-INT:NAMED-LAMBDA (COMPILER-MACRO HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR)
;                                     (#:EXPR #:ENV &AUX (HU.DWIM.QUASI-QUOTE::WHOLE #:EXPR))
;                                   (DECLARE (SB-C::LAMBDA-LIST (HU.DWIM.QUASI-QUOTE::FORM)))
;                                   (DECLARE (IGNORE #:ENV))
;                                   (SB-INT:NAMED-DS-BIND (:MACRO HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR . DEFINE-COMPILER-MACRO)
;                                       (HU.DWIM.QUASI-QUOTE::FORM)
;                                       (SB-C::COMPILER-MACRO-ARGS #:EXPR)
;                                     (BLOCK HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR
;                                       (IF #
;                                           #
;                                           HU.DWIM.QUASI-QUOTE::WHOLE)))))
; 
; caught STYLE-WARNING:
;   1 call to HU.DWIM.QUASI-QUOTE::BQ-LIST-TO-VECTOR was compiled before a compiler-macro was defined for it. A declaration of NOTINLINE at the call site will eliminate this warning, as will defining the compiler-macro before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.quasi-quote" "source" "generic" "list">
WARNING: HU.DWIM.QUASI-QUOTE.XML also exports the following symbols:
  (HU.DWIM.QUASI-QUOTE.XML:IMPORT-EXTERNAL-QUASI-QUOTE-SYMBOLS-FOR-EXTENSIONS/XML)
See also:
  The ANSI Standard, Macro DEFPACKAGE
  The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE*
;;; warning: unused declarations found in form: (TYPE ARRAY-INDEX INPUT-LENGTH).
STYLE-WARNING: Undefined alien: "gvcUsername"
STYLE-WARNING: Undefined alien: "agindex"
STYLE-WARNING: Undefined alien: "agfindsubg"
STYLE-WARNING: Undefined alien: "aginsert"
STYLE-WARNING: Undefined alien: "agusergraph"
STYLE-WARNING: Undefined alien: "aginitlib"
STYLE-WARNING: Undefined alien: "agraphattr"
STYLE-WARNING: Undefined alien: "agnodeattr"
STYLE-WARNING: Undefined alien: "gvUsername"
STYLE-WARNING: Undefined alien: "agedgeattr"
STYLE-WARNING: Undefined alien: "agfindedge"
STYLE-WARNING: Undefined alien: "agfindattr"
STYLE-WARNING: Undefined alien: "agcanonical"
STYLE-WARNING: Undefined alien: "agprotograph"
STYLE-WARNING: Undefined alien: "agfindnode"
STYLE-WARNING: Undefined alien: "agread_usergets"
STYLE-WARNING: Undefined alien: "lfp_mkostemp"
STYLE-WARNING: Undefined alien: "lfp_get_environ"
WARNING: Deprecated recursive use of (ASDF/OPERATE:OPERATE 'ASDF/LISP-ACTION:LOAD-OP '("cffi/c2ffi-generator")) while visiting (CFFI/C2FFI::GENERATE-LISP-OP "hu.dwim.zlib" "c2ffi-spec" "zlib.h") - please use proper dependencies instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20181022-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cffi/34f3d099db47fe9a1d49fdebd2ddc4458564221f/cffi_0.19.0/src/c2ffi/generator.lisp
; in: DEFUN CANONICALIZE-TRANSFORMER-HOOK
;     (THE SYMBOL (UIOP/STREAM:SAFE-READ-FROM-STRING CFFI/C2FFI::HOOK))
; 
; note: type assertion too complex to check:
; (VALUES &OPTIONAL SYMBOL &REST T).
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvcUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agindex"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindsubg"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginsert"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agusergraph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginitlib"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agraphattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agnodeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agedgeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindedge"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agcanonical"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agprotograph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindnode"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agread_usergets"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_mkostemp"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_get_environ"
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvcUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agindex"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindsubg"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginsert"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agusergraph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginitlib"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agraphattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agnodeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agedgeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindedge"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agcanonical"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agprotograph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindnode"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agread_usergets"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_mkostemp"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_get_environ"
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvcUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agindex"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindsubg"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginsert"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agusergraph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "aginitlib"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agraphattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agnodeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "gvUsername"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agedgeattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindedge"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindattr"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agcanonical"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agprotograph"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agfindnode"
COMMON-LISP:STYLE-WARNING: Undefined alien: "agread_usergets"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_mkostemp"
COMMON-LISP:STYLE-WARNING: Undefined alien: "lfp_get_environ"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rfc2388-binary/4ea6b34d653445314332dce88e4792b8332004f0/rfc2388-binary-20181022-git/source/parsing.lisp
; in: DEFMETHOD READ-MIME (STREAM ARRAY T)
;     (STRING= "multipart/mixed" (RFC2388-BINARY:CONTENT-TYPE RFC2388-BINARY::PART))
; ==>
;   (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 (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rfc2388-binary/4ea6b34d653445314332dce88e4792b8332004f0/rfc2388-binary-20181022-git/source/parsing.lisp
; in: DEFUN PARSE-KEY-VALUES
;     (LOOP RFC2388-BINARY::WITH RFC2388-BINARY::STATE = :PRE-KEY
;           RFC2388-BINARY::FOR CHAR RFC2388-BINARY::ACROSS RFC2388-BINARY::KEY-VALUE-STRING
;           DO (FLET ((RFC2388-BINARY::EXTEND (STRING)
;                       (VECTOR-PUSH-EXTEND CHAR STRING))
;                     (RFC2388-BINARY::FINISH-VALUE ()
;                       (SETF #)
;                       (PUSH # RFC2388-BINARY::KEYS-AND-VALUES)
;                       (SETF #)))
;                (CASE CHAR
;                  (#\= (ECASE RFC2388-BINARY::STATE # #))
;                  (#\; (ECASE RFC2388-BINARY::STATE # #))
;                  (#\" (ECASE RFC2388-BINARY::STATE # #))
;                  ((#\  #\Tab) (ECASE RFC2388-BINARY::STATE # # #))
;                  (T (ECASE RFC2388-BINARY::STATE # # #))))
;           RFC2388-BINARY::FINALLY ...)
; --> BLOCK LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rfc2388-binary/4ea6b34d653445314332dce88e4792b8332004f0/rfc2388-binary-20181022-git/source/parsing.lisp
; in: DEFUN PARSE-HEADER-VALUE
;     (LOOP RFC2388-BINARY::WITH RFC2388-BINARY::VALUE RFC2388-BINARY::OF-TYPE (ARRAY CHARACTER (*)) = (MAKE-ARRAY (LENGTH RFC2388-BINARY::HEADER-VALUE-STRING)
;                                                                                                                  :ELEMENT-TYPE 'CHARACTER :ADJUSTABLE T
;                                                                                                                  :FILL-POINTER 0)
;           RFC2388-BINARY::WITH RFC2388-BINARY::STATE = :PRE-VALUE
;           RFC2388-BINARY::FOR ...)
; --> BLOCK LET LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

;     (MAKE-ARRAY (- (LENGTH RFC2388-BINARY::HEADER-VALUE-STRING) 1 RFC2388-BINARY::OFFSET) :ELEMENT-TYPE (ARRAY-ELEMENT-TYPE RFC2388-BINARY::HEADER-VALUE-STRING)
;                 :DISPLACED-TO RFC2388-BINARY::HEADER-VALUE-STRING :DISPLACED-INDEX-OFFSET (1+ RFC2388-BINARY::OFFSET))
; 
; note: unable to optimize because: ELEMENT-TYPE is not constant.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.web-server/a9c403f3037c6624a541620adfc6a7f0212f794f/hu.dwim.web-server-20181022-darcs/source/application/dojo.lisp
; in: DEF (WITH-MACRO* E)
;     (HU.DWIM.DEF:DEF (HU.DWIM.DEF:WITH-MACRO* HU.DWIM.WEB-SERVER::E) HU.DWIM.WEB-SERVER:RENDER-DOJO-WIDGET
;                      (HU.DWIM.WEB-SERVER::DOJO-TYPE &OPTIONAL (HU.DWIM.WEB-SERVER::DOJO-PROPERTIES 'NIL) &KEY
;                       (HU.DWIM.WEB-SERVER::ID (HU.DWIM.WEB-SERVER::GENERATE-UNIQUE-STRING "_w")))
;                      (MULTIPLE-VALUE-PROG1 (HU.DWIM.DEF:-WITH-MACRO/BODY- (HU.DWIM.WEB-SERVER::ID 'HU.DWIM.WEB-SERVER:-ID-))
;                        (PUSH (LIST* HU.DWIM.WEB-SERVER::ID HU.DWIM.WEB-SERVER::DOJO-TYPE HU.DWIM.WEB-SERVER::DOJO-PROPERTIES)
;                              HU.DWIM.WEB-SERVER::*DOJO-WIDGETS*)))
; --> PROGN PROGN HU.DWIM.DEF:DEF PROGN LOCALLY DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA HU.DWIM.WEB-SERVER::CALL-RENDER-DOJO-WIDGET
;         (#:FN0 HU.DWIM.WEB-SERVER::DOJO-TYPE &OPTIONAL (HU.DWIM.WEB-SERVER::DOJO-PROPERTIES 'NIL) &KEY
;          (HU.DWIM.WEB-SERVER::ID (HU.DWIM.WEB-SERVER::GENERATE-UNIQUE-STRING "_w")))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (DECLARE (TYPE FUNCTION #:FN0))
;       (BLOCK HU.DWIM.WEB-SERVER::CALL-RENDER-DOJO-WIDGET
;         (SYMBOL-MACROLET ((HU.DWIM.DEF:-THIS-FUNCTION/NAME- 'HU.DWIM.WEB-SERVER::CALL-RENDER-DOJO-WIDGET))
;           (LABELS (# #)
;             (DECLARE #)
;             (BLOCK HU.DWIM.WEB-SERVER:RENDER-DOJO-WIDGET #)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (#:FN0 DOJO-TYPE &OPTIONAL (DOJO-PROPERTIES (QUOTE NIL)) &KEY (ID (GENERATE-UNIQUE-STRING "_w")))

; --> PROGN PROGN HU.DWIM.DEF:DEF PROGN LOCALLY 
; ==>
;   (DEFMACRO HU.DWIM.WEB-SERVER:RENDER-DOJO-WIDGET
;             (
;              (HU.DWIM.WEB-SERVER::DOJO-TYPE
;               &OPTIONAL
;               (HU.DWIM.WEB-SERVER::DOJO-PROPERTIES '#:IGNORE-ME #:DOJO-PROPERTIES-PROVIDED?2)
;               &KEY
;               (HU.DWIM.WEB-SERVER::ID '#:IGNORE-ME #:ID-PROVIDED?3))
;              &BODY #:WITH-BODY1)
;     (DECLARE (IGNORE))
;     `(,'HU.DWIM.WEB-SERVER::CALL-RENDER-DOJO-WIDGET
;       (ALEXANDRIA.0.DEV:NAMED-LAMBDA ,'HU.DWIM.WEB-SERVER::RENDER-DOJO-WIDGET-BODY
;           ,(LIST 'HU.DWIM.WEB-SERVER:-ID-)
;         ,@NIL
;         ,@#:WITH-BODY1)
;       ,@(APPEND (LIST HU.DWIM.WEB-SERVER::DOJO-TYPE) (WHEN #:DOJO-PROPERTIES-PROVIDED?2 (LIST HU.DWIM.WEB-SERVER::DOJO-PROPERTIES))
;                 (WHEN #:ID-PROVIDED?3 (LIST ':ID HU.DWIM.WEB-SERVER::ID)))))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (DOJO-TYPE &OPTIONAL (DOJO-PROPERTIES (QUOTE #:IGNORE-ME) #:DOJO-PROPERTIES-PROVIDED?2) &KEY (ID (QUOTE #:IGNORE-ME) #:ID-PROVIDED?3))
WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "dojo">
; 
; caught ERROR:
;   READ error during COMPILE-FILE: Symbol "FUNCALLABLE-INSTANCE-FUN" not found in the SB-KERNEL package. Line: 147, Column: 129, File-Position: 8570 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.web-server/a9c403f3037c6624a541620adfc6a7f0212f794f/hu.dwim.web-server-20181022-darcs/source/application/session-logic.lisp" {100D93A633}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E14F783}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E14F783}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100E14F783}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((FLET CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/01112d47c5447cea51bb89332792802e103b3736/hu.dwim.asdf-20181022-darcs/source/system.lisp")) [more]
8: (HU.DWIM.ASDF::CALL-WITH-MUFFLED-BORING-COMPILER-WARNINGS #<CLOSURE (FLET CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/01112d47c5447cea51bb89332792802e103b3736/hu.dwim.asdf-20181022-darcs/source/system.lisp") {100D903A3B}>)
9: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/OPERATION:OPERATION HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">) [fast-method]
10: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">) [fast-method]
11: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server.application" "source" "application" "session-logic">) [fast-method]
12: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10067D13E3}>) [fast-method]
13: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
14: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10067D13E3}>) [fast-method]
15: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
16: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">)
17: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
18: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">) [fast-method]
19: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation")
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method]
22: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10066F231B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
24: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10066C4F3B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
25: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method]
26: (DEPCHECK::COMPUTE-DEPENDENCIES "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation")
27: (DEPCHECK::MAGIC "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-tjQO5ZIP/depcheck-win.txt")
28: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-tjQO5ZIP/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-tjQO5ZIP/depcheck-fail.txt"))
29: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
30: ((FLET SB-UNIX::BODY :IN SB-EXT:SAVE-LISP-AND-DIE))
31: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SB-EXT:SAVE-LISP-AND-DIE))
32: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))

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