SBCL 2.6.1 / ASDF 3.3.5
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::INSTALL-PACKAGE-LOCAL-NICKNAMES 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::FROB-SUBSTRINGS in DEFUN WARNING: redefining UIOP/COMMON-LISP::COMPATFMT in DEFMACRO WARNING: redefining UIOP/UTILITY::ENSURE-FUNCTION-NOTINLINE in DEFUN 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/UTILITY:BOOLEAN-TO-FEATURE-EXPRESSION in DEFUN WARNING: redefining UIOP/UTILITY:SYMBOL-TEST-TO-FEATURE-EXPRESSION 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::OS-MEZZANO-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/PATHNAME:TRANSLATE-PATHNAME* 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: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::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:COMPILE-FILE* 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 (#<BUILT-IN-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 (#<BUILT-IN-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:RESOLVE-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/CONFIGURATION:UIOP-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:COERCE-PATHNAME in DEFUN WARNING: redefining UIOP/CONFIGURATION:USER-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:SYSTEM-CONFIGURATION-DIRECTORIES in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-FIRST-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-USER-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/CONFIGURATION:IN-SYSTEM-CONFIGURATION-DIRECTORY in DEFUN WARNING: redefining UIOP/BACKWARD-DRIVER:VERSION-COMPATIBLE-P in DEFUN ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/contextl/e202d7a2658ec507135b91fd3dcd6f5d2333c333/contextl-20260425-git/cx-dynamic-environments.lisp ; in: DEFGENERIC CALL-WITH-DYNAMIC-ENVIRONMENT ; (FUNCALL CONTEXTL::THUNK) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: THUNK is not known to be a function ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/contextl/e202d7a2658ec507135b91fd3dcd6f5d2333c333/contextl-20260425-git/cx-layer-metaclasses.lisp ; in: DEFMACRO DEFLAYER => DEFCLASS #S(SB-IMPL::COMMA :EXPR (DEFINING-LAYER NAME) :KIND 0) ; 'NIL ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/contextl/e202d7a2658ec507135b91fd3dcd6f5d2333c333/contextl-20260425-git/cx-partial-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE ; (CLOSER-MOP:DEFMETHOD INITIALIZE-INSTANCE ; :AROUND ; ((CLASS CONTEXTL:PARTIAL-CLASS) &REST CONTEXTL::INITARGS &KEY ; CONTEXTL::NAME CONTEXTL::DEFINING-METACLASS ; (CONTEXTL::IN-LAYER 'T CONTEXTL::IN-LAYER-P) ; (CONTEXTL::IN 'T CONTEXTL::IN-P)) ; (ASSERT (NOT (AND CONTEXTL::IN-LAYER-P CONTEXTL::IN-P))) ; (LOOP CONTEXTL::FOR (CONTEXTL::KEY ; CONTEXTL::VALUE) CONTEXTL::ON CONTEXTL::INITARGS CONTEXTL::BY #'CDDR ; IF (MEMBER CONTEXTL::KEY ; (CONTEXTL:PARTIAL-CLASS-BASE-INITARGS CLASS)) ; NCONC (LIST CONTEXTL::KEY CONTEXTL::VALUE) CONTEXTL::INTO ...)) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LABELS LET SB-PCL::BIND-ARGS ; ==> ; (LET* ((SB-PCL::.ARGS-TAIL. SB-PCL::.REST-ARG.) ; (CONTEXTL::INITARGS SB-PCL::.ARGS-TAIL.) ; (CONTEXTL::NAME ; (CAR (SB-PCL::GET-KEY-ARG-TAIL :NAME SB-PCL::.ARGS-TAIL.))) ; (CONTEXTL::DEFINING-METACLASS ; (CAR ; (SB-PCL::GET-KEY-ARG-TAIL :DEFINING-METACLASS SB-PCL::.ARGS-TAIL.))) ; (SB-PCL::.KEY. ; (SB-PCL::GET-KEY-ARG-TAIL ':IN-LAYER SB-PCL::.ARGS-TAIL.)) ; (CONTEXTL::IN-LAYER-P (NOT (NULL SB-PCL::.KEY.))) ; (CONTEXTL::IN-LAYER ; (IF SB-PCL::.KEY. ; (CAR SB-PCL::.KEY.) ; 'T)) ; (SB-PCL::.KEY. (SB-PCL::GET-KEY-ARG-TAIL ':IN SB-PCL::.ARGS-TAIL.)) ; (CONTEXTL::IN-P (NOT (NULL SB-PCL::.KEY.))) ; (CONTEXTL::IN ; (IF SB-PCL::.KEY. ; (CAR SB-PCL::.KEY.) ; 'T)) ; (SB-PCL::.DUMMY0.)) ; (DECLARE (IGNORABLE SB-PCL::.ARGS-TAIL. SB-PCL::.DUMMY0.)) ; (DECLARE (SB-PCL::%CLASS CLASS CONTEXTL:PARTIAL-CLASS)) ; (LOCALLY ; (DECLARE (DISABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (SYMBOL-MACROLET ((SB-PCL::%PARAMETER-BINDING-MODIFIED #)) ; (DECLARE (ENABLE-PACKAGE-LOCKS SB-PCL::%PARAMETER-BINDING-MODIFIED)) ; (BLOCK INITIALIZE-INSTANCE ; (ASSERT #) ; (LOOP CONTEXTL::FOR # CONTEXTL::ON CONTEXTL::INITARGS CONTEXTL::BY #'CDDR ; IF # ; NCONC # CONTEXTL::INTO ...))))) ; ; caught STYLE-WARNING: ; The variable NAME is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "contextl" "cx-partial-class"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-graph/adc569cf2b9e0a058b8c6ee5d8e2ed60b60d497d/cl-graph-20260425-git/dev/graph.lisp ; in: ; DEFMETHOD ADD-EDGE-BETWEEN-VERTEXES (BASIC-GRAPH BASIC-VERTEX BASIC-VERTEX) ; (CL-GRAPH:GRAPH-EDGE-NOT-FOUND-ERROR (CL-GRAPH::ENF) ; (WHEN ; (OR (NOT (SUBTYPEP # 'CL-GRAPH:DIRECTED-EDGE-MIXIN)) ; (AND (NOT #) (NOT #)) (AND (NOT #) (NOT #))) ; (CL-GRAPH:FIND-EDGE-BETWEEN-VERTEXES CL-GRAPH:GRAPH CL-GRAPH::V-2 ; CL-GRAPH::V-1 :ERROR-IF-NOT-FOUND? ; NIL))) ; ; caught STYLE-WARNING: ; The variable ENF is defined but never used. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-graph" "dev" "graph"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/0a593a0f96fbf0eb7ddb836352ae556abb282837/hu.dwim.graphviz-stable-git/source/cffi.lisp ; in: DEFCTYPE DTDISC-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDISC-T ; HU.DWIM.GRAPHVIZ.CFFI::_DTDISC-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead. ; in: DEFCTYPE DTLINK-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTLINK-T ; HU.DWIM.GRAPHVIZ.CFFI::_DTLINK-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead. ; in: DEFCTYPE DTDATA-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTDATA-T ; HU.DWIM.GRAPHVIZ.CFFI::_DTDATA-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead. ; in: DEFCTYPE DTMETHOD-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DTMETHOD-T ; HU.DWIM.GRAPHVIZ.CFFI::_DTMETHOD-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead. ; in: DEFCTYPE DT-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead. ; in: DEFCTYPE DICT-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:DICT-T HU.DWIM.GRAPHVIZ.CFFI::_DT-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead. ; in: DEFCSTRUCT LAYOUT-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T ; (HU.DWIM.GRAPHVIZ.CFFI:QUANTUM :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:SCALE :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:RATIO :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:MARGIN HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:PAGE HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:FILLED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CENTERED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:LAYOUT-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::LAYOUT-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:QUANTUM ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:SCALE ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:RATIO ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:DPI :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:MARGIN ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:PAGE ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:FILLED ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:LANDSCAPE ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CENTERED ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:RATIO-KIND ; HU.DWIM.GRAPHVIZ.CFFI:RATIO-T))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; in: DEFCTYPE POINTF ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:POINTF HU.DWIM.GRAPHVIZ.CFFI:POINTF-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead. ; in: DEFCSTRUCT TEXTLABEL-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T ; (HU.DWIM.GRAPHVIZ.CFFI:TEXT (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:DIMEN HU.DWIM.GRAPHVIZ.CFFI:POINTF) ; (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:D HU.DWIM.GRAPHVIZ.CFFI:POINTF) ; (HU.DWIM.GRAPHVIZ.CFFI:SET HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:HTML HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::TEXTLABEL-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:TEXT ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTNAME ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTCOLOR ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:FONTSIZE ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:DIMEN ; HU.DWIM.GRAPHVIZ.CFFI:POINTF) ; (HU.DWIM.GRAPHVIZ.CFFI:P ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:D ; HU.DWIM.GRAPHVIZ.CFFI:POINTF) ; (HU.DWIM.GRAPHVIZ.CFFI:SET ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:HTML ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; in: DEFCSTRUCT BOX ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX ; (HU.DWIM.GRAPHVIZ.CFFI:LL HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:UR HU.DWIM.GRAPHVIZ.CFFI:POINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BOX ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::BOX-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:LL ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:UR ; HU.DWIM.GRAPHVIZ.CFFI:POINT))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; in: DEFCTYPE GVC-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GVC-T HU.DWIM.GRAPHVIZ.CFFI:GVC-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead. ; in: DEFCSTRUCT AGRAPHINFO-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T ; (HU.DWIM.GRAPHVIZ.CFFI:DRAWING :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:BORDER HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT 4) ; (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CHARSET :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGRAPHINFO-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:DRAWING ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:BB ; HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:BORDER ; HU.DWIM.GRAPHVIZ.CFFI:POINT :COUNT ; 4) ; (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:HAS-LABELS ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:HAS-IMAGES ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CHARSET ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:RANKDIR ; :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:HT-1 :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:HT-2 :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:FLAGS ; :UNSIGNED-SHORT) ; ...)) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. ; in: DEFCSTRUCT AGRAPH-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T ; (HU.DWIM.GRAPHVIZ.CFFI::PADDING1 :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:UNIV :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:NODES :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:INEDGES :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ROOT :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:META-NODE :POINTER) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGRAPH-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI::PADDING1 ; :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:NAME ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:UNIV ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:NODES ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:INEDGES ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:OUTEDGES ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ROOT ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:META-NODE ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:PROTO ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:U ; HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. ; in: DEFCTYPE GRAPH-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:GRAPH-T HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead. ; in: DEFCSTRUCT AGNODEINFO-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T ; (HU.DWIM.GRAPHVIZ.CFFI:SHAPE :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO (:POINTER :VOID)) ; (HU.DWIM.GRAPHVIZ.CFFI:COORD HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:WIDTH :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF) ; (HU.DWIM.GRAPHVIZ.CFFI:HT :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LW :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:RW :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGNODEINFO-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:SHAPE ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SHAPE-INFO ; (:POINTER :VOID)) ; (HU.DWIM.GRAPHVIZ.CFFI:COORD ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:WIDTH ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:HEIGHT ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:BB ; HU.DWIM.GRAPHVIZ.CFFI:BOXF) ; (HU.DWIM.GRAPHVIZ.CFFI:HT :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LW :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:RW :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ALG ; (:POINTER :VOID)) ; (HU.DWIM.GRAPHVIZ.CFFI:STATE :CHAR) ; ...)) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. ; in: DEFCSTRUCT AGNODE-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T ; (HU.DWIM.GRAPHVIZ.CFFI::PADDING2 :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:NAME (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:GRAPH :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGNODE-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI::PADDING2 ; :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:NAME ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:GRAPH ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:U ; HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. ; in: DEFCTYPE NODE-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:NODE-T HU.DWIM.GRAPHVIZ.CFFI:AGNODE-T) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead. ; in: DEFCSTRUCT BEZIER ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:SP HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:EP HU.DWIM.GRAPHVIZ.CFFI:POINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::BEZIER-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:LIST ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:SFLAG :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:EFLAG :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:SP ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:EP ; HU.DWIM.GRAPHVIZ.CFFI:POINT))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; in: DEFCSTRUCT SPLINES ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES ; (HU.DWIM.GRAPHVIZ.CFFI:LIST :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BB HU.DWIM.GRAPHVIZ.CFFI:BOXF)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::SPLINES-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:LIST ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BB ; HU.DWIM.GRAPHVIZ.CFFI:BOXF))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. ; in: DEFCSTRUCT PORT ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PORT ; (HU.DWIM.GRAPHVIZ.CFFI:P HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:THETA :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DEFINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CLIP HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:ORDER :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDE :UNSIGNED-CHAR)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PORT ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::PORT-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:P ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:THETA ; :DOUBLE) ; (HU.DWIM.GRAPHVIZ.CFFI:BP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DEFINED ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CONSTRAINED ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:CLIP ; HU.DWIM.GRAPHVIZ.CFFI:BOOLEAN) ; (HU.DWIM.GRAPHVIZ.CFFI:ORDER ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDE ; :UNSIGNED-CHAR))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; in: DEFCTYPE PPOINT-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOINT-T HU.DWIM.GRAPHVIZ.CFFI:POINTF-S) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead. ; in: DEFCTYPE PPOLYLINE-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:PPOLYLINE-T ; HU.DWIM.GRAPHVIZ.CFFI:PPOLY-T) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead. ; in: DEFCSTRUCT AGEDGEINFO-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; (HU.DWIM.GRAPHVIZ.CFFI:SPL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE :UNSIGNED-CHAR) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGEDGEINFO-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:SPL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL-PORT ; HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD-PORT ; HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE ; :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:ADJACENT ; :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:LABEL-ONTOP ; :CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:GUI-STATE ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:TO-ORIG ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ALG ; (:POINTER :VOID)) ; ...)) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; in: DEFCSTRUCT AGEDGE-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; (HU.DWIM.GRAPHVIZ.CFFI::PADDING3 :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:U HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::AGEDGE-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI::PADDING3 ; :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:ATTR ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DIDSET ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:HEAD ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:TAIL ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ID :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:U ; HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. ; in: DEFCTYPE EDGE-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:EDGE-T HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead. ; in: DEFCSTRUCT PATHEND-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T ; (HU.DWIM.GRAPHVIZ.CFFI:NB HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:NP HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXES HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT 20)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATHEND-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::PATHEND-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:NB ; HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:NP ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDEMASK ; :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXN :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXES ; HU.DWIM.GRAPHVIZ.CFFI:BOX :COUNT ; 20))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; in: DEFCTYPE FILE ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:FILE HU.DWIM.GRAPHVIZ.CFFI::_IO-FILE) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead. ; in: DEFCSTRUCT PATH ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:PATH ; (HU.DWIM.GRAPHVIZ.CFFI:START HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:END HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:ULPP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:URPP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LLPP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LRPP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXES :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DATA (:POINTER :VOID))) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:PATH ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::PATH-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:START ; HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:END ; HU.DWIM.GRAPHVIZ.CFFI:PORT) ; (HU.DWIM.GRAPHVIZ.CFFI:ULPP ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:URPP ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LLPP ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:LRPP ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:NBOX :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:BOXES ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:DATA ; (:POINTER :VOID)))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. ; in: DEFCSTRUCT FIELD-T ; (CFFI:DEFCSTRUCT HU.DWIM.GRAPHVIZ.CFFI:FIELD-T ; (HU.DWIM.GRAPHVIZ.CFFI:SIZE HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:B HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:FLD :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ID (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:LR :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDES :UNSIGNED-CHAR)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'HU.DWIM.GRAPHVIZ.CFFI:FIELD-T ; '(:CLASS ; HU.DWIM.GRAPHVIZ.CFFI::FIELD-T-TCLASS) ; '((HU.DWIM.GRAPHVIZ.CFFI:SIZE ; HU.DWIM.GRAPHVIZ.CFFI:POINT) ; (HU.DWIM.GRAPHVIZ.CFFI:B ; HU.DWIM.GRAPHVIZ.CFFI:BOX) ; (HU.DWIM.GRAPHVIZ.CFFI:N-FLDS :INT) ; (HU.DWIM.GRAPHVIZ.CFFI:LP :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:FLD ; :POINTER) ; (HU.DWIM.GRAPHVIZ.CFFI:ID ; (:POINTER :CHAR)) ; (HU.DWIM.GRAPHVIZ.CFFI:LR ; :UNSIGNED-CHAR) ; (HU.DWIM.GRAPHVIZ.CFFI:SIDES ; :UNSIGNED-CHAR))) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. ; in: DEFCTYPE ATTRSYM-T ; (CFFI:DEFCTYPE HU.DWIM.GRAPHVIZ.CFFI:ATTRSYM-T HU.DWIM.GRAPHVIZ.CFFI:AGSYM-T) ; ; caught COMMON-LISP:STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead. WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "cffi"> COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDISC-S)) or (:STRUCT _DTDISC-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTLINK-S)) or (:STRUCT _DTLINK-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTDATA-S)) or (:STRUCT _DTDATA-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DTMETHOD-S)) or (:STRUCT _DTMETHOD-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _DT-S)) or (:STRUCT _DT-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GVC-S)) or (:STRUCT GVC-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT NLIST-T)) or (:STRUCT NLIST-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPHINFO-T)) or (:STRUCT AGRAPHINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGRAPH-T)) or (:STRUCT AGRAPH-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT ELIST)) or (:STRUCT ELIST) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODEINFO-T)) or (:STRUCT AGNODEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGNODE-T)) or (:STRUCT AGNODE-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOXF)) or (:STRUCT BOXF) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINTF-S)) or (:STRUCT POINTF-S) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PPOLY-T)) or (:STRUCT PPOLY-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGEINFO-T)) or (:STRUCT AGEDGEINFO-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGEDGE-T)) or (:STRUCT AGEDGE-T) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT _IO-FILE)) or (:STRUCT _IO-FILE) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PORT)) or (:STRUCT PORT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT)) or (:STRUCT POINT) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT BOX)) or (:STRUCT BOX) instead. COMMON-LISP:WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT AGSYM-T)) or (:STRUCT AGSYM-T) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.graphviz/0a593a0f96fbf0eb7ddb836352ae556abb282837/hu.dwim.graphviz-stable-git/source/graphviz.lisp ; in: DEFUN NODE-COORDINATE ; (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) ; 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:COORD) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN NODE-SIZE ; (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) ; 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:WIDTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-VALUE (HU.DWIM.GRAPHVIZ::NODE-INFO HU.DWIM.GRAPHVIZ::NODE) ; 'HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:HEIGHT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGNODEINFO-T) instead. ; in: DEFUN SPLINE-COUNT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES ; 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES ; 'HU.DWIM.GRAPHVIZ.CFFI:SIZE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead. ; in: DEFUN SPLINES-OF-EDGE ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:SPL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead. ; in: DEFUN SPLINES-BEZIER-AT ; (CFFI:FOREIGN-TYPE-SIZE 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead. ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::SPLINES ; 'HU.DWIM.GRAPHVIZ.CFFI:SPLINES ; 'HU.DWIM.GRAPHVIZ.CFFI:LIST) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:SPLINES) instead. ; in: DEFUN BEZIER-START-POINT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:SP) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN BEZIER-END-POINT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:EP) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN BEZIER-POINT-COUNT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:SIZE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead. ; in: DEFUN BEZIER-POINT-AT ; (CFFI:MEM-AREF HU.DWIM.GRAPHVIZ::POINTS 'HU.DWIM.GRAPHVIZ.CFFI:POINT ; HU.DWIM.GRAPHVIZ::INDEX) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:BEZIER ; 'HU.DWIM.GRAPHVIZ.CFFI:LIST) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BEZIER) instead. ; in: DEFUN EDGE-TYPE ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::EDGE-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:EDGE-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead. ; in: DEFUN EDGE-LABEL ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:LABEL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead. ; in: DEFUN HEAD-LABEL ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:HEAD-LABEL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead. ; in: DEFUN TAIL-LABEL ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:TAIL-LABEL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGEINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::EDGE ; 'HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGEDGE-T) instead. ; in: DEFUN LABEL-COORDINATE ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::LABEL ; 'HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T ; 'HU.DWIM.GRAPHVIZ.CFFI:P) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:TEXTLABEL-T) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN BOX-LOWER-LEFT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX ; 'HU.DWIM.GRAPHVIZ.CFFI:LL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN BOX-UPPER-RIGHT ; (CFFI:FOREIGN-SLOT-VALUE HU.DWIM.GRAPHVIZ::BOX 'HU.DWIM.GRAPHVIZ.CFFI:BOX ; 'HU.DWIM.GRAPHVIZ.CFFI:UR) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:BOX) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; in: DEFUN GRAPH-BOUNDING-BOX ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH-INFO ; 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T ; 'HU.DWIM.GRAPHVIZ.CFFI:BB) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPHINFO-T) instead. ; (CFFI:FOREIGN-SLOT-POINTER HU.DWIM.GRAPHVIZ::GRAPH ; 'HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T ; 'HU.DWIM.GRAPHVIZ.CFFI:U) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:AGRAPH-T) instead. WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.graphviz" "source" "graphviz"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT)) or (:STRUCT HU.DWIM.GRAPHVIZ.CFFI:POINT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.def/e92f3f8ce0017fd12884d415bb7457c301989dc0/hu.dwim.def-stable-git/source/with-macro.lisp ; in: DEF FUNCTION ; (METABANG.BIND:BIND (((HU.DWIM.DEF::ORIGINAL-NAME &OPTIONAL ; HU.DWIM.DEF::NEW-NAME &KEY HU.DWIM.DEF::IGNORABLE?) ; HU.DWIM.DEF::EL)) ; (UNLESS HU.DWIM.DEF::NEW-NAME ; (SETF HU.DWIM.DEF::NEW-NAME `',HU.DWIM.DEF::ORIGINAL-NAME)) ; (WHEN (OR (NOT (SYMBOLP HU.DWIM.DEF::ORIGINAL-NAME)) (NOT (OR # #))) ; (ERROR ; #<(SIMPLE-ARRAY CHARACTER ; (337)) The arguments used to invoke (-with-macro/body- foo1 foo2) may only contain symbols, or (var-name-inside-macro-body var-name-visible-for-user-forms) pairs denoting variables that are "transferred" fro... {123549781F}>)) ; (WHEN HU.DWIM.DEF::IGNORABLE? ; (PUSH HU.DWIM.DEF::NEW-NAME HU.DWIM.DEF::IGNORABLE-VARIABLES)) ; (PUSH HU.DWIM.DEF::NEW-NAME HU.DWIM.DEF::BODY-LAMBDA-ARGUMENTS) ; (PUSH HU.DWIM.DEF::ORIGINAL-NAME ; HU.DWIM.DEF::LEXICALLY-TRANSFERRED-ARGUMENTS)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (ORIGINAL-NAME &OPTIONAL NEW-NAME &KEY IGNORABLE?) WARNING: Lisp compilation had style-warnings while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.def" "source" "with-macro"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/utils.lisp ; in: DEFUN WRITE-DECIMAL-DIGITS ; (TRUNCATE CL-L10N::REMAINDER 10) ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; in: DEFUN READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE ; (DEFUN CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE (CL-L10N::FILE) ; (WITH-OPEN-FILE ; (FILE-STREAM CL-L10N::FILE :ELEMENT-TYPE '(UNSIGNED-BYTE 8)) ; (LET ((STREAM #)) ; (ITERATE:ITER ; (ITERATE:WITH CL-L10N::RESULT = #) ; (ITERATE:FOR CL-L10N::LINE CL-L10N::IN-STREAM STREAM :USING #) ; (ITERATE:FOR CL-L10N::LINE-NUMBER CL-L10N::FROM 0) ; (WHEN # #) ; (ITERATE:FOR CL-L10N::PIECES = #) ; (ITERATE:FOR CL-L10N::SPLIT-COUNT = #) ; (WHEN # #) ; (ITERATE:FOR CL-L10N::SINGULAR = #) ; (ITERATE:FOR CL-L10N::PLURAL = #) ; (ITERATE:FOR CL-L10N::ARTICLE = #) ; (SETF #) ; ...)))) ; ==> ; (SB-IMPL::%DEFUN 'CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE ; (SB-INT:NAMED-LAMBDA CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE ; (CL-L10N::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL-L10N::READ-KEY->VALUE-TEXT-FILE-INTO-HASHTABLE ; (WITH-OPEN-FILE ; (FILE-STREAM CL-L10N::FILE :ELEMENT-TYPE '#) ; (LET # ; #))))) ; ; caught STYLE-WARNING: ; Call to CL-L10N::TRIM could not be inlined because no definition for it was seen prior to its first use. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "utils"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/pattern-compiling.lisp ; in: DEFUN PARSE-PATTERN-PADDING ; (IF (FIND CL-L10N::ORDINARY-CHAR CL-L10N::+NUMBER-PATTERN-CHARACTERS+) ; (ERROR ; "Invalid padding character: '~A'. The specified padding character is special, try enclosing it in 'quotes'." ; CL-L10N::ORDINARY-CHAR) ; (PROGN ; (SETF CL-L10N::PAD CL-L10N::ORDINARY-CHAR) ; (SETF CL-L10N::A-PATTERN (SUBSEQ CL-L10N::A-PATTERN 2)))) ; ; note: deleting unreachable code ; in: DEFUN COMPILE-NUMBER-ABSOLUTE-VALUE-PATTERN/DECIMAL ; (ABS NUMBER) ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).The result is a (VALUES (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).The result is a (VALUES (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)), not a SINGLE-FLOAT.The second argument is a (OR DOUBLE-FLOAT (INTEGER * -1) (RATIONAL 0)), not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)), not a DOUBLE-FLOAT.The second argument is a (OR DOUBLE-FLOAT (INTEGER * -1) (RATIONAL 0)), not a (OR FLOAT INTEGER). ; (TRUNCATE ; (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT))) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR DOUBLE-FLOAT RATIONAL), not a INTEGER. ; (ITERATE:ITER ; (ITERATE:WITH REST = CL-L10N::ROUNDED-FRACTION-PART) ; (ITERATE:WITH CL-L10N::DIGIT) ; (ITERATE:REPEAT CL-L10N::ROUNDING-FRACTION-LENGTH) ; (SETF (VALUES CL-L10N::DIGIT REST) (TRUNCATE (* REST 10))) ; (PUSH CL-L10N::DIGIT CL-L10N::FRACTION-DIGITS)) ; --> BLOCK BLOCK TAGBODY PROGN IF ; ==> ; (<= #:COUNT250 0) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR INTEGER DOUBLE-FLOAT), not a DOUBLE-FLOAT. ; (ZEROP CL-L10N::DIGIT) ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (CL-L10N::EMIT CL-L10N::LOCALIZED-DECIMAL-SEPARATOR) ; --> ETYPECASE COND IF IF SB-C::WITH-SOURCE-FORM SEQUENCE TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (NOT CHARACTER), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; --> ETYPECASE COND IF IF SETF SETQ NCONC NREVERSE COERCE ; ==> ; 1 ; ; note: unable to optimize because: upgraded array element type not known at compile time ; (COERCE CL-L10N::LOCALIZED-DIGIT 'LIST) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (COERCE CL-L10N::FORMATTED-DIGITS 'STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)) (NOT (ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)) (NOT (ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)) (NOT (ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND VECTOR (NOT (ARRAY BASE-CHAR)) (NOT (ARRAY CHARACTER))) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; (TRUNCATE CL-L10N::REMAINDER (EXPT 10 CL-L10N::GROUPING-SIZE)) ; ; note: unable to optimize due to type uncertainty: The second argument is a (INTEGER 10), not a FIXNUM. ; (ITERATE:ITER ; (ITERATE:WITH CL-L10N::GROUPING-SIZE = ; (OR CL-L10N::PRIMARY-GROUPING-SIZE 0)) ; (ITERATE:WITH CL-L10N::REMAINDER = CL-L10N::ROUNDED-INTEGER-PART) ; (ITERATE:WITH CL-L10N::NUMBER-OF-DIGITS = 0) ; (ITERATE:WITH CL-L10N::GROUP) ; (ITERATE:UNTIL ; (AND (ZEROP CL-L10N::REMAINDER) ; (>= CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS))) ; (IF (ZEROP CL-L10N::GROUPING-SIZE) ; (PROGN ; (SETF CL-L10N::GROUP CL-L10N::REMAINDER) ; (SETF CL-L10N::REMAINDER 0)) ; (SETF (VALUES CL-L10N::REMAINDER CL-L10N::GROUP) ; (TRUNCATE CL-L10N::REMAINDER #))) ; (ITERATE:ITER ; (ITERATE:WITH CL-L10N::DIGIT) ; (ITERATE:WITH COUNT = 0) ; (ITERATE:UNTIL (OR (AND # #) (AND # # #))) ; (SETF (VALUES CL-L10N::GROUP CL-L10N::DIGIT) (TRUNCATE CL-L10N::GROUP 10)) ; (CL-L10N::EMIT ; (CL-L10N::LOCALIZE-NUMBER-SYMBOL-CHARACTER (DIGIT-CHAR CL-L10N::DIGIT))) ; (INCF CL-L10N::NUMBER-OF-DIGITS) ; (INCF COUNT)) ; (WHEN ; (AND (> CL-L10N::GROUPING-SIZE 0) ; (OR (NOT #) ; (< CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS))) ; (CL-L10N::EMIT CL-L10N::LOCALIZED-THOUSAND-SEPARATOR)) ; (WHEN (AND (ITERATE:FIRST-TIME-P) (NOT (OR # #))) ; (SETF CL-L10N::GROUPING-SIZE CL-L10N::SECONDARY-GROUPING-SIZE))) ; --> BLOCK BLOCK TAGBODY PROGN IF LET LET IF IF PROGN TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (NOT CHARACTER), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; --> BLOCK BLOCK TAGBODY PROGN IF LET LET IF IF SETQ NCONC NREVERSE COERCE ; ==> ; 1 ; ; note: unable to optimize because: upgraded array element type not known at compile time ; --> BLOCK BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN LET LET IF IF ; --> PROGN TYPEP ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (NOT CHARACTER), not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; --> BLOCK BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN LET LET IF IF ; --> SETQ NCONC NREVERSE COERCE ; ==> ; 1 ; ; note: unable to optimize because: upgraded array element type not known at compile time ; (* REST 10) ; ; note: unable to convert x*2^k to shift due to type uncertainty: The first argument is a (OR (FLOAT -1.0 1.0) (RATIONAL (-1) (1))), not a INTEGER. ; (TRUNCATE (* REST 10)) ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (FLOAT -10.0 10.0) (RATIONAL (-10) (10))), not a SINGLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (FLOAT -10.0 10.0) (RATIONAL (-10) (10))), not a DOUBLE-FLOAT. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR (FLOAT -10.0 10.0) (RATIONAL (-10) (10))), not a INTEGER. ; (ABS NUMBER) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)) &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (OR (OR (MEMBER 0.0d0 0.0) (FLOAT (0.0))) (RATIONAL 0)) &OPTIONAL), not a (VALUES DOUBLE-FLOAT &OPTIONAL). ; (* CL-L10N::ROUNDING-INCREMENT (ROUND NUMBER CL-L10N::ROUNDING-INCREMENT)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR DOUBLE-FLOAT (INTEGER * -1) (RATIONAL 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR DOUBLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR DOUBLE-FLOAT (INTEGER * -1) (RATIONAL 0)), not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (OR DOUBLE-FLOAT RATIONAL) &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* REST 10) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (FLOAT -1.0 1.0) (RATIONAL (-1) (1))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT -10.0 10.0) (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (FLOAT -1.0 1.0) (RATIONAL (-1) (1))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT -10.0 10.0) (RATIONAL (-10) (10))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (ITERATE:ITER ; (ITERATE:WITH REST = CL-L10N::ROUNDED-FRACTION-PART) ; (ITERATE:WITH CL-L10N::DIGIT) ; (ITERATE:REPEAT CL-L10N::ROUNDING-FRACTION-LENGTH) ; (SETF (VALUES CL-L10N::DIGIT REST) (TRUNCATE (* REST 10))) ; (PUSH CL-L10N::DIGIT CL-L10N::FRACTION-DIGITS)) ; --> BLOCK BLOCK TAGBODY PROGN SETQ 1- ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 1) (DOUBLE-FLOAT (0.0d0))), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT -1.0d0) UNSIGNED-BYTE) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 1) (DOUBLE-FLOAT (0.0d0))), not a FIXNUM. ; The result is a (VALUES (OR (DOUBLE-FLOAT -1.0d0) UNSIGNED-BYTE) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (ITERATE:ITER ; (ITERATE:WITH CL-L10N::GROUPING-SIZE = ; (OR CL-L10N::PRIMARY-GROUPING-SIZE 0)) ; (ITERATE:WITH CL-L10N::REMAINDER = CL-L10N::ROUNDED-INTEGER-PART) ; (ITERATE:WITH CL-L10N::NUMBER-OF-DIGITS = 0) ; (ITERATE:WITH CL-L10N::GROUP) ; (ITERATE:UNTIL ; (AND (ZEROP CL-L10N::REMAINDER) ; (>= CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS))) ; (IF (ZEROP CL-L10N::GROUPING-SIZE) ; (PROGN ; (SETF CL-L10N::GROUP CL-L10N::REMAINDER) ; (SETF CL-L10N::REMAINDER 0)) ; (SETF (VALUES CL-L10N::REMAINDER CL-L10N::GROUP) ; (TRUNCATE CL-L10N::REMAINDER #))) ; (ITERATE:ITER ; (ITERATE:WITH CL-L10N::DIGIT) ; (ITERATE:WITH COUNT = 0) ; (ITERATE:UNTIL (OR (AND # #) (AND # # #))) ; (SETF (VALUES CL-L10N::GROUP CL-L10N::DIGIT) (TRUNCATE CL-L10N::GROUP 10)) ; (CL-L10N::EMIT ; (CL-L10N::LOCALIZE-NUMBER-SYMBOL-CHARACTER (DIGIT-CHAR CL-L10N::DIGIT))) ; (INCF CL-L10N::NUMBER-OF-DIGITS) ; (INCF COUNT)) ; (WHEN ; (AND (> CL-L10N::GROUPING-SIZE 0) ; (OR (NOT #) ; (< CL-L10N::NUMBER-OF-DIGITS CL-L10N::MINIMUM-DIGITS))) ; (CL-L10N::EMIT CL-L10N::LOCALIZED-THOUSAND-SEPARATOR)) ; (WHEN (AND (ITERATE:FIRST-TIME-P) (NOT (OR # #))) ; (SETF CL-L10N::GROUPING-SIZE CL-L10N::SECONDARY-GROUPING-SIZE))) ; --> BLOCK BLOCK TAGBODY PROGN LET* BLOCK BLOCK TAGBODY PROGN SETQ ; ==> ; (+ 1 CL-L10N::NUMBER-OF-DIGITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ==> ; (+ 1 COUNT) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ;;; warning: unused declarations found in form: (IGNORABLE DATE), (IGNORABLE DAY-OF-WEEK), (TYPE NON-NEGATIVE-FIXNUM DAY-OF-WEEK). ; in: DEFUN COMPILE-DATE-TIME-PATTERNS/GREGORIAN-CALENDAR ; (CL-L10N::ERA-FORMATTER CL-L10N::ABBREVIATED-ERA-NAMES) ; --> LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* ; --> PROGN WRITE-STRING AREF ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CL-L10N::ERA-FORMATTER CL-L10N::NARROW-ERA-NAMES) ; --> LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* ; --> PROGN WRITE-STRING AREF ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CL-L10N::ERA-FORMATTER CL-L10N::ERA-NAMES) ; --> LAMBDA FUNCTION METABANG.BIND:BIND LET* PROGN METABANG.BIND:BIND LET* ; --> PROGN WRITE-STRING AREF ; ==> ; 1 ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::ABBREVIATED-DAY-NAMES CL-L10N::DAY-OF-WEEK) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::NARROW-DAY-NAMES CL-L10N::DAY-OF-WEEK) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::DAY-NAMES CL-L10N::DAY-OF-WEEK) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::NARROW-MONTH-NAMES CL-L10N::MONTH-1) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::MONTH-NAMES CL-L10N::MONTH-1) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF CL-L10N::ABBREVIATED-MONTH-NAMES CL-L10N::MONTH-1) ; ; note: unable to avoid runtime dispatch on array element type because: Upgraded element type of array is not known at compile time. ; ; note: unable to optimize due to type uncertainty: The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (LENGTH CL-L10N::OUTER-PIECE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH CL-L10N::PIECE) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CHAR CL-L10N::PIECE 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (ROUND (/ CL-L10N::NANO-SECOND 1.0d9) CL-L10N::ROUNDING-DIVISOR) ; ; note: forced to do full call ; unable to do inline float coercion (cost 5) because: ; The first argument is a (RATIONAL 0 1/10), not a (SIGNED-BYTE 64). ; (IF CL-L10N::TWELVE-HOUR ; (MOD CL-L10N::HOUR 12) ; CL-L10N::HOUR) ; ; note: deleting unreachable code ; (MOD CL-L10N::HOUR 12) ; ; note: deleting unreachable code ; (ZEROP CL-L10N::HOUR) ; ; note: deleting unreachable code ; (INCF CL-L10N::HOUR ; (IF CL-L10N::TWELVE-HOUR ; 12 ; 24)) ; ; note: deleting unreachable code ; (IF CL-L10N::TWELVE-HOUR ; (MOD CL-L10N::HOUR 12) ; CL-L10N::HOUR) ; ; note: deleting unreachable code ; (ZEROP CL-L10N::HOUR) ; ; note: deleting unreachable code ; (INCF CL-L10N::HOUR ; (IF CL-L10N::TWELVE-HOUR ; 12 ; 24)) ; ; note: deleting unreachable code ; (MOD CL-L10N::HOUR 12) ; ; note: deleting unreachable code ; in: DEFUN FIND-REPLACEMENT-MARKER-IN-PATTERN ; (AREF CL-L10N::PATTERN CL-L10N::INDEX) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (AREF CL-L10N::PATTERN (1+ CL-L10N::INDEX)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (AREF CL-L10N::PATTERN CL-L10N::INDEX) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (ERROR "~S: error while parsing pattern ~S starting from position ~A" ; 'CL-L10N::FIND-REPLACEMENT-MARKER-IN-PATTERN CL-L10N::PATTERN ; CL-L10N::START) ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (ITERATE:FINISH) ; ; note: deleting unreachable code ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/load-locale.lisp ; in: DECLAIM (INLINE CURRENT-LOCALE (SETF CURRENT-LOCALE)) ; (DECLAIM (INLINE CL-L10N:CURRENT-LOCALE (SETF CL-L10N:CURRENT-LOCALE))) ; ==> ; (SB-C::%PROCLAIM ; '(INLINE CL-L10N:CURRENT-LOCALE (SETF CL-L10N:CURRENT-LOCALE)) ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; Proclaiming CL-L10N:CURRENT-LOCALE to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "load-locale"> WARNING: Timezone processing is not yet implemented for time pattern compiler. Pattern is: "h:mm:ss a z" WARNING: Timezone processing is not yet implemented for time pattern compiler. Pattern is: "h:mm:ss a zzzz" ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/formatters.lisp ; in: DEFUN FORMAT-TIMESTAMP/GREGORIAN-CALENDAR ; (CL-L10N::%FORMAT-DATE-OR-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP ; "FORMAT-TIMESTAMP: Should not happen..." NIL NIL :VERBOSITY ; CL-L10N::VERBOSITY :PATTERN CL-L10N::PATTERN) ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: TIMESTAMP ; (CL-L10N::FORMAT-DATE/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY ; CL-L10N::VERBOSITY) ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: TIMESTAMP ; (WRITE-CHAR #\ STREAM) ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; (CL-L10N::FORMAT-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP :VERBOSITY ; CL-L10N::VERBOSITY) ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: TIMESTAMP ; (CL-L10N::WITH-NORMALIZED-STREAM-VARIABLE STREAM ; (IF CL-L10N::PATTERN ; (CL-L10N::%FORMAT-DATE-OR-TIME/GREGORIAN-CALENDAR STREAM ; CL-L10N::TIMESTAMP "FORMAT-TIMESTAMP: Should not happen..." NIL NIL ; :VERBOSITY CL-L10N::VERBOSITY :PATTERN CL-L10N::PATTERN) ; (PROGN ; (CL-L10N::FORMAT-DATE/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP ; :VERBOSITY CL-L10N::VERBOSITY) ; (WRITE-CHAR #\ STREAM) ; (CL-L10N::FORMAT-TIME/GREGORIAN-CALENDAR STREAM CL-L10N::TIMESTAMP ; :VERBOSITY CL-L10N::VERBOSITY)))) ; --> IF STREAMP ; ==> ; STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; --> IF METABANG.BIND:BIND LET* PROGN COND IF NULL ; ==> ; 1 ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; --> IF METABANG.BIND:BIND LET* PROGN COND IF PROGN SETF ; ==> ; (SETQ STREAM (MAKE-STRING-OUTPUT-STREAM)) ; ; caught STYLE-WARNING: ; STREAM is being set even though it was declared to be ignored. ; --> IF METABANG.BIND:BIND LET* PROGN COND IF IF EQ ; ==> ; STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; --> IF METABANG.BIND:BIND LET* PROGN COND IF IF SETF ; ==> ; (SETQ STREAM *STANDARD-OUTPUT*) ; ; caught STYLE-WARNING: ; STREAM is being set even though it was declared to be ignored. ; --> IF METABANG.BIND:BIND LET* PROGN IF GET-OUTPUT-STREAM-STRING ; ==> ; STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM ; --> IF METABANG.BIND:BIND LET* PROGN IF ; ==> ; STREAM ; ; caught STYLE-WARNING: ; reading an ignored variable: STREAM WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-l10n" "src" "formatters"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/languages/common.lisp ; in: DEFUN VOWEL-ENTRY-FOR ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CONSONANTP ; (CHAR-DOWNCASE CHAR) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN LAST-VOWEL-OF ; (ELT CL-L10N::STR CL-L10N::I) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN STARTS-WITH-CONSONANT-P ; (ELT CL-L10N::STR 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN STARTS-WITH-VOWEL-P ; (ELT CL-L10N::STR 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/languages/english.lisp ; in: DEFUN ENGLISH-PLURAL-OF ; (ELT CL-L10N::WORD (1- LENGTH)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-DOWNCASE CL-L10N::ORIGINAL-LAST-LETTER) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (ELT CL-L10N::WORD (- LENGTH 2)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 2))) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN ENGLISH-INDEFINITE-ARTICLE-FOR ; (ELT CL-L10N::WORD 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-l10n/44515bbda062b64a324f9e2aa8ba3222e255bfeb/cl-l10n-20260425-git/src/languages/hungarian.lisp ; in: DEFUN HUNGARIAN-PLURAL-OF ; (ELT CL-L10N::WORD (1- LENGTH)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-DOWNCASE CL-L10N::ORIGINAL-LAST-LETTER) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (ELT CL-L10N::WORD (- LENGTH 2)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 2))) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (ELT CL-L10N::WORD (- LENGTH 3)) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR-DOWNCASE (ELT CL-L10N::WORD (- LENGTH 3))) ; ; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN HUNGARIAN-DEFINITE-ARTICLE-FOR ; (ELT CL-L10N::WORD 0) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN JELZŐ-KÉPZŐ-RAG-EGÉSZ-SZÁMOKHOZ ; (ABS NUMBER) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (ITERATE:ITER ; (ITERATE:FOR (VALUES CL-L10N::I CL-L10N::REMAINDER) :FIRST ; (FLOOR NUMBER 10) :THEN (FLOOR CL-L10N::I 10)) ; (ITERATE:WHILE (ZEROP CL-L10N::REMAINDER)) ; (ITERATE:COUNTING T)) ; --> BLOCK BLOCK TAGBODY PROGN IF SETQ 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. WARNING: HU.DWIM.QUASI-QUOTE also exports the following symbols: (HU.DWIM.QUASI-QUOTE:IMPORT-EXTERNAL-QUASI-QUOTE-SYMBOLS-FOR-EXTENSIONS) See also: The ANSI Standard, Macro DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* WARNING: HU.DWIM.QUASI-QUOTE.XML also exports the following symbols: (HU.DWIM.QUASI-QUOTE.XML:IMPORT-EXTERNAL-QUASI-QUOTE-SYMBOLS-FOR-EXTENSIONS/XML) See also: The ANSI Standard, Macro DEFPACKAGE The SBCL Manual, Variable SB-EXT:*ON-PACKAGE-VARIANCE* ;;; warning: unused declarations found in form: (TYPE ARRAY-INDEX INPUT-LENGTH). ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/rfc2388-binary/4ea6b34d653445314332dce88e4792b8332004f0/rfc2388-binary-20260425-git/source/parsing.lisp ; in: DEFMETHOD READ-MIME (STREAM ARRAY T) ; (STRING= "multipart/mixed" (RFC2388-BINARY:CONTENT-TYPE RFC2388-BINARY::PART)) ; ; note: unable to optimize due to type uncertainty: The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; in: DEFUN PARSE-KEY-VALUES ; (LOOP RFC2388-BINARY::WITH RFC2388-BINARY::STATE = :PRE-KEY ; RFC2388-BINARY::FOR CHAR RFC2388-BINARY::ACROSS RFC2388-BINARY::KEY-VALUE-STRING ; DO (FLET ((RFC2388-BINARY::EXTEND (STRING) ; (VECTOR-PUSH-EXTEND CHAR STRING)) ; (RFC2388-BINARY::FINISH-VALUE () ; (SETF #) ; (PUSH # RFC2388-BINARY::KEYS-AND-VALUES) ; (SETF #))) ; (CASE CHAR ; (#\= (ECASE RFC2388-BINARY::STATE # #)) ; (#\; (ECASE RFC2388-BINARY::STATE # #)) ; (#\" (ECASE RFC2388-BINARY::STATE # #)) ; ((#\ #\Tab) (ECASE RFC2388-BINARY::STATE # # #)) ; (T (ECASE RFC2388-BINARY::STATE # # #)))) ; RFC2388-BINARY::FINALLY ...) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%DATA-VECTOR-AND-INDEX/KNOWN ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFUN PARSE-HEADER-VALUE ; (LOOP RFC2388-BINARY::WITH RFC2388-BINARY::VALUE RFC2388-BINARY::OF-TYPE (ARRAY ; CHARACTER ; (*)) = (MAKE-ARRAY ; (LENGTH ; RFC2388-BINARY::HEADER-VALUE-STRING) ; :ELEMENT-TYPE ; 'CHARACTER ; :ADJUSTABLE ; T ; :FILL-POINTER ; 0) ; RFC2388-BINARY::WITH RFC2388-BINARY::STATE = :PRE-VALUE ; RFC2388-BINARY::FOR ...) ; --> LET LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> SB-KERNEL:%DATA-VECTOR-AND-INDEX/KNOWN ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; (ARRAY-ELEMENT-TYPE RFC2388-BINARY::HEADER-VALUE-STRING) ; ; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.web-server/5ea06cc4f0da7957222b950572c3973ebb765c95/hu.dwim.web-server-20260425-darcs/source/http/request-parsing.lisp ; in: DEF (FUNCTION O) ; (CL+SSL::ENSURE-SSL-FUNCALL HU.DWIM.WEB-SERVER::CLIENT-STREAM/SSL ; HU.DWIM.WEB-SERVER::SSL-STREAM-HANDLE ; #'CL+SSL::SSL-READ ; HU.DWIM.WEB-SERVER::SSL-STREAM-HANDLE ; HU.DWIM.WEB-SERVER::READ-BUFFER-POINTER ; HU.DWIM.WEB-SERVER::BYTES-TO-READ) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; caught WARNING: ; Derived type of CL+SSL::SUCCESS-TEST is (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL), conflicting with its asserted type (OR FUNCTION SYMBOL). ; See also: ; The SBCL Manual, Node "Handling of Types" Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=674591 "main thread" RUNNING {1200030003}>: COMPILE-FILE-ERROR while compiling #<HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing"> Backtrace for: #<SB-THREAD:THREAD tid=674591 "main thread" RUNNING {1200030003}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1216BE6343}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1216BE6343}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1216BE6343}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: (HU.DWIM.ASDF::CALL-WITH-MUFFLED-BORING-COMPILER-WARNINGS #<FUNCTION (LABELS CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/d3e226f19d647b254d92d7a5aa76438b629c13e6/hu.dwim.asdf-stable-git/source/system.lisp") {1215ADAA0B}>) 8: (HU.DWIM.ASDF::CALL-IN-ASDF-OP-ENV #<FUNCTION (LABELS CALL-NEXT-METHOD :IN "/home/quicklisp/quicklisp-controller/dist/build-cache/hu.dwim.asdf/d3e226f19d647b254d92d7a5aa76438b629c13e6/hu.dwim.asdf-stable-git/source/system.lisp") {1215ADAA0B}>) 9: ((:METHOD ASDF/ACTION:PERFORM :AROUND (ASDF/LISP-ACTION:COMPILE-OP HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing">) [fast-method] 10: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<HU.DWIM.ASDF::HU.DWIM.CL-SOURCE-FILE "hu.dwim.web-server" "source" "http" "request-parsing">) [fast-method] 11: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12051ABDF3}>) [fast-method] 12: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 13: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {12051ABDF3}>) [fast-method] 14: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">) 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<HU.DWIM.ASDF:HU.DWIM.DOCUMENTATION-SYSTEM "hu.dwim.asdf.documentation">) [fast-method] 18: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method] 21: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120510D0BB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 22: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 23: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12050DC98B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 24: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "hu.dwim.asdf.documentation") [fast-method] 25: (DEPCHECK::COMPUTE-DEPENDENCIES "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation") 26: (DEPCHECK::MAGIC "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f3ivuFxy/depcheck-win.txt") 27: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "hu.dwim.asdf.documentation" "hu.dwim.asdf.documentation" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f3ivuFxy/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-f3ivuFxy/depcheck-fail.txt")) 28: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 29: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 30: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 31: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 1 fatal ERROR condition ; caught 1 WARNING condition ; caught 245 STYLE-WARNING conditions ; printed 104 notes