cl-cairo2

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

cl-cairo2-gtk2

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/08d7a2af682802fce159e47ff3511112f24e892a/cl-colors-20210928-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-freetype2/ca147fa768c83e540583b780d38067bec7314d48/cl-freetype2-20210928-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/ca147fa768c83e540583b780d38067bec7314d48/cl-freetype2-20210928-git/src/bitmap.lisp
; in: DEFUN BITMAP-NEW
;     (FREETYPE2-TYPES:MAKE-WRAPPER
;      (FREETYPE2::BITMAP FREETYPE2::&BITMAP FREETYPE2-TYPES:FT-BITMAP
;       (:STRUCT FREETYPE2-TYPES:FOREIGN-FT-BITMAP))
;      (PROGN (FREETYPE2-FFI:FT-BITMAP-NEW FREETYPE2::&BITMAP) :OK)
;      (FREETYPE2-FFI:FT-BITMAP-DONE FREETYPE2::LIBRARY FREETYPE2::&BITMAP))
; --> LET* IF PROGN FREETYPE2-TYPES:LIBC-FREE 
; ==>
;   FREETYPE2::&BITMAP
; 
; note: deleting unreachable code

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

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE7 #: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 #:STORE13 #: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 #:STORE19 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 #:STORE25 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 #:STORE31 #: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 #:STORE37 #: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 #:STORE43 #: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 #:STORE49 #:PTR0 'CL-CAIRO2::XSIZEHINTS
;                           'CL-CAIRO2::MAX-HEIGHT)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XSIZEHINTS)) or (:STRUCT XSIZEHINTS) instead.

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

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

; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE9 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 #:STORE15 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-20210928-git/src/xlib/xlib-image-context.lisp
; in: DEFUN SEND-MESSAGE-TO-SIGNAL-WINDOW
;     (SETF TYPE 33)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE5 #:PTR4 'CL-CAIRO2::XCLIENTMESSAGEEVENT 'TYPE)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT XCLIENTMESSAGEEVENT)) or (:STRUCT XCLIENTMESSAGEEVENT) instead.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;     (= CL-CAIRO2::DATA0 CL-CAIRO2::+REFRESH-MESSAGE+)
; --> CL-CAIRO2::DATA0 
; ==>
;   (CFFI:FOREIGN-SLOT-VALUE #:PTR60 '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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.lisp
; 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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; in: DEFMETHOD TRANSLATE-FROM-FOREIGN (T GLIST-TYPE)
;     (ITERATE:ITER
;       (ITERATE:FOR GLIB::C ITERATE:INITIALLY GLIB::POINTER GLIB::THEN
;        (GLIB::G-LIST-NEXT GLIB::C))
;       (ITERATE:UNTIL (CFFI-SYS:NULL-POINTER-P GLIB::C))
;       (ITERATE:COLLECT
;        (CFFI:CONVERT-FROM-FOREIGN
;         (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-LIST 'GLIB::DATA)
;         (GLIB::GLIST-TYPE-TYPE TYPE))))
; --> LET* BLOCK BLOCK TAGBODY PROGN PROGN SETQ THE 
; ==>
;   (LIST
;    (CFFI:CONVERT-FROM-FOREIGN
;     (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-LIST 'GLIB::DATA)
;     (GLIB::GLIST-TYPE-TYPE TYPE)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-LIST)) or (:STRUCT G-LIST) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; in: DEFMETHOD TRANSLATE-FROM-FOREIGN (T GSLIST-TYPE)
;     (ITERATE:ITER
;       (ITERATE:FOR GLIB::C ITERATE:INITIALLY GLIB::POINTER GLIB::THEN
;        (GLIB::G-SLIST-NEXT GLIB::C))
;       (ITERATE:UNTIL (CFFI-SYS:NULL-POINTER-P GLIB::C))
;       (ITERATE:COLLECT
;        (CFFI:CONVERT-FROM-FOREIGN
;         (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-SLIST 'GLIB::DATA)
;         (GLIB::GSLIST-TYPE-TYPE TYPE))))
; --> LET* BLOCK BLOCK TAGBODY PROGN PROGN SETQ THE 
; ==>
;   (LIST
;    (CFFI:CONVERT-FROM-FOREIGN
;     (CFFI:FOREIGN-SLOT-VALUE GLIB::C 'GLIB::G-SLIST 'GLIB::DATA)
;     (GLIB::GSLIST-TYPE-TYPE TYPE)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-SLIST)) or (:STRUCT G-SLIST) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/glib.glist.lisp
; 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)))
; --> LET* BLOCK BLOCK TAGBODY PROGN LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE9 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 #:STORE10 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.

; --> LET* BLOCK BLOCK TAGBODY PROGN IF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE11 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-20210928-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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.type-designator.lisp
; 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 FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-TYPE-INSTANCE
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-TYPE-INSTANCE
;       (:CLASS (:POINTER GOBJECT.FFI:G-TYPE-CLASS)))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT %G-OBJECT
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:%G-OBJECT
;       (:TYPE-INSTANCE GOBJECT.FFI:G-TYPE-INSTANCE)
;       (:REF-COUNT :UINT)
;       (:DATA :POINTER))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-VALUE
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-VALUE
;       (:TYPE GOBJECT.FFI:G-TYPE-DESIGNATOR)
;       (:DATA GOBJECT.FFI:G-VALUE-DATA :COUNT 2))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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)))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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)))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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)))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-PARAM-SPEC-BOOLEAN
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-BOOLEAN
;       (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC)
;       (:DEFAULT-VALUE :BOOLEAN))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-PARAM-SPEC-PARAM
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-PARAM
;       (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-PARAM-SPEC-BOXED
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-BOXED
;       (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-PARAM-SPEC-POINTER
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-POINTER
;       (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-PARAM-SPEC-OBJECT
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-PARAM-SPEC-OBJECT
;       (:PARENT-INSTANCE GOBJECT.FFI:G-PARAM-SPEC))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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... {100758522F}>
;       (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.ffi.lisp
; in: DEFCSTRUCT G-OBJECT-STRUCT
;     (CFFI:DEFCSTRUCT GOBJECT.FFI:G-OBJECT-STRUCT
;       (:TYPE-INSTANCE GOBJECT.FFI:G-TYPE-INSTANCE)
;       (:REF-COUNT :UINT)
;       (:QDATA :POINTER))
; --> EVAL-WHEN 
; ==>
;   (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-20210928-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-20210928-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.

; ==>
;   (CFFI:MEM-REF VALUES 'GOBJECT.FFI:G-ENUM-VALUE (* GOBJECT::I 24))
; 
; 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.

; ==>
;   (CFFI:MEM-REF GOBJECT::G-CLASS '(:POINTER GOBJECT.FFI:G-ENUM-VALUE) 24)
; 
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.type-info.enum.lisp
; 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.

; ==>
;   (CFFI:MEM-REF VALUES 'GOBJECT.FFI:G-FLAGS-VALUE (* GOBJECT::I 24))
; 
; 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.

; ==>
;   (CFFI:MEM-REF GOBJECT::G-CLASS '(:POINTER GOBJECT.FFI:G-FLAGS-VALUE) 16)
; 
; 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-20210928-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-20210928-git/glib/gobject.gvalue.lisp
; 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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.low.lisp
; 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.

; ==>
;   (CFFI:MEM-REF GOBJECT:TYPE-INSTANCE '(:POINTER GOBJECT.FFI:G-TYPE-CLASS) 0)
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-TYPE-CLASS)) or (:STRUCT G-TYPE-CLASS) instead.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.low.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.low.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.low.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.low.lisp
; 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.

; ==>
;   (CFFI:MEM-REF GOBJECT::PARAMETERS 'GOBJECT.FFI:G-PARAMETER (* GOBJECT::I 32))
; 
; 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)
; --> LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE15 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.

; ==>
;   (CFFI:CONVERT-FROM-FOREIGN (CFFI-SYS:INC-POINTER GOBJECT::PARAMETER 8)
;                              '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.

;     (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.

; ==>
;   (CFFI:MEM-REF GOBJECT::PARAMETERS 'GOBJECT.FFI:G-PARAMETER (* GOBJECT::I 32))
; 
; 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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.object.high.lisp
; in: DEFUN SHOULD-REF-SINK-AT-CREATION
;     'GOBJECT:G-INITIALLY-UNOWNED
; 
; note: can't open-code test of unknown type G-INITIALLY-UNOWNED
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-20210928-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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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))
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE0 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 #:STORE6 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.signals.lisp
; 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.

; ==>
;   (CFFI:MEM-REF 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.

;     (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))
; --> LET* BLOCK BLOCK TAGBODY PROGN GOBJECT:SET-G-VALUE 
; ==>
;   (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.

; --> LET* BLOCK BLOCK TAGBODY PROGN GOBJECT:SET-G-VALUE CFFI:MEM-AREF 
; ==>
;   (CFFI:MEM-REF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE (* (1+ GOBJECT::I) 24))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT G-VALUE)) or (:STRUCT G-VALUE) instead.

;     (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)))
; --> LET* BLOCK BLOCK TAGBODY PROGN 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.

; --> LET* BLOCK BLOCK TAGBODY PROGN GOBJECT.FFI:G-VALUE-UNSET CFFI:MEM-AREF 
; ==>
;   (CFFI:MEM-REF GOBJECT::PARAMS 'GOBJECT.FFI:G-VALUE (* GOBJECT::I 24))
; 
; 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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.foreign-gobject-subclassing.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.foreign-gobject-subclassing.lisp
; 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)
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE3 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 #:STORE9 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.foreign-gobject-subclassing.lisp
; 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))
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE0 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 #:STORE6 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.foreign-gobject-subclassing.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/glib/gobject.foreign-gobject-subclassing.lisp
; 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.
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-20210928-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)
; --> PROGN SETF LET* 
; ==>
;   (CFFI::FOREIGN-SLOT-SET #:STORE0 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 #:STORE6 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-20210928-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))
; --> PROGN 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-20210928-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)
;       ...)
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; in: DEFINE-G-BOXED-CSTRUCT POINT
;     (GOBJECT:DEFINE-G-BOXED-CSTRUCT GDK::POINT
;         NIL
;       (GDK::X :INT :INITFORM 0)
;       (GDK::Y :INT :INITFORM 0))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-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))
;        ...))
; --> PROGN 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.

; --> PROGN 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-20210928-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))
;        ...))
; --> 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 PROGN 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.

; --> 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.

; --> PROGN 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 PROGN 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.

; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.objects.lisp
; 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)
;       ...)
; --> PROGN 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-20210928-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-20210928-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))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.region.lisp
; 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))
; --> LET* 
; ==>
;   (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.
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-20210928-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)
;       ...)
; --> PROGN 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.

; --> PROGN 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-20210928-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))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drawing-primitives.lisp
; 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))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drawing-primitives.lisp
; 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))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drawing-primitives.lisp
; 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))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drawing-primitives.lisp
; 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))
; --> LET* 
; ==>
;   (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.
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-20210928-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))
; --> PROGN 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-20210928-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)))
; --> LET* 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.colors.lisp
; 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))
; --> LET* 
; ==>
;   (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.
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-20210928-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)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR VISUAL-TYPE
;     (GDK::DEF-VISUAL-ACCESSOR GDK:VISUAL-TYPE)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR DEPTH
;     (GDK::DEF-VISUAL-ACCESSOR GDK::DEPTH)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR BYTE-ORDER
;     (GDK::DEF-VISUAL-ACCESSOR GDK:BYTE-ORDER)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR COLORMAP-SIZE
;     (GDK::DEF-VISUAL-ACCESSOR GDK::COLORMAP-SIZE)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR BITS-PER-RGB
;     (GDK::DEF-VISUAL-ACCESSOR GDK::BITS-PER-RGB)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR RED-MASK
;     (GDK::DEF-VISUAL-ACCESSOR GDK::RED-MASK)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR RED-SHIFT
;     (GDK::DEF-VISUAL-ACCESSOR GDK::RED-SHIFT)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR RED-PREC
;     (GDK::DEF-VISUAL-ACCESSOR GDK::RED-PREC)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR GREEN-MASK
;     (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-MASK)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR GREEN-SHIFT
;     (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-SHIFT)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR GREEN-PREC
;     (GDK::DEF-VISUAL-ACCESSOR GDK::GREEN-PREC)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR BLUE-MASK
;     (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-MASK)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR BLUE-SHIFT
;     (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-SHIFT)
; --> DEFUN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.visual.lisp
; in: DEF-VISUAL-ACCESSOR BLUE-PREC
;     (GDK::DEF-VISUAL-ACCESSOR GDK::BLUE-PREC)
; --> DEFUN 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-20210928-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-20210928-git/gdk/gdk.events.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.events.lisp
; 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-20210928-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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.key-values.lisp
; 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.
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-20210928-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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.drag-and-drop.lisp
; 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-20210928-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))
; --> EVAL-WHEN 
; ==>
;   (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; in: DEFUN %GDK-DEVICE-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.

;     (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; in: DEFUN %GDK-DEVICE-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.

;     (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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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))
; --> PROGN 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-gtk2/a5dc2aafc070b34b1ab09fdcd59dfed9ddd7b9c0/cl-gtk2-20210928-git/gdk/gdk.input-devices.lisp
; 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.
; 
; 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 "main thread" RUNNING {10410D0283}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-gtk2-gtk" "gtk.main_loop_events">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10410D0283}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C162313}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C162313}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {100C162313}>)
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 {1005884D93}>) [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 {1005884D93}>) [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) {100587E4EB}> :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) {1005840B7B}> :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-m7yDL6py/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-m7yDL6py/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-m7yDL6py/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-1" :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 1164 STYLE-WARNING conditions
;   printed 8 notes