SBCL 2.5.5.114-85e41f89c / ASDF 3.3.5
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20250715-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file. WARNING: 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 WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/e1f4696614c41b8d626a0b74373387cf7307bc8c/cl-freetype2-20250715-git/cl-freetype2.asd" contains definition for system "cl-freetype2-doc". Please only define "cl-freetype2" and secondary systems with a name starting with "cl-freetype2/" (e.g. "cl-freetype2/test") in that file. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/e1f4696614c41b8d626a0b74373387cf7307bc8c/cl-freetype2-20250715-git/src/outline.lisp ; in: DEFCALLBACK CB-OUTLINE-MOVETO ; (FUNCALL FREETYPE2::*DECOMPOSE-CALLBACK* :MOVETO ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; NIL NIL) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: *DECOMPOSE-CALLBACK* is not known to be a function ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CB-OUTLINE-LINETO ; (FUNCALL FREETYPE2::*DECOMPOSE-CALLBACK* :LINETO ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; NIL NIL) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: *DECOMPOSE-CALLBACK* is not known to be a function ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CB-OUTLINE-CONICTO ; (FUNCALL FREETYPE2::*DECOMPOSE-CALLBACK* :CONICTO ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; NIL) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: *DECOMPOSE-CALLBACK* is not known to be a function ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CB-OUTLINE-CUBICTO ; (FUNCALL FREETYPE2::*DECOMPOSE-CALLBACK* :CUBICTO ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL1 ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL2 ; '(:STRUCT ; FREETYPE2-TYPES:FOREIGN-FT-VECTOR))) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: *DECOMPOSE-CALLBACK* is not known to be a function ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::TO ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL1 ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:CONVERT-FROM-FOREIGN FREETYPE2::CONTROL2 ; '(:STRUCT FREETYPE2-TYPES:FOREIGN-FT-VECTOR)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20250715-git/src/xlib/xlib.lisp ; in: DEFUN SET-WINDOW-SIZE-HINTS ; (SETF CL-CAIRO2::FLAGS (LOGIOR CL-CAIRO2::PMINSIZE CL-CAIRO2::PMAXSIZE) ; CL-CAIRO2::X 0 ; CL-CAIRO2::Y 0 ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2:WIDTH) ; CL-CAIRO2::MAX-WINDOW-WIDTH ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2:HEIGHT) ; CL-CAIRO2::MAX-WINDOW-HEIGHT ; CL-CAIRO2::MIN-WIDTH CL-CAIRO2::MIN-WINDOW-WIDTH ; ...) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE2 #:PTR0 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2::FLAGS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE11 #:PTR0 'CL-CAIRO2::XSIZEHINTS 'CL-CAIRO2::X) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE20 #:PTR0 'CL-CAIRO2::XSIZEHINTS 'CL-CAIRO2::Y) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE29 CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2:WIDTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE38 CL-CAIRO2::HINTS 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2:HEIGHT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE47 #:PTR0 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2::MIN-WIDTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE56 #:PTR0 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2::MAX-WIDTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE65 #:PTR0 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2::MIN-HEIGHT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE74 #:PTR0 'CL-CAIRO2::XSIZEHINTS ; 'CL-CAIRO2::MAX-HEIGHT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead. ; in: DEFUN CREATE-WINDOW ; (CFFI:WITH-FOREIGN-OBJECT (CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES) ; (SETF (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::EVENT-MASK) ; CL-CAIRO2::EVENT-MASK ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKGROUND-PIXEL) ; CL-CAIRO2::BACKGROUND-PIXEL ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKING-STORE) ; (IF CL-CAIRO2::BACKING-STORE ; 1 ; 0)) ; (CL-CAIRO2::XCREATEWINDOW CL-CAIRO2::DISPLAY CL-CAIRO2::PARENT 0 0 ; CL-CAIRO2:WIDTH CL-CAIRO2:HEIGHT 0 0 ; (ECASE CLASS ; (CL-CAIRO2::COPYFROMPARENT 0) ; (CL-CAIRO2::INPUTOUTPUT 1) ; (CL-CAIRO2::INPUTONLY 2)) ; CL-CAIRO2::VISUAL ; (IF (EQ CLASS 'CL-CAIRO2::INPUTONLY) ; CL-CAIRO2::CWEVENTMASK ; (LOGIOR CL-CAIRO2::CWBACKPIXEL CL-CAIRO2::CWBACKINGSTORE ; CL-CAIRO2::CWEVENTMASK)) ; ...)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead. ; (SETF (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::EVENT-MASK) ; CL-CAIRO2::EVENT-MASK ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKGROUND-PIXEL) ; CL-CAIRO2::BACKGROUND-PIXEL ; (CFFI:FOREIGN-SLOT-VALUE CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKING-STORE) ; (IF CL-CAIRO2::BACKING-STORE ; 1 ; 0)) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE4 CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::EVENT-MASK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE13 CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKGROUND-PIXEL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE22 CL-CAIRO2::ATTRIBUTES ; 'CL-CAIRO2::XSETWINDOWATTRIBUTES ; 'CL-CAIRO2::BACKING-STORE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSETWINDOWATTRIBUTES)) or (:STRUCT XSETWINDOWATTRIBUTES) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2-xlib" "xlib surface" "xlib"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-cairo2/34fc6c321105781ff8edce95e921dddf81f85a40/cl-cairo2-20250715-git/src/xlib/xlib-image-context.lisp ; in: DEFUN SEND-MESSAGE-TO-SIGNAL-WINDOW ; (SETF TYPE 33) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE6 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT 'TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (SETF CL-CAIRO2::DISPLAY CL-CAIRO2::DISPLAY-POINTER) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE15 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::DISPLAY) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (SETF CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE24 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (SETF CL-CAIRO2::MESSAGE-TYPE 0) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE33 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::MESSAGE-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (SETF FORMAT 32) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE42 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'FORMAT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (SETF CL-CAIRO2::DATA0 CL-CAIRO2::MESSAGE) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE51 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::DATA0) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; in: DEFUN CREATE-XLIB-IMAGE-CONTEXT ; (= TYPE 12) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= CL-CAIRO2::WINDOW CL-CAIRO2::THIS-WINDOW) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= TYPE 33) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= CL-CAIRO2::WINDOW CL-CAIRO2::THIS-WINDOW) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= CL-CAIRO2::MESSAGE-TYPE CL-CAIRO2::WM-PROTOCOLS) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR66 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::MESSAGE-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (= CL-CAIRO2::DATA0 CL-CAIRO2::WM-DELETE-WINDOW) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR66 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::DATA0) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (= CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= CL-CAIRO2::DATA0 CL-CAIRO2::+DESTROY-MESSAGE+) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR66 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::DATA0) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. ; (= CL-CAIRO2::WINDOW CL-CAIRO2::SIGNAL-WINDOW) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR65 'CL-CAIRO2::XANYEVENT 'CL-CAIRO2::WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XANYEVENT)) or (:STRUCT XANYEVENT) instead. ; (= CL-CAIRO2::DATA0 CL-CAIRO2::+REFRESH-MESSAGE+) ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:PTR66 'CL-CAIRO2::XCLIENTMESSAGEEVENT ; 'CL-CAIRO2::DATA0) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-cairo2-xlib" "core" "xlib-image-context"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/glib.lisp ; in: DEFCFUN (G-MAIN-LOOP-NEW "g_main_loop_new" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-NEW "g_main_loop_new" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-LOOP) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::IS-RUNNING :BOOLEAN)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G-MAIN-LOOP-REF "g_main_loop_ref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-REF "g_main_loop_ref" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-LOOP) ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: DEFCFUN (G-MAIN-LOOP-UNREF "g_main_loop_unref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-UNREF "g_main_loop_unref" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-LOOP) ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: DEFCFUN (G-MAIN-LOOP-RUN "g_main_loop_run" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-RUN "g_main_loop_run" :LIBRARY GLIB::GLIB) ; :VOID ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: DEFCFUN (G-MAIN-LOOP-QUIT "g_main_loop_quit" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-QUIT "g_main_loop_quit" :LIBRARY GLIB::GLIB) ; :VOID ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: ; DEFCFUN (G-MAIN-LOOP-IS-RUNNING "g_main_loop_is_running" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-IS-RUNNING "g_main_loop_is_running" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: ; DEFCFUN (G-MAIN-LOOP-GET-CONTEXT "g_main_loop_get_context" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-LOOP-GET-CONTEXT "g_main_loop_get_context" ; :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT) ; (LOOP (:POINTER GLIB::G-MAIN-LOOP))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-LOOP)) or (:STRUCT G-MAIN-LOOP) instead. ; in: DEFCFUN (G-MAIN-CONTEXT-NEW "g_main_context_new" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-NEW "g_main_context_new" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G-MAIN-CONTEXT-REF "g_main_context_ref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-REF "g_main_context_ref" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G-MAIN-CONTEXT-UNREF "g_main_context_unref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-UNREF "g_main_context_unref" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-DEFAULT "g_main_context_default" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-DEFAULT "g_main_context_default" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-ITERATION "g_main_context_iteration" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-ITERATION "g_main_context_iteration" ; :LIBRARY GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::MAY-BLOCK :BOOLEAN)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-PENDING "g_main_context_pending" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-PENDING "g_main_context_pending" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-FIND-SOURCE-BY-ID "g_main_context_find_source_by_id" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-FIND-SOURCE-BY-ID ; "g_main_context_find_source_by_id" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::SOURCE-ID :UINT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-FIND-SOURCE-BY-USER-DATA "g_main_context_find_source_by_user_data" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-FIND-SOURCE-BY-USER-DATA ; "g_main_context_find_source_by_user_data" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::USER-DATA :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-FIND-SOURCE-BY-FUNCS-USER-DATA "g_main_context_find_source_by_funcs_user_data" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-FIND-SOURCE-BY-FUNCS-USER-DATA ; "g_main_context_find_source_by_funcs_user_data" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::FUNCS (:POINTER GLIB::G-SOURCE-FUNCS)) ; (GLIB::USER-DATA :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-WAKEUP "g_main_context_wakeup" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-WAKEUP "g_main_context_wakeup" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-ACQUIRE "g_main_context_acquire" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-ACQUIRE "g_main_context_acquire" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-RELEASE "g_main_context_release" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-RELEASE "g_main_context_release" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-IS-OWNER "g_main_context_is_owner" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-IS-OWNER "g_main_context_is_owner" ; :LIBRARY GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G-MAIN-CONTEXT-WAIT "g_main_context_wait" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-WAIT "g_main_context_wait" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (COND (:POINTER GLIB::G-COND)) ; (GLIB::MUTEX (:POINTER GLIB::G-MUTEX))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-COND)) or (:STRUCT G-COND) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MUTEX)) or (:STRUCT G-MUTEX) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-COND)) or (:STRUCT G-COND) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MUTEX)) or (:STRUCT G-MUTEX) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MUTEX)) or (:STRUCT G-MUTEX) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-COND)) or (:STRUCT G-COND) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G_MAIN_CONTEXT_PREPARE "g_main_context_prepare" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G_MAIN_CONTEXT_PREPARE "g_main_context_prepare" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::PRIORITY-RET (:POINTER :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G_MAIN_CONTEXT_QUERY "g_main_context_query" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G_MAIN_CONTEXT_QUERY "g_main_context_query" :LIBRARY ; GLIB::GLIB) ; :INT ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::MAX-PRIORITY :INT) ; (GLIB::TIMEOUT-RET (:POINTER :INT)) ; (GLIB::FDS-RET (:POINTER GLIB::G-POLL-FD)) ; (GLIB::N-DFS :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: DEFCFUN (G-MAIN-CONTEXT-CHECK "g_main_context_check" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-CHECK "g_main_context_check" :LIBRARY ; GLIB::GLIB) ; :INT ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::MAX-PRIORITY :INT) ; (GLIB::FDS (:POINTER GLIB::G-POLL-FD)) ; (GLIB::N-FDS :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-DISPATCH "g_main_context_dispatch" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-DISPATCH "g_main_context_dispatch" ; :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-SET-POLL-FUNC "g_main_context_set_poll_func" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-SET-POLL-FUNC ; "g_main_context_set_poll_func" :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::FUNC :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-GET-POLL-FUNC "g_main_context_get_poll_func" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-GET-POLL-FUNC ; "g_main_context_get_poll_func" :LIBRARY GLIB::GLIB) ; :POINTER ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-ADD-POLL "g_main_context_add_poll" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-ADD-POLL "g_main_context_add_poll" ; :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::FD (:POINTER GLIB::G-POLL-FD)) ; (GLIB::PRIORITY :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CONTEXT-REMOVE-POLL "g_main_context_remove_poll" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CONTEXT-REMOVE-POLL "g_main_context_remove_poll" ; :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT)) ; (GLIB::FD (:POINTER GLIB::G-POLL-FD))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; in: ; DEFCFUN (G-MAIN-CURRENT-SOURCE "g_main_current_source" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-MAIN-CURRENT-SOURCE "g_main_current_source" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-TIMEOUT-SOURCE-NEW "g_timeout_source_new" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-TIMEOUT-SOURCE-NEW "g_timeout_source_new" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::INTERVAL-MILLISECONDS :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-TIMEOUT-SOURCE-NEW-SECONDS "g_timeout_source_new_seconds" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-TIMEOUT-SOURCE-NEW-SECONDS ; "g_timeout_source_new_seconds" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::INTERVAL-SECONDS :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-IDLE-SOURCE-NEW "g_idle_source_new" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-IDLE-SOURCE-NEW "g_idle_source_new" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-NEW "g_source_new" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-NEW "g_source_new" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::SOURCE-FUNCS (:POINTER GLIB::G-SOURCE-FUNCS)) ; (GLIB::STRUCT-SIZE :UINT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; in: DEFCFUN (G-SOURCE-REF "g_source_ref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-REF "g_source_ref" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-SOURCE) ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-UNREF "g_source_unref" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-UNREF "g_source_unref" :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-SET-FUNCS "g_source_set_funcs" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-SET-FUNCS "g_source_set_funcs" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::FUNCS (:POINTER GLIB::G-SOURCE-FUNCS))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-ATTACH "g_source_attach" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-ATTACH "g_source_attach" :LIBRARY GLIB::GLIB) ; :UINT ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::CONTEXT (:POINTER GLIB::G-MAIN-CONTEXT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-DESTROY "g_source_destroy" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-DESTROY "g_source_destroy" :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-IS-DESTROYED "g_source_is_destroyed" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-IS-DESTROYED "g_source_is_destroyed" :LIBRARY ; GLIB::GLIB) ; :BOOLEAN ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-SET-PRIORITY "g_source_set_priority" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-SET-PRIORITY "g_source_set_priority" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::PRIORITY :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-GET-PRIORITY "g_source_get_priority" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-GET-PRIORITY "g_source_get_priority" :LIBRARY ; GLIB::GLIB) ; :INT ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-SET-CAN-RECURSE "g_source_set_can_recurse" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-SET-CAN-RECURSE "g_source_set_can_recurse" ; :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::CAN-RECURSE :BOOLEAN)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-GET-CAN-RECURSE "g_source_get_can_recurse" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-GET-CAN-RECURSE "g_source_get_can_recurse" ; :LIBRARY GLIB::GLIB) ; :BOOLEAN ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-GET-ID "g_source_get_id" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-GET-ID "g_source_get_id" :LIBRARY GLIB::GLIB) ; :UINT ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-GET-CONTEXT "g_source_get_context" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-GET-CONTEXT "g_source_get_context" :LIBRARY ; GLIB::GLIB) ; (:POINTER GLIB::G-MAIN-CONTEXT) ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-MAIN-CONTEXT)) or (:STRUCT G-MAIN-CONTEXT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-SET-CALLBACK "g_source_set_callback" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-SET-CALLBACK "g_source_set_callback" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::FUNC :POINTER) ; (GLIB::DATA :POINTER) ; (GLIB::NOTIFY :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-ADD-POLL "g_source_add_poll" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-ADD-POLL "g_source_add_poll" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::FD (:POINTER GLIB::G-POLL-FD))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: DEFCFUN (G-SOURCE-REMOVE-POLL "g_source_remove_poll" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-REMOVE-POLL "g_source_remove_poll" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::FD (:POINTER GLIB::G-POLL-FD))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-POLL-FD)) or (:STRUCT G-POLL-FD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-GET-CURRENT-TIME "g_source_get_current_time" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-GET-CURRENT-TIME "g_source_get_current_time" ; :LIBRARY GLIB::GLIB) ; :VOID ; (GLIB::SOURCE (:POINTER GLIB::G-SOURCE)) ; (GLIB::TIMEVAL-RET (:POINTER GLIB::G-TIME-VAL))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TIME-VAL)) or (:STRUCT G-TIME-VAL) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TIME-VAL)) or (:STRUCT G-TIME-VAL) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TIME-VAL)) or (:STRUCT G-TIME-VAL) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE)) or (:STRUCT G-SOURCE) instead. ; in: ; DEFCFUN (G-SOURCE-REMOVE-BY-FUNCS-USER-DATA "g_source_remove_by_funcs_user_data" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-SOURCE-REMOVE-BY-FUNCS-USER-DATA ; "g_source_remove_by_funcs_user_data" :LIBRARY GLIB::GLIB) ; :BOOLEAN ; (GLIB::FUNCS (:POINTER GLIB::G-SOURCE-FUNCS)) ; (GLIB::DATA :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SOURCE-FUNCS)) or (:STRUCT G-SOURCE-FUNCS) instead. ; in: DEFCFUN (G-THREAD-SELF "g_thread_self" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-THREAD-SELF "g_thread_self" :LIBRARY GLIB::GLIB) ; (:POINTER GLIB::G-THREAD)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; in: DEFCFUN (G-THREAD-JOIN "g_thread_join" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-THREAD-JOIN "g_thread_join" :LIBRARY GLIB::GLIB) ; :POINTER ; (GLIB::THREAD (:POINTER GLIB::G-THREAD))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; in: DEFCFUN (G-THREAD-PRIORITY "g_thread_set_priority" :LIBRARY GLIB) ; (CFFI:DEFCFUN (GLIB::G-THREAD-PRIORITY "g_thread_set_priority" :LIBRARY ; GLIB::GLIB) ; :VOID ; (GLIB::THREAD (:POINTER GLIB::G-THREAD)) ; (GLIB::PRIORITY GLIB::G-THREAD-PRIORITY)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-THREAD)) or (:STRUCT G-THREAD) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "glib"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/glib.glist.lisp ; in: DEFCFUN G-LIST-FIRST ; (CFFI:DEFCFUN GLIB::G-LIST-FIRST ; (:POINTER GLIB::G-LIST) ; (LIST (:POINTER GLIB::G-LIST))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; in: DEFCFUN G-LIST-FREE ; (CFFI:DEFCFUN GLIB::G-LIST-FREE ; :VOID ; (LIST (:POINTER GLIB::G-LIST))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; in: DEFUN G-LIST-NEXT ; (CFFI:FOREIGN-SLOT-VALUE LIST 'GLIB::G-LIST 'ITERATE:NEXT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; in: DEFMETHOD TRANSLATE-FROM-FOREIGN (T GLIST-TYPE) ; (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-LIST 'GLIB::DATA) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead. ; in: DEFCFUN G-SLIST-ALLOC ; (CFFI:DEFCFUN GLIB::G-SLIST-ALLOC ; (:POINTER GLIB::G-SLIST)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; in: DEFCFUN G-SLIST-FREE ; (CFFI:DEFCFUN GLIB::G-SLIST-FREE ; :VOID ; (LIST (:POINTER GLIB::G-SLIST))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; in: DEFUN G-SLIST-NEXT ; (CFFI:FOREIGN-SLOT-VALUE LIST 'GLIB::G-SLIST 'ITERATE:NEXT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; in: DEFMETHOD TRANSLATE-FROM-FOREIGN (T GSLIST-TYPE) ; (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-SLIST 'GLIB::DATA) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; in: DEFMETHOD TRANSLATE-TO-FOREIGN (T GSLIST-TYPE) ; (ITERATE:ITER ; (ITERATE:FOR GLIB::ITEM ITERATE:IN LIST) ; (ITERATE:FOR GLIB::N = (GLIB::G-SLIST-ALLOC)) ; (ITERATE:FOR GLIB::PTR = ; (CFFI:CONVERT-TO-FOREIGN GLIB::ITEM (GLIB::GSLIST-TYPE-TYPE TYPE))) ; (SETF (CFFI:FOREIGN-SLOT-VALUE GLIB::N 'GLIB::G-SLIST 'GLIB::DATA) ; GLIB::PTR) ; (SETF (CFFI:FOREIGN-SLOT-VALUE GLIB::N 'GLIB::G-SLIST 'ITERATE:NEXT) ; (CFFI-SYS:NULL-POINTER)) ; (WHEN LAST ; (SETF (CFFI:FOREIGN-SLOT-VALUE LAST 'GLIB::G-SLIST 'ITERATE:NEXT) ; GLIB::N)) ; (SETF LAST GLIB::N) ; (WHEN (ITERATE:FIRST-ITERATION-P) (SETF GLIB::RESULT GLIB::N))) ; --> BLOCK BLOCK TAGBODY PROGN LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE14 GLIB::N 'GLIB::G-SLIST 'GLIB::DATA) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE16 GLIB::N 'GLIB::G-SLIST 'ITERATE:NEXT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. ; --> BLOCK BLOCK TAGBODY PROGN IF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE18 LAST 'GLIB::G-SLIST 'ITERATE:NEXT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "glib.glist"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/glib.gerror.lisp ; in: DEFUN MAYBER-RAISE-G-ERROR-CONDITION ; (CFFI:FOREIGN-SLOT-VALUE GLIB::ERR 'GLIB::G-ERROR :DOMAIN) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ERROR)) or (:STRUCT G-ERROR) instead. ; (CFFI:FOREIGN-SLOT-VALUE GLIB::ERR 'GLIB::G-ERROR :CODE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ERROR)) or (:STRUCT G-ERROR) instead. ; (CFFI:FOREIGN-SLOT-VALUE GLIB::ERR 'GLIB::G-ERROR :MESSAGE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ERROR)) or (:STRUCT G-ERROR) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "glib.gerror"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.type-designator.lisp ; in: DEFUN GTYPE-FROM-NAME ; (COPY-SEQ GOBJECT.FFI::NAME) ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN GTYPE-FROM-ID ; (ZEROP GOBJECT.FFI::ID) ; ; 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. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.ffi.lisp ; in: DEFCSTRUCT G-TYPE-INSTANCE ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-TYPE-INSTANCE ; (:CLASS (:POINTER GOBJECT.FFI:G-TYPE-CLASS))) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-TYPE-INSTANCE ; '(:CLASS ; GOBJECT.FFI::G-TYPE-INSTANCE-TCLASS) ; '((:CLASS ; (:POINTER ; GOBJECT.FFI:G-TYPE-CLASS)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCSTRUCT %G-OBJECT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:%G-OBJECT ; (:TYPE-INSTANCE GOBJECT.FFI:G-TYPE-INSTANCE) ; (:REF-COUNT :UINT) ; (:DATA :POINTER)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:%G-OBJECT ; '(:CLASS ; GOBJECT.FFI::%G-OBJECT-TCLASS) ; '((:TYPE-INSTANCE ; GOBJECT.FFI:G-TYPE-INSTANCE) ; (:REF-COUNT :UINT) ; (:DATA :POINTER))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; in: DEFCTYPE %G-INITIALLY-UNOWNED ; (CFFI:DEFCTYPE GOBJECT.FFI:%G-INITIALLY-UNOWNED GOBJECT.FFI:%G-OBJECT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %G-OBJECT)) or (:STRUCT %G-OBJECT) instead. ; in: DEFCSTRUCT G-OBJECT-CLASS ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-OBJECT-CLASS ; (:TYPE-CLASS GOBJECT.FFI:G-TYPE-CLASS) ; (:CONSTRUCT-PROPERTIES :POINTER) ; (:CONSTRUCTOR :POINTER) ; (:SET-PROPERTY :POINTER) ; (:GET-PROPERTY :POINTER) ; (:DISPOSE :POINTER) ; (:FINALIZE :POINTER) ; (:DISPATCH-PROPERTIES-CHANGED :POINTER) ; (:NOTIFY :POINTER) ; (:CONSTRUCTED :POINTER) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-OBJECT-CLASS ; '(:CLASS ; GOBJECT.FFI::G-OBJECT-CLASS-TCLASS) ; '((:TYPE-CLASS ; GOBJECT.FFI:G-TYPE-CLASS) ; (:CONSTRUCT-PROPERTIES :POINTER) ; (:CONSTRUCTOR :POINTER) ; (:SET-PROPERTY :POINTER) ; (:GET-PROPERTY :POINTER) ; (:DISPOSE :POINTER) ; (:FINALIZE :POINTER) ; (:DISPATCH-PROPERTIES-CHANGED ; :POINTER) ; (:NOTIFY :POINTER) ; (:CONSTRUCTED :POINTER) ; (:PDUMMY :POINTER :COUNT 7))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCSTRUCT G-PARAM-SPEC ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC ; (:TYPE-INSTANCE GOBJECT.FFI:G-TYPE-INSTANCE) ; (:NAME (:STRING :FREE-FROM-FOREIGN NIL :FREE-TO-FOREIGN NIL)) ; (:FLAGS GOBJECT.FFI:G-PARAM-FLAGS) ; (:VALUE-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:OWNER-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-TCLASS) ; '((:TYPE-INSTANCE ; GOBJECT.FFI:G-TYPE-INSTANCE) ; (:NAME ; (:STRING :FREE-FROM-FOREIGN NIL ; :FREE-TO-FOREIGN NIL)) ; (:FLAGS GOBJECT.FFI:G-PARAM-FLAGS) ; (:VALUE-TYPE ; GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:OWNER-TYPE ; GOBJECT.FFI:G-TYPE-DESIGNATOR))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; in: DEFCSTRUCT G-VALUE ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-VALUE ; (:TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:DATA GOBJECT.FFI:G-VALUE-DATA :COUNT 2)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-VALUE ; '(:CLASS GOBJECT.FFI::G-VALUE-TCLASS) ; '((:TYPE ; GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:DATA GOBJECT.FFI:G-VALUE-DATA ; :COUNT 2))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. ; in: DEFCSTRUCT G-OBJECT-CONSTRUCT-PARAM ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-OBJECT-CONSTRUCT-PARAM ; (:PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (:VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-OBJECT-CONSTRUCT-PARAM ; '(:CLASS ; GOBJECT.FFI::G-OBJECT-CONSTRUCT-PARAM-TCLASS) ; '((:PARAM-SPEC ; (:POINTER ; GOBJECT.FFI:G-PARAM-SPEC)) ; (:VALUE ; (:POINTER GOBJECT.FFI:G-VALUE)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCSTRUCT G-PARAMETER ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAMETER ; (:NAME (:STRING :FREE-FROM-FOREIGN NIL :FREE-TO-FOREIGN NIL)) ; (:VALUE GOBJECT.FFI:G-VALUE)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAMETER ; '(:CLASS ; GOBJECT.FFI::G-PARAMETER-TCLASS) ; '((:NAME ; (:STRING :FREE-FROM-FOREIGN NIL ; :FREE-TO-FOREIGN NIL)) ; (:VALUE GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCSTRUCT G-ENUM-CLASS ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-ENUM-CLASS ; (:TYPE-CLASS GOBJECT.FFI:G-TYPE-CLASS) ; (:MINIMUM :INT) ; (:MAXIMUM :INT) ; (:N-VALUES :UINT) ; (:VALUES (:POINTER GOBJECT.FFI:G-ENUM-VALUE))) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-ENUM-CLASS ; '(:CLASS ; GOBJECT.FFI::G-ENUM-CLASS-TCLASS) ; '((:TYPE-CLASS ; GOBJECT.FFI:G-TYPE-CLASS) ; (:MINIMUM :INT) (:MAXIMUM :INT) ; (:N-VALUES :UINT) ; (:VALUES ; (:POINTER ; GOBJECT.FFI:G-ENUM-VALUE)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; in: DEFCSTRUCT G-FLAGS-CLASS ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-FLAGS-CLASS ; (:TYPE-CLASS GOBJECT.FFI:G-TYPE-CLASS) ; (:MASK :UINT) ; (:N-VALUES :UINT) ; (:VALUES (:POINTER GOBJECT.FFI:G-FLAGS-VALUE))) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-FLAGS-CLASS ; '(:CLASS ; GOBJECT.FFI::G-FLAGS-CLASS-TCLASS) ; '((:TYPE-CLASS ; GOBJECT.FFI:G-TYPE-CLASS) ; (:MASK :UINT) (:N-VALUES :UINT) ; (:VALUES ; (:POINTER ; GOBJECT.FFI:G-FLAGS-VALUE)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-BOOLEAN ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-BOOLEAN ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:DEFAULT-VALUE :BOOLEAN)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-BOOLEAN ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-BOOLEAN-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:DEFAULT-VALUE :BOOLEAN))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-CHAR ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-CHAR ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :INT8) ; (:MAXIMUM :INT8) ; (:DEFAULT-VALUE :INT8)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-CHAR ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-CHAR-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :INT8) (:MAXIMUM :INT8) ; (:DEFAULT-VALUE :INT8))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-UCHAR ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-UCHAR ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT8) ; (:MAXIMUM :UINT8) ; (:DEFAULT-VALUE :UINT8)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-UCHAR ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-UCHAR-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT8) (:MAXIMUM :UINT8) ; (:DEFAULT-VALUE :UINT8))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-INT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-INT ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :INT) ; (:MAXIMUM :INT) ; (:DEFAULT-VALUE :INT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-INT ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-INT-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :INT) (:MAXIMUM :INT) ; (:DEFAULT-VALUE :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-UINT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-UINT ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT) ; (:MAXIMUM :UINT) ; (:DEFAULT-VALUE :UINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-UINT ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-UINT-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT) (:MAXIMUM :UINT) ; (:DEFAULT-VALUE :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-LONG ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-LONG ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :LONG) ; (:MAXIMUM :LONG) ; (:DEFAULT-VALUE :ULONG)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-LONG ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-LONG-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :LONG) (:MAXIMUM :LONG) ; (:DEFAULT-VALUE :ULONG))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-ULONG ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-ULONG ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :ULONG) ; (:MAXIMUM :ULONG) ; (:DEFAULT-VALUE :ULONG)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-ULONG ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-ULONG-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :ULONG) (:MAXIMUM :ULONG) ; (:DEFAULT-VALUE :ULONG))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-INT64 ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-INT64 ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT64) ; (:MAXIMUM :UINT64) ; (:DEFAULT-VALUE :UINT64)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-INT64 ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-INT64-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT64) ; (:MAXIMUM :UINT64) ; (:DEFAULT-VALUE :UINT64))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-UINT64 ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-UINT64 ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT64) ; (:MAXIMUM :UINT64) ; (:DEFAULT-VALUE :UINT64)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-UINT64 ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-UINT64-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :UINT64) ; (:MAXIMUM :UINT64) ; (:DEFAULT-VALUE :UINT64))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-FLOAT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-FLOAT ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :FLOAT) ; (:MAXIMUM :FLOAT) ; (:DEFAULT-VALUE :FLOAT) ; (:EPSILON :FLOAT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-FLOAT ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-FLOAT-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :FLOAT) (:MAXIMUM :FLOAT) ; (:DEFAULT-VALUE :FLOAT) ; (:EPSILON :FLOAT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-DOUBLE ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-DOUBLE ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :DOUBLE) ; (:MAXIMUM :DOUBLE) ; (:DEFAULT-VALUE :DOUBLE) ; (:EPSILON :DOUBLE)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-DOUBLE ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-DOUBLE-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:MINIMUM :DOUBLE) ; (:MAXIMUM :DOUBLE) ; (:DEFAULT-VALUE :DOUBLE) ; (:EPSILON :DOUBLE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-ENUM ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-ENUM ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:ENUM-CLASS (:POINTER GOBJECT.FFI:G-ENUM-CLASS)) ; (:DEFAULT-VALUE :INT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-ENUM ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-ENUM-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:ENUM-CLASS ; (:POINTER ; GOBJECT.FFI:G-ENUM-CLASS)) ; (:DEFAULT-VALUE :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-FLAGS ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-FLAGS ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:FLAGS-CLASS (:POINTER GOBJECT.FFI:G-FLAGS-CLASS)) ; (:DEFAULT-VALUE :UINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-FLAGS ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-FLAGS-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:FLAGS-CLASS ; (:POINTER ; GOBJECT.FFI:G-FLAGS-CLASS)) ; (:DEFAULT-VALUE :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-STRING ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-STRING ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:DEFAULT-VALUE (:STRING :FREE-TO-FOREIGN NIL :FREE-FROM-FOREIGN NIL)) ; (:CSET-FIRST (:STRING :FREE-TO-FOREIGN NIL :FREE-FROM-FOREIGN NIL)) ; (:CSET-NTH (:STRING :FREE-TO-FOREIGN NIL :FREE-FROM-FOREIGN NIL)) ; (:SUBSTITUTOR :CHAR) ; (:FLAGS-FOR-NULL :UINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-STRING ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-STRING-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:DEFAULT-VALUE ; (:STRING :FREE-TO-FOREIGN NIL ; :FREE-FROM-FOREIGN NIL)) ; (:CSET-FIRST ; (:STRING :FREE-TO-FOREIGN NIL ; :FREE-FROM-FOREIGN NIL)) ; (:CSET-NTH ; (:STRING :FREE-TO-FOREIGN NIL ; :FREE-FROM-FOREIGN NIL)) ; (:SUBSTITUTOR :CHAR) ; (:FLAGS-FOR-NULL :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-PARAM ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-PARAM ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-PARAM ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-PARAM-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-BOXED ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-BOXED ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-BOXED ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-BOXED-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-POINTER ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-POINTER ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-POINTER ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-POINTER-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-OBJECT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-OBJECT ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-OBJECT ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-OBJECT-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-VALUE-ARRAY ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-VALUE-ARRAY ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:ELEMENT-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (:FIXED-N-ELEMENTS :UINT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-VALUE-ARRAY ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-VALUE-ARRAY-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:ELEMENT-SPEC ; (:POINTER ; GOBJECT.FFI:G-PARAM-SPEC)) ; (:FIXED-N-ELEMENTS :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-G-TYPE ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-G-TYPE ; (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC) ; (:TYPES-ROOT GOBJECT.FFI:G-TYPE-DESIGNATOR)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-G-TYPE ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-G-TYPE-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-PARAM-SPEC) ; (:TYPES-ROOT ; GOBJECT.FFI:G-TYPE-DESIGNATOR))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCSTRUCT G-PARAM-SPEC-CLASS ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-CLASS ; (:TYPE-CLASS GOBJECT.FFI:G-TYPE-CLASS) ; (:VALUE-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:FINALIZE :POINTER) ; (:VALUE-SET-DEFAULT :POINTER) ; (:VALUE-VALIDATE :POINTER) ; (:VALUES-CMP :POINTER)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-PARAM-SPEC-CLASS ; '(:CLASS ; GOBJECT.FFI::G-PARAM-SPEC-CLASS-TCLASS) ; '((:TYPE-CLASS ; GOBJECT.FFI:G-TYPE-CLASS) ; (:VALUE-TYPE ; GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (:FINALIZE :POINTER) ; (:VALUE-SET-DEFAULT :POINTER) ; (:VALUE-VALIDATE :POINTER) ; (:VALUES-CMP :POINTER))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCFUN G-TYPE-CLASS-REF ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-CLASS-REF ; (:POINTER GOBJECT.FFI:G-TYPE-CLASS) ; (TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCFUN G-TYPE-CLASS-UNREF ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-CLASS-UNREF ; :VOID ; (CLASS (:POINTER GOBJECT.FFI:G-TYPE-CLASS))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCFUN G-TYPE-CLASS-ADD-PRIVATE ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-CLASS-ADD-PRIVATE ; :VOID ; (CLASS (:POINTER GOBJECT.FFI:G-TYPE-CLASS)) ; (GOBJECT.FFI::PRIVATE-SIZE GLIB:GSIZE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCFUN G-TYPE-REGISTER-STATIC ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-REGISTER-STATIC ; GOBJECT.FFI:G-TYPE-DESIGNATOR ; (GOBJECT.FFI::PARENT-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::TYPE-NAME :STRING) ; (GOBJECT.FFI::INFO (:POINTER GOBJECT.FFI:G-TYPE-INFO)) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-TYPE-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INFO)) or (:STRUCT G-TYPE-INFO) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INFO)) or (:STRUCT G-TYPE-INFO) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INFO)) or (:STRUCT G-TYPE-INFO) instead. ; in: DEFCFUN G-TYPE-ADD-INTERFACE-STATIC ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-ADD-INTERFACE-STATIC ; :VOID ; (GOBJECT.FFI::INSTANCE-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::INTERFACE-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::INFO (:POINTER GOBJECT.FFI:G-INTERFACE-INFO))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; in: DEFCFUN G-TYPE-QUERY ; (CFFI:DEFCFUN GOBJECT.FFI:G-TYPE-QUERY ; :VOID ; (TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::QUERY (:POINTER GOBJECT.FFI:G-TYPE-QUERY))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-QUERY)) or (:STRUCT G-TYPE-QUERY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-QUERY)) or (:STRUCT G-TYPE-QUERY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-QUERY)) or (:STRUCT G-TYPE-QUERY) instead. ; in: DEFCFUN G-CLOSURE-REF ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-REF ; (:POINTER GOBJECT.FFI:G-CLOSURE) ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-SINK ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-SINK ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-UNREF ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-UNREF ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-INVALIDATE ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-INVALIDATE ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-ADD-FINALIZE-NOTIFIER ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-ADD-FINALIZE-NOTIFIER ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE)) ; (GOBJECT.FFI::NOTIFY-DATA :POINTER) ; (GOBJECT.FFI::NOTIFY-FUNC :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-ADD-INVALIDATE-NOTIFIER ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-ADD-INVALIDATE-NOTIFIER ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE)) ; (GOBJECT.FFI::NOTIFY-DATA :POINTER) ; (GOBJECT.FFI::NOTIFY-FUNC :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-NEW-SIMPLE ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-NEW-SIMPLE ; (:POINTER GOBJECT.FFI:G-CLOSURE) ; (GOBJECT.FFI::SIZEOF-CLOSURE :UINT) ; (GOBJECT.FFI::DATA :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-CLOSURE-SET-MARSHAL ; (CFFI:DEFCFUN GOBJECT.FFI:G-CLOSURE-SET-MARSHAL ; :VOID ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE)) ; (GOBJECT.FFI::MARSHAL :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-ENUM-REGISTER-STATIC ; (CFFI:DEFCFUN GOBJECT.FFI:G-ENUM-REGISTER-STATIC ; GOBJECT.FFI:G-TYPE-DESIGNATOR ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::STATIC-VALUES (:POINTER GOBJECT.FFI:G-ENUM-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; in: DEFCFUN G-FLAGS-REGISTER-STATIC ; (CFFI:DEFCFUN GOBJECT.FFI:G-FLAGS-REGISTER-STATIC ; GOBJECT.FFI:G-TYPE-DESIGNATOR ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::STATIC-VALUES (:POINTER GOBJECT.FFI:G-FLAGS-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-BOOLEAN ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-BOOLEAN ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-BOOLEAN) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::DEFAULT-VALUE :BOOLEAN) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOOLEAN)) or (:STRUCT G-PARAM-SPEC-BOOLEAN) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOOLEAN)) or (:STRUCT G-PARAM-SPEC-BOOLEAN) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOOLEAN)) or (:STRUCT G-PARAM-SPEC-BOOLEAN) instead. ; in: DEFCFUN G-VALUE-SET-BOOLEAN ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-BOOLEAN ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :BOOLEAN)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-BOOLEAN ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-BOOLEAN ; :BOOLEAN ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-CHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-CHAR ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-CHAR) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :INT8) ; (GOBJECT.FFI::MAXIMUM :INT8) ; (GOBJECT.FFI::DEFAULT-VALUE :INT8) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-CHAR)) or (:STRUCT G-PARAM-SPEC-CHAR) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-CHAR)) or (:STRUCT G-PARAM-SPEC-CHAR) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-CHAR)) or (:STRUCT G-PARAM-SPEC-CHAR) instead. ; in: DEFCFUN G-VALUE-SET-CHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-CHAR ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :CHAR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-CHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-CHAR ; :CHAR ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-UCHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-UCHAR ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-UCHAR) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :UINT8) ; (GOBJECT.FFI::MAXIMUM :UINT8) ; (GOBJECT.FFI::DEFAULT-VALUE :UINT8) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UCHAR)) or (:STRUCT G-PARAM-SPEC-UCHAR) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UCHAR)) or (:STRUCT G-PARAM-SPEC-UCHAR) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UCHAR)) or (:STRUCT G-PARAM-SPEC-UCHAR) instead. ; in: DEFCFUN G-VALUE-SET-UCHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-UCHAR ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :UCHAR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-UCHAR ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-UCHAR ; :UCHAR ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-INT ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-INT ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-INT) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :INT) ; (GOBJECT.FFI::MAXIMUM :INT) ; (GOBJECT.FFI::DEFAULT-VALUE :INT) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT)) or (:STRUCT G-PARAM-SPEC-INT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT)) or (:STRUCT G-PARAM-SPEC-INT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT)) or (:STRUCT G-PARAM-SPEC-INT) instead. ; in: DEFCFUN G-VALUE-SET-INT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-INT ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-INT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-INT ; :INT ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-UINT ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-UINT ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-UINT) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :UINT) ; (GOBJECT.FFI::MAXIMUM :UINT) ; (GOBJECT.FFI::DEFAULT-VALUE :UINT) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT)) or (:STRUCT G-PARAM-SPEC-UINT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT)) or (:STRUCT G-PARAM-SPEC-UINT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT)) or (:STRUCT G-PARAM-SPEC-UINT) instead. ; in: DEFCFUN G-VALUE-SET-UINT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-UINT ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :UINT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-UINT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-UINT ; :UINT ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-LONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-LONG ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-LONG) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :LONG) ; (GOBJECT.FFI::MAXIMUM :LONG) ; (GOBJECT.FFI::DEFAULT-VALUE :LONG) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-LONG)) or (:STRUCT G-PARAM-SPEC-LONG) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-LONG)) or (:STRUCT G-PARAM-SPEC-LONG) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-LONG)) or (:STRUCT G-PARAM-SPEC-LONG) instead. ; in: DEFCFUN G-VALUE-SET-LONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-LONG ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :LONG)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-LONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-LONG ; :LONG ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-ULONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-ULONG ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-ULONG) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :ULONG) ; (GOBJECT.FFI::MAXIMUM :ULONG) ; (GOBJECT.FFI::DEFAULT-VALUE :ULONG) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ULONG)) or (:STRUCT G-PARAM-SPEC-ULONG) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ULONG)) or (:STRUCT G-PARAM-SPEC-ULONG) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ULONG)) or (:STRUCT G-PARAM-SPEC-ULONG) instead. ; in: DEFCFUN G-VALUE-SET-ULONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-ULONG ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :ULONG)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-ULONG ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-ULONG ; :ULONG ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-INT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-INT64 ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-INT64) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :INT64) ; (GOBJECT.FFI::MAXIMUM :INT64) ; (GOBJECT.FFI::DEFAULT-VALUE :INT64) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT64)) or (:STRUCT G-PARAM-SPEC-INT64) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT64)) or (:STRUCT G-PARAM-SPEC-INT64) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-INT64)) or (:STRUCT G-PARAM-SPEC-INT64) instead. ; in: DEFCFUN G-VALUE-SET-INT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-INT64 ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :INT64)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-INT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-INT64 ; :INT64 ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-UINT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-UINT64 ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-UINT64) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :UINT64) ; (GOBJECT.FFI::MAXIMUM :UINT64) ; (GOBJECT.FFI::DEFAULT-VALUE :UINT64) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT64)) or (:STRUCT G-PARAM-SPEC-UINT64) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT64)) or (:STRUCT G-PARAM-SPEC-UINT64) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-UINT64)) or (:STRUCT G-PARAM-SPEC-UINT64) instead. ; in: DEFCFUN G-VALUE-SET-UINT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-UINT64 ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :UINT64)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-UINT64 ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-UINT64 ; :UINT64 ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-FLOAT ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-FLOAT ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-FLOAT) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :FLOAT) ; (GOBJECT.FFI::MAXIMUM :FLOAT) ; (GOBJECT.FFI::DEFAULT-VALUE :FLOAT) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLOAT)) or (:STRUCT G-PARAM-SPEC-FLOAT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLOAT)) or (:STRUCT G-PARAM-SPEC-FLOAT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLOAT)) or (:STRUCT G-PARAM-SPEC-FLOAT) instead. ; in: DEFCFUN G-VALUE-SET-FLOAT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-FLOAT ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :FLOAT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-FLOAT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-FLOAT ; :FLOAT ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-DOUBLE ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-DOUBLE ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-DOUBLE) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::MINIMUM :DOUBLE) ; (GOBJECT.FFI::MAXIMUM :DOUBLE) ; (GOBJECT.FFI::DEFAULT-VALUE :DOUBLE) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-DOUBLE)) or (:STRUCT G-PARAM-SPEC-DOUBLE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-DOUBLE)) or (:STRUCT G-PARAM-SPEC-DOUBLE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-DOUBLE)) or (:STRUCT G-PARAM-SPEC-DOUBLE) instead. ; in: DEFCFUN G-VALUE-SET-DOUBLE ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-DOUBLE ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :DOUBLE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-DOUBLE ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-DOUBLE ; :DOUBLE ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-ENUM ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-ENUM ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-ENUM) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::ENUM-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::DEFAULT-VALUE :INT) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ENUM)) or (:STRUCT G-PARAM-SPEC-ENUM) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ENUM)) or (:STRUCT G-PARAM-SPEC-ENUM) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-ENUM)) or (:STRUCT G-PARAM-SPEC-ENUM) instead. ; in: DEFCFUN G-VALUE-SET-ENUM ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-ENUM ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-ENUM ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-ENUM ; :INT ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-FLAGS ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-FLAGS ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-FLAGS) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::FLAGS-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::DEFAULT-VALUE :INT) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLAGS)) or (:STRUCT G-PARAM-SPEC-FLAGS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLAGS)) or (:STRUCT G-PARAM-SPEC-FLAGS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-FLAGS)) or (:STRUCT G-PARAM-SPEC-FLAGS) instead. ; in: DEFCFUN G-VALUE-SET-FLAGS ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-FLAGS ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-FLAGS ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-FLAGS ; :INT ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-STRING ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-STRING ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-STRING) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::DEFAULT-VALUE :STRING) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-STRING)) or (:STRUCT G-PARAM-SPEC-STRING) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-STRING)) or (:STRUCT G-PARAM-SPEC-STRING) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-STRING)) or (:STRUCT G-PARAM-SPEC-STRING) instead. ; in: DEFCFUN G-VALUE-SET-STRING ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-STRING ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :STRING)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-STRING ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-STRING ; (:STRING :FREE-FROM-FOREIGN NIL) ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-PARAM ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-PARAM ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-PARAM) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::PARAM-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-PARAM)) or (:STRUCT G-PARAM-SPEC-PARAM) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-PARAM)) or (:STRUCT G-PARAM-SPEC-PARAM) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-PARAM)) or (:STRUCT G-PARAM-SPEC-PARAM) instead. ; in: DEFCFUN G-VALUE-SET-PARAM ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-PARAM ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-PARAM ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-PARAM ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC) ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-BOXED ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-BOXED ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-BOXED) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::BOXED-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOXED)) or (:STRUCT G-PARAM-SPEC-BOXED) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOXED)) or (:STRUCT G-PARAM-SPEC-BOXED) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-BOXED)) or (:STRUCT G-PARAM-SPEC-BOXED) instead. ; in: DEFCFUN G-VALUE-SET-BOXED ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-BOXED ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-TAKE-BOXED ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-TAKE-BOXED ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-BOXED ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-BOXED ; :POINTER ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-POINTER ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-POINTER ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-POINTER) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-POINTER)) or (:STRUCT G-PARAM-SPEC-POINTER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-POINTER)) or (:STRUCT G-PARAM-SPEC-POINTER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-POINTER)) or (:STRUCT G-PARAM-SPEC-POINTER) instead. ; in: DEFCFUN G-VALUE-SET-POINTER ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-POINTER ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-POINTER ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-POINTER ; :POINTER ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-OBJECT ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-OBJECT ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-OBJECT) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::OBJECT-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-OBJECT)) or (:STRUCT G-PARAM-SPEC-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-OBJECT)) or (:STRUCT G-PARAM-SPEC-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-OBJECT)) or (:STRUCT G-PARAM-SPEC-OBJECT) instead. ; in: DEFCFUN G-VALUE-SET-OBJECT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-OBJECT ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-GET-OBJECT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-GET-OBJECT ; :POINTER ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-VALUE-ARRAY ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-VALUE-ARRAY ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-VALUE-ARRAY) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::ELEMENT-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-VALUE-ARRAY)) or (:STRUCT G-PARAM-SPEC-VALUE-ARRAY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-VALUE-ARRAY)) or (:STRUCT G-PARAM-SPEC-VALUE-ARRAY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-VALUE-ARRAY)) or (:STRUCT G-PARAM-SPEC-VALUE-ARRAY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN (G-PARAM-SPEC-G-TYPE "g_param_spec_gtype") ; (CFFI:DEFCFUN (GOBJECT.FFI:G-PARAM-SPEC-G-TYPE "g_param_spec_gtype") ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC-G-TYPE) ; (GOBJECT.FFI::NAME :STRING) ; (GOBJECT.FFI::NICK :STRING) ; (GOBJECT.FFI::BLURB :STRING) ; (GOBJECT.FFI::TYPES-ROOT GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::FLAGS GOBJECT.FFI:G-PARAM-FLAGS)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-G-TYPE)) or (:STRUCT G-PARAM-SPEC-G-TYPE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-G-TYPE)) or (:STRUCT G-PARAM-SPEC-G-TYPE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC-G-TYPE)) or (:STRUCT G-PARAM-SPEC-G-TYPE) instead. ; in: DEFCFUN (G-VALUE-SET-G-TYPE "g_value_set_gtype") ; (CFFI:DEFCFUN (GOBJECT.FFI:G-VALUE-SET-G-TYPE "g_value_set_gtype") ; :VOID ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::NEW-VALUE GOBJECT.FFI:G-TYPE-DESIGNATOR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN (G-VALUE-GET-G-TYPE "g_value_get_gtype") ; (CFFI:DEFCFUN (GOBJECT.FFI:G-VALUE-GET-G-TYPE "g_value_get_gtype") ; GOBJECT.FFI:G-TYPE-DESIGNATOR ; (GOBJECT.FFI:G-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-PARAM-SPEC-REF-SINK ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-REF-SINK ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC) ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-SPEC-UNREF ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-UNREF ; :VOID ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-VALUE-SET-DEFAULT ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-VALUE-SET-DEFAULT ; :VOID ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-VALUE-DEFAULTS ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-VALUE-DEFAULTS ; :BOOLEAN ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-VALUE-VALIDATE ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-VALUE-VALIDATE ; :BOOLEAN ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-SPEC-GET-NAME ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-GET-NAME ; :STRING ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-SPEC-GET-NICK ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-GET-NICK ; :STRING ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-PARAM-SPEC-GET-BLURB ; (CFFI:DEFCFUN GOBJECT.FFI:G-PARAM-SPEC-GET-BLURB ; :STRING ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-VALUE-INIT ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-INIT ; (:POINTER GOBJECT.FFI:G-VALUE) ; "Initializes the GValue @code{value} with the default value of @code{type} ; ; @arg[value]{a C pointer to the GValue structure} ; @arg[type]{an integer specifying the GType}" ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-COPY ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-COPY ; :VOID ; (GOBJECT.FFI::SRC-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::DST-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-RESET ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-RESET ; (:POINTER GOBJECT.FFI:G-VALUE) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-UNSET ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-UNSET ; (:POINTER GOBJECT.FFI:G-VALUE) ; #<(SIMPLE-ARRAY CHARACTER ; (219)) Clears the current value in @code{value} and "unsets" the type, releasing all resources associated with this GValue. An unset value is the same as an unitialized GValue. ; ; @arg[value]{a C pointer to th... {1204C10F9F}> ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-VALUE-SET-INSTANCE ; (CFFI:DEFCFUN GOBJECT.FFI:G-VALUE-SET-INSTANCE ; :VOID ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::INSTANCE :POINTER)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-STRDUP-VALUE-CONTENTS ; (CFFI:DEFCFUN GOBJECT.FFI:G-STRDUP-VALUE-CONTENTS ; :STRING ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-OBJECT-CLASS-INSTALL-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-CLASS-INSTALL-PROPERTY ; :VOID ; (CLASS (:POINTER GOBJECT.FFI:G-OBJECT-CLASS)) ; (GOBJECT.FFI::PROPERTY-ID :UINT) ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; in: DEFCFUN G-OBJECT-CLASS-FIND-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-CLASS-FIND-PROPERTY ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC) ; (CLASS (:POINTER GOBJECT.FFI:G-OBJECT-CLASS)) ; (GOBJECT.FFI::PROPERTY-NAME :STRING)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; in: DEFCFUN G-OBJECT-CLASS-LIST-PROPERTIES ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-CLASS-LIST-PROPERTIES ; (:POINTER (:POINTER GOBJECT.FFI:G-PARAM-SPEC)) ; (CLASS (:POINTER GOBJECT.FFI:G-OBJECT-CLASS)) ; (GOBJECT.FFI::N-PROPERTIES (:POINTER :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; in: DEFCFUN G-OBJECT-CLASS-OVERRIDE-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-CLASS-OVERRIDE-PROPERTY ; :VOID ; (CLASS (:POINTER GOBJECT.FFI:G-OBJECT-CLASS)) ; (GOBJECT.FFI::PROPERTY-ID :UINT) ; (GOBJECT.FFI::NAME :STRING)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; in: DEFCFUN G-OBJECT-INTERFACE-INSTALL-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-INTERFACE-INSTALL-PROPERTY ; :VOID ; (GOBJECT.FFI::INTERFACE :POINTER) ; (GOBJECT.FFI::PARAM-SPEC (:POINTER GOBJECT.FFI:G-PARAM-SPEC))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-OBJECT-INTERFACE-FIND-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-INTERFACE-FIND-PROPERTY ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC) ; (GOBJECT.FFI::INTERFACE :POINTER) ; (GOBJECT.FFI::PROPERTY-NAME :STRING)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-OBJECT-INTERFACE-LIST-PROPERTIES ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-INTERFACE-LIST-PROPERTIES ; (:POINTER GOBJECT.FFI:G-PARAM-SPEC) ; (GOBJECT.FFI::INTERFACE :POINTER) ; (GOBJECT.FFI::N-PROPERTIES (:POINTER :UINT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCFUN G-OBJECT-NEWV ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-NEWV ; :POINTER ; (GOBJECT.FFI::OBJECT-TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR) ; (GOBJECT.FFI::N-PARAMETER :UINT) ; (GOBJECT.FFI::PARAMETERS (:POINTER GOBJECT.FFI:G-PARAMETER))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; in: DEFCFUN G-OBJECT-SET-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-SET-PROPERTY ; :VOID ; (GOBJECT.FFI::OBJECT :POINTER) ; (GOBJECT.FFI::PROPERTY-NAME :STRING) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-OBJECT-GET-PROPERTY ; (CFFI:DEFCFUN GOBJECT.FFI:G-OBJECT-GET-PROPERTY ; :VOID ; (GOBJECT.FFI::OBJECT :POINTER) ; (GOBJECT.FFI::PROPERTY-NAME :STRING) ; (GOBJECT.FFI::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-SIGNAL-CONNECT-CLOSURE ; (CFFI:DEFCFUN GOBJECT.FFI:G-SIGNAL-CONNECT-CLOSURE ; :ULONG ; (GOBJECT.FFI::INSTANCE :POINTER) ; (GOBJECT.FFI::DETAILED-SIGNAL :STRING) ; (GOBJECT.FFI::CLOSURE (:POINTER GOBJECT.FFI:G-CLOSURE)) ; (GOBJECT.FFI::AFTER :BOOLEAN)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFCFUN G-SIGNAL-EMITV ; (CFFI:DEFCFUN GOBJECT.FFI:G-SIGNAL-EMITV ; :VOID ; (GOBJECT.FFI::INSTANCE-AND-PARAMS (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT.FFI::SIGNAL-ID :UINT) ; (GOBJECT.FFI::DETAIL GLIB:G-QUARK) ; (GOBJECT.FFI::RETURN-VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFCFUN G-SIGNAL-QUERY ; (CFFI:DEFCFUN GOBJECT.FFI:G-SIGNAL-QUERY ; :VOID ; (GOBJECT.FFI::SIGNAL-ID :UINT) ; (GOBJECT.FFI::QUERY (:POINTER GOBJECT.FFI:G-SIGNAL-QUERY))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; in: DEFCSTRUCT G-OBJECT-STRUCT ; (CFFI:DEFCSTRUCT GOBJECT.FFI:G-OBJECT-STRUCT ; (:TYPE-INSTANCE GOBJECT.FFI:G-TYPE-INSTANCE) ; (:REF-COUNT :UINT) ; (:QDATA :POINTER)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT.FFI:G-OBJECT-STRUCT ; '(:CLASS ; GOBJECT.FFI::G-OBJECT-STRUCT-TCLASS) ; '((:TYPE-INSTANCE ; GOBJECT.FFI:G-TYPE-INSTANCE) ; (:REF-COUNT :UINT) ; (:QDATA :POINTER))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.ffi"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %G-OBJECT)) or (:STRUCT %G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION G-VALUE-DATA)) or (:UNION G-VALUE-DATA) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.type-info.object.lisp ; in: DEFUN PARSE-G-PARAM-SPEC ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAM 'GOBJECT.FFI:G-PARAM-SPEC :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAM 'GOBJECT.FFI:G-PARAM-SPEC :VALUE-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAM 'GOBJECT.FFI:G-PARAM-SPEC :OWNER-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAM 'GOBJECT.FFI:G-PARAM-SPEC :FLAGS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.type-info.object"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.type-info.enum.lisp ; in: DEFUN GET-ENUM-ITEMS ; (CFFI:MEM-AREF VALUES 'GOBJECT.FFI:G-ENUM-VALUE GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::ENUM-VALUE 'GOBJECT.FFI:G-ENUM-VALUE :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::ENUM-VALUE 'GOBJECT.FFI:G-ENUM-VALUE :VALUE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::ENUM-VALUE 'GOBJECT.FFI:G-ENUM-VALUE :NICK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::G-CLASS 'GOBJECT.FFI:G-ENUM-CLASS :VALUES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-VALUE)) or (:STRUCT G-ENUM-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::G-CLASS 'GOBJECT.FFI:G-ENUM-CLASS :N-VALUES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-ENUM-CLASS)) or (:STRUCT G-ENUM-CLASS) instead. ; in: DEFUN GET-FLAGS-ITEMS ; (CFFI:MEM-AREF VALUES 'GOBJECT.FFI:G-FLAGS-VALUE GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::FLAGS-VALUE 'GOBJECT.FFI:G-FLAGS-VALUE ; :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::FLAGS-VALUE 'GOBJECT.FFI:G-FLAGS-VALUE ; :VALUE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::FLAGS-VALUE 'GOBJECT.FFI:G-FLAGS-VALUE ; :NICK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::G-CLASS 'GOBJECT.FFI:G-FLAGS-CLASS :VALUES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-VALUE)) or (:STRUCT G-FLAGS-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::G-CLASS 'GOBJECT.FFI:G-FLAGS-CLASS ; :N-VALUES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-FLAGS-CLASS)) or (:STRUCT G-FLAGS-CLASS) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.type-info.enum"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.type-info.signals.lisp ; in: DEFUN QUERY-SIGNAL-INFO ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY) ; (GOBJECT.FFI:G-SIGNAL-QUERY GOBJECT::SIGNAL-ID GOBJECT::Q) ; (ASSERT ; (NOT ; (ZEROP ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY ; :SIGNAL-ID)))) ; (LET ((GOBJECT::PARAM-TYPES ; (ITERATE:ITER ; # ; # ; # ; #))) ; (GOBJECT::MAKE-SIGNAL-INFO :ID GOBJECT::SIGNAL-ID :NAME ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY ; :SIGNAL-NAME) ; :OWNER-TYPE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY ; :OWNER-TYPE) ; :FLAGS ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY ; :SIGNAL-FLAGS) ; :RETURN-TYPE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY ; :RETURN-TYPE) ; :PARAM-TYPES ...))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :SIGNAL-ID) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :SIGNAL-NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :OWNER-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :SIGNAL-FLAGS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :RETURN-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :N-PARAMS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::Q 'GOBJECT.FFI:G-SIGNAL-QUERY :PARAM-TYPES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SIGNAL-QUERY)) or (:STRUCT G-SIGNAL-QUERY) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.type-info.signals"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.gvalue.lisp ; in: DEFUN G-VALUE-ZERO ; (CFFI:FOREIGN-TYPE-SIZE 'GOBJECT.FFI:G-VALUE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFUN G-VALUE-TYPE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::GVALUE 'GOBJECT.FFI:G-VALUE :TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.gvalue"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.object.low.lisp ; in: DEFUN G-TYPE-FROM-CLASS ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::G-CLASS 'GOBJECT.FFI:G-TYPE-CLASS :TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFUN G-TYPE-FROM-INSTANCE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT:TYPE-INSTANCE 'GOBJECT.FFI:G-TYPE-INSTANCE ; :CLASS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INSTANCE)) or (:STRUCT G-TYPE-INSTANCE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFUN G-TYPE-FROM-INTERFACE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::TYPE-INTERFACE ; 'GOBJECT.FFI:G-TYPE-INTERFACE :TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-INTERFACE)) or (:STRUCT G-TYPE-INTERFACE) instead. ; in: DEFUN G-OBJECT-CALL-GET-PROPERTY ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::VALUE 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:G-VALUE-ZERO GOBJECT::VALUE) ; (GOBJECT.FFI:G-VALUE-INIT GOBJECT::VALUE GOBJECT::PROPERTY-TYPE) ; (GOBJECT.FFI:G-OBJECT-GET-PROPERTY GOBJECT::OBJECT-PTR ; GOBJECT::PROPERTY-NAME GOBJECT::VALUE) ; (UNWIND-PROTECT (GOBJECT:PARSE-G-VALUE GOBJECT::VALUE) ; (GOBJECT.FFI:G-VALUE-UNSET GOBJECT::VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFUN G-OBJECT-CALL-SET-PROPERTY ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::VALUE 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:SET-G-VALUE GOBJECT::VALUE GOBJECT::NEW-VALUE ; GOBJECT::PROPERTY-TYPE :ZERO-G-VALUE T) ; (UNWIND-PROTECT ; (GOBJECT.FFI:G-OBJECT-SET-PROPERTY GOBJECT::OBJECT-PTR ; GOBJECT::PROPERTY-NAME ; GOBJECT::VALUE) ; (GOBJECT.FFI:G-VALUE-UNSET GOBJECT::VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFUN G-OBJECT-CALL-CONSTRUCTOR ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::PARAMETERS 'GOBJECT.FFI:G-PARAMETER ; GOBJECT::ARGS-COUNT) ; (LOOP ITERATE:FOR GOBJECT::I GOBJECT::FROM 0 GOBJECT::BELOW GOBJECT::ARGS-COUNT ; ITERATE:FOR GOBJECT::ARG-NAME ITERATE:IN GOBJECT::ARGS-NAMES ; ITERATE:FOR ...) ; (UNWIND-PROTECT ; (GOBJECT.FFI:G-OBJECT-NEWV GOBJECT::OBJECT-TYPE GOBJECT::ARGS-COUNT ; GOBJECT::PARAMETERS) ; (LOOP ITERATE:FOR GOBJECT::I GOBJECT::FROM 0 GOBJECT::BELOW GOBJECT::ARGS-COUNT ; ITERATE:FOR GOBJECT::PARAMETER = (CFFI:MEM-AREF GOBJECT::PARAMETERS ; 'GOBJECT.FFI:G-PARAMETER ; GOBJECT::I) ; DO ...))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; (CFFI:MEM-AREF GOBJECT::PARAMETERS 'GOBJECT.FFI:G-PARAMETER GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; (SETF (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAMETER 'GOBJECT.FFI:G-PARAMETER ; :NAME) ; GOBJECT::ARG-NAME) ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE16 GOBJECT::PARAMETER 'GOBJECT.FFI:G-PARAMETER ; :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PARAMETER 'GOBJECT.FFI:G-PARAMETER :VALUE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:MEM-AREF GOBJECT::PARAMETERS 'GOBJECT.FFI:G-PARAMETER GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; (CFFI:FOREIGN-SLOT-POINTER GOBJECT::PARAMETER 'GOBJECT.FFI:G-PARAMETER :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. ; (CFFI:FOREIGN-SLOT-POINTER GOBJECT::PARAMETER 'GOBJECT.FFI:G-PARAMETER :VALUE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAMETER)) or (:STRUCT G-PARAMETER) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.object.low"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.object.high.lisp ; in: DEFUN REF-COUNT ; (CFFI:FOREIGN-SLOT-VALUE ; (IF (CFFI-SYS:POINTERP GOBJECT:POINTER) ; GOBJECT:POINTER ; (GOBJECT:POINTER GOBJECT:POINTER)) ; 'GOBJECT.FFI:G-OBJECT-STRUCT :REF-COUNT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-STRUCT)) or (:STRUCT G-OBJECT-STRUCT) instead. ; in: DEFCALLBACK GOBJECT-TOGGLE-REF-TOGGLED ; (GOBJECT::LOG-FOR :GC "~A is now ~A with ~A refs~%" GOBJECT:POINTER ; (IF GOBJECT::IS-LAST-REF ; "weak pointer" ; "strong pointer") ; (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (GOBJECT::LOG-FOR :GC "obj: ~A~%" ; (OR ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (GOBJECT::LOG-FOR :GC "GObject at ~A has no lisp-side (strong) reference" ; GOBJECT:POINTER) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (GOBJECT::LOG-FOR :GC "GObject at ~A has no lisp-side (weak) reference" ; GOBJECT:POINTER) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (CFFI:DEFCALLBACK GOBJECT::GOBJECT-TOGGLE-REF-TOGGLED ; :VOID ; ((GOBJECT::DATA :POINTER) (GOBJECT:POINTER :POINTER) ; (GOBJECT::IS-LAST-REF :BOOLEAN)) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (GOBJECT::LOG-FOR :GC "~A is now ~A with ~A refs~%" GOBJECT:POINTER ; (IF GOBJECT::IS-LAST-REF ; "weak pointer" ; "strong pointer") ; (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; (GOBJECT::LOG-FOR :GC "obj: ~A~%" ; (OR ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; (IF GOBJECT::IS-LAST-REF ; (LET ((GOBJECT::OBJ #)) ; (IF GOBJECT::OBJ ; (PROGN # #) ; (PROGN # #))) ; (LET ((GOBJECT::OBJ #)) ; (UNLESS GOBJECT::OBJ ; (GOBJECT::LOG-FOR :GC ; "GObject at ~A has no lisp-side (weak) reference" ; GOBJECT:POINTER) ; (WARN "GObject at ~A has no lisp-side (weak) reference" ; GOBJECT:POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (SETF # GOBJECT::OBJ)))) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY ; ==> ; (LET ((GOBJECT::DATA GOBJECT::DATA) ; (GOBJECT:POINTER GOBJECT:POINTER) ; (GOBJECT::IS-LAST-REF (NOT (ZEROP GOBJECT::IS-LAST-REF)))) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (BLOCK GOBJECT::GOBJECT-TOGGLE-REF-TOGGLED ; (GOBJECT::LOG-FOR :GC "~A is now ~A with ~A refs~%" GOBJECT:POINTER ; (IF GOBJECT::IS-LAST-REF ; "weak pointer" ; "strong pointer") ; (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; (GOBJECT::LOG-FOR :GC "obj: ~A~%" ; (OR (GETHASH # GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH # GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; (IF GOBJECT::IS-LAST-REF ; (LET (#) ; (IF GOBJECT::OBJ ; # ; #)) ; (LET (#) ; (UNLESS GOBJECT::OBJ # #) ; (REMHASH # GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (SETF #))))) ; ; note: doing SAP to pointer coercion (cost 20) to POINTER ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SETF (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; GOBJECT::OBJ) ; --> SB-KERNEL:%PUTHASH BLOCK FUNCALL ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (SETF (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; GOBJECT::OBJ) ; --> SB-KERNEL:%PUTHASH BLOCK FUNCALL ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; in: DEFCALLBACK GOBJECT-WEAK-REF-FINALIZED ; (GOBJECT::LOG-FOR :GC "~A is weak-ref-finalized with ~A refs~%" ; GOBJECT:POINTER (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (GOBJECT::LOG-FOR :GC ; "GObject at ~A was weak-ref-finalized while still holding lisp-side strong reference to it" ; GOBJECT:POINTER) ; --> WHEN IF FORMAT ; ==> ; 1 ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to optimize due to type uncertainty: The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; (CFFI:DEFCALLBACK GOBJECT::GOBJECT-WEAK-REF-FINALIZED ; :VOID ; ((GOBJECT::DATA :POINTER) (GOBJECT:POINTER :POINTER)) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (GOBJECT::LOG-FOR :GC "~A is weak-ref-finalized with ~A refs~%" ; GOBJECT:POINTER (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (WHEN ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (WARN ; "GObject at ~A was weak-ref-finalized while still holding lisp-side strong reference to it" ; GOBJECT:POINTER) ; (GOBJECT::LOG-FOR :GC ; "GObject at ~A was weak-ref-finalized while still holding lisp-side strong reference to it" ; GOBJECT:POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*)) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY ; ==> ; (LET ((GOBJECT::DATA GOBJECT::DATA) (GOBJECT:POINTER GOBJECT:POINTER)) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (BLOCK GOBJECT::GOBJECT-WEAK-REF-FINALIZED ; (GOBJECT::LOG-FOR :GC "~A is weak-ref-finalized with ~A refs~%" ; GOBJECT:POINTER (GOBJECT::REF-COUNT GOBJECT:POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; (WHEN ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (WARN ; "GObject at ~A was weak-ref-finalized while still holding lisp-side strong reference to it" ; GOBJECT:POINTER) ; (GOBJECT::LOG-FOR :GC ; "GObject at ~A was weak-ref-finalized while still holding lisp-side strong reference to it" ; GOBJECT:POINTER)) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*))) ; ; note: doing SAP to pointer coercion (cost 20) to POINTER ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-WEAK*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (GETHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) ; (REMHASH (CFFI-SYS:POINTER-ADDRESS GOBJECT:POINTER) ; GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; ; note: doing unsigned word to integer coercion (cost 20) WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.object.high"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.signals.lisp ; in: DEFCSTRUCT LISP-SIGNAL-HANDLER-CLOSURE ; (CFFI:DEFCSTRUCT GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; (:PARENT-INSTANCE GOBJECT.FFI:G-CLOSURE) ; (:OBJECT :POINTER) ; (:FUNCTION-ID :INT)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; '(:CLASS ; GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE-TCLASS) ; '((:PARENT-INSTANCE ; GOBJECT.FFI:G-CLOSURE) ; (:OBJECT :POINTER) ; (:FUNCTION-ID :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; in: DEFUN FINALIZE-LISP-SIGNAL-HANDLER-CLOSURE ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :OBJECT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :FUNCTION-ID) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; in: DEFCALLBACK LISP-SIGNAL-HANDLER-CLOSURE-FINALIZE ; (CFFI:DEFCALLBACK GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE-FINALIZE ; :VOID ; ((GOBJECT::DATA :POINTER) ; (GOBJECT::CLOSURE (:POINTER GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE))) ; (DECLARE (IGNORE GOBJECT::DATA)) ; (GOBJECT::FINALIZE-LISP-SIGNAL-HANDLER-CLOSURE GOBJECT::CLOSURE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; (GOBJECT::FINALIZE-LISP-SIGNAL-HANDLER-CLOSURE GOBJECT::CLOSURE) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK LISP-SIGNAL-HANDLER-CLOSURE-MARSHAL ; (CFFI:DEFCALLBACK GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE-MARSHAL ; :VOID ; ((GOBJECT::CLOSURE (:POINTER GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE)) ; (GOBJECT::RETURN-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT::COUNT-OF-ARGS :UINT) ; (GOBJECT::ARGS (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT::INVOCATION-HINT :POINTER) (GOBJECT::MARSHAL-DATA :POINTER)) ; (DECLARE (IGNORE GOBJECT::INVOCATION-HINT GOBJECT::MARSHAL-DATA)) ; (LET* ((GOBJECT::ARGS ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS ; GOBJECT::ARGS)) ; (GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; :FUNCTION-ID)) ; (GOBJECT::ADDR (CFFI-SYS:POINTER-ADDRESS #)) ; (GOBJECT::OBJECT (OR # #)) ; (GOBJECT::RETURN-TYPE (AND # #)) ; (GOBJECT::FN ; (GOBJECT:RETRIEVE-HANDLER-FROM-OBJECT GOBJECT::OBJECT ; GOBJECT::FUNCTION-ID)) ; (GOBJECT::FN-RESULT ; (GOBJECT::CALL-WITH-RESTARTS GOBJECT::FN GOBJECT::ARGS))) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :OBJECT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :FUNCTION-ID) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; (CFFI:DEFCALLBACK GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE-MARSHAL ; :VOID ; ((GOBJECT::CLOSURE (:POINTER GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE)) ; (GOBJECT::RETURN-VALUE (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT::COUNT-OF-ARGS :UINT) ; (GOBJECT::ARGS (:POINTER GOBJECT.FFI:G-VALUE)) ; (GOBJECT::INVOCATION-HINT :POINTER) (GOBJECT::MARSHAL-DATA :POINTER)) ; (DECLARE (IGNORE GOBJECT::INVOCATION-HINT GOBJECT::MARSHAL-DATA)) ; (LET* ((GOBJECT::ARGS ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS ; GOBJECT::ARGS)) ; (GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; :FUNCTION-ID)) ; (GOBJECT::ADDR (CFFI-SYS:POINTER-ADDRESS #)) ; (GOBJECT::OBJECT (OR # #)) ; (GOBJECT::RETURN-TYPE (AND # #)) ; (GOBJECT::FN ; (GOBJECT:RETRIEVE-HANDLER-FROM-OBJECT GOBJECT::OBJECT ; GOBJECT::FUNCTION-ID)) ; (GOBJECT::FN-RESULT ; (GOBJECT::CALL-WITH-RESTARTS GOBJECT::FN GOBJECT::ARGS))) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL)))) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY ; ==> ; (LET ((GOBJECT::CLOSURE GOBJECT::CLOSURE) ; (GOBJECT::RETURN-VALUE GOBJECT::RETURN-VALUE) ; (GOBJECT::COUNT-OF-ARGS GOBJECT::COUNT-OF-ARGS) ; (GOBJECT::ARGS GOBJECT::ARGS) ; (GOBJECT::INVOCATION-HINT GOBJECT::INVOCATION-HINT) ; (GOBJECT::MARSHAL-DATA GOBJECT::MARSHAL-DATA)) ; (DECLARE (IGNORE GOBJECT::INVOCATION-HINT GOBJECT::MARSHAL-DATA)) ; (BLOCK GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE-MARSHAL ; (LET* ((GOBJECT::ARGS #) ; (GOBJECT::FUNCTION-ID #) ; (GOBJECT::ADDR #) ; (GOBJECT::OBJECT #) ; (GOBJECT::RETURN-TYPE #) ; (GOBJECT::FN #) ; (GOBJECT::FN-RESULT #)) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL))))) ; ; note: doing SAP to pointer coercion (cost 20) to RETURN-VALUE ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS GOBJECT::ARGS) ; ; note: doing SAP to pointer coercion (cost 20) ; (LET* ((GOBJECT::ARGS ; (GOBJECT::PARSE-CLOSURE-ARGUMENTS GOBJECT::COUNT-OF-ARGS ; GOBJECT::ARGS)) ; (GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; :FUNCTION-ID)) ; (GOBJECT::ADDR ; (CFFI-SYS:POINTER-ADDRESS ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; :OBJECT))) ; (GOBJECT::OBJECT ; (OR (GETHASH GOBJECT::ADDR GOBJECT::*FOREIGN-GOBJECTS-STRONG*) ; (GETHASH GOBJECT::ADDR GOBJECT::*FOREIGN-GOBJECTS-WEAK*))) ; (GOBJECT::RETURN-TYPE ; (AND (NOT #) (GOBJECT:G-VALUE-TYPE GOBJECT::RETURN-VALUE))) ; (GOBJECT::FN ; (GOBJECT:RETRIEVE-HANDLER-FROM-OBJECT GOBJECT::OBJECT ; GOBJECT::FUNCTION-ID)) ; (GOBJECT::FN-RESULT ; (GOBJECT::CALL-WITH-RESTARTS GOBJECT::FN GOBJECT::ARGS))) ; (WHEN GOBJECT::RETURN-TYPE ; (GOBJECT:SET-G-VALUE GOBJECT::RETURN-VALUE GOBJECT::FN-RESULT ; GOBJECT::RETURN-TYPE :G-VALUE-INIT NIL))) ; ; note: doing unsigned word to integer coercion (cost 20) to ADDR ; in: DEFUN PARSE-CLOSURE-ARGUMENTS ; (CFFI:MEM-AREF GOBJECT::ARGS 'GOBJECT.FFI:G-VALUE GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFUN CREATE-SIGNAL-HANDLER-CLOSURE ; (SETF (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE ; :FUNCTION-ID) ; GOBJECT::FUNCTION-ID ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :OBJECT) ; (GOBJECT:POINTER GOBJECT::OBJECT)) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE1 GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :FUNCTION-ID) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE10 GOBJECT::CLOSURE ; 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE :OBJECT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; (CFFI:FOREIGN-TYPE-SIZE 'GOBJECT::LISP-SIGNAL-HANDLER-CLOSURE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE)) or (:STRUCT LISP-SIGNAL-HANDLER-CLOSURE) instead. ; in: DEFUN EMIT-SIGNAL ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE ; (1+ GOBJECT::PARAMS-COUNT)) ; (GOBJECT:SET-G-VALUE (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE 0) ; GOBJECT::OBJECT GOBJECT::OBJECT-TYPE :ZERO-G-VALUE T) ; (ITERATE:ITER ; (ITERATE:FOR GOBJECT::I GOBJECT::FROM 0 GOBJECT::BELOW ; GOBJECT::PARAMS-COUNT) ; (ITERATE:FOR GOBJECT::ARG ITERATE:IN GOBJECT::ARGS) ; (ITERATE:FOR TYPE ITERATE:IN ; (GOBJECT:SIGNAL-INFO-PARAM-TYPES GOBJECT:SIGNAL-INFO)) ; (GOBJECT:SET-G-VALUE ; (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE (1+ GOBJECT::I)) ; GOBJECT::ARG TYPE :ZERO-G-VALUE T)) ; (PROG1 ; (IF (EQ (GOBJECT:SIGNAL-INFO-RETURN-TYPE GOBJECT:SIGNAL-INFO) ; (GOBJECT.FFI:GTYPE GOBJECT:+G-TYPE-VOID+)) ; (GOBJECT.FFI:G-SIGNAL-EMITV GOBJECT::PARAMS ; (GOBJECT:SIGNAL-INFO-ID ; GOBJECT:SIGNAL-INFO) ; GOBJECT::SIGNAL-NAME ; (CFFI-SYS:NULL-POINTER)) ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::RETURN-VALUE ; 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:G-VALUE-ZERO GOBJECT::RETURN-VALUE) ; (GOBJECT.FFI:G-VALUE-INIT GOBJECT::RETURN-VALUE #) ; (PROG1 # #))) ; (ITERATE:ITER ; (ITERATE:FOR GOBJECT::I GOBJECT::FROM 0 GOBJECT::BELOW ; (1+ GOBJECT::PARAMS-COUNT)) ; (GOBJECT.FFI:G-VALUE-UNSET ; (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE GOBJECT::I))))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE 0) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE (1+ GOBJECT::I)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:MEM-AREF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE GOBJECT::I) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::RETURN-VALUE 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:G-VALUE-ZERO GOBJECT::RETURN-VALUE) ; (GOBJECT.FFI:G-VALUE-INIT GOBJECT::RETURN-VALUE ; (GOBJECT:SIGNAL-INFO-RETURN-TYPE ; GOBJECT:SIGNAL-INFO)) ; (PROG1 (GOBJECT:PARSE-G-VALUE GOBJECT::RETURN-VALUE) ; (GOBJECT.FFI:G-VALUE-UNSET GOBJECT::RETURN-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.signals"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-CLOSURE)) or (:STRUCT G-CLOSURE) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.foreign-gobject-subclassing.lisp ; in: DEFUN INSTANCE-INIT ; (CFFI:FOREIGN-SLOT-VALUE CLASS 'GOBJECT.FFI:G-TYPE-CLASS :TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCALLBACK C-INSTANCE-INIT ; (GOBJECT::INSTANCE-INIT GOBJECT::INSTANCE CLASS) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK C-CLASS-INIT ; (GOBJECT::CLASS-INIT CLASS GOBJECT::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN INSTALL-PROPERTIES ; (CFFI:FOREIGN-SLOT-VALUE CLASS 'GOBJECT.FFI:G-TYPE-CLASS :TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead. ; in: DEFCALLBACK C-INTERFACE-INIT ; (GOBJECT::INTERFACE-INIT GOBJECT::IFACE GOBJECT::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN ADD-INTERFACE ; (CFFI:WITH-FOREIGN-OBJECT (GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO) ; (SETF (CFFI:FOREIGN-SLOT-VALUE GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-INIT) ; (CFFI:CALLBACK GOBJECT::C-INTERFACE-INIT) ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-DATA) ; GOBJECT::INTERFACE-INFO-PTR) ; (GOBJECT.FFI:G-TYPE-ADD-INTERFACE-STATIC (GOBJECT.FFI:GTYPE GOBJECT::NAME) ; (GOBJECT.FFI:GTYPE ; GOBJECT::INTERFACE) ; GOBJECT::INFO)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; (SETF (CFFI:FOREIGN-SLOT-VALUE GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-INIT) ; (CFFI:CALLBACK GOBJECT::C-INTERFACE-INIT) ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-DATA) ; GOBJECT::INTERFACE-INFO-PTR) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE4 GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-INIT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE13 GOBJECT::INFO 'GOBJECT.FFI:G-INTERFACE-INFO ; :INTERFACE-DATA) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-INTERFACE-INFO)) or (:STRUCT G-INTERFACE-INFO) instead. ; in: DEFUN CLASS-INIT ; (SETF (CFFI:FOREIGN-SLOT-VALUE CLASS 'GOBJECT.FFI:G-OBJECT-CLASS ; :GET-PROPERTY) ; (CFFI:CALLBACK GOBJECT::C-OBJECT-PROPERTY-GET) ; (CFFI:FOREIGN-SLOT-VALUE CLASS 'GOBJECT.FFI:G-OBJECT-CLASS ; :SET-PROPERTY) ; (CFFI:CALLBACK GOBJECT::C-OBJECT-PROPERTY-SET)) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE1 CLASS 'GOBJECT.FFI:G-OBJECT-CLASS ; :GET-PROPERTY) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE10 CLASS 'GOBJECT.FFI:G-OBJECT-CLASS ; :SET-PROPERTY) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-OBJECT-CLASS)) or (:STRUCT G-OBJECT-CLASS) instead. ; in: DEFUN OBJECT-PROPERTY-GET ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PSPEC 'GOBJECT.FFI:G-PARAM-SPEC :OWNER-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PSPEC 'GOBJECT.FFI:G-PARAM-SPEC :VALUE-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PSPEC 'GOBJECT.FFI:G-PARAM-SPEC :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCALLBACK C-OBJECT-PROPERTY-GET ; (GOBJECT::OBJECT-PROPERTY-GET GOBJECT::OBJECT GOBJECT::PROPERTY-ID ; GOBJECT::VALUE GOBJECT::PSPEC) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN OBJECT-PROPERTY-SET ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PSPEC 'GOBJECT.FFI:G-PARAM-SPEC :OWNER-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::PSPEC 'GOBJECT.FFI:G-PARAM-SPEC :NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-PARAM-SPEC)) or (:STRUCT G-PARAM-SPEC) instead. ; in: DEFCALLBACK C-OBJECT-PROPERTY-SET ; (GOBJECT::OBJECT-PROPERTY-SET GOBJECT::OBJECT GOBJECT::PROPERTY-ID ; GOBJECT::VALUE GOBJECT::PSPEC) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.foreign-gobject-subclassing"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/glib/gobject.object-function.lisp ; in: DEFUN CREATE-FN-REF ; (SETF (CFFI:FOREIGN-SLOT-VALUE GOBJECT::REF 'GOBJECT::OBJECT-FUNC-REF ; :OBJECT) ; (GOBJECT:POINTER GOBJECT::OBJECT) ; (CFFI:FOREIGN-SLOT-VALUE GOBJECT::REF 'GOBJECT::OBJECT-FUNC-REF :FN-ID) ; GOBJECT::FN-ID) ; --> SETF LET* ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE1 GOBJECT::REF 'GOBJECT::OBJECT-FUNC-REF ; :OBJECT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT OBJECT-FUNC-REF)) or (:STRUCT OBJECT-FUNC-REF) instead. ; ==> ; (CFFI::FOREIGN-SLOT-SET #:STORE10 GOBJECT::REF 'GOBJECT::OBJECT-FUNC-REF ; :FN-ID) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT OBJECT-FUNC-REF)) or (:STRUCT OBJECT-FUNC-REF) instead. ; (CFFI:FOREIGN-ALLOC 'GOBJECT::OBJECT-FUNC-REF) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT OBJECT-FUNC-REF)) or (:STRUCT OBJECT-FUNC-REF) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-glib" "gobject.object-function"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/pango/pango.lisp ; in: DEFINE-G-BOXED-CSTRUCT PANGO-MATRIX ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT PANGO::PANGO-MATRIX ; "PangoMatrix" ; (PANGO::XX :DOUBLE :INITFORM 0.0) ; (PANGO::XY :DOUBLE :INITFORM 0.0) ; (PANGO::YX :DOUBLE :INITFORM 0.0) ; (PANGO::YY :DOUBLE :INITFORM 0.0) ; (PANGO::X0 :DOUBLE :INITFORM 0.0) ; (PANGO::Y0 :DOUBLE :INITFORM 0.0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'PANGO::PANGO-MATRIX-CUNION ; '((PANGO::PANGO-MATRIX ; PANGO::PANGO-MATRIX-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-pango" "pango"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT PANGO-MATRIX-CSTRUCT)) or (:STRUCT PANGO-MATRIX-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.threads.lisp ; in: DEFCALLBACK SOURCE-FUNC-CALLBACK ; (FUNCALL (GOBJECT:STABLE-POINTER-VALUE GDK::DATA)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (GOBJECT:STABLE-POINTER-VALUE GDK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK STABLE-POINTER-FREE-DESTROY-NOTIFY-CALLBACK ; (GOBJECT:FREE-STABLE-POINTER GDK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.objects.lisp ; in: DEFINE-G-BOXED-CSTRUCT GEOMETRY ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GEOMETRY ; NIL ; (GDK::MIN-WIDTH :INT :INITFORM 0) ; (GDK::MIN-HEIGHT :INT :INITFORM 0) ; (GDK::MAX-WIDTH :INT :INITFORM 0) ; (GDK::MAX-HEIGHT :INT :INITFORM 0) ; (GDK::BASE-WIDTH :INT :INITFORM 0) ; (GDK::BASE-HEIGHT :INT :INITFORM 0) ; (GDK::WIDTH-INCREMENT :INT :INITFORM 0) ; (GDK::HEIGHT-INCREMENT :INT :INITFORM 0) ; (GDK::MIN-ASPECT :DOUBLE :INITFORM 0.0d0) ; ...) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GEOMETRY-CUNION ; '((GDK::GEOMETRY ; GDK::GEOMETRY-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT POINT ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::POINT ; NIL ; (GDK::X :INT :INITFORM 0) ; (GDK::Y :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::POINT-CUNION ; '((GDK::POINT GDK::POINT-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT SPAN ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::SPAN ; NIL ; (GDK::X :INT :INITFORM 0) ; (GDK::Y :INT :INITFORM 0) ; (GDK::WIDTH :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::SPAN-CUNION ; '((GDK::SPAN GDK::SPAN-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT SEGMENT ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::SEGMENT ; NIL ; (GDK::X1 :INT :INITFORM 0) ; (GDK::Y1 :INT :INITFORM 0) ; (GDK::X2 :INT :INITFORM 0) ; (GDK::Y2 :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::SEGMENT-CUNION ; '((GDK::SEGMENT GDK::SEGMENT-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT TRAPEZOID ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::TRAPEZOID ; NIL ; (GDK::Y1 :DOUBLE :INITFORM 0.0d0) ; (GDK::X11 :DOUBLE :INITFORM 0.0d0) ; (GDK::X21 :DOUBLE :INITFORM 0.0d0) ; (GDK::Y2 :DOUBLE :INITFORM 0.0d0) ; (GDK::X12 :DOUBLE :INITFORM 0.0d0) ; (GDK::X22 :DOUBLE :INITFORM 0.0d0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::TRAPEZOID-CUNION ; '((GDK::TRAPEZOID ; GDK::TRAPEZOID-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT COLOR ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::COLOR ; "GdkColor" ; (GDK::PIXEL :UINT32 :INITFORM 0) ; (GDK::RED :UINT16 :INITFORM 0) ; (GDK::GREEN :UINT16 :INITFORM 0) ; (GDK::BLUE :UINT16 :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::COLOR-CUNION ; '((GDK::COLOR GDK::COLOR-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT RECTANGLE ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::RECTANGLE ; "GdkRectangle" ; (GDK::X :INT :INITFORM 0) ; (GDK::Y :INT :INITFORM 0) ; (GDK::WIDTH :INT :INITFORM 0) ; (GDK::HEIGHT :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::RECTANGLE-CUNION ; '((GDK::RECTANGLE ; GDK::RECTANGLE-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. ; in: DEFINE-G-BOXED-VARIANT-CSTRUCT EVENT ; (GOBJECT:DEFINE-G-BOXED-VARIANT-CSTRUCT GDK::EVENT ; "GdkEvent" ; (TYPE GDK::EVENT-TYPE) ; (GDK::WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) ; (GDK::SEND-EVENT (:BOOLEAN :INT8)) ; (:VARIANT TYPE ; ((:KEY-PRESS :KEY-RELEASE) GDK::EVENT-KEY (TIME :UINT32) ; (GDK::STATE GDK::MODIFIER-TYPE) (GDK::KEYVAL :UINT) (LENGTH :INT) ; (STRING (:STRING :FREE-FROM-FOREIGN NIL :FREE-TO-FOREIGN NIL)) ; (GDK::HARDWARE-KEYCODE :UINT16) (GDK::GROUP :UINT8) ; (GDK::IS-MODIFIER :UINT)) ; ((:BUTTON-PRESS :2BUTTON-PRESS :3BUTTON-PRESS :BUTTON-RELEASE) ; GDK::EVENT-BUTTON (TIME :UINT32) (GDK::X :DOUBLE) (GDK::Y :DOUBLE) ; (GDK::AXES (GOBJECT:FIXED-ARRAY :DOUBLE 2)) (GDK::STATE :UINT) ; (GDK::BUTTON :UINT) (GDK::DEVICE (GOBJECT:G-OBJECT GDK::DEVICE)) ; (GDK::X-ROOT :DOUBLE) (GDK::Y-ROOT :DOUBLE)) ; ((:SCROLL) GDK::EVENT-SCROLL (TIME :UINT32) (GDK::X :DOUBLE) ; (GDK::Y :DOUBLE) (GDK::STATE GDK::MODIFIER-TYPE) ; (GDK::DIRECTION GDK::SCROLL-DIRECTION) ; (GDK::DEVICE (GOBJECT:G-OBJECT GDK::DEVICE)) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE)) ; ((:MOTION-NOTIFY) GDK::EVENT-MOTION (TIME :UINT32) (GDK::X :DOUBLE) ; (GDK::Y :DOUBLE) (GDK::AXES (GOBJECT:FIXED-ARRAY :DOUBLE 2)) ; (GDK::STATE GDK::MODIFIER-TYPE) (GDK::IS-HINT :INT16) ; (GDK::DEVICE (GOBJECT:G-OBJECT GDK::GDK-DEVICE)) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE)) ; ((:EXPOSE) GDK::EVENT-EXPOSE (GDK::AREA GDK::RECTANGLE :INLINE T) ; (GDK::REGION :POINTER) (COUNT :INT)) ; ((:VISIBILITY-NOTIFY) GDK::EVENT-VISIBILITY ; (GDK::STATE GDK::VISIBILITY-STATE)) ; ((:ENTER-NOTIFY :LEAVE-NOTIFY) GDK::EVENT-CROSSING ; (GDK::SUB-WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) (TIME :UINT32) ; (GDK::X :DOUBLE) (GDK::Y :DOUBLE) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE) (GDK::MODE GDK::CROSSING-MODE) ; (GDK::DETAIL GDK::NOTIFY-TYPE) (GDK::FOCUS :BOOLEAN) (GDK::STATE :UINT)) ; ((:FOCUS-CHANGE) GDK::EVENT-FOCUS (ITERATE:IN :INT16)) ; ((:CONFIGURE) GDK::EVENT-CONFIGURE (GDK::X :INT) (GDK::Y :INT) ; (GDK::WIDTH :INT) (GDK::HEIGHT :INT)) ; ((:PROPERTY-NOTIFY) GDK::EVENT-PROPERTY (ATOM GDK::GDK-ATOM) ; (TIME :UINT32) (GDK::STATE GDK::PROPERTY-STATE)) ; ...)) ; --> CFFI:DEFCSTRUCT EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GDK::EVENT-EXPOSE-CSTRUCT ; '(:CLASS ; GDK::EVENT-EXPOSE-CSTRUCT-TCLASS) ; '((TYPE GDK::EVENT-TYPE) ; (GDK::WINDOW ; (GOBJECT:G-OBJECT ; GDK::GDK-WINDOW)) ; (GDK::SEND-EVENT (:BOOLEAN :INT8)) ; (GDK::AREA GDK::RECTANGLE-CUNION) ; (GDK::REGION :POINTER) ; (COUNT :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::EVENT-CUNION ; '((GDK::EVENT-KEY ; GDK::EVENT-KEY-CSTRUCT) ; (GDK::EVENT-BUTTON ; GDK::EVENT-BUTTON-CSTRUCT) ; (GDK::EVENT-SCROLL ; GDK::EVENT-SCROLL-CSTRUCT) ; (GDK::EVENT-MOTION ; GDK::EVENT-MOTION-CSTRUCT) ; (GDK::EVENT-EXPOSE ; GDK::EVENT-EXPOSE-CSTRUCT) ; (GDK::EVENT-VISIBILITY ; GDK::EVENT-VISIBILITY-CSTRUCT) ; (GDK::EVENT-CROSSING ; GDK::EVENT-CROSSING-CSTRUCT) ; (GDK::EVENT-FOCUS ; GDK::EVENT-FOCUS-CSTRUCT) ; (GDK::EVENT-CONFIGURE ; GDK::EVENT-CONFIGURE-CSTRUCT) ; (GDK::EVENT-PROPERTY ; GDK::EVENT-PROPERTY-CSTRUCT) ; (GDK::EVENT-SELECTION ; GDK::EVENT-SELECTION-CSTRUCT) ; (GDK::EVENT-DND ; GDK::EVENT-DND-CSTRUCT) ; ...)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.objects.lisp ; in: DEFINE-G-BOXED-VARIANT-CSTRUCT EVENT ; (GOBJECT:DEFINE-G-BOXED-VARIANT-CSTRUCT GDK::EVENT ; "GdkEvent" ; (TYPE GDK::EVENT-TYPE) ; (GDK::WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) ; (GDK::SEND-EVENT (:BOOLEAN :INT8)) ; (:VARIANT TYPE ; ((:KEY-PRESS :KEY-RELEASE) GDK::EVENT-KEY (TIME :UINT32) ; (GDK::STATE GDK::MODIFIER-TYPE) (GDK::KEYVAL :UINT) (LENGTH :INT) ; (STRING (:STRING :FREE-FROM-FOREIGN NIL :FREE-TO-FOREIGN NIL)) ; (GDK::HARDWARE-KEYCODE :UINT16) (GDK::GROUP :UINT8) ; (GDK::IS-MODIFIER :UINT)) ; ((:BUTTON-PRESS :2BUTTON-PRESS :3BUTTON-PRESS :BUTTON-RELEASE) ; GDK::EVENT-BUTTON (TIME :UINT32) (GDK::X :DOUBLE) (GDK::Y :DOUBLE) ; (GDK::AXES (GOBJECT:FIXED-ARRAY :DOUBLE 2)) (GDK::STATE :UINT) ; (GDK::BUTTON :UINT) (GDK::DEVICE (GOBJECT:G-OBJECT GDK::DEVICE)) ; (GDK::X-ROOT :DOUBLE) (GDK::Y-ROOT :DOUBLE)) ; ((:SCROLL) GDK::EVENT-SCROLL (TIME :UINT32) (GDK::X :DOUBLE) ; (GDK::Y :DOUBLE) (GDK::STATE GDK::MODIFIER-TYPE) ; (GDK::DIRECTION GDK::SCROLL-DIRECTION) ; (GDK::DEVICE (GOBJECT:G-OBJECT GDK::DEVICE)) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE)) ; ((:MOTION-NOTIFY) GDK::EVENT-MOTION (TIME :UINT32) (GDK::X :DOUBLE) ; (GDK::Y :DOUBLE) (GDK::AXES (GOBJECT:FIXED-ARRAY :DOUBLE 2)) ; (GDK::STATE GDK::MODIFIER-TYPE) (GDK::IS-HINT :INT16) ; (GDK::DEVICE (GOBJECT:G-OBJECT GDK::GDK-DEVICE)) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE)) ; ((:EXPOSE) GDK::EVENT-EXPOSE (GDK::AREA GDK::RECTANGLE :INLINE T) ; (GDK::REGION :POINTER) (COUNT :INT)) ; ((:VISIBILITY-NOTIFY) GDK::EVENT-VISIBILITY ; (GDK::STATE GDK::VISIBILITY-STATE)) ; ((:ENTER-NOTIFY :LEAVE-NOTIFY) GDK::EVENT-CROSSING ; (GDK::SUB-WINDOW (GOBJECT:G-OBJECT GDK::GDK-WINDOW)) (TIME :UINT32) ; (GDK::X :DOUBLE) (GDK::Y :DOUBLE) (GDK::X-ROOT :DOUBLE) ; (GDK::Y-ROOT :DOUBLE) (GDK::MODE GDK::CROSSING-MODE) ; (GDK::DETAIL GDK::NOTIFY-TYPE) (GDK::FOCUS :BOOLEAN) (GDK::STATE :UINT)) ; ((:FOCUS-CHANGE) GDK::EVENT-FOCUS (ITERATE:IN :INT16)) ; ((:CONFIGURE) GDK::EVENT-CONFIGURE (GDK::X :INT) (GDK::Y :INT) ; (GDK::WIDTH :INT) (GDK::HEIGHT :INT)) ; ((:PROPERTY-NOTIFY) GDK::EVENT-PROPERTY (ATOM GDK::GDK-ATOM) ; (TIME :UINT32) (GDK::STATE GDK::PROPERTY-STATE)) ; ...)) ; --> EVAL-WHEN SETF PROGN SETF LET* LAMBDA LET* ; --> GOBJECT::MAKE-G-BOXED-VARIANT-CSTRUCT-INFO LAMBDA FUNCTION CASE LET COND ; --> IF IF IF IF IF IF IF IF IF IF IF IF IF IF CASE LET ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:NATIVE-1 'GDK::EVENT-CLIENT-CSTRUCT ; 'GDK::DATA-FORMAT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; --> EVAL-WHEN SETF PROGN SETF LET* LAMBDA LET* ; --> GOBJECT::MAKE-G-BOXED-VARIANT-CSTRUCT-INFO LAMBDA FUNCTION CASE LET ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:NATIVE-1 'GDK::EVENT-CSTRUCT 'TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; --> EVAL-WHEN SETF PROGN SETF LET* LET* ; --> GOBJECT::MAKE-G-BOXED-VARIANT-CSTRUCT-INFO LAMBDA FUNCTION CASE LET COND ; --> IF IF IF IF IF IF IF IF IF IF IF IF IF IF CASE LET ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:NATIVE-1 'GDK::EVENT-CLIENT-CSTRUCT ; 'GDK::DATA-FORMAT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. ; --> EVAL-WHEN SETF PROGN SETF LET* LET* ; --> GOBJECT::MAKE-G-BOXED-VARIANT-CSTRUCT-INFO LAMBDA FUNCTION CASE LET ; ==> ; (CFFI:FOREIGN-SLOT-VALUE #:NATIVE-1 'GDK::EVENT-CSTRUCT 'TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT KEYMAP-KEY ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::KEYMAP-KEY ; NIL ; (GDK::KEYCODE :UINT :INITFORM 0) ; (GDK::GROUP :INT :INITFORM 0) ; (GDK::LEVEL :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::KEYMAP-KEY-CUNION ; '((GDK::KEYMAP-KEY ; GDK::KEYMAP-KEY-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT GDK-WINDOW-ATTR ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GDK-WINDOW-ATTR ; NIL ; (GDK::TITLE (:STRING :FREE-FROM-FOREIGN NIL) :INITFORM NIL) ; (GDK::EVENT-MASK GDK::EVENT-MASK :INITFORM NIL) ; (GDK::X :INT :INITFORM 0) ; (GDK::Y :INT :INITFORM 0) ; (GDK::WIDTH :INT :INITFORM 0) ; (GDK::HEIGHT :INT :INITFORM 0) ; (GDK::WINDOW-CLASS GDK::GDK-WINDOW-CLASS :INITFORM :INPUT-OUTPUT) ; (GDK::VISUAL (GOBJECT:G-OBJECT GDK::VISUAL) :INITFORM NIL) ; (GDK::COLORMAP (GOBJECT:G-OBJECT GDK::COLORMAP) :INITFORM NIL) ; ...) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GDK-WINDOW-ATTR-CUNION ; '((GDK::GDK-WINDOW-ATTR ; GDK::GDK-WINDOW-ATTR-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.objects"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GEOMETRY-CSTRUCT)) or (:STRUCT GEOMETRY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. WARNING: GType GdkWindow is not known to GObject WARNING: GType GdkWindow is not known to GObject WARNING: Declared GType name 'GdkWindow' for class 'GDK-WINDOW' is invalid (g_type_name returned 0) WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION RECTANGLE-CUNION)) or (:UNION RECTANGLE-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-KEY-CSTRUCT)) or (:STRUCT EVENT-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-BUTTON-CSTRUCT)) or (:STRUCT EVENT-BUTTON-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SCROLL-CSTRUCT)) or (:STRUCT EVENT-SCROLL-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-MOTION-CSTRUCT)) or (:STRUCT EVENT-MOTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-VISIBILITY-CSTRUCT)) or (:STRUCT EVENT-VISIBILITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CROSSING-CSTRUCT)) or (:STRUCT EVENT-CROSSING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-FOCUS-CSTRUCT)) or (:STRUCT EVENT-FOCUS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CONFIGURE-CSTRUCT)) or (:STRUCT EVENT-CONFIGURE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROPERTY-CSTRUCT)) or (:STRUCT EVENT-PROPERTY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SELECTION-CSTRUCT)) or (:STRUCT EVENT-SELECTION-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-DND-CSTRUCT)) or (:STRUCT EVENT-DND-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-PROXIMITY-CSTRUCT)) or (:STRUCT EVENT-PROXIMITY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-8-CSTRUCT)) or (:STRUCT EVENT-CLIENT-8-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-16-CSTRUCT)) or (:STRUCT EVENT-CLIENT-16-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-32-CSTRUCT)) or (:STRUCT EVENT-CLIENT-32-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CLIENT-CSTRUCT)) or (:STRUCT EVENT-CLIENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-NO-EXPOSE-CSTRUCT)) or (:STRUCT EVENT-NO-EXPOSE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-WINDOW-STATE-CSTRUCT)) or (:STRUCT EVENT-WINDOW-STATE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-SETTING-CSTRUCT)) or (:STRUCT EVENT-SETTING-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT)) or (:STRUCT EVENT-OWNER-CHANGE-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT)) or (:STRUCT EVENT-GRAB-BROKEN-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT EVENT-CSTRUCT)) or (:STRUCT EVENT-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-WINDOW-ATTR-CSTRUCT)) or (:STRUCT GDK-WINDOW-ATTR-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.screen.lisp ; in: DEFUN SCREEN-GET-SETTING ; (CFFI:WITH-FOREIGN-OBJECT (GDK::VALUE 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:G-VALUE-ZERO GDK::VALUE) ; (WHEN (GDK::GDK-SCREEN-GET-SETTING GDK:SCREEN GDK::NAME GDK::VALUE) ; (PROG1 (GOBJECT:PARSE-G-VALUE GDK::VALUE) ; (GOBJECT.FFI:G-VALUE-UNSET GDK::VALUE)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.screen"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.region.lisp ; in: DEFUN REGION-FROM-POLYGON ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::PTS GDK:POINT GDK::POINTS) ; (GDK::GDK-REGION-POLYGON GDK::PTS GDK::N GDK::FILL-RULE)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::PTS 'GDK::POINT-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:POINT) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-REGION-POLYGON GDK::PTS GDK::N GDK::FILL-RULE)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::POINT-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; in: DEFUN REGION-GET-RECTANGLES ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::RECTANGLE-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RECTANGLE-CSTRUCT)) or (:STRUCT RECTANGLE-CSTRUCT) instead. ; in: DEFCALLBACK GDK-SPAN-FUNC-CALLBACK ; (FUNCALL GDK::FN GDK:SPAN) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-SPAN-FUNC-CALLBACK ; :VOID ; ((GDK:SPAN (GOBJECT:G-BOXED-FOREIGN GDK:SPAN)) (GDK::DATA :POINTER)) ; (LET ((GDK::FN (GOBJECT:STABLE-POINTER-VALUE GDK::DATA))) ; (FUNCALL GDK::FN GDK:SPAN))) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK:SPAN ; #<GOBJECT::BOXED-CSTRUCT-FOREIGN-TYPE {1231BF0D53}>) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:STABLE-POINTER-VALUE GDK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN REGION-SPANS-INTERSECT-FOREACH ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::SPANS-PTR GDK:SPAN GDK::SPANS) ; (GDK::GDK-REGION-SPANS-INTERSECT-FOREACH GDK:REGION GDK::SPANS-PTR GDK::N ; GDK::SORTED (CFFI:CALLBACK GDK::GDK-REGION-SPANS-INTERSECT-FOREACH) ; GDK::PTR)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::SPANS-PTR 'GDK::SPAN-CSTRUCT GDK::N) ; (LET ((#:I-5 0)) ; (MAP NIL ; (LAMBDA (#:X-4) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-4 # 'GDK:SPAN) ; (INCF #:I-5)) ; #:VALUES-SEQ-3)) ; (GDK::GDK-REGION-SPANS-INTERSECT-FOREACH GDK:REGION GDK::SPANS-PTR GDK::N ; GDK::SORTED (CFFI:CALLBACK GDK::GDK-REGION-SPANS-INTERSECT-FOREACH) ; GDK::PTR)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::SPAN-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SPAN-CSTRUCT)) or (:STRUCT SPAN-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.region"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.gc.lisp ; in: DEFINE-G-BOXED-CSTRUCT GC-VALUES ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GC-VALUES ; NIL ; (GDK::FOREGOUND GDK:COLOR :INITFORM (GDK:MAKE-COLOR) :INLINE T) ; (GDK::BACKGROUND GDK:COLOR :INITFORM (GDK:MAKE-COLOR) :INLINE T) ; (GDK:FONT (GOBJECT:G-BOXED-FOREIGN GDK:FONT) :INITFORM NIL) ; (FUNCTION GDK:GDK-FUNCTION :INITFORM :COPY) ; (FILL GDK:GDK-FILL :INITFORM :SOLID) ; (GDK::TILE (GOBJECT:G-OBJECT GDK:PIXMAP) :INITFORM NIL) ; (GDK::STIPPLE (GOBJECT:G-OBJECT GDK:PIXMAP) :INITFORM NIL) ; (GDK::CLIP-MASK (GOBJECT:G-OBJECT GDK:PIXMAP) :INITFORM NIL) ; (GDK:SUBWINDOW-MODE GDK:SUBWINDOW-MODE :INITFORM :CLIP-BY-CHILDREN) ; ...) ; --> CFFI:DEFCSTRUCT EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GDK::GC-VALUES-CSTRUCT ; '(:CLASS ; GDK::GC-VALUES-CSTRUCT-TCLASS) ; '((GDK::FOREGOUND GDK::COLOR-CUNION) ; (GDK::BACKGROUND GDK::COLOR-CUNION) ; (GDK:FONT ; (GOBJECT:G-BOXED-FOREIGN ; GDK:FONT)) ; #'GDK:GDK-FUNCTION ; (FILL GDK:GDK-FILL) ; (GDK::TILE ; (GOBJECT:G-OBJECT GDK:PIXMAP)) ; (GDK::STIPPLE ; (GOBJECT:G-OBJECT GDK:PIXMAP)) ; (GDK::CLIP-MASK ; (GOBJECT:G-OBJECT GDK:PIXMAP)) ; (GDK:SUBWINDOW-MODE ; GDK:SUBWINDOW-MODE) ; (GDK::TS-X-ORIGIN :INT) ; (GDK::TS-Y-ORIGIN :INT) ; (GDK::CLIP-X-ORIGIN :INT) ...)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GC-VALUES-CUNION ; '((GDK::GC-VALUES ; GDK::GC-VALUES-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.gc"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:UNION COLOR-CUNION)) or (:UNION COLOR-CUNION) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GC-VALUES-CSTRUCT)) or (:STRUCT GC-VALUES-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.drawing-primitives.lisp ; in: DEFUN DRAW-POINTS ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::POINTS-PTR GDK:POINT ; GDK::POINTS) ; (GDK::GDK-DRAW-POINTS GDK:DRAWABLE GDK::GC GDK::POINTS-PTR GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::POINTS-PTR 'GDK::POINT-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:POINT) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-DRAW-POINTS GDK:DRAWABLE GDK::GC GDK::POINTS-PTR GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::POINT-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; in: DEFUN DRAW-LINES ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::POINTS-PTR GDK:POINT ; GDK::POINTS) ; (GDK::GDK-DRAW-LINES GDK:DRAWABLE GDK::GC GDK::POINTS-PTR GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::POINTS-PTR 'GDK::POINT-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:POINT) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-DRAW-LINES GDK:DRAWABLE GDK::GC GDK::POINTS-PTR GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::POINT-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; in: DEFUN DRAW-SEGMENTS ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::SEGMENTS-PTR GDK:SEGMENT ; GDK::SEGMENTS) ; (GDK::GDK-DRAW-SEGMENTS GDK:DRAWABLE GDK::GC GDK::SEGMENTS-PTR GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::SEGMENTS-PTR 'GDK::SEGMENT-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:SEGMENT) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-DRAW-SEGMENTS GDK:DRAWABLE GDK::GC GDK::SEGMENTS-PTR GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::SEGMENT-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT SEGMENT-CSTRUCT)) or (:STRUCT SEGMENT-CSTRUCT) instead. ; in: DEFUN DRAW-POLYGON ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::POINTS-PTR GDK:POINT ; GDK::POINTS) ; (GDK::GDK-DRAW-POLYGON GDK:DRAWABLE GDK::GC GDK::FILLED GDK::POINTS-PTR ; GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::POINTS-PTR 'GDK::POINT-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:POINT) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-DRAW-POLYGON GDK:DRAWABLE GDK::GC GDK::FILLED GDK::POINTS-PTR ; GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::POINT-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT POINT-CSTRUCT)) or (:STRUCT POINT-CSTRUCT) instead. ; in: DEFUN DRAW-TRAPEZOIDS ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::TRAPEZOIDS-PTR GDK:TRAPEZOID ; GDK::TRAPEZOIDS) ; (GDK::GDK-DRAW-TRAPEZOIDS GDK:DRAWABLE GDK::GC GDK::TRAPEZOIDS-PTR GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::TRAPEZOIDS-PTR 'GDK::TRAPEZOID-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:TRAPEZOID) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-DRAW-TRAPEZOIDS GDK:DRAWABLE GDK::GC GDK::TRAPEZOIDS-PTR GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::TRAPEZOID-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT TRAPEZOID-CSTRUCT)) or (:STRUCT TRAPEZOID-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.drawing-primitives"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.rgb.lisp ; in: DEFINE-G-BOXED-CSTRUCT RGB-CMAP ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::RGB-CMAP ; NIL ; (GDK::COLORS :UINT32 :COUNT 256 :INITFORM ; (MAKE-ARRAY 256 :ELEMENT-TYPE '(UNSIGNED-BYTE 32) :INITIAL-ELEMENT 0)) ; (GDK::N-COLORS :INT :INITFORM 0)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::RGB-CMAP-CUNION ; '((GDK::RGB-CMAP ; GDK::RGB-CMAP-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.rgb"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT RGB-CMAP-CSTRUCT)) or (:STRUCT RGB-CMAP-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.colors.lisp ; in: DEFUN COLORMAP-ALLOC-COLORS ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::COLORS-AR GDK:COLOR ; GDK::COLORS) ; (CFFI:WITH-FOREIGN-OBJECT (GDK::SUCCESS :BOOLEAN) ; (GDK::GDK-COLORMAP-ALLOC-COLORS GDK::COLORMAP GDK::COLORS-AR GDK::N ; GDK::WRITEABLE GDK::BEST-MATCH GDK::SUCCESS) ; (CFFI:MEM-REF GDK::SUCCESS :BOOLEAN))) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::COLORS-AR 'GDK::COLOR-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:COLOR) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (CFFI:WITH-FOREIGN-OBJECT (GDK::SUCCESS :BOOLEAN) ; (GDK::GDK-COLORMAP-ALLOC-COLORS GDK::COLORMAP GDK::COLORS-AR GDK::N ; GDK::WRITEABLE GDK::BEST-MATCH GDK::SUCCESS) ; (CFFI:MEM-REF GDK::SUCCESS :BOOLEAN))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::COLOR-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; in: DEFUN COLORMAP-FREE-COLORS ; (GOBJECT:WITH-FOREIGN-BOXED-ARRAY (GDK::N GDK::COLORS-PTR GDK:COLOR ; GDK::COLORS) ; (GDK::GDK-COLORMAP-FREE-COLORS GDK::COLORMAP GDK::COLORS-PTR GDK::N)) ; ==> ; (CFFI:WITH-FOREIGN-OBJECT (GDK::COLORS-PTR 'GDK::COLOR-CSTRUCT GDK::N) ; (LET ((#:I-2 0)) ; (MAP NIL ; (LAMBDA (#:X-1) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN #:X-1 # 'GDK:COLOR) ; (INCF #:I-2)) ; #:VALUES-SEQ-0)) ; (GDK::GDK-COLORMAP-FREE-COLORS GDK::COLORMAP GDK::COLORS-PTR GDK::N)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. ; --> CFFI:WITH-FOREIGN-OBJECT CFFI-SYS:WITH-FOREIGN-POINTER LET* ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> LET MAP LAMBDA FUNCTION GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN WHEN IF ; --> GOBJECT::COPY-SLOTS-TO-NATIVE CFFI-SYS:INC-POINTER * ; ==> ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::COLOR-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT COLOR-CSTRUCT)) or (:STRUCT COLOR-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.colors"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.visual.lisp ; in: DEFCSTRUCT GDK-VISUAL-CSTRUCT ; (CFFI:DEFCSTRUCT GDK::GDK-VISUAL-CSTRUCT ; (GDK::PARENT-INSTANCE GOBJECT.FFI:%G-OBJECT) ; (GDK:VISUAL-TYPE GDK:VISUAL-TYPE) ; (GDK::DEPTH :INT) ; (GDK:BYTE-ORDER GDK:BYTE-ORDER) ; (GDK::COLORMAP-SIZE :INT) ; (GDK::BITS-PER-RGB :INT) ; (GDK::RED-MASK :UINT32) ; (GDK::RED-SHIFT :INT) ; (GDK::RED-PREC :INT) ; (GDK::GREEN-MASK :UINT32) ; ...) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GDK::GDK-VISUAL-CSTRUCT ; '(:CLASS ; GDK::GDK-VISUAL-CSTRUCT-TCLASS) ; '((GDK::PARENT-INSTANCE ; GOBJECT.FFI:%G-OBJECT) ; (GDK:VISUAL-TYPE GDK:VISUAL-TYPE) ; (GDK::DEPTH :INT) ; (GDK:BYTE-ORDER GDK:BYTE-ORDER) ; (GDK::COLORMAP-SIZE :INT) ; (GDK::BITS-PER-RGB :INT) ; (GDK::RED-MASK :UINT32) ; (GDK::RED-SHIFT :INT) ; (GDK::RED-PREC :INT) ; (GDK::GREEN-MASK :UINT32) ; (GDK::GREEN-SHIFT :INT) ; (GDK::GREEN-PREC :INT) ...)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; in: DEF-VISUAL-ACCESSOR VISUAL-TYPE ; (GDK::DEF-VISUAL-ACCESSOR GDK:VISUAL-TYPE) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK:VISUAL-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR DEPTH ; (GDK::DEF-VISUAL-ACCESSOR GDK::DEPTH) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::DEPTH) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR BYTE-ORDER ; (GDK::DEF-VISUAL-ACCESSOR GDK:BYTE-ORDER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK:BYTE-ORDER) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR COLORMAP-SIZE ; (GDK::DEF-VISUAL-ACCESSOR GDK::COLORMAP-SIZE) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::COLORMAP-SIZE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR BITS-PER-RGB ; (GDK::DEF-VISUAL-ACCESSOR GDK::BITS-PER-RGB) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::BITS-PER-RGB) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR RED-MASK ; (GDK::DEF-VISUAL-ACCESSOR GDK::RED-MASK) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::RED-MASK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR RED-SHIFT ; (GDK::DEF-VISUAL-ACCESSOR GDK::RED-SHIFT) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::RED-SHIFT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR RED-PREC ; (GDK::DEF-VISUAL-ACCESSOR GDK::RED-PREC) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::RED-PREC) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR GREEN-MASK ; (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-MASK) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::GREEN-MASK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR GREEN-SHIFT ; (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-SHIFT) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::GREEN-SHIFT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR GREEN-PREC ; (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-PREC) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::GREEN-PREC) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR BLUE-MASK ; (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-MASK) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::BLUE-MASK) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR BLUE-SHIFT ; (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-SHIFT) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::BLUE-SHIFT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. ; in: DEF-VISUAL-ACCESSOR BLUE-PREC ; (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-PREC) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; ==> ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:VISUAL) ; 'GDK::GDK-VISUAL-CSTRUCT 'GDK::BLUE-PREC) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-VISUAL-CSTRUCT)) or (:STRUCT GDK-VISUAL-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.visual"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.cursor.lisp ; in: DEFUN CURSOR-CURSOR-TYPE ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK:CURSOR) 'GDK::%GDK-CURSOR ; 'GDK:CURSOR-TYPE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-CURSOR)) or (:STRUCT %GDK-CURSOR) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.cursor"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.windows.lisp ; in: DEFCALLBACK GDK-WINDOW-INVALIDATE-MAYBE-RECURSE-CB ; (FUNCALL GDK::FN GDK::WINDOW) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-WINDOW-INVALIDATE-MAYBE-RECURSE-CB ; :BOOLEAN ; ((GDK::WINDOW (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::USER-DATA :POINTER)) ; (LET ((GDK::FN (GOBJECT:STABLE-POINTER-VALUE GDK::USER-DATA))) ; (FUNCALL GDK::FN GDK::WINDOW))) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET SETF LET* THE LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK::WINDOW ; #<GOBJECT::FOREIGN-G-OBJECT-TYPE {123AD92DE3}>) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:STABLE-POINTER-VALUE GDK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.events.lisp ; in: DEFCALLBACK GDK-EVENT-FUNC-CALLBACK ; (FUNCALL (GOBJECT:GET-STABLE-POINTER-VALUE GDK::USER-DATA) GDK:EVENT) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (CFFI:DEFCALLBACK GDK::GDK-EVENT-FUNC-CALLBACK ; :VOID ; ((GDK:EVENT (GOBJECT:G-BOXED-FOREIGN GDK:EVENT)) ; (GDK::USER-DATA :POINTER)) ; (RESTART-CASE (FUNCALL (GOBJECT:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; GDK:EVENT) ; (GDK::RETURN-FROM-CALLBACK NIL NIL))) ; --> CFFI-SYS:%DEFCALLBACK PROGN DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::%DEFINE-ALIEN-CALLABLE SB-ALIEN::%DEFINE-ALIEN-CALLABLE ; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET LOCALLY LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN GDK:EVENT ; #<GOBJECT::BOXED-VARIANT-CSTRUCT-FOREIGN-TYPE {123CCD3E33}>) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:GET-STABLE-POINTER-VALUE GDK::USER-DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK GDK-CLIENT-MESSAGE-FILTER-FUNC ; (FUNCALL (GOBJECT:STABLE-POINTER-VALUE GDK::DATA) GDK::XEVENT) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (GOBJECT:STABLE-POINTER-VALUE GDK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; (FUNCALL (GOBJECT:STABLE-POINTER-VALUE GDK::DATA) GDK::XEVENT) ; ; note: doing SAP to pointer coercion (cost 20) ; (GOBJECT:COPY-BOXED-SLOTS-TO-FOREIGN GDK::TRANSLATED-EVENT GDK:EVENT) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCFUN GDK_SETTING_GET ; (CFFI:DEFCFUN GDK::GDK_SETTING_GET ; :BOOLEAN ; (GDK::NAME :STRING) ; (GDK::VALUE (:POINTER GOBJECT.FFI:G-VALUE))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. ; in: DEFUN GDK-GET-SETTING ; (CFFI:WITH-FOREIGN-OBJECT (GDK::VALUE 'GOBJECT.FFI:G-VALUE) ; (GOBJECT:G-VALUE-ZERO GDK::VALUE) ; (WHEN (GDK::GDK_SETTING_GET GDK::NAME GDK::VALUE) ; (PROG1 (GOBJECT:PARSE-G-VALUE GDK::VALUE) ; (GOBJECT.FFI:G-VALUE-UNSET GDK::VALUE)))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.events"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.key-values.lisp ; in: DEFCFUN GDK_KEYMAP_GET_ENTRIES_FOR_KEYVAL ; (CFFI:DEFCFUN GDK::GDK_KEYMAP_GET_ENTRIES_FOR_KEYVAL ; :BOOLEAN ; (GDK:KEYMAP (GOBJECT:G-OBJECT GDK:KEYMAP)) ; (GDK::KEYVAL :UINT) ; (GDK::KEYS (:POINTER (:POINTER GDK::KEYMAP-KEY-CSTRUCT))) ; (GDK::N-KEYS (:POINTER :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; in: DEFUN KEYMAP-GET-ENTRIES-FOR-KEYVAL ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::KEYMAP-KEY-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; in: DEFCFUN GDK_KEYMAP_GET_ENTRIES_FOR_KEYCODE ; (CFFI:DEFCFUN GDK::GDK_KEYMAP_GET_ENTRIES_FOR_KEYCODE ; :BOOLEAN ; (GDK:KEYMAP (GOBJECT:G-OBJECT GDK:KEYMAP)) ; (GDK::HARDWARE-KEYCODE :UINT) ; (GDK::KEYS (:POINTER (:POINTER GDK::KEYMAP-KEY-CSTRUCT))) ; (GDK::KEYVALS (:POINTER (:POINTER :UINT))) ; (GDK::N-ENTRIES (:POINTER :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. ; in: DEFUN KEYMAP-GET-ENTRIES-FOR-KEYMAP ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::KEYMAP-KEY-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT KEYMAP-KEY-CSTRUCT)) or (:STRUCT KEYMAP-KEY-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.key-values"> ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.drag-and-drop.lisp ; in: DEFCSTRUCT %GDK-DRAG-CONTEXT ; (CFFI:DEFCSTRUCT GDK::%GDK-DRAG-CONTEXT ; (GDK::PARENT-INSTANCE GOBJECT.FFI:%G-OBJECT) ; (GDK::PROTOCOL GDK:GDK-DRAG-PROTOCOL) ; (GDK::IS-SOURCE :BOOLEAN) ; (GDK::SOURCE-WINDOW (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::DEST-WINDOW (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::TARGETS (GLIB:GLIST GDK:GDK-ATOM-AS-STRING :FREE-FROM-FOREIGN NIL)) ; (GDK::ACTIONS GDK:GDK-DRAG-ACTION) ; (GDK::SUGGESTED-ACTION GDK:GDK-DRAG-ACTION) ; (GDK::ACTION GDK:GDK-DRAG-ACTION) ; (GDK::START-TIME :UINT32)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GDK::%GDK-DRAG-CONTEXT ; '(:CLASS ; GDK::%GDK-DRAG-CONTEXT-TCLASS) ; '((GDK::PARENT-INSTANCE ; GOBJECT.FFI:%G-OBJECT) ; (GDK::PROTOCOL ; GDK:GDK-DRAG-PROTOCOL) ; (GDK::IS-SOURCE :BOOLEAN) ; (GDK::SOURCE-WINDOW ; (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::DEST-WINDOW ; (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::TARGETS ; (GLIB:GLIST GDK:GDK-ATOM-AS-STRING ; :FREE-FROM-FOREIGN NIL)) ; (GDK::ACTIONS GDK:GDK-DRAG-ACTION) ; (GDK::SUGGESTED-ACTION ; GDK:GDK-DRAG-ACTION) ; (GDK::ACTION GDK:GDK-DRAG-ACTION) ; (GDK::START-TIME :UINT32))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-PROTOCOL ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::PROTOCOL) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-IS-SOURCE ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::IS-SOURCE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-SOURCE-WINDOW ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::SOURCE-WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-DEST-WINDOW ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::DEST-WINDOW) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-TARGETS ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::TARGETS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-ACTIONS ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::ACTIONS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-SUGGESTED-ACTION ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::SUGGESTED-ACTION) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-ACTION ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::ACTION) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. ; in: DEFUN %GDK-DRAG-CONTEXT-GET-START-TIME ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::CONTEXT) ; 'GDK::%GDK-DRAG-CONTEXT 'GDK::START-TIME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DRAG-CONTEXT)) or (:STRUCT %GDK-DRAG-CONTEXT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.drag-and-drop"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gdk/gdk.input-devices.lisp ; in: DEFCSTRUCT %GDK-DEVICE ; (CFFI:DEFCSTRUCT GDK::%GDK-DEVICE ; (GDK::PARENT-INSTANCE GOBJECT.FFI:%G-OBJECT) ; (GDK::NAME (:STRING :FREE-FROM-FOREIGN NIL)) ; (GDK::SOURCE GDK:GDK-INPUT-SOURCE) ; (GDK::MODE GDK:GDK-INPUT-MODE) ; (GDK::HAS-CURSOR :BOOLEAN) ; (GDK::NUM-AXES :INT) ; (GDK::AXES :POINTER) ; (GDK::NUM-KEYS :INT) ; (GDK::KEYS :POINTER)) ; ==> ; (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'GDK::%GDK-DEVICE ; '(:CLASS GDK::%GDK-DEVICE-TCLASS) ; '((GDK::PARENT-INSTANCE ; GOBJECT.FFI:%G-OBJECT) ; (GDK::NAME ; (:STRING :FREE-FROM-FOREIGN NIL)) ; (GDK::SOURCE GDK:GDK-INPUT-SOURCE) ; (GDK::MODE GDK:GDK-INPUT-MODE) ; (GDK::HAS-CURSOR :BOOLEAN) ; (GDK::NUM-AXES :INT) ; (GDK::AXES :POINTER) ; (GDK::NUM-KEYS :INT) ; (GDK::KEYS :POINTER))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. ; in: DEFINE-G-BOXED-CSTRUCT GDK-DEVICE-KEY ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GDK-DEVICE-KEY ; NIL ; (GDK::KEYVAL :UINT) ; (GDK::MODIFIERS GDK:MODIFIER-TYPE)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GDK-DEVICE-KEY-CUNION ; '((GDK::GDK-DEVICE-KEY ; GDK::GDK-DEVICE-KEY-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. ; in: DEFINE-G-BOXED-CSTRUCT GDK-DEVICE-AXIS ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GDK-DEVICE-AXIS ; NIL ; (GDK::USE GDK:AXIS-USE) ; (MIN :DOUBLE) ; (MAX :DOUBLE)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GDK-DEVICE-AXIS-CUNION ; '((GDK::GDK-DEVICE-AXIS ; GDK::GDK-DEVICE-AXIS-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. ; in: DEFUN %GDK-DEVICE-NAME ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::NAME) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-SOURCE ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::SOURCE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-MODE ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::MODE) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-HAS-CURSOR ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::HAS-CURSOR) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-N-AXES ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::NUM-AXES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-N-KEYS ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::NUM-KEYS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-AXES ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::GDK-DEVICE-AXIS-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::NUM-AXES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::AXES) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFUN %GDK-DEVICE-KEYS ; (CFFI:FOREIGN-TYPE-SIZE 'GDK::GDK-DEVICE-KEY-CSTRUCT) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::NUM-KEYS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; (CFFI:FOREIGN-SLOT-VALUE (GOBJECT:POINTER GDK::DEVICE) 'GDK::%GDK-DEVICE ; 'GDK::KEYS) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT %GDK-DEVICE)) or (:STRUCT %GDK-DEVICE) instead. ; in: DEFINE-G-BOXED-CSTRUCT GDK-TIME-COORD ; (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::GDK-TIME-COORD ; NIL ; (TIME :UINT32) ; (GDK::AXES :DOUBLE :COUNT 128)) ; --> CFFI:DEFCUNION EVAL-WHEN ; ==> ; (CFFI::NOTICE-FOREIGN-UNION-DEFINITION 'GDK::GDK-TIME-COORD-CUNION ; '((GDK::GDK-TIME-COORD ; GDK::GDK-TIME-COORD-CSTRUCT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; in: DEFCFUN GDK_DEVICE_GET_HISTORY ; (CFFI:DEFCFUN GDK::GDK_DEVICE_GET_HISTORY ; :BOOLEAN ; (GDK::DEVICE (GOBJECT:G-OBJECT GDK:GDK-DEVICE)) ; (GDK::WINDOW (GOBJECT:G-OBJECT GDK:GDK-WINDOW)) ; (GDK::START :UINT32) ; (GDK::STOP :UINT32) ; (GDK::EVENTS (:POINTER (:POINTER (:POINTER GDK::GDK-TIME-COORD-CSTRUCT)))) ; (GDK::N-EVENTS (:POINTER :INT))) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; in: DEFCFUN GDK_DEVICE_FREE_HISTORY ; (CFFI:DEFCFUN GDK::GDK_DEVICE_FREE_HISTORY ; :VOID ; (GDK::EVENTS (:POINTER (:POINTER GDK::GDK-TIME-COORD-CSTRUCT))) ; (GDK::N-EVENTS :INT)) ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; ; caught STYLE-WARNING: ; bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-gtk2-gdk" "gdk.input-devices"> WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GOBJECT.FFI:%G-OBJECT)) or (:STRUCT GOBJECT.FFI:%G-OBJECT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-KEY-CSTRUCT)) or (:STRUCT GDK-DEVICE-KEY-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-DEVICE-AXIS-CSTRUCT)) or (:STRUCT GDK-DEVICE-AXIS-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT GDK-TIME-COORD-CSTRUCT)) or (:STRUCT GDK-TIME-COORD-CSTRUCT) instead. ; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20250715-git/gtk/gtk.misc.lisp ; in: DEFCALLBACK STABLE-POINTER-FREE-DESTROY-NOTIFY-CALLBACK ; (GOBJECT:FREE-STABLE-POINTER GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CALL-FROM-MAIN-LOOP-CALLBACK ; (FUNCALL (GOBJECT:GET-STABLE-POINTER-VALUE GTK::DATA)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (GOBJECT:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFCALLBACK CALL-TIMEOUT-FROM-MAIN-LOOP-CALLBACK ; (FUNCALL (GOBJECT:GET-STABLE-POINTER-VALUE GTK::DATA)) ; ; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (GOBJECT:GET-STABLE-POINTER-VALUE GTK::DATA) ; ; note: doing SAP to pointer coercion (cost 20) ; ; caught ERROR: ; READ error during COMPILE-FILE: Lock on package SB-UNIX violated when interning SIGPIPE-HANDLER while in package GTK. ; See also: ; The SBCL Manual, Node "Package Locks"(in form starting at line: 7, column: 0, position: 118) Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD tid=2978202 "main thread" RUNNING {123FCB0093}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events"> Backtrace for: #<SB-THREAD:THREAD tid=2978202 "main thread" RUNNING {123FCB0093}> 0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1203693713}> #<unused argument> :QUIT T) 1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1203693713}>) 2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1203693713}>) 3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events">))) 4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events">))) 5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events">) 6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION)) 7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events">) [fast-method] 8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120462D733}>) [fast-method] 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {120462D733}>) [fast-method] 11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cairo2-gtk2"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method] 12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cairo2-gtk2">) 13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-cairo2-gtk2">) [fast-method] 15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-cairo2-gtk2") 16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-cairo2-gtk2") [fast-method] 18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {120463C6AB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL) 19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {12045FB68B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL) 21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-cairo2-gtk2") [fast-method] 22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-cairo2-gtk2" "cl-cairo2-gtk2") 23: (DEPCHECK::MAGIC "cl-cairo2-gtk2" "cl-cairo2-gtk2" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vt8YiZed/depcheck-win.txt") 24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-cairo2-gtk2" "cl-cairo2-gtk2" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vt8YiZed/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Vt8YiZed/depcheck-fail.txt")) 25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp")) 26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP)) 27: ((FLET "WITHOUT-INTERRUPTS-BODY-3" :IN SB-IMPL::START-LISP)) 28: (SB-IMPL::%START-LISP) unhandled condition in --disable-debugger mode, quitting ; ; compilation unit aborted ; caught 2 fatal ERROR conditions ; caught 1 ERROR condition ; caught 1180 STYLE-WARNING conditions ; printed 87 notes