cells-gtk3

SBCL 1.4.12.120-6b7a9a7 / ASDF 3.3.1

test-gtk

WARNING: PARSE-VERSION: "2007-12-02" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/bd13212a6d0d1e3538d9e0e21fe6d555ca461ee1/utils-kt-20181029-git/utils-kt.asd", using NIL instead
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/bd13212a6d0d1e3538d9e0e21fe6d555ca461ee1/utils-kt-20181029-git/utils-kt.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20181029-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/5a959ebf99b02db45859fe36963c283d102bad11/trivial-garbage-20181029-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: 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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/50318d343458583705c2ddf9a84e7bb8c38a5fa7/cl-freetype2-20181029-git/cl-freetype2.asd" contains definition for system "cl-freetype2-doc". Please only define "cl-freetype2" and secondary systems with a name starting with "cl-freetype2/" (e.g. "cl-freetype2/test") in that file.
STYLE-WARNING: Defining (*UFB-OPCODES*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/cells-gtk/layout.lisp
; in: DEF-WIDGET SCROLLED-WINDOW
;     (CELLS-GTK::DEF-WIDGET CELLS-GTK:SCROLLED-WINDOW (CELLS-GTK:CONTAINER) NIL
;                            (CELLS-GTK:POLICY CELLS-GTK:PLACEMENT
;                                              CELLS-GTK:SHADOW-TYPE)
;                            NIL :EXPAND T :FILL T :POLICY (LIST 1 1) ...)
; --> CELLS-GTK::DEF-GTK PROGN CELLS:DEFMODEL PROGN PROGN DEFCLASS PROGN 
; ==>
;   (LET ((#:G45 #'(LAMBDA () (DECLARE #) (CELLS:C-IN NIL)))
;         (#:G44
;          #'(LAMBDA () (DECLARE #) (LIST GTK-FFI:+C-NULL+ GTK-FFI:+C-NULL+)))
;         (#:G43 #'(LAMBDA () (DECLARE #) (LIST 1 1)))
;         (#:G42 #'(LAMBDA () (DECLARE #) 'CELLS-GTK:SCROLLED-WINDOW)))
;     (SB-PCL::LOAD-DEFCLASS 'CELLS-GTK:SCROLLED-WINDOW 'STANDARD-CLASS
;                            '(CELLS-GTK:CONTAINER)
;                            (LIST
;                             (LIST* :INITFUNCTION #:G45 :NAME 'CELLS-GTK:POLICY
;                                    :READERS 'NIL :WRITERS 'NIL :INITARGS
;                                    '(:POLICY) 'SB-PCL::SOURCE ...)
;                             (LIST* :INITFUNCTION #:G45 :NAME
;                                    'CELLS-GTK:PLACEMENT :READERS 'NIL :WRITERS
;                                    'NIL :INITARGS '(:PLACEMENT) 'SB-PCL::SOURCE
;                                    ...)
;                             (LIST* :INITFUNCTION #:G45 :NAME
;                                    'CELLS-GTK:SHADOW-TYPE :READERS 'NIL
;                                    :WRITERS 'NIL :INITARGS '(:SHADOW-TYPE)
;                                    'SB-PCL::SOURCE ...))
;                            (LIST :DOCUMENTATION "chya" :DIRECT-DEFAULT-INITARGS
;                                  (LIST
;                                   `(,':DEF-GOBJECT-CLASS-NAME
;                                     ,''CELLS-GTK:SCROLLED-WINDOW ,#:G42)
;                                   `(,':EXPAND ,'T ,#'SB-INT:CONSTANTLY-T)
;                                   `(,':FILL ,'T ,#'SB-INT:CONSTANTLY-T)
;                                   `(,':POLICY ,'# ,#:G43)
;                                   `(,':NEW-ARGS ,'# ,#:G44)))
;                            'NIL 'NIL
;                            '(CELLS-GTK:SHADOW-TYPE CELLS-GTK:PLACEMENT
;                                                    CELLS-GTK:POLICY)
;                            (SB-C:SOURCE-LOCATION)))
; 
; caught ERROR:
;   Objects of type SB-SYS:SYSTEM-AREA-POINTER can't be dumped into fasl files.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100DA904B3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100DA904B3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100DA904B3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100562CF83}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100562CF83}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "test-gtk"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "test-gtk">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "test-gtk">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "test-gtk")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "test-gtk") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100562473B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10055E123B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "test-gtk") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "test-gtk" "test-gtk")
23: (DEPCHECK::MAGIC "test-gtk" "test-gtk" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XtDHDi3m/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "test-gtk" "test-gtk" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XtDHDi3m/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-XtDHDi3m/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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

cells-gtk

WARNING: PARSE-VERSION: "2007-12-02" doesn't follow asdf version numbering convention
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/bd13212a6d0d1e3538d9e0e21fe6d555ca461ee1/utils-kt-20181029-git/utils-kt.asd", using NIL instead
WARNING: Invalid :version specifier "2007-12-02" for component "utils-kt" from file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/utils-kt/bd13212a6d0d1e3538d9e0e21fe6d555ca461ee1/utils-kt-20181029-git/utils-kt.asd", using NIL instead
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20181029-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/5a959ebf99b02db45859fe36963c283d102bad11/trivial-garbage-20181029-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: 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: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/50318d343458583705c2ddf9a84e7bb8c38a5fa7/cl-freetype2-20181029-git/cl-freetype2.asd" contains definition for system "cl-freetype2-doc". Please only define "cl-freetype2" and secondary systems with a name starting with "cl-freetype2/" (e.g. "cl-freetype2/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/trc-eko.lisp
; in: DEFUN CALL-TRC
;     (IF CELLS::PKWP
;         " ~(~s~)"
;         " ~(~s~)")
; ==>
;   " ~(~s~)"
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/cells.lisp
; in: DEFUN CELLS-RESET
;     (DEFUN CELLS:CELLS-RESET (&OPTIONAL CELLS::CLIENT-QUEUE-HANDLER &KEY DEBUG)
;       (UTILS-KT:UTILS-KT-RESET)
;       (SETF CELLS::*C-DEBUG* DEBUG
;             CELLS::*C-PROP-DEPTH* 0
;             CELLS::*NOT-TO-BE* NIL
;             CELLS::*NTB-DBG* NIL
;             CELLS::*DATA-PULSE-ID* 0
;             CELLS::*FINBIZ-ID* 0
;             ...)
;       (CELLS:TRC NIL "------ cell reset ----------------------------"))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CELLS:CELLS-RESET
;         (&OPTIONAL CELLS::CLIENT-QUEUE-HANDLER &KEY DEBUG)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CELLS:CELLS-RESET
;         (UTILS-KT:UTILS-KT-RESET)
;         (SETF CELLS::*C-DEBUG* DEBUG
;               CELLS::*C-PROP-DEPTH* 0
;               CELLS::*NOT-TO-BE* NIL
;               CELLS::*NTB-DBG* NIL
;               CELLS::*DATA-PULSE-ID* 0
;               CELLS::*FINBIZ-ID* 0
;               ...)
;         (CELLS:TRC NIL "------ cell reset ----------------------------")))
; 
; caught STYLE-WARNING:
;   &OPTIONAL and &KEY found in the same lambda list: (&OPTIONAL CLIENT-QUEUE-HANDLER &KEY DEBUG)
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "cells">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/integrity.lisp
; in: DEFINE-CONSTANT *UFB-OPCODES*
;     (UTILS-KT:DEFINE-CONSTANT CELLS::*UFB-OPCODES*
;                               '(:TELL-DEPENDENTS :AWAKEN :CLIENT :EPHEMERAL-RESET
;                                 :CHANGE :POST-CHANGE))
; --> DEFCONSTANT EVAL-WHEN 
; ==>
;   (SB-C::%DEFCONSTANT 'CELLS::*UFB-OPCODES*
;                       (IF (NOT (BOUNDP 'CELLS::*UFB-OPCODES*))
;                           '(:TELL-DEPENDENTS :AWAKEN :CLIENT :EPHEMERAL-RESET
;                             :CHANGE :POST-CHANGE)
;                           (LET ((UTILS-KT::VALUE '#))
;                             (IF (EQUAL UTILS-KT::VALUE #)
;                                 (SYMBOL-VALUE 'CELLS::*UFB-OPCODES*)
;                                 UTILS-KT::VALUE)))
;                       (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Defining (*UFB-OPCODES*) as a constant, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/integrity.lisp
; in: DEFUN CALL-WITH-INTEGRITY
;     (LET ((CELLS::*ISTACK*
;            (LIST (LIST CELLS::OPCODE CELLS::DEFER-INFO)
;                  (LIST :TRIGGER CELLS::CODE)
;                  (LIST :START-DP CELLS::*DATA-PULSE-ID*))))
;       (CELLS:TRC "*istack* bound")
;       (HANDLER-CASE (CELLS::GO-GO)
;                     (CELLS::XCELL (CELLS::C)
;                      (IF (FUNCTIONP CELLS::*C-DEBUG*)
;                          (FUNCALL CELLS::*C-DEBUG* CELLS::C #)
;                          (LOOP CELLS::FOR CELLS::F CELLS::IN #
;                                DO #
;                                CELLS::FINALLY # #))))
;       (CELLS:TRC "*istack* unbinding"))
; 
; note: deleting unreachable code

;     (CELLS:TRC "*istack* bound")
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "*istack* bound"
; 
; note: deleting unreachable code

;     (NREVERSE CELLS::*ISTACK*)
; 
; note: deleting unreachable code

;     (FORMAT T "~&istk> ~(~a~) " CELLS::F)
; ==>
;   CELLS::F
; 
; note: deleting unreachable code

;     (DESCRIBE CELLS::C)
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (FUNCTIONP CELLS::*C-DEBUG*)
; 
; note: deleting unreachable code

;     (FUNCALL CELLS::*C-DEBUG* CELLS::C (NREVERSE CELLS::*ISTACK*))
; --> SB-C::%FUNCALL 
; ==>
;   CELLS::C
; 
; note: deleting unreachable code

;     (CELLS:TRC "*istack* unbinding")
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "*istack* unbinding"
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "integrity">
STYLE-WARNING: Defining (*UFB-OPCODES*) as a constant, even though the name follows
the usual naming convention (names like *FOO*) for special variables

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/cell-types.lisp
; in: DEFSTRUCT CELL
;     (DEFSTRUCT (CELLS:CELL (:CONC-NAME CELLS::C-))
;       CELLS::MODEL
;       CELLS::SLOT-NAME
;       CELLS:VALUE
;       CELLS::INPUTP
;       CELLS::SYNAPTIC
;       (CELLS::CALLER-STORE (UTILS-KT:MAKE-FIFO-QUEUE) :TYPE CONS)
;       (CELLS::STATE :NASCENT :TYPE SYMBOL)
;       (CELLS::VALUE-STATE :UNBOUND :TYPE SYMBOL)
;       (CELLS::PULSE 0 :TYPE FIXNUM)
;       (CELLS::PULSE-LAST-CHANGED 0 :TYPE FIXNUM)
;       ...)
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CELLS:CELL {10039909E3}>
;    '#(#<SB-KERNEL:LAYOUT for T {50300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {50300083}>))
; 
; caught STYLE-WARNING:
;   Previously compiled call to CELLS::C-MODEL could not be inlined because the structure definition for CELLS:CELL 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 #<CL-SOURCE-FILE "cells" "cell-types">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/initialize.lisp
; in: EVAL-WHEN (COMPILE EVAL LOAD)
;     (EVAL-WHEN (COMPILE EVAL LOAD) (EXPORT '(CELLS::C-ENVALUE)))
; 
; caught STYLE-WARNING:
;   using deprecated EVAL-WHEN situation names LOAD EVAL COMPILE
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "initialize">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/model-object.lisp
; in: DEFUN (SETF MD-SLOT-CELL)
;     (CELLS::CD-USEDS CELLS::OLD)
; --> TRULY-THE SB-KERNEL:%INSTANCE-REF THE 
; ==>
;   CELLS::OLD
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/md-utilities.lisp
; in: DEFGENERIC NOT-TO-BE
;     (TYPEP CELLS:SELF 'CELLS::FAMILY)
; --> LET 
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::GOK)
; 
; note: deleting unreachable code

;     (CELLS:TRC "finished nailing" CELLS:SELF)
; --> CELLS:WITHOUT-C-DEPENDENCY LET CELLS::CALL-TRC 
; ==>
;   "finished nailing"
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/md-utilities.lisp
; in: DEFUN COUNT-MODEL
;     (LET ((CELLS::*COUNTED* (MAKE-HASH-TABLE :TEST 'EQ :SIZE 5000)))
;       (UTILS-KT:WITH-METRICS (T NIL "cells statistics for" CELLS:SELF)
;           (LABELS ((CELLS::CC #
;                      #))
;             (CELLS::CC CELLS:SELF NIL))))
; 
; caught STYLE-WARNING:
;   using the lexical binding of the symbol (CELLS::*COUNTED*), not the
;   dynamic binding, even though the name follows
;   the usual naming convention (names like *FOO*) for special variables

;     (UTILS-KT:WITH-METRICS (T NIL "cells statistics for" CELLS:SELF)
;         (LABELS ((CELLS::CC (CELLS:SELF CELLS::FROM)
;                    (UNLESS # # #)))
;           (CELLS::CC CELLS:SELF NIL)))
; --> UTILS-KT:WITH-COUNTS IF LET PROG2 PROG1 LET PROGN PROGN UTILS-KT:TIMEX IF 
; --> PROG2 PROG1 LET PROGN FORMAT LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code

; --> UTILS-KT:WITH-COUNTS IF LET PROG2 PROG1 LET PROGN PROGN UTILS-KT:TIMEX IF 
; --> PROG2 PROG1 LET FORMAT LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code

; --> UTILS-KT:WITH-COUNTS IF PROGN UTILS-KT:TIMEX IF PROG2 PROG1 LET PROGN 
; --> FORMAT LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code

; --> UTILS-KT:WITH-COUNTS IF PROGN UTILS-KT:TIMEX IF PROG2 PROG1 LET FORMAT 
; --> LIST 
; ==>
;   "cells statistics for"
; 
; note: deleting unreachable code

;     (CELLS::CC CELLS:SELF NIL)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CAR CELLS:SELF)
; ==>
;   CELLS:SELF
; 
; note: deleting unreachable code

;     (CELLS::CC CELLS::K CELLS:SELF)
; ==>
;   CELLS::K
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells" "md-utilities">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/family.lisp
; in: DEFSTRUCT KID-SLOTDEF
;     (DEFSTRUCT (CELLS::KID-SLOTDEF (:CONC-NAME NIL))
;       CELLS::KS-NAME
;       CELLS::KS-RULE
;       (CELLS::KS-IF-MISSING T))
; --> PROGN EVAL-WHEN 
; ==>
;   (SB-KERNEL::%COMPILER-DEFSTRUCT
;    '#<SB-KERNEL:DEFSTRUCT-DESCRIPTION CELLS::KID-SLOTDEF {10021B0843}>
;    '#(#<SB-KERNEL:LAYOUT for T {50300003}>
;       #<SB-KERNEL:LAYOUT for STRUCTURE-OBJECT {50300083}>))
; 
; caught STYLE-WARNING:
;   Previously compiled calls to CELLS::KS-NAME, CELLS::KS-RULE and CELLS::KS-IF-MISSING could not be inlined because the structure definition for CELLS::KID-SLOTDEF 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 #<CL-SOURCE-FILE "cells" "family">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/fm-utilities.lisp
; in: DEFUN FM-FIND-ALL
;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER (CELLS::KID)
;                                (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
;       (LET ((CELLS::MATCHES (REMOVE-IF-NOT CELLS::FILTER #)))
;         (WHEN CELLS::MATCHES (THROW 'CELLS:FM-FIND-ALL CELLS::MATCHES))))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS::KID) (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (FILTER (KID) (EQL MD-NAME (MD-NAME KID))) (LET ((MATCHES (REMOVE-IF-NOT FILTER (KIDS FAMILY)))) (WHEN MATCHES (THROW (QUOTE FM-FIND-ALL) MATCHES))))

;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::TRAVELLER (CELLS:FAMILY)
;                                (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER
;                                                           (CELLS::KID)
;                                                           (EQL CELLS:MD-NAME #))
;                                  (LET (#)
;                                    (WHEN CELLS::MATCHES #))))
;       (CELLS:FM-TRAVERSE CELLS:FAMILY CELLS::TRAVELLER :GLOBAL-SEARCH
;        CELLS::GLOBAL-SEARCH))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS:FAMILY)
;       (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FILTER (CELLS::KID)
;                                  (EQL CELLS:MD-NAME (CELLS:MD-NAME CELLS::KID)))
;         (LET ((CELLS::MATCHES #))
;           (WHEN CELLS::MATCHES (THROW 'CELLS:FM-FIND-ALL CELLS::MATCHES)))))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (TRAVELLER (FAMILY) (WITH-DYNAMIC-FN (FILTER (KID) (EQL MD-NAME (MD-NAME KID))) (LET ((MATCHES (REMOVE-IF-NOT FILTER (KIDS FAMILY)))) (WHEN MATCHES (THROW (QUOTE FM-FIND-ALL) MATCHES))))) (FM-TRAVERSE FAMILY TRAVELLER :GLOBAL-SEARCH GLOBAL-SEARCH))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells/49c5235fd154b630c785941523c910666b970a64/cells-20181029-git/fm-utilities.lisp
; in: DEFUN FM-KID-CONTAINING
;     (UTILS-KT:WITH-DYNAMIC-FN (CELLS::FINDER (CELLS::NODE)
;                                (NOT (EQL CELLS:FM-PARENT CELLS::NODE)))
;       (CELLS:FM-TOP CELLS::DESCENDANT CELLS::FINDER))
; --> LET LAMBDA 
; ==>
;   #'(LAMBDA (CELLS::NODE) (NOT (EQL CELLS:FM-PARENT CELLS::NODE)))
; 
; note: could not stack allocate: (WITH-DYNAMIC-FN (FINDER (NODE) (NOT (EQL FM-PARENT NODE))) (FM-TOP DESCENDANT FINDER))

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-ffi.lisp
; in: DEF-C-STRUCT GDK-EVENT-BUTTON
;     (GTK-FFI::DEF-C-STRUCT GTK-FFI::GDK-EVENT-BUTTON
;                            (TYPE GTK-FFI::GDK-EVENT-TYPE)
;                            (GTK-FFI::WINDOW :POINTER)
;                            (GTK-FFI::SEND-EVENT GTK-FFI::GINT8)
;                            (TIME GTK-FFI::GUINT32) (GTK-FFI::X GTK-FFI::GDOUBLE)
;                            (GTK-FFI::Y GTK-FFI::GDOUBLE)
;                            (GTK-FFI::AXES (:POINTER GTK-FFI::GDOUBLE))
;                            (GTK-FFI::STATE GTK-FFI::GUINT)
;                            (GTK-FFI::BUTTON GTK-FFI::GUINT)
;                            (GTK-FFI::DEVICE :POINTER) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE14 #:G0 'GTK-FFI::GDK-EVENT-BUTTON 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE27 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE32 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE37 #:G0 'GTK-FFI::GDK-EVENT-BUTTON 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE42 #:G0 'GTK-FFI::GDK-EVENT-BUTTON 'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE47 #:G0 'GTK-FFI::GDK-EVENT-BUTTON 'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE52 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE57 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE62 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::BUTTON)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE67 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE72 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE77 #:G0 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; ==>
;   (CFFI:FOREIGN-ALLOC 'GTK-FFI::GDK-EVENT-BUTTON)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE158 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE176 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE192 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE209 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON 'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE225 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON 'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE241 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE257 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE273 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::BUTTON)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE289 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::BUTTON)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE305 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE321 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                            'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE337 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-BUTTON
;                           'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-BUTTON)) or (:STRUCT GDK-EVENT-BUTTON) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-ffi.lisp
; in: DEF-C-STRUCT GDK-EVENT-KEY
;     (GTK-FFI::DEF-C-STRUCT GTK-FFI::GDK-EVENT-KEY (TYPE GTK-FFI::GDK-EVENT-TYPE)
;                            (GTK-FFI::WINDOW :POINTER)
;                            (GTK-FFI::SEND-EVENT GTK-FFI::GINT8)
;                            (TIME GTK-FFI::GUINT32)
;                            (GTK-FFI::STATE GTK-FFI::GUINT)
;                            (GTK-FFI::KEYVAL GTK-FFI::GUINT)
;                            (LENGTH GTK-FFI::GINT) (STRING :POINTER)
;                            (GTK-FFI::HARDWARE_KEYCODE GTK-FFI::GUINT16)
;                            (POD-UTILS:GROUP GTK-FFI::GUINT8) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE13 #:G0 'GTK-FFI::GDK-EVENT-KEY 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE19 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE24 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE29 #:G0 'GTK-FFI::GDK-EVENT-KEY 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE34 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE39 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::KEYVAL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE44 #:G0 'GTK-FFI::GDK-EVENT-KEY 'LENGTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE49 #:G0 'GTK-FFI::GDK-EVENT-KEY 'STRING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE54 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::HARDWARE_KEYCODE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE59 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'POD-UTILS:GROUP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE64 #:G0 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::IS_MODIFIER)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; ==>
;   (CFFI:FOREIGN-ALLOC 'GTK-FFI::GDK-EVENT-KEY)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE142 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE160 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE176 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE193 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE209 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::KEYVAL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE225 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::KEYVAL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY 'LENGTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE241 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'LENGTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY 'STRING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE258 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'STRING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::HARDWARE_KEYCODE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE274 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::HARDWARE_KEYCODE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'POD-UTILS:GROUP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE290 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'POD-UTILS:GROUP)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                            'GTK-FFI::IS_MODIFIER)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE306 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-KEY
;                           'GTK-FFI::IS_MODIFIER)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-KEY)) or (:STRUCT GDK-EVENT-KEY) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-ffi.lisp
; in: DEF-C-STRUCT GDK-EVENT-EXPOSE
;     (GTK-FFI::DEF-C-STRUCT GTK-FFI::GDK-EVENT-EXPOSE
;                            (TYPE GTK-FFI::GDK-EVENT-TYPE)
;                            (GTK-FFI::WINDOW :POINTER)
;                            (GTK-FFI::SEND-EVENT GTK-FFI::GINT8)
;                            (GTK-FFI::AREA-X GTK-FFI::GINT)
;                            (GTK-FFI::AREA-Y GTK-FFI::GINT)
;                            (GTK-FFI::AREA-WIDTH GTK-FFI::GINT)
;                            (GTK-FFI::AREA-HEIGHT GTK-FFI::GINT)
;                            (GTK-FFI::REGION :POINTER) (COUNT GTK-FFI::GINT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE11 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE17 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE22 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE27 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE32 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE37 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE42 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE47 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::REGION)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE52 #:G0 'GTK-FFI::GDK-EVENT-EXPOSE 'COUNT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; ==>
;   (CFFI:FOREIGN-ALLOC 'GTK-FFI::GDK-EVENT-EXPOSE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE126 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE144 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE160 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::AREA-X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE177 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::AREA-Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE194 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::AREA-WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE211 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::AREA-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE228 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::AREA-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                            'GTK-FFI::REGION)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE245 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'GTK-FFI::REGION)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE 'COUNT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE261 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-EXPOSE
;                           'COUNT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-EXPOSE)) or (:STRUCT GDK-EVENT-EXPOSE) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-ffi.lisp
; in: DEF-C-STRUCT GDK-EVENT-MOTION
;     (GTK-FFI::DEF-C-STRUCT GTK-FFI::GDK-EVENT-MOTION
;                            (TYPE GTK-FFI::GDK-EVENT-TYPE)
;                            (GTK-FFI::WINDOW :POINTER)
;                            (GTK-FFI::SEND-EVENT GTK-FFI::GINT8)
;                            (TIME GTK-FFI::GUINT32) (GTK-FFI::X GTK-FFI::GDOUBLE)
;                            (GTK-FFI::Y GTK-FFI::GDOUBLE)
;                            (GTK-FFI::AXES (:POINTER GTK-FFI::GDOUBLE))
;                            (GTK-FFI::STATE GTK-FFI::GUINT)
;                            (GTK-FFI::IS_HINT GTK-FFI::GINT16)
;                            (GTK-FFI::DEVICE :POINTER) ...)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE14 #:G0 'GTK-FFI::GDK-EVENT-MOTION 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE20 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE25 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE30 #:G0 'GTK-FFI::GDK-EVENT-MOTION 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE35 #:G0 'GTK-FFI::GDK-EVENT-MOTION 'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE40 #:G0 'GTK-FFI::GDK-EVENT-MOTION 'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE45 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE50 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE55 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::IS_HINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE60 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE65 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE70 #:G0 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; ==>
;   (CFFI:FOREIGN-ALLOC 'GTK-FFI::GDK-EVENT-MOTION)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE152 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE170 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE186 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::SEND-EVENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION 'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE203 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'TIME)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION 'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE219 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION 'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE235 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE251 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::AXES)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE267 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::STATE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::IS_HINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE283 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::IS_HINT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE300 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::DEVICE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE316 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::X_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                            'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE332 GTK-FFI::SELF 'GTK-FFI::GDK-EVENT-MOTION
;                           'GTK-FFI::Y_ROOT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-EVENT-MOTION)) or (:STRUCT GDK-EVENT-MOTION) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-ffi.lisp
; in: DEF-C-STRUCT GSLIST
;     (GTK-FFI::DEF-C-STRUCT GTK-FFI::GSLIST (GTK-FFI::DATA GTK-FFI::GPOINTER)
;                            (GTK-FFI::NEXT GTK-FFI::GPOINTER))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET WHEN IF SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE4 #:G0 'GTK-FFI::GSLIST 'GTK-FFI::DATA)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE9 #:G0 'GTK-FFI::GSLIST 'GTK-FFI::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; --> FUNCTION BLOCK LET 
; ==>
;   (CFFI:FOREIGN-ALLOC 'GTK-FFI::GSLIST)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GSLIST 'GTK-FFI::DATA)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE48 GTK-FFI::SELF 'GTK-FFI::GSLIST
;                           'GTK-FFI::DATA)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::SELF 'GTK-FFI::GSLIST 'GTK-FFI::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; --> PROGN PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN 
; --> SB-INT:NAMED-LAMBDA FUNCTION BLOCK SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE64 GTK-FFI::SELF 'GTK-FFI::GSLIST
;                           'GTK-FFI::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "gtk-ffi" "gtk-ffi" "gtk-ffi">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-core.lisp
; in: DEF-GTK-LIB-FUNCTIONS :GLIB
;     (GTK-FFI::DEF-GTK-LIB-FUNCTIONS :GLIB
;                                     (GTK-FFI:G-FREE :VOID
;                                      ((GTK-FFI::DATA GTK-FFI::GPOINTER)))
;                                     (GTK-FFI:G-SLIST-FREE :VOID
;                                      ((GTK-FFI::LST (:POINTER GTK-FFI::GSLIST))))
;                                     (GTK-FFI:G-TIMEOUT-ADD GTK-FFI::GUINT
;                                      ((GTK-FFI::MILLISECONDS GTK-FFI::GUINT)
;                                       (GTK-FFI::FUNC :POINTER)
;                                       (GTK-FFI::DATA GTK-FFI::GPOINTER)))
;                                     (GTK-FFI:G-LOCALE-FROM-UTF8
;                                      GTK-FFI:GTK-STRING
;                                      ((GTK-FFI::UTF8-STRING GTK-FFI:GTK-STRING)
;                                       (GTK-FFI::LEN GTK-FFI::GSSIZE)
;                                       (GTK-FFI::BYTES-READ
;                                        (:POINTER GTK-FFI::GSIZE))
;                                       (GTK-FFI::BYTES-WRITTEN
;                                        (:POINTER GTK-FFI::GSIZE))
;                                       (GTK-FFI::GERROR :POINTER)))
;                                     (GTK-FFI:G-LOCALE-TO-UTF8 :POINTER
;                                      ((GTK-FFI::LOCAL-STRING GTK-FFI:GTK-STRING)
;                                       (GTK-FFI::LEN GTK-FFI::GSSIZE)
;                                       (GTK-FFI::BYTES-READ
;                                        (:POINTER GTK-FFI::GSIZE))
;                                       (GTK-FFI::BYTES-WRITTEN
;                                        (:POINTER GTK-FFI::GSIZE))
;                                       (GTK-FFI::GERROR :POINTER))))
; --> PROGN GTK-FFI::DEF-GTK-FUNCTION PROGN 
; ==>
;   (CFFI:DEFCFUN ("g_slist_free" GTK-FFI::G_SLIST_FREE)
;       :VOID
;     (GTK-FFI::LST (:POINTER GTK-FFI::GSLIST)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-core.lisp
; in: CFFI:DEFCSTRUCT G-VALUE
;     (CFFI:DEFCSTRUCT GTK-FFI::G-VALUE
;       (GTK-FFI::G-TYPE GTK-FFI::GTYPE)
;       (GTK-FFI::G-DATA (:ARRAY GTK-FFI::G-VALUE-DATA 2)))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GTK-FFI::G-VALUE
;                                           '(:CLASS GTK-FFI::G-VALUE-TCLASS)
;                                           '((GTK-FFI::G-TYPE GTK-FFI::GTYPE)
;                                             (GTK-FFI::G-DATA
;                                              (:ARRAY GTK-FFI::G-VALUE-DATA 2))))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-core.lisp
; in: DEFUN CALL-WITH-G-VALUE
;     (CFFI:WITH-FOREIGN-OBJECT (GTK-FFI::G-VALUE 'GTK-FFI::G-VALUE)
;       (LOOP GTK-FFI::FOR GTK-FFI::I GTK-FFI::FROM 0 GTK-FFI::BELOW (CFFI:FOREIGN-TYPE-SIZE
;                                                                     'GTK-FFI::G-VALUE)
;             DO (SETF (CFFI:MEM-AREF GTK-FFI::G-VALUE :UINT8 GTK-FFI::I) 0))
;       (FUNCALL GTK-FFI::FN GTK-FFI::G-VALUE))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "gtk-ffi" "gtk-ffi" "gtk-core">
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-other.lisp
; in: DEFUN GTK-ADDS-WIDGET-WIDTH
;     (CFFI:WITH-FOREIGN-OBJECT (GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION)
;       (GTK-FFI:GTK-WIDGET-GET-ALLOCATION GTK-FFI::WIDGET GTK-FFI::ALLOCATION)
;       (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                                'GTK-FFI::WIDTH))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                              'GTK-FFI::WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-other.lisp
; in: DEFUN GTK-ADDS-WIDGET-HEIGHT
;     (CFFI:WITH-FOREIGN-OBJECT (GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION)
;       (GTK-FFI:GTK-WIDGET-GET-ALLOCATION GTK-FFI::WIDGET GTK-FFI::ALLOCATION)
;       (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                                'GTK-FFI::HEIGHT))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                              'GTK-FFI::HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-other.lisp
; in: DEFUN GTK-WIDGET-SIZE
;     (CFFI:WITH-FOREIGN-OBJECT (GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION)
;       (GTK-FFI:GTK-WIDGET-GET-ALLOCATION GTK-FFI::WIDGET GTK-FFI::ALLOCATION)
;       (VALUES
;        (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                                 'GTK-FFI::WIDTH)
;        (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                                 'GTK-FFI::HEIGHT)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                              'GTK-FFI::WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.

;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::ALLOCATION 'GTK-FFI::GTK-ALLOCATION
;                              'GTK-FFI::HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GTK-ALLOCATION)) or (:STRUCT GTK-ALLOCATION) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "gtk-ffi" "gtk-ffi" "gtk-other">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/gtk-ffi/gtk-utilities.lisp
; in: DEFUN GTK-FILE-CHOOSER-GET-FILENAMES-STRS
;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::LST-ADDRESS 'GTK-FFI::GSLIST 'GTK-FFI::DATA)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.

;     (CFFI:FOREIGN-SLOT-VALUE GTK-FFI::LST-ADDRESS 'GTK-FFI::GSLIST 'GTK-FFI::NEXT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GSLIST)) or (:STRUCT GSLIST) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "gtk-ffi" "gtk-ffi" "gtk-utilities">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFINE-FLEXIBLE (TEXT-EXTENTS POINTER TEXT)
;     (VALUES CL-CAIRO2::X_BEARING CL-CAIRO2::Y_BEARING CL-CAIRO2:WIDTH
;             CL-CAIRO2:HEIGHT CL-CAIRO2::X_ADVANCE CL-CAIRO2::Y_ADVANCE)
; --> CL-CAIRO2::X_BEARING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::X_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> CL-CAIRO2::Y_BEARING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::Y_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> CL-CAIRO2:WIDTH 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> CL-CAIRO2:HEIGHT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> CL-CAIRO2::X_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::X_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> CL-CAIRO2::Y_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR12 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::Y_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFUN TEXT-EXTENTS-T-COPY-OUT
;     (SETF (CL-CAIRO2::TEXT-EXTENTS-T-X-BEARING CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2::X_BEARING
;           (CL-CAIRO2::TEXT-EXTENTS-T-Y-BEARING CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2::Y_BEARING
;           (CL-CAIRO2::TEXT-EXTENTS-T-WIDTH CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2:WIDTH
;           (CL-CAIRO2::TEXT-EXTENTS-T-HEIGHT CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2:HEIGHT
;           (CL-CAIRO2::TEXT-EXTENTS-T-X-ADVANCE CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2::X_ADVANCE
;           (CL-CAIRO2::TEXT-EXTENTS-T-Y-ADVANCE CL-CAIRO2::TEXT-EXTENTS-T)
;             CL-CAIRO2::Y_ADVANCE)
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::X_BEARING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::X_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::Y_BEARING 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::Y_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2:WIDTH 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2:HEIGHT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::X_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::X_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::Y_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                            'CL-CAIRO2::Y_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFUN TEXT-EXTENTS-T-COPY-IN
;     (SETF CL-CAIRO2::X_BEARING
;             (CL-CAIRO2::TEXT-EXTENTS-T-X-BEARING CL-CAIRO2::TEXT-EXTENTS-T)
;           CL-CAIRO2::Y_BEARING
;             (CL-CAIRO2::TEXT-EXTENTS-T-Y-BEARING CL-CAIRO2::TEXT-EXTENTS-T)
;           CL-CAIRO2:WIDTH
;             (CL-CAIRO2::TEXT-EXTENTS-T-WIDTH CL-CAIRO2::TEXT-EXTENTS-T)
;           CL-CAIRO2:HEIGHT
;             (CL-CAIRO2::TEXT-EXTENTS-T-HEIGHT CL-CAIRO2::TEXT-EXTENTS-T)
;           CL-CAIRO2::X_ADVANCE
;             (CL-CAIRO2::TEXT-EXTENTS-T-X-ADVANCE CL-CAIRO2::TEXT-EXTENTS-T)
;           CL-CAIRO2::Y_ADVANCE
;             (CL-CAIRO2::TEXT-EXTENTS-T-Y-ADVANCE CL-CAIRO2::TEXT-EXTENTS-T))
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE1 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2::X_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE6 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2::Y_BEARING)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE11 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE16 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE21 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2::X_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE26 #:PTR0 'CL-CAIRO2::CAIRO_TEXT_EXTENTS_T
;                           'CL-CAIRO2::Y_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_TEXT_EXTENTS_T)) or (:STRUCT CAIRO_TEXT_EXTENTS_T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFUN FONT-EXTENTS-T-COPY-OUT
;     (SETF (CL-CAIRO2::FONT-EXTENTS-T-ASCENT CL-CAIRO2::FONT-EXTENTS-T)
;             CL-CAIRO2::ASCENT
;           (CL-CAIRO2::FONT-EXTENTS-T-DESCENT CL-CAIRO2::FONT-EXTENTS-T)
;             CL-CAIRO2::DESCENT
;           (CL-CAIRO2::FONT-EXTENTS-T-HEIGHT CL-CAIRO2::FONT-EXTENTS-T)
;             CL-CAIRO2:HEIGHT
;           (CL-CAIRO2::FONT-EXTENTS-T-MAX-X-ADVANCE CL-CAIRO2::FONT-EXTENTS-T)
;             CL-CAIRO2::MAX_X_ADVANCE
;           (CL-CAIRO2::FONT-EXTENTS-T-MAX-Y-ADVANCE CL-CAIRO2::FONT-EXTENTS-T)
;             CL-CAIRO2::MAX_Y_ADVANCE)
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::ASCENT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                            'CL-CAIRO2::ASCENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::DESCENT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                            'CL-CAIRO2::DESCENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2:HEIGHT 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                            'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::MAX_X_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                            'CL-CAIRO2::MAX_X_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; --> PROGN SETF SB-KERNEL:%INSTANCE-SET CL-CAIRO2::MAX_Y_ADVANCE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                            'CL-CAIRO2::MAX_Y_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFUN FONT-EXTENTS-T-COPY-IN
;     (SETF CL-CAIRO2::ASCENT
;             (CL-CAIRO2::FONT-EXTENTS-T-ASCENT CL-CAIRO2::FONT-EXTENTS-T)
;           CL-CAIRO2::DESCENT
;             (CL-CAIRO2::FONT-EXTENTS-T-DESCENT CL-CAIRO2::FONT-EXTENTS-T)
;           CL-CAIRO2:HEIGHT
;             (CL-CAIRO2::FONT-EXTENTS-T-HEIGHT CL-CAIRO2::FONT-EXTENTS-T)
;           CL-CAIRO2::MAX_X_ADVANCE
;             (CL-CAIRO2::FONT-EXTENTS-T-MAX-X-ADVANCE CL-CAIRO2::FONT-EXTENTS-T)
;           CL-CAIRO2::MAX_Y_ADVANCE
;             (CL-CAIRO2::FONT-EXTENTS-T-MAX-Y-ADVANCE CL-CAIRO2::FONT-EXTENTS-T))
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE1 #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                           'CL-CAIRO2::ASCENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE6 #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                           'CL-CAIRO2::DESCENT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE11 #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                           'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE16 #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                           'CL-CAIRO2::MAX_X_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE21 #:PTR0 'CL-CAIRO2::CAIRO_FONT_EXTENTS_T
;                           'CL-CAIRO2::MAX_Y_ADVANCE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_FONT_EXTENTS_T)) or (:STRUCT CAIRO_FONT_EXTENTS_T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.

; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.

; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.

; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/text.lisp
; in: DEFUN MAKE-GLYPH-ARRAY
;     (CFFI:FOREIGN-ALLOC 'CL-CAIRO2::CAIRO_GLYPH_T :COUNT COUNT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.

; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_GLYPH_T)) or (:STRUCT CAIRO_GLYPH_T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2" "core" "text">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/font.lisp
; in: DEFUN CREATE-SCALED-FONT
;     (CFFI:FOREIGN-ALLOC 'CL-CAIRO2::CAIRO_MATRIX_T)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_MATRIX_T)) or (:STRUCT CAIRO_MATRIX_T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT CAIRO_MATRIX_T)) or (:STRUCT CAIRO_MATRIX_T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2" "core" "font">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/50318d343458583705c2ddf9a84e7bb8c38a5fa7/cl-freetype2-20181029-git/src/bitmap.lisp
; in: DEFUN BITMAP-NEW
;     (FREETYPE2-TYPES:MAKE-WRAPPER
;      (FREETYPE2::BITMAP FREETYPE2::&BITMAP FREETYPE2-TYPES:FT-BITMAP
;       (:STRUCT FREETYPE2-TYPES:FOREIGN-FT-BITMAP))
;      (PROGN (FREETYPE2-FFI:FT-BITMAP-NEW FREETYPE2::&BITMAP) :OK)
;      (FREETYPE2-FFI:FT-BITMAP-DONE FREETYPE2::LIBRARY FREETYPE2::&BITMAP))
; --> LET* IF PROGN FREETYPE2-TYPES:LIBC-FREE 
; ==>
;   FREETYPE2::&BITMAP
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/xlib/xlib.lisp
; in: DEFUN SET-WINDOW-SIZE-HINTS
;     (SETF CL-CAIRO2::FLAGS (LOGIOR CL-CAIRO2::PMINSIZE CL-CAIRO2::PMAXSIZE)
;           CL-CAIRO2::X 0
;           CL-CAIRO2::Y 0
;           (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS
;                                    'CL-CAIRO2:WIDTH)
;             CL-CAIRO2::MAX-WINDOW-WIDTH
;           (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS
;                                    'CL-CAIRO2:HEIGHT)
;             CL-CAIRO2::MAX-WINDOW-HEIGHT
;           CL-CAIRO2::MIN-WIDTH CL-CAIRO2::MIN-WINDOW-WIDTH
;           ...)
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE1 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::FLAGS)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE6 #:PTR0 'CL-CAIRO2::XSIZEHINTS 'CL-CAIRO2::X)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE11 #:PTR0 'CL-CAIRO2::XSIZEHINTS 'CL-CAIRO2::Y)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE16 CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2:WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE21 CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2:HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE26 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::MIN-WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE31 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::MAX-WIDTH)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE36 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::MIN-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE41 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::MAX-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/xlib/xlib.lisp
; in: DEFUN CREATE-WINDOW
;     (CFFI:WITH-FOREIGN-OBJECT (CL-CAIRO2::ATTRIBUTES
;                                'CL-CAIRO2::XSETWINDOWATTRIBUTES)
;       (SETF (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                      'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                      'CL-CAIRO2::EVENT-MASK)
;               CL-CAIRO2::EVENT-MASK
;             (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                      'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                      'CL-CAIRO2::BACKGROUND-PIXEL)
;               CL-CAIRO2::BACKGROUND-PIXEL
;             (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                      'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                      'CL-CAIRO2::BACKING-STORE)
;               (IF CL-CAIRO2::BACKING-STORE
;                   1
;                   0))
;       (CL-CAIRO2::XCREATEWINDOW CL-CAIRO2::DISPLAY CL-CAIRO2::PARENT 0 0
;        CL-CAIRO2:WIDTH CL-CAIRO2:HEIGHT 0 0
;        (ECASE CLASS
;          (CL-CAIRO2::COPYFROMPARENT 0)
;          (CL-CAIRO2::INPUTOUTPUT 1)
;          (CL-CAIRO2::INPUTONLY 2))
;        CL-CAIRO2::VISUAL
;        (IF (EQ CLASS 'CL-CAIRO2::INPUTONLY)
;            CL-CAIRO2::CWEVENTMASK
;            (LOGIOR CL-CAIRO2::CWBACKPIXEL CL-CAIRO2::CWBACKINGSTORE
;                    CL-CAIRO2::CWEVENTMASK))
;        ...))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead.

;     (SETF (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                    'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                    'CL-CAIRO2::EVENT-MASK)
;             CL-CAIRO2::EVENT-MASK
;           (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                    'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                    'CL-CAIRO2::BACKGROUND-PIXEL)
;             CL-CAIRO2::BACKGROUND-PIXEL
;           (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES
;                                    'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                                    'CL-CAIRO2::BACKING-STORE)
;             (IF CL-CAIRO2::BACKING-STORE
;                 1
;                 0))
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE3 CL-CAIRO2::ATTRIBUTES
;                           'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                           'CL-CAIRO2::EVENT-MASK)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE8 CL-CAIRO2::ATTRIBUTES
;                           'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                           'CL-CAIRO2::BACKGROUND-PIXEL)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead.

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE13 CL-CAIRO2::ATTRIBUTES
;                           'CL-CAIRO2::XSETWINDOWATTRIBUTES
;                           'CL-CAIRO2::BACKING-STORE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2-xlib" "xlib surface" "xlib">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/xlib/xlib-image-context.lisp
; in: DEFUN SEND-MESSAGE-TO-SIGNAL-WINDOW
;     (SETF TYPE 33)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE5 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (SETF CL-CAIRO2::DISPLAY CL-CAIRO2::DISPLAY-POINTER)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE10 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                           'CL-CAIRO2::DISPLAY)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (SETF CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE15 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                           'CL-CAIRO2::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (SETF CL-CAIRO2::MESSAGE-TYPE 0)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE20 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                           'CL-CAIRO2::MESSAGE-TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (SETF FORMAT 32)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE25 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                           'FORMAT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (SETF CL-CAIRO2::DATA0 CL-CAIRO2::MESSAGE)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE30 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                           'CL-CAIRO2::DATA0)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20181029-git/src/xlib/xlib-image-context.lisp
; in: DEFUN CREATE-XLIB-IMAGE-CONTEXT
;     (= TYPE 12)
; --> TYPE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= CL-CAIRO2::WINDOW CL-CAIRO2::THIS-WINDOW)
; --> CL-CAIRO2::WINDOW 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= TYPE 33)
; --> TYPE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= CL-CAIRO2::WINDOW CL-CAIRO2::THIS-WINDOW)
; --> CL-CAIRO2::WINDOW 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= CL-CAIRO2::MESSAGE-TYPE CL-CAIRO2::WM-PROTOCOLS)
; --> CL-CAIRO2::MESSAGE-TYPE 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR59 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                            'CL-CAIRO2::MESSAGE-TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (= CL-CAIRO2::DATA0 CL-CAIRO2::WM-DELETE-WINDOW)
; --> CL-CAIRO2::DATA0 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR59 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                            'CL-CAIRO2::DATA0)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (= CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW)
; --> CL-CAIRO2::WINDOW 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= CL-CAIRO2::DATA0 CL-CAIRO2::+DESTROY-MESSAGE+)
; --> CL-CAIRO2::DATA0 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR59 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                            'CL-CAIRO2::DATA0)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

;     (= CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW)
; --> CL-CAIRO2::WINDOW 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR58 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead.

;     (= CL-CAIRO2::DATA0 CL-CAIRO2::+REFRESH-MESSAGE+)
; --> CL-CAIRO2::DATA0 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR59 'CL-CAIRO2::XCLIENTMESSAGEEVENT
;                            'CL-CAIRO2::DATA0)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2-xlib" "core" "xlib-image-context">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/cells-gtk/compat.lisp
; in: DEFUN PROCESS-WAIT
;     (DEFUN CELLS-GTK::PROCESS-WAIT
;            (CELLS-GTK::WHOSTATE CELLS-GTK::PREDICATE &REST CELLS-GTK::ARGS)
;       "Sleep until PREDICATE becomes true.")
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CELLS-GTK::PROCESS-WAIT
;         (CELLS-GTK::WHOSTATE CELLS-GTK::PREDICATE &REST CELLS-GTK::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CELLS-GTK::PROCESS-WAIT "Sleep until PREDICATE becomes true."))
; 
; caught STYLE-WARNING:
;   The variable WHOSTATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PREDICATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/cells-gtk/compat.lisp
; in: DEFUN PROCESS-WAIT-WITH-TIMEOUT
;     (DEFUN CELLS-GTK::PROCESS-WAIT-WITH-TIMEOUT
;            (CELLS-GTK::TIMEOUT CELLS-GTK::WHOSTATE
;             &OPTIONAL
;             (CELLS-GTK::PREDICATE #'(LAMBDA () T) CELLS-GTK::PRED-SUPPLIED-P)
;             &REST CELLS-GTK::ARGS)
;       "Sleep until PREDICATE becomes true, or for TIMEOUT seconds, whichever comes first.")
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CELLS-GTK::PROCESS-WAIT-WITH-TIMEOUT
;         (CELLS-GTK::TIMEOUT CELLS-GTK::WHOSTATE &OPTIONAL
;          (CELLS-GTK::PREDICATE #'(LAMBDA () T) CELLS-GTK::PRED-SUPPLIED-P)
;          &REST CELLS-GTK::ARGS)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK CELLS-GTK::PROCESS-WAIT-WITH-TIMEOUT
;         "Sleep until PREDICATE becomes true, or for TIMEOUT seconds, whichever comes first."))
; 
; caught STYLE-WARNING:
;   The variable TIMEOUT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WHOSTATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PREDICATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PRED-SUPPLIED-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ARGS is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cells-gtk" "cells-gtk" "compat">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cells-gtk3/97ec6e962f4c39857b020bfaf548c8cea4535c48/cells-gtk3-20181029-git/cells-gtk/layout.lisp
; in: DEF-WIDGET SCROLLED-WINDOW
;     (CELLS-GTK::DEF-WIDGET CELLS-GTK:SCROLLED-WINDOW (CELLS-GTK:CONTAINER) NIL
;                            (CELLS-GTK:POLICY CELLS-GTK:PLACEMENT
;                                              CELLS-GTK:SHADOW-TYPE)
;                            NIL :EXPAND T :FILL T :POLICY (LIST 1 1) ...)
; --> CELLS-GTK::DEF-GTK PROGN CELLS:DEFMODEL PROGN PROGN DEFCLASS PROGN 
; ==>
;   (LET ((#:G45 #'(LAMBDA () (DECLARE #) (CELLS:C-IN NIL)))
;         (#:G44
;          #'(LAMBDA () (DECLARE #) (LIST GTK-FFI:+C-NULL+ GTK-FFI:+C-NULL+)))
;         (#:G43 #'(LAMBDA () (DECLARE #) (LIST 1 1)))
;         (#:G42 #'(LAMBDA () (DECLARE #) 'CELLS-GTK:SCROLLED-WINDOW)))
;     (SB-PCL::LOAD-DEFCLASS 'CELLS-GTK:SCROLLED-WINDOW 'STANDARD-CLASS
;                            '(CELLS-GTK:CONTAINER)
;                            (LIST
;                             (LIST* :INITFUNCTION #:G45 :NAME 'CELLS-GTK:POLICY
;                                    :READERS 'NIL :WRITERS 'NIL :INITARGS
;                                    '(:POLICY) 'SB-PCL::SOURCE ...)
;                             (LIST* :INITFUNCTION #:G45 :NAME
;                                    'CELLS-GTK:PLACEMENT :READERS 'NIL :WRITERS
;                                    'NIL :INITARGS '(:PLACEMENT) 'SB-PCL::SOURCE
;                                    ...)
;                             (LIST* :INITFUNCTION #:G45 :NAME
;                                    'CELLS-GTK:SHADOW-TYPE :READERS 'NIL
;                                    :WRITERS 'NIL :INITARGS '(:SHADOW-TYPE)
;                                    'SB-PCL::SOURCE ...))
;                            (LIST :DOCUMENTATION "chya" :DIRECT-DEFAULT-INITARGS
;                                  (LIST
;                                   `(,':DEF-GOBJECT-CLASS-NAME
;                                     ,''CELLS-GTK:SCROLLED-WINDOW ,#:G42)
;                                   `(,':EXPAND ,'T ,#'SB-INT:CONSTANTLY-T)
;                                   `(,':FILL ,'T ,#'SB-INT:CONSTANTLY-T)
;                                   `(,':POLICY ,'# ,#:G43)
;                                   `(,':NEW-ARGS ,'# ,#:G44)))
;                            'NIL 'NIL
;                            '(CELLS-GTK:SHADOW-TYPE CELLS-GTK:PLACEMENT
;                                                    CELLS-GTK:POLICY)
;                            (SB-C:SOURCE-LOCATION)))
; 
; caught ERROR:
;   Objects of type SB-SYS:SYSTEM-AREA-POINTER can't be dumped into fasl files.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10005305B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C580143}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C580143}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C580143}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cells-gtk" "cells-gtk" "layout">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100563A203}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100563A203}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-gtk"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-gtk">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cells-gtk">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cells-gtk")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cells-gtk") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10056318FB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10055EE48B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cells-gtk") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cells-gtk" "cells-gtk")
23: (DEPCHECK::MAGIC "cells-gtk" "cells-gtk" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uSBTCYFJ/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cells-gtk" "cells-gtk" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uSBTCYFJ/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-uSBTCYFJ/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-27" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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