ulubis-sdl

SBCL 1.4.4 / ASDF 3.3.1

ulubis-sdl

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-fad/c651a53bfe4663b51bce20ffdc29f380f4c70408/cl-fad-20180204-git/cl-fad.asd" contains definition for system "cl-fad-test". Please only define "cl-fad" and secondary systems with a name starting with "cl-fad/" (e.g. "cl-fad/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180204-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/ieee-floats/fa9e496f0fcf4ba05754fc32787f728ca6e2d674/ieee-floats-20180204-git/ieee-floats.asd" contains definition for system "ieee-floats-tests". Please only define "ieee-floats" and secondary systems with a name starting with "ieee-floats/" (e.g. "ieee-floats/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/parse-float/c280e2e4f7fd153d0ddec5de03f56b0891f33e24/parse-float-20180204-git/parse-float.asd" contains definition for system "parse-float-tests". Please only define "parse-float" and secondary systems with a name starting with "parse-float/" (e.g. "parse-float/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20180204-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180204-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-colors/de578abbec472714b24f6283b6275586a7f07d5c/cl-colors-20180204-git/cl-colors.asd" contains definition for system "cl-colors-tests". Please only define "cl-colors" and secondary systems with a name starting with "cl-colors/" (e.g. "cl-colors/test") in that file.
WARNING: redefining DEFPACKAGE-PLUS-1::DEFPACKAGE+-DISPATCH in DEFGENERIC
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
WARNING: No definition for CFLAG-VDSUSP
WARNING: No definition for CFLAG-VSTATUS
WARNING: No definition for TIOCGHAYESESP
WARNING: No definition for TIOCSHAYESESP
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
WARNING: redefining EMACS-INSPECT (#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
STYLE-WARNING: Undefined alien: "xkb_keymap_key_by_name"
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
STYLE-WARNING: Undefined alien: "xkb_keymap_key_by_name"
STYLE-WARNING: Undefined alien: "wl_display_add_socket_fd"
STYLE-WARNING: Undefined alien: "wl_client_get_fd"
STYLE-WARNING: Undefined alien: "wl_resource_get_class"
STYLE-WARNING: Undefined alien: "wl_shm_buffer_ref_pool"
STYLE-WARNING: Undefined alien: "wl_shm_pool_unref"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DISPLAY-SYNC
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DISPLAY-SYNC
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER) (CFFI:CALLBACK :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (CFFI:CALLBACK CFFI:CALLBACK))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DISPLAY-SYNC))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CALLBACK is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DISPLAY-GET-REGISTRY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DISPLAY-GET-REGISTRY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::REGISTRY :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::REGISTRY WAYLAND-SERVER-PROTOCOL::REGISTRY))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DISPLAY-GET-REGISTRY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable REGISTRY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-REGISTRY-BIND
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGISTRY-BIND
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::NAME :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::NAME WAYLAND-SERVER-PROTOCOL::NAME)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGISTRY-BIND))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable NAME is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-COMPOSITOR-CREATE-SURFACE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-COMPOSITOR-CREATE-SURFACE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-COMPOSITOR-CREATE-SURFACE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-COMPOSITOR-CREATE-REGION
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-COMPOSITOR-CREATE-REGION
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-COMPOSITOR-CREATE-REGION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHM-POOL-CREATE-BUFFER
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-CREATE-BUFFER
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::OFFSET :INT32)
;          (WAYLAND-SERVER-PROTOCOL::WIDTH :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HEIGHT :INT32)
;          (WAYLAND-SERVER-PROTOCOL::STRIDE :INT32) (FORMAT :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID)
;         (WAYLAND-SERVER-PROTOCOL::OFFSET WAYLAND-SERVER-PROTOCOL::OFFSET)
;         (WAYLAND-SERVER-PROTOCOL::WIDTH WAYLAND-SERVER-PROTOCOL::WIDTH)
;         (WAYLAND-SERVER-PROTOCOL::HEIGHT WAYLAND-SERVER-PROTOCOL::HEIGHT)
;         (WAYLAND-SERVER-PROTOCOL::STRIDE WAYLAND-SERVER-PROTOCOL::STRIDE)
;         (FORMAT FORMAT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-CREATE-BUFFER))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OFFSET is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable STRIDE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FORMAT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHM-POOL-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHM-POOL-RESIZE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-RESIZE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SIZE :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SIZE WAYLAND-SERVER-PROTOCOL::SIZE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-POOL-RESIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SIZE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHM-CREATE-POOL
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-CREATE-POOL
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::FD :INT32)
;          (WAYLAND-SERVER-PROTOCOL::SIZE :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID)
;         (WAYLAND-SERVER-PROTOCOL::FD WAYLAND-SERVER-PROTOCOL::FD)
;         (WAYLAND-SERVER-PROTOCOL::SIZE WAYLAND-SERVER-PROTOCOL::SIZE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHM-CREATE-POOL))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FD is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SIZE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-BUFFER-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-BUFFER-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-BUFFER-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-OFFER-ACCEPT
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-ACCEPT
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::MIME-TYPE :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL)
;         (WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;          (CFFI:TRANSLATE-FROM-FOREIGN WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-ACCEPT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable MIME-TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-OFFER-RECEIVE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-RECEIVE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::MIME-TYPE :STRING)
;          (WAYLAND-SERVER-PROTOCOL::FD :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;          (CFFI:TRANSLATE-FROM-FOREIGN WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>))
;         (WAYLAND-SERVER-PROTOCOL::FD WAYLAND-SERVER-PROTOCOL::FD))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-RECEIVE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable MIME-TYPE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FD is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-OFFER-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-OFFER-FINISH
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-FINISH
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-FINISH))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-OFFER-SET-ACTIONS
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-SET-ACTIONS
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::DND-ACTIONS :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::PREFERRED-ACTION :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::DND-ACTIONS
;          WAYLAND-SERVER-PROTOCOL::DND-ACTIONS)
;         (WAYLAND-SERVER-PROTOCOL::PREFERRED-ACTION
;          WAYLAND-SERVER-PROTOCOL::PREFERRED-ACTION))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-OFFER-SET-ACTIONS))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DND-ACTIONS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PREFERRED-ACTION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-SOURCE-OFFER
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-OFFER
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::MIME-TYPE :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;          (CFFI:TRANSLATE-FROM-FOREIGN WAYLAND-SERVER-PROTOCOL::MIME-TYPE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-OFFER))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable MIME-TYPE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-SOURCE-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-SOURCE-SET-ACTIONS
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-SET-ACTIONS
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::DND-ACTIONS :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::DND-ACTIONS
;          WAYLAND-SERVER-PROTOCOL::DND-ACTIONS))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-SOURCE-SET-ACTIONS))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable DND-ACTIONS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-DEVICE-START-DRAG
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-START-DRAG
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ORIGIN :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ICON :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SOURCE WAYLAND-SERVER-PROTOCOL::SOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ORIGIN WAYLAND-SERVER-PROTOCOL::ORIGIN)
;         (WAYLAND-SERVER-PROTOCOL::ICON WAYLAND-SERVER-PROTOCOL::ICON)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-START-DRAG))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ORIGIN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ICON is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-DEVICE-SET-SELECTION
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-SET-SELECTION
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SOURCE WAYLAND-SERVER-PROTOCOL::SOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-SET-SELECTION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-DEVICE-RELEASE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-RELEASE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-RELEASE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-DEVICE-MANAGER-CREATE-DATA-SOURCE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-MANAGER-CREATE-DATA-SOURCE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK
;         WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-MANAGER-CREATE-DATA-SOURCE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-DATA-DEVICE-MANAGER-GET-DATA-DEVICE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-MANAGER-GET-DATA-DEVICE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SEAT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID)
;         (WAYLAND-SERVER-PROTOCOL::SEAT WAYLAND-SERVER-PROTOCOL::SEAT))
;     (BLOCK
;         WAYLAND-SERVER-PROTOCOL:EMPTY-WL-DATA-DEVICE-MANAGER-GET-DATA-DEVICE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-GET-SHELL-SURFACE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-GET-SHELL-SURFACE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SURFACE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID)
;         (WAYLAND-SERVER-PROTOCOL::SURFACE WAYLAND-SERVER-PROTOCOL::SURFACE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-GET-SHELL-SURFACE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-PONG
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-PONG
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-PONG))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-MOVE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-MOVE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SEAT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SEAT WAYLAND-SERVER-PROTOCOL::SEAT)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-MOVE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-RESIZE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-RESIZE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SEAT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::EDGES :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SEAT WAYLAND-SERVER-PROTOCOL::SEAT)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL)
;         (WAYLAND-SERVER-PROTOCOL::EDGES WAYLAND-SERVER-PROTOCOL::EDGES))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-RESIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EDGES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-TOPLEVEL
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TOPLEVEL
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TOPLEVEL))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-TRANSIENT
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TRANSIENT
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::PARENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::FLAGS :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::PARENT WAYLAND-SERVER-PROTOCOL::PARENT)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::FLAGS WAYLAND-SERVER-PROTOCOL::FLAGS))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TRANSIENT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FLAGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-FULLSCREEN
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-FULLSCREEN
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER) (METHOD :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::FRAMERATE :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::OUTPUT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (METHOD METHOD)
;         (WAYLAND-SERVER-PROTOCOL::FRAMERATE WAYLAND-SERVER-PROTOCOL::FRAMERATE)
;         (WAYLAND-SERVER-PROTOCOL::OUTPUT WAYLAND-SERVER-PROTOCOL::OUTPUT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-FULLSCREEN))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable METHOD is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FRAMERATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-POPUP
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-POPUP
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SEAT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::PARENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::FLAGS :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SEAT WAYLAND-SERVER-PROTOCOL::SEAT)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL)
;         (WAYLAND-SERVER-PROTOCOL::PARENT WAYLAND-SERVER-PROTOCOL::PARENT)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::FLAGS WAYLAND-SERVER-PROTOCOL::FLAGS))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-POPUP))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FLAGS is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-MAXIMIZED
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-MAXIMIZED
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::OUTPUT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::OUTPUT WAYLAND-SERVER-PROTOCOL::OUTPUT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-MAXIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-TITLE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TITLE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::TITLE :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::TITLE
;          (CFFI:TRANSLATE-FROM-FOREIGN WAYLAND-SERVER-PROTOCOL::TITLE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-TITLE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SHELL-SURFACE-SET-CLASS
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-CLASS
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::CLASS- :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::CLASS-
;          (CFFI:TRANSLATE-FROM-FOREIGN WAYLAND-SERVER-PROTOCOL::CLASS-
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SHELL-SURFACE-SET-CLASS))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CLASS- is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-ATTACH
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-ATTACH
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::BUFFER :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::BUFFER WAYLAND-SERVER-PROTOCOL::BUFFER)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-ATTACH))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BUFFER is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-DAMAGE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DAMAGE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::WIDTH :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::WIDTH WAYLAND-SERVER-PROTOCOL::WIDTH)
;         (WAYLAND-SERVER-PROTOCOL::HEIGHT WAYLAND-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DAMAGE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-FRAME
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-FRAME
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER) (CFFI:CALLBACK :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (CFFI:CALLBACK CFFI:CALLBACK))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-FRAME))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CALLBACK is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-SET-OPAQUE-REGION
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-OPAQUE-REGION
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::REGION :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::REGION WAYLAND-SERVER-PROTOCOL::REGION))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-OPAQUE-REGION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable REGION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-SET-INPUT-REGION
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-INPUT-REGION
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::REGION :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::REGION WAYLAND-SERVER-PROTOCOL::REGION))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-INPUT-REGION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable REGION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-COMMIT
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-COMMIT
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-COMMIT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-SET-BUFFER-TRANSFORM
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-BUFFER-TRANSFORM
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::TRANSFORM :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::TRANSFORM WAYLAND-SERVER-PROTOCOL::TRANSFORM))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-BUFFER-TRANSFORM))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TRANSFORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-SET-BUFFER-SCALE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-BUFFER-SCALE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SCALE :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SCALE WAYLAND-SERVER-PROTOCOL::SCALE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-SET-BUFFER-SCALE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SCALE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SURFACE-DAMAGE-BUFFER
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DAMAGE-BUFFER
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::WIDTH :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::WIDTH WAYLAND-SERVER-PROTOCOL::WIDTH)
;         (WAYLAND-SERVER-PROTOCOL::HEIGHT WAYLAND-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SURFACE-DAMAGE-BUFFER))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SEAT-GET-POINTER
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-POINTER
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-POINTER))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SEAT-GET-KEYBOARD
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-KEYBOARD
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-KEYBOARD))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SEAT-GET-TOUCH
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-TOUCH
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-GET-TOUCH))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SEAT-RELEASE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-RELEASE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SEAT-RELEASE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-POINTER-SET-CURSOR
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-POINTER-SET-CURSOR
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SERIAL :UINT32)
;          (WAYLAND-SERVER-PROTOCOL::SURFACE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::HOTSPOT-X :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HOTSPOT-Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SERIAL WAYLAND-SERVER-PROTOCOL::SERIAL)
;         (WAYLAND-SERVER-PROTOCOL::SURFACE WAYLAND-SERVER-PROTOCOL::SURFACE)
;         (WAYLAND-SERVER-PROTOCOL::HOTSPOT-X WAYLAND-SERVER-PROTOCOL::HOTSPOT-X)
;         (WAYLAND-SERVER-PROTOCOL::HOTSPOT-Y WAYLAND-SERVER-PROTOCOL::HOTSPOT-Y))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-POINTER-SET-CURSOR))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HOTSPOT-X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HOTSPOT-Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-POINTER-RELEASE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-POINTER-RELEASE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-POINTER-RELEASE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-KEYBOARD-RELEASE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-KEYBOARD-RELEASE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-KEYBOARD-RELEASE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-TOUCH-RELEASE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-TOUCH-RELEASE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-TOUCH-RELEASE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-REGION-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-REGION-ADD
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-ADD
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::WIDTH :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::WIDTH WAYLAND-SERVER-PROTOCOL::WIDTH)
;         (WAYLAND-SERVER-PROTOCOL::HEIGHT WAYLAND-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-ADD))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-REGION-SUBTRACT
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-SUBTRACT
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)
;          (WAYLAND-SERVER-PROTOCOL::WIDTH :INT32)
;          (WAYLAND-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y)
;         (WAYLAND-SERVER-PROTOCOL::WIDTH WAYLAND-SERVER-PROTOCOL::WIDTH)
;         (WAYLAND-SERVER-PROTOCOL::HEIGHT WAYLAND-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-REGION-SUBTRACT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBCOMPOSITOR-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBCOMPOSITOR-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBCOMPOSITOR-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBCOMPOSITOR-GET-SUBSURFACE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBCOMPOSITOR-GET-SUBSURFACE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::ID :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SURFACE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::PARENT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::ID WAYLAND-SERVER-PROTOCOL::ID)
;         (WAYLAND-SERVER-PROTOCOL::SURFACE WAYLAND-SERVER-PROTOCOL::SURFACE)
;         (WAYLAND-SERVER-PROTOCOL::PARENT WAYLAND-SERVER-PROTOCOL::PARENT))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBCOMPOSITOR-GET-SUBSURFACE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-DESTROY
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-DESTROY
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-SET-POSITION
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-POSITION
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::X :INT32) (WAYLAND-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::X WAYLAND-SERVER-PROTOCOL::X)
;         (WAYLAND-SERVER-PROTOCOL::Y WAYLAND-SERVER-PROTOCOL::Y))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-POSITION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-PLACE-ABOVE
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-PLACE-ABOVE
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SIBLING :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SIBLING WAYLAND-SERVER-PROTOCOL::SIBLING))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-PLACE-ABOVE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SIBLING is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-PLACE-BELOW
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-PLACE-BELOW
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::SIBLING :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE)
;         (WAYLAND-SERVER-PROTOCOL::SIBLING WAYLAND-SERVER-PROTOCOL::SIBLING))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-PLACE-BELOW))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SIBLING is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-SET-SYNC
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-SYNC
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-SYNC))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/wayland-server-protocol.lisp
; in: DEFCALLBACK EMPTY-WL-SUBSURFACE-SET-DESYNC
;     (CFFI:DEFCALLBACK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-DESYNC
;         :VOID
;         ((WAYLAND-SERVER-PROTOCOL::CLIENT :POINTER)
;          (WAYLAND-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLAND-SERVER-PROTOCOL::CLIENT WAYLAND-SERVER-PROTOCOL::CLIENT)
;         (WAYLAND-SERVER-PROTOCOL::RESOURCE WAYLAND-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK WAYLAND-SERVER-PROTOCOL:EMPTY-WL-SUBSURFACE-SET-DESYNC))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-wayland" "wayland-server-protocol">
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
STYLE-WARNING: Undefined alien: "xkb_keymap_key_by_name"
STYLE-WARNING: Undefined alien: "wl_display_add_socket_fd"
STYLE-WARNING: Undefined alien: "wl_client_get_fd"
STYLE-WARNING: Undefined alien: "wl_resource_get_class"
STYLE-WARNING: Undefined alien: "wl_shm_buffer_ref_pool"
STYLE-WARNING: Undefined alien: "wl_shm_pool_unref"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SHELL-DESTROY
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-DESTROY
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SHELL-USE-UNSTABLE-VERSION
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-USE-UNSTABLE-VERSION
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::VERSION :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::VERSION XDG-SHELL-SERVER-PROTOCOL::VERSION))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-USE-UNSTABLE-VERSION))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SHELL-GET-XDG-SURFACE
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-GET-XDG-SURFACE
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::ID :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SURFACE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::ID XDG-SHELL-SERVER-PROTOCOL::ID)
;         (XDG-SHELL-SERVER-PROTOCOL::SURFACE XDG-SHELL-SERVER-PROTOCOL::SURFACE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-GET-XDG-SURFACE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SHELL-GET-XDG-POPUP
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-GET-XDG-POPUP
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::ID :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SURFACE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::PARENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SEAT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)
;          (XDG-SHELL-SERVER-PROTOCOL::X :INT32)
;          (XDG-SHELL-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::ID XDG-SHELL-SERVER-PROTOCOL::ID)
;         (XDG-SHELL-SERVER-PROTOCOL::SURFACE XDG-SHELL-SERVER-PROTOCOL::SURFACE)
;         (XDG-SHELL-SERVER-PROTOCOL::PARENT XDG-SHELL-SERVER-PROTOCOL::PARENT)
;         (XDG-SHELL-SERVER-PROTOCOL::SEAT XDG-SHELL-SERVER-PROTOCOL::SEAT)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL)
;         (XDG-SHELL-SERVER-PROTOCOL::X XDG-SHELL-SERVER-PROTOCOL::X)
;         (XDG-SHELL-SERVER-PROTOCOL::Y XDG-SHELL-SERVER-PROTOCOL::Y))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-GET-XDG-POPUP))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SHELL-PONG
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-PONG
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SHELL-PONG))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-DESTROY
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-DESTROY
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-PARENT
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-PARENT
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::PARENT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::PARENT XDG-SHELL-SERVER-PROTOCOL::PARENT))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-PARENT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-TITLE
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-TITLE
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::TITLE :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::TITLE
;          (CFFI:TRANSLATE-FROM-FOREIGN XDG-SHELL-SERVER-PROTOCOL::TITLE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-TITLE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-APP-ID
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-APP-ID
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::APP-ID :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::APP-ID
;          (CFFI:TRANSLATE-FROM-FOREIGN XDG-SHELL-SERVER-PROTOCOL::APP-ID
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-APP-ID))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable APP-ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SHOW-WINDOW-MENU
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SHOW-WINDOW-MENU
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SEAT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)
;          (XDG-SHELL-SERVER-PROTOCOL::X :INT32)
;          (XDG-SHELL-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::SEAT XDG-SHELL-SERVER-PROTOCOL::SEAT)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL)
;         (XDG-SHELL-SERVER-PROTOCOL::X XDG-SHELL-SERVER-PROTOCOL::X)
;         (XDG-SHELL-SERVER-PROTOCOL::Y XDG-SHELL-SERVER-PROTOCOL::Y))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SHOW-WINDOW-MENU))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-MOVE
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-MOVE
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SEAT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::SEAT XDG-SHELL-SERVER-PROTOCOL::SEAT)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-MOVE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-RESIZE
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-RESIZE
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SEAT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)
;          (XDG-SHELL-SERVER-PROTOCOL::EDGES :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::SEAT XDG-SHELL-SERVER-PROTOCOL::SEAT)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL)
;         (XDG-SHELL-SERVER-PROTOCOL::EDGES XDG-SHELL-SERVER-PROTOCOL::EDGES))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-RESIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EDGES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-ACK-CONFIGURE
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-ACK-CONFIGURE
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::SERIAL XDG-SHELL-SERVER-PROTOCOL::SERIAL))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-ACK-CONFIGURE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-WINDOW-GEOMETRY
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-WINDOW-GEOMETRY
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::X :INT32)
;          (XDG-SHELL-SERVER-PROTOCOL::Y :INT32)
;          (XDG-SHELL-SERVER-PROTOCOL::WIDTH :INT32)
;          (XDG-SHELL-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::X XDG-SHELL-SERVER-PROTOCOL::X)
;         (XDG-SHELL-SERVER-PROTOCOL::Y XDG-SHELL-SERVER-PROTOCOL::Y)
;         (XDG-SHELL-SERVER-PROTOCOL::WIDTH XDG-SHELL-SERVER-PROTOCOL::WIDTH)
;         (XDG-SHELL-SERVER-PROTOCOL::HEIGHT XDG-SHELL-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-WINDOW-GEOMETRY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-MAXIMIZED
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-MAXIMIZED
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-MAXIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-UNSET-MAXIMIZED
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-UNSET-MAXIMIZED
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-UNSET-MAXIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-FULLSCREEN
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-FULLSCREEN
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::OUTPUT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE)
;         (XDG-SHELL-SERVER-PROTOCOL::OUTPUT XDG-SHELL-SERVER-PROTOCOL::OUTPUT))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-FULLSCREEN))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-UNSET-FULLSCREEN
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-UNSET-FULLSCREEN
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-UNSET-FULLSCREEN))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-SURFACE-SET-MINIMIZED
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-MINIMIZED
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-SURFACE-SET-MINIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/xdg-shell-server-protocol.lisp
; in: DEFCALLBACK EMPTY-XDG-POPUP-DESTROY
;     (CFFI:DEFCALLBACK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-POPUP-DESTROY
;         :VOID
;         ((XDG-SHELL-SERVER-PROTOCOL::CLIENT :POINTER)
;          (XDG-SHELL-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((XDG-SHELL-SERVER-PROTOCOL::CLIENT XDG-SHELL-SERVER-PROTOCOL::CLIENT)
;         (XDG-SHELL-SERVER-PROTOCOL::RESOURCE
;          XDG-SHELL-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK XDG-SHELL-SERVER-PROTOCOL:EMPTY-XDG-POPUP-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-wayland" "xdg-shell-server-protocol">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SHELL-V6-DESTROY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-DESTROY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SHELL-V6-CREATE-POSITIONER
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-CREATE-POSITIONER
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID ZXDG-SHELL-V6-SERVER-PROTOCOL::ID))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-CREATE-POSITIONER))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SHELL-V6-GET-XDG-SURFACE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-GET-XDG-SURFACE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SURFACE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID ZXDG-SHELL-V6-SERVER-PROTOCOL::ID)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SURFACE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SURFACE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-GET-XDG-SURFACE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SURFACE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SHELL-V6-PONG
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-PONG
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SHELL-V6-PONG))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-DESTROY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-DESTROY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-SIZE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-SIZE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-SIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR-RECT
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR-RECT
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::X :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::X ZXDG-SHELL-V6-SERVER-PROTOCOL::X)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y ZXDG-SHELL-V6-SERVER-PROTOCOL::Y)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR-RECT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::ANCHOR :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::ANCHOR
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::ANCHOR))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-ANCHOR))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ANCHOR is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-GRAVITY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-GRAVITY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::GRAVITY :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::GRAVITY
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::GRAVITY))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-GRAVITY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable GRAVITY is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-CONSTRAINT-ADJUSTMENT
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-CONSTRAINT-ADJUSTMENT
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::CONSTRAINT-ADJUSTMENT :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::CONSTRAINT-ADJUSTMENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CONSTRAINT-ADJUSTMENT))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-CONSTRAINT-ADJUSTMENT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CONSTRAINT-ADJUSTMENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POSITIONER-V6-SET-OFFSET
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-OFFSET
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::X :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::X ZXDG-SHELL-V6-SERVER-PROTOCOL::X)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y ZXDG-SHELL-V6-SERVER-PROTOCOL::Y))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POSITIONER-V6-SET-OFFSET))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SURFACE-V6-DESTROY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-DESTROY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SURFACE-V6-GET-TOPLEVEL
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-GET-TOPLEVEL
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID ZXDG-SHELL-V6-SERVER-PROTOCOL::ID))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-GET-TOPLEVEL))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SURFACE-V6-GET-POPUP
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-GET-POPUP
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::POSITIONER :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::ID ZXDG-SHELL-V6-SERVER-PROTOCOL::ID)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::POSITIONER
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::POSITIONER))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-GET-POPUP))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ID is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable POSITIONER is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SURFACE-V6-SET-WINDOW-GEOMETRY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-SET-WINDOW-GEOMETRY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::X :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::X ZXDG-SHELL-V6-SERVER-PROTOCOL::X)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y ZXDG-SHELL-V6-SERVER-PROTOCOL::Y)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-SET-WINDOW-GEOMETRY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-SURFACE-V6-ACK-CONFIGURE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-ACK-CONFIGURE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-SURFACE-V6-ACK-CONFIGURE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-DESTROY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-DESTROY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-PARENT
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-PARENT
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::PARENT))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-PARENT))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARENT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-TITLE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-TITLE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::TITLE :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::TITLE
;          (CFFI:TRANSLATE-FROM-FOREIGN ZXDG-SHELL-V6-SERVER-PROTOCOL::TITLE
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-TITLE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable TITLE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-APP-ID
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-APP-ID
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::APP-ID :STRING)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::APP-ID
;          (CFFI:TRANSLATE-FROM-FOREIGN ZXDG-SHELL-V6-SERVER-PROTOCOL::APP-ID
;                                       #<CFFI::FOREIGN-STRING-TYPE :UTF-8>)))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-APP-ID))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable APP-ID is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SHOW-WINDOW-MENU
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SHOW-WINDOW-MENU
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::X :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::X ZXDG-SHELL-V6-SERVER-PROTOCOL::X)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::Y ZXDG-SHELL-V6-SERVER-PROTOCOL::Y))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SHOW-WINDOW-MENU))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-MOVE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-MOVE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-MOVE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-RESIZE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-RESIZE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::EDGES :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::EDGES
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::EDGES))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-RESIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EDGES is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-MAX-SIZE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MAX-SIZE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MAX-SIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-MIN-SIZE
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MIN-SIZE
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH :INT32)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT :INT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::WIDTH)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::HEIGHT))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MIN-SIZE))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WIDTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable HEIGHT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-MAXIMIZED
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MAXIMIZED
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MAXIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-UNSET-MAXIMIZED
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-UNSET-MAXIMIZED
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-UNSET-MAXIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-FULLSCREEN
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-FULLSCREEN
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::OUTPUT :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::OUTPUT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::OUTPUT))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-FULLSCREEN))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-UNSET-FULLSCREEN
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-UNSET-FULLSCREEN
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK
;         ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-UNSET-FULLSCREEN))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-TOPLEVEL-V6-SET-MINIMIZED
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MINIMIZED
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-TOPLEVEL-V6-SET-MINIMIZED))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POPUP-V6-DESTROY
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POPUP-V6-DESTROY
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POPUP-V6-DESTROY))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/zxdg-shell-v6-server-protocol.lisp
; in: DEFCALLBACK EMPTY-ZXDG-POPUP-V6-GRAB
;     (CFFI:DEFCALLBACK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POPUP-V6-GRAB
;         :VOID
;         ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT :POINTER)
;          (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL :UINT32)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::CLIENT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::RESOURCE)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SEAT)
;         (ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL
;          ZXDG-SHELL-V6-SERVER-PROTOCOL::SERIAL))
;     (BLOCK ZXDG-SHELL-V6-SERVER-PROTOCOL:EMPTY-ZXDG-POPUP-V6-GRAB))
; 
; caught STYLE-WARNING:
;   The variable CLIENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-wayland" "zxdg-shell-v6-server-protocol">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFMETHOD PRINT-OBJECT (WL-CLIENT T)
;     (FORMAT WAYLISP::OUT "@ ~X"
;             (CFFI-SYS:POINTER-ADDRESS (WAYLISP:->CLIENT WAYLISP::OBJ)))
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "@ ~X"
;               (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL
;               (WRITE-STRING "@ " STREAM)
;               (LET (# #)
;                 (PRINC SB-FORMAT::FORMAT-ARG1 STREAM)))
;             NIL)
;           #:G8)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.
; 
; note: doing unsigned word to integer coercion (cost 20)

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFUN GET-CLIENT
;     (FIND-IF
;      (LAMBDA (WAYLISP:CLIENT)
;        (CFFI-SYS:POINTER-EQ (WAYLISP:->CLIENT WAYLISP:CLIENT)
;                             WAYLISP::CLIENT-PTR))
;      WAYLISP::*CLIENTS*)
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFUN FIND-RESOURCE
;     (FIND-IF
;      (LAMBDA (WAYLISP::RESOURCE)
;        (CFFI-SYS:POINTER-EQ (WAYLISP:->RESOURCE WAYLISP::RESOURCE)
;                             WAYLISP:->RESOURCE))
;      (WAYLISP:RESOURCES WAYLISP:CLIENT))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFCALLBACK EMPTY-DELETE-FUNCTION
;     (CFFI:DEFCALLBACK WAYLISP::EMPTY-DELETE-FUNCTION
;         :VOID
;         ((WAYLISP::RESOURCE :POINTER)))
; --> PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((WAYLISP::RESOURCE WAYLISP::RESOURCE))
;     (BLOCK WAYLISP::EMPTY-DELETE-FUNCTION))
; 
; caught STYLE-WARNING:
;   The variable RESOURCE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :BEFORE (WL-RESOURCE)
;     (DEFMETHOD INITIALIZE-INSTANCE :BEFORE
;                ((WAYLISP::RESOURCE WAYLISP:WL-RESOURCE)
;                 &KEY WAYLISP:->RESOURCE WAYLISP:CLIENT WAYLISP::VERSION
;                 WAYLISP:ID WAYLISP::IMPLEMENTATION WAYLISP::INTERFACE)
;       (SETF (WAYLISP:->RESOURCE WAYLISP::RESOURCE) WAYLISP:->RESOURCE)
;       (SETF (WAYLISP:ID WAYLISP::RESOURCE) WAYLISP:ID)
;       (SETF (WAYLISP::INTERFACE WAYLISP::RESOURCE) WAYLISP::INTERFACE)
;       (SETF (WAYLISP::IMPLEMENTATION WAYLISP::RESOURCE) WAYLISP::IMPLEMENTATION)
;       (SETF (WAYLISP:CLIENT WAYLISP::RESOURCE) WAYLISP:CLIENT)
;       (PUSH WAYLISP::RESOURCE (WAYLISP:RESOURCES WAYLISP:CLIENT)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :BEFORE
;                           (WAYLISP:WL-RESOURCE))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WAYLISP::RESOURCE &KEY
;          WAYLISP:->RESOURCE WAYLISP:CLIENT WAYLISP::VERSION WAYLISP:ID
;          WAYLISP::IMPLEMENTATION WAYLISP::INTERFACE &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER WAYLISP::RESOURCE))
;       (DECLARE (IGNORABLE WAYLISP::RESOURCE))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((WAYLISP::RESOURCE)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (WAYLISP::RESOURCE) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE (SB-PCL::%CLASS WAYLISP::RESOURCE WAYLISP:WL-RESOURCE))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFUN FIND-REGION
;     (FIND-IF
;      (LAMBDA (WAYLISP::REGION)
;        (AND (CFFI-SYS:POINTERP (WAYLISP:->RESOURCE WAYLISP::REGION))
;             (CFFI-SYS:POINTER-EQ (WAYLISP:->RESOURCE WAYLISP::REGION)
;                                  WAYLISP::->REGION)))
;      (WAYLISP::REGIONS WAYLISP:CLIENT))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFMETHOD RESIZE (ISURFACE T T T)
;     (DEFMETHOD WAYLISP:RESIZE
;                ((WAYLISP::SURFACE WAYLISP:ISURFACE) WAYLISP:WIDTH WAYLISP:HEIGHT
;                 TIME
;                 &KEY (WAYLISP::ACTIVATE? T)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD WAYLISP:RESIZE
;                           (WAYLISP:ISURFACE T T T))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. WAYLISP::SURFACE WAYLISP:WIDTH
;          WAYLISP:HEIGHT TIME &KEY (WAYLISP::ACTIVATE? T) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER TIME))
;       (DECLARE (SB-PCL::%PARAMETER WAYLISP:HEIGHT))
;       (DECLARE (SB-PCL::%PARAMETER WAYLISP:WIDTH))
;       (DECLARE (SB-PCL::%PARAMETER WAYLISP::SURFACE))
;       (DECLARE (TYPE T TIME))
;       (DECLARE (TYPE T WAYLISP:HEIGHT))
;       (DECLARE (TYPE T WAYLISP:WIDTH))
;       (DECLARE (IGNORABLE TIME WAYLISP:HEIGHT WAYLISP:WIDTH WAYLISP::SURFACE))
;       ...)
; 
; caught STYLE-WARNING:
;   The variable ACTIVATE? is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-wayland/e2bcead77c7982592ea1e52c33977ae4c812f102/cl-wayland-20180204-git/waylisp.lisp
; in: DEFMETHOD KEYBOARD-SEND-ENTER (ISURFACE)
;     (WAYLISP:WITH-WL-ARRAY ARRAY (WAYLAND-SERVER-CORE:WL-ARRAY-INIT ARRAY)
;                            (WAYLAND-SERVER-PROTOCOL:WL-KEYBOARD-SEND-ENTER
;                             (WAYLISP:->RESOURCE
;                              (WAYLISP:KEYBOARD
;                               (WAYLISP:CLIENT WAYLISP::SURFACE)))
;                             0
;                             (WAYLISP:->RESOURCE
;                              (WAYLISP:WL-SURFACE WAYLISP::SURFACE))
;                             ARRAY))
; ==>
;   (LET ((ARRAY (CFFI:FOREIGN-ALLOC '(:STRUCT WAYLAND-SERVER-CORE:WL_ARRAY))))
;     (WAYLAND-SERVER-CORE:WL-ARRAY-INIT ARRAY)
;     (WAYLAND-SERVER-CORE:WL-ARRAY-INIT ARRAY)
;     (WAYLAND-SERVER-PROTOCOL:WL-KEYBOARD-SEND-ENTER
;      (WAYLISP:->RESOURCE (WAYLISP:KEYBOARD (WAYLISP:CLIENT WAYLISP::SURFACE)))
;      0 (WAYLISP:->RESOURCE (WAYLISP:WL-SURFACE WAYLISP::SURFACE)) ARRAY)
;     (WAYLAND-SERVER-CORE:WL-ARRAY-RELEASE ARRAY)
;     (CFFI-SYS:FOREIGN-FREE ARRAY))
; 
; note: doing SAP to pointer coercion (cost 20) to ARRAY
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-wayland" "waylisp">
STYLE-WARNING: Undefined alien: "SDL_sqrtf"
STYLE-WARNING: Undefined alien: "SDL_tan"
STYLE-WARNING: Undefined alien: "SDL_tanf"
STYLE-WARNING: Undefined alien: "SDL_main"
STYLE-WARNING: Undefined alien: "SDL_QueueAudio"
STYLE-WARNING: Undefined alien: "SDL_GetQueuedAudioSize"
STYLE-WARNING: Undefined alien: "SDL_ClearQueuedAudio"
STYLE-WARNING: Undefined alien: "SDL_HasAVX2"
STYLE-WARNING: Undefined alien: "SDL_GetDisplayDPI"
STYLE-WARNING: Undefined alien: "SDL_GetGrabbedWindow"
STYLE-WARNING: Undefined alien: "SDL_SetWindowHitTest"
STYLE-WARNING: Undefined alien: "SDL_GetGlobalMouseState"
STYLE-WARNING: Undefined alien: "SDL_WarpMouseGlobal"
STYLE-WARNING: Undefined alien: "SDL_CaptureMouse"
STYLE-WARNING: Undefined alien: "SDL_JoystickFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_JoystickCurrentPowerLevel"
STYLE-WARNING: Undefined alien: "SDL_GameControllerFromInstanceID"
STYLE-WARNING: Undefined alien: "SDL_RenderIsClipEnabled"
STYLE-WARNING: Undefined alien: "xkb_keymap_key_by_name"
STYLE-WARNING: Undefined alien: "wl_display_add_socket_fd"
STYLE-WARNING: Undefined alien: "wl_client_get_fd"
STYLE-WARNING: Undefined alien: "wl_resource_get_class"
STYLE-WARNING: Undefined alien: "wl_shm_buffer_ref_pool"
STYLE-WARNING: Undefined alien: "wl_shm_pool_unref"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/animation.lisp
; in: DEFMETHOD START-ANIMATION (PARALLEL-ANIMATION)
;     (DEFMETHOD ANIMATION:START-ANIMATION
;                ((ANIMATION:ANIMATION ANIMATION:PARALLEL-ANIMATION)
;                 &KEY (TIME (ANIMATION:GET-MILLISECONDS)) ANIMATION::FINISHED-FN
;                 (ANIMATION::TOPLEVEL T))
;       (SETF (ANIMATION::TOPLEVEL? ANIMATION:ANIMATION) ANIMATION::TOPLEVEL)
;       (MAPCAR
;        (LAMBDA (ANIMATION::A)
;          (ANIMATION:START-ANIMATION ANIMATION::A :TIME TIME :TOPLEVEL NIL))
;        (ANIMATION::ANIMATIONS ANIMATION:ANIMATION))
;       (WHEN ANIMATION::TOPLEVEL
;         (PUSH ANIMATION:ANIMATION ANIMATION::*ANIMATIONS*)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD ANIMATION:START-ANIMATION
;                           (ANIMATION:PARALLEL-ANIMATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. ANIMATION:ANIMATION &KEY
;          (TIME (ANIMATION:GET-MILLISECONDS)) ANIMATION::FINISHED-FN
;          (ANIMATION::TOPLEVEL T) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER ANIMATION:ANIMATION))
;       (DECLARE (IGNORABLE ANIMATION:ANIMATION))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((ANIMATION:ANIMATION)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (ANIMATION:ANIMATION) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS ANIMATION:ANIMATION ANIMATION:PARALLEL-ANIMATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FINISHED-FN is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/animation.lisp
; in: DEFMETHOD START-ANIMATION (SEQUENTIAL-ANIMATION)
;     (DEFMETHOD ANIMATION:START-ANIMATION
;                ((ANIMATION:ANIMATION ANIMATION:SEQUENTIAL-ANIMATION)
;                 &KEY (TIME (ANIMATION:GET-MILLISECONDS)) ANIMATION::FINISHED-FN
;                 (ANIMATION::TOPLEVEL T))
;       (SETF (ANIMATION::REMAINING ANIMATION:ANIMATION)
;               (ANIMATION::ANIMATIONS ANIMATION:ANIMATION))
;       (ANIMATION:START-ANIMATION
;        (FIRST (ANIMATION::ANIMATIONS ANIMATION:ANIMATION)) :TIME TIME :TOPLEVEL
;        NIL)
;       (SETF (ANIMATION::TOPLEVEL? ANIMATION:ANIMATION) ANIMATION::TOPLEVEL)
;       (WHEN ANIMATION::TOPLEVEL
;         (PUSH ANIMATION:ANIMATION ANIMATION::*ANIMATIONS*)))
; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD 
; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA (SB-PCL::FAST-METHOD ANIMATION:START-ANIMATION
;                           (ANIMATION:SEQUENTIAL-ANIMATION))
;         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. ANIMATION:ANIMATION &KEY
;          (TIME (ANIMATION:GET-MILLISECONDS)) ANIMATION::FINISHED-FN
;          (ANIMATION::TOPLEVEL T) &ALLOW-OTHER-KEYS)
;       (DECLARE (IGNORABLE SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL.)
;                (DISABLE-PACKAGE-LOCKS SB-PCL::PV-ENV-ENVIRONMENT))
;       (DECLARE (SB-PCL::%PARAMETER ANIMATION:ANIMATION))
;       (DECLARE (IGNORABLE ANIMATION:ANIMATION))
;       (SYMBOL-MACROLET ((SB-PCL::PV-ENV-ENVIRONMENT SB-PCL::DEFAULT))
;         (SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ((ANIMATION:ANIMATION)
;                                                 SB-PCL::.NEXT-METHOD-CALL.
;                                                 (ANIMATION:ANIMATION) NIL
;                                                 :CALL-NEXT-METHOD-P NIL :SETQ-P
;                                                 NIL :PARAMETERS-SETQD NIL
;                                                 :METHOD-CELL (#:METHOD-CELL)
;                                                 ...)
;           (DECLARE
;            (SB-PCL::%CLASS ANIMATION:ANIMATION ANIMATION:SEQUENTIAL-ANIMATION))
;           (LOCALLY
;            (DECLARE #)
;            (SYMBOL-MACROLET #
;              #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable FINISHED-FN is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "animation">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-surface-impl.lisp
; in: DEF-WL-CALLBACK ATTACH
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::ATTACH
;                              (WAYLISP:CLIENT ULUBIS::SURFACE
;                                              (ULUBIS::BUFFER :POINTER)
;                                              (WAYLISP:X :INT32)
;                                              (WAYLISP:Y :INT32))
;                              (SETF (ULUBIS::BUFFER ULUBIS::SURFACE)
;                                      ULUBIS::BUFFER))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (#:RESOURCE-PTR1 #:RESOURCE-PTR1)
;         (ULUBIS::BUFFER ULUBIS::BUFFER)
;         (WAYLISP:X WAYLISP:X)
;         (WAYLISP:Y WAYLISP:Y))
;     (BLOCK ULUBIS::ATTACH
;       (LET* ((WAYLISP:CLIENT #) (ULUBIS::SURFACE #))
;         (SETF # ULUBIS::BUFFER))))
; 
; caught STYLE-WARNING:
;   The variable X is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable Y is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-surface-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-compositor-impl.lisp
; in: DEF-WL-CALLBACK CREATE-SURFACE
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::CREATE-SURFACE
;                              (WAYLISP:CLIENT ULUBIS::COMPOSITOR
;                                              (WAYLISP:ID :UINT32))
;                              (LET ((ULUBIS::SURFACE
;                                     (ULUBIS::MAKE-WL-SURFACE WAYLISP:CLIENT 3
;                                                              WAYLISP:ID)))
;                                (SETF (WAYLISP:WL-SURFACE ULUBIS::SURFACE)
;                                        ULUBIS::SURFACE)
;                                (SETF (ULUBIS::ROLE ULUBIS::SURFACE)
;                                        ULUBIS::SURFACE)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::COMPOSITOR
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (LET ((ULUBIS::SURFACE
;            (ULUBIS::MAKE-WL-SURFACE WAYLISP:CLIENT 3 WAYLISP:ID)))
;       (SETF (WAYLISP:WL-SURFACE ULUBIS::SURFACE) ULUBIS::SURFACE)
;       (SETF (ULUBIS::ROLE ULUBIS::SURFACE) ULUBIS::SURFACE)))
; 
; caught STYLE-WARNING:
;   The variable COMPOSITOR is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-compositor-impl.lisp
; in: DEF-WL-CALLBACK CREATE-REGION
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::CREATE-REGION
;                              (WAYLISP:CLIENT ULUBIS::COMPOSITOR
;                                              (WAYLISP:ID :UINT32))
;                              (ULUBIS::MAKE-WL-REGION WAYLISP:CLIENT 1 WAYLISP:ID))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::COMPOSITOR
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (ULUBIS::MAKE-WL-REGION WAYLISP:CLIENT 1 WAYLISP:ID))
; 
; caught STYLE-WARNING:
;   The variable COMPOSITOR is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-compositor-impl.lisp
; in: DEF-WL-BIND COMPOSITOR-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::COMPOSITOR-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-WL-COMPOSITOR WAYLISP:CLIENT 1 WAYLISP:ID))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::COMPOSITOR-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-WL-COMPOSITOR WAYLISP:CLIENT 1 WAYLISP:ID))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-compositor-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-data-device-impl.lisp
; in: DEF-WL-CALLBACK START-DRAG
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::START-DRAG
;                              (WAYLISP:CLIENT ULUBIS::DATA-DEVICE
;                                              (ULUBIS::SOURCE :POINTER)
;                                              (ULUBIS::ORIGIN :POINTER)
;                                              (ULUBIS::ICON :POINTER)
;                                              (ULUBIS::SERIAL :UINT32)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (#:RESOURCE-PTR1 #:RESOURCE-PTR1)
;         (ULUBIS::SOURCE ULUBIS::SOURCE)
;         (ULUBIS::ORIGIN ULUBIS::ORIGIN)
;         (ULUBIS::ICON ULUBIS::ICON)
;         (ULUBIS::SERIAL ULUBIS::SERIAL))
;     (BLOCK ULUBIS::START-DRAG
;       (LET* ((WAYLISP:CLIENT #) (ULUBIS::DATA-DEVICE #))
;         )))
; 
; caught STYLE-WARNING:
;   The variable SOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ORIGIN is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ICON is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::DATA-DEVICE
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     )
; 
; caught STYLE-WARNING:
;   The variable DATA-DEVICE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-data-device-impl.lisp
; in: DEF-WL-CALLBACK SET-SELECTION
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::SET-SELECTION
;                              (WAYLISP:CLIENT ULUBIS::DATA-DEVICE
;                                              (ULUBIS::SOURCE :POINTER)
;                                              (ULUBIS::SERIAL :UINT32)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (#:RESOURCE-PTR1 #:RESOURCE-PTR1)
;         (ULUBIS::SOURCE ULUBIS::SOURCE)
;         (ULUBIS::SERIAL ULUBIS::SERIAL))
;     (BLOCK ULUBIS::SET-SELECTION
;       (LET* ((WAYLISP:CLIENT #) (ULUBIS::DATA-DEVICE #))
;         )))
; 
; caught STYLE-WARNING:
;   The variable SOURCE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::DATA-DEVICE
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     )
; 
; caught STYLE-WARNING:
;   The variable DATA-DEVICE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-data-device-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-data-source-impl.lisp
; in: DEF-WL-CALLBACK OFFER
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::OFFER
;                              (WAYLISP:CLIENT ULUBIS::DATA-SOURCE
;                                              (ULUBIS::MIME-TYPE :STRING))
;                              (FORMAT T "Mime-type offered: ~A~%"
;                                      ULUBIS::MIME-TYPE))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::DATA-SOURCE
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (FORMAT T "Mime-type offered: ~A~%" ULUBIS::MIME-TYPE))
; 
; caught STYLE-WARNING:
;   The variable DATA-SOURCE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-data-source-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-data-device-manager-impl.lisp
; in: DEF-WL-BIND DEVICE-MANAGER-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::DEVICE-MANAGER-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-WL-DATA-DEVICE-MANAGER WAYLISP:CLIENT 1
;                           WAYLISP:ID))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::DEVICE-MANAGER-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-WL-DATA-DEVICE-MANAGER WAYLISP:CLIENT 1 WAYLISP:ID))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-data-device-manager-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-output-impl.lisp
; in: DEF-WL-BIND OUTPUT-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::OUTPUT-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (LET ((ULUBIS::OUTPUT
;                                 (ULUBIS::MAKE-WL-OUTPUT WAYLISP:CLIENT 1
;                                  WAYLISP:ID :IMPLEMENTATION? NIL)))
;                            (WAYLAND-SERVER-PROTOCOL:WL-OUTPUT-SEND-GEOMETRY
;                             (WAYLISP:->RESOURCE ULUBIS::OUTPUT) 0 0 1440 900 0
;                             "apple" "apple" 0)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::OUTPUT-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (LET (#)
;           (WAYLAND-SERVER-PROTOCOL:WL-OUTPUT-SEND-GEOMETRY # 0 0 1440 900 0
;                                                            "apple" "apple"
;                                                            0)))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-output-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-pointer-impl.lisp
; in: DEF-WL-CALLBACK SET-CURSOR
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::SET-CURSOR
;                              (WAYLISP:CLIENT WAYLISP:POINTER
;                                              (ULUBIS::SERIAL :UINT32)
;                                              (ULUBIS::SURFACE-PTR :POINTER)
;                                              (ULUBIS::HOTSPOT-X :INT32)
;                                              (ULUBIS::HOTSPOT-Y :INT32))
;                              (LET ((ULUBIS::SURFACE
;                                     (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                                            ULUBIS::SURFACE-PTR)))
;                                (WHEN ULUBIS::SURFACE
;                                  (SETF # ULUBIS::HOTSPOT-X)
;                                  (SETF # ULUBIS::HOTSPOT-Y)
;                                  (WHEN
;                                      (ULUBIS::FIRST-COMMIT-ANIMATION
;                                       ULUBIS::SURFACE)
;                                    (ANIMATION:STOP-ANIMATION #))
;                                  (SETF # ULUBIS::SURFACE))))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (#:RESOURCE-PTR1 #:RESOURCE-PTR1)
;         (ULUBIS::SERIAL ULUBIS::SERIAL)
;         (ULUBIS::SURFACE-PTR ULUBIS::SURFACE-PTR)
;         (ULUBIS::HOTSPOT-X ULUBIS::HOTSPOT-X)
;         (ULUBIS::HOTSPOT-Y ULUBIS::HOTSPOT-Y))
;     (BLOCK ULUBIS::SET-CURSOR
;       (LET* ((WAYLISP:CLIENT #) (WAYLISP:POINTER #))
;         (LET (#)
;           (WHEN ULUBIS::SURFACE # # # #)))))
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.

; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (WAYLISP:POINTER
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (LET ((ULUBIS::SURFACE
;            (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT ULUBIS::SURFACE-PTR)))
;       (WHEN ULUBIS::SURFACE
;         (SETF # ULUBIS::HOTSPOT-X)
;         (SETF # ULUBIS::HOTSPOT-Y)
;         (WHEN (ULUBIS::FIRST-COMMIT-ANIMATION ULUBIS::SURFACE)
;           (ANIMATION:STOP-ANIMATION #))
;         (SETF # ULUBIS::SURFACE))))
; 
; caught STYLE-WARNING:
;   The variable POINTER is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-pointer-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-seat-impl.lisp
; in: DEF-WL-CALLBACK GET-POINTER
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::GET-POINTER
;                              (WAYLISP:CLIENT ULUBIS::SEAT (WAYLISP:ID :UINT32))
;                              (SETF (WAYLISP:POINTER WAYLISP:CLIENT)
;                                      (ULUBIS::MAKE-WL-POINTER WAYLISP:CLIENT 1
;                                                               WAYLISP:ID)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::SEAT
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (SETF (WAYLISP:POINTER WAYLISP:CLIENT)
;             (ULUBIS::MAKE-WL-POINTER WAYLISP:CLIENT 1 WAYLISP:ID)))
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-seat-impl.lisp
; in: DEF-WL-BIND SEAT-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::SEAT-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (LET ((ULUBIS::SEAT
;                                 (ULUBIS::MAKE-WL-SEAT WAYLISP:CLIENT 4
;                                  WAYLISP:ID)))
;                            (WAYLAND-SERVER-PROTOCOL:WL-SEAT-SEND-CAPABILITIES
;                             (WAYLISP:->RESOURCE ULUBIS::SEAT) 3)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::SEAT-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (LET (#)
;           (WAYLAND-SERVER-PROTOCOL:WL-SEAT-SEND-CAPABILITIES # 3)))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-seat-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-shell-impl.lisp
; in: DEF-WL-CALLBACK GET-SHELL-SURFACE
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::GET-SHELL-SURFACE
;                              (WAYLISP:CLIENT ULUBIS::SHELL (WAYLISP:ID :UINT32)
;                                              (ULUBIS::SURFACE-PTR :POINTER))
;                              (LET ((ULUBIS::SURFACE
;                                     (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                                            ULUBIS::SURFACE-PTR))
;                                    (ULUBIS::SHELL-SURFACE
;                                     (ULUBIS::MAKE-WL-SHELL-SURFACE WAYLISP:CLIENT
;                                                                    1 WAYLISP:ID
;                                                                    :DELETE-FN #)))
;                                (SETF (WAYLISP:WL-SURFACE ULUBIS::SHELL-SURFACE)
;                                        ULUBIS::SURFACE)
;                                (SETF (ULUBIS::ROLE ULUBIS::SURFACE)
;                                        ULUBIS::SHELL-SURFACE)
;                                (PUSH ULUBIS::SHELL-SURFACE
;                                      (ULUBIS::SURFACES
;                                       (ULUBIS::CURRENT-VIEW
;                                        ULUBIS::*COMPOSITOR*)))))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::SHELL
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (LET ((ULUBIS::SURFACE
;            (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT ULUBIS::SURFACE-PTR))
;           (ULUBIS::SHELL-SURFACE
;            (ULUBIS::MAKE-WL-SHELL-SURFACE WAYLISP:CLIENT 1 WAYLISP:ID
;                                           :DELETE-FN #)))
;       (SETF (WAYLISP:WL-SURFACE ULUBIS::SHELL-SURFACE) ULUBIS::SURFACE)
;       (SETF (ULUBIS::ROLE ULUBIS::SURFACE) ULUBIS::SHELL-SURFACE)
;       (PUSH ULUBIS::SHELL-SURFACE
;             (ULUBIS::SURFACES (ULUBIS::CURRENT-VIEW ULUBIS::*COMPOSITOR*)))))
; 
; caught STYLE-WARNING:
;   The variable SHELL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-shell-impl.lisp
; in: DEF-WL-BIND SHELL-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::SHELL-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-WL-SHELL WAYLISP:CLIENT 1 WAYLISP:ID))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::SHELL-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-WL-SHELL WAYLISP:CLIENT 1 WAYLISP:ID))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-shell-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/wl-subcompositor-impl.lisp
; in: DEF-WL-BIND SUBCOMPOSITOR-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::SUBCOMPOSITOR-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-WL-SUBCOMPOSITOR WAYLISP:CLIENT 1
;                           WAYLISP:ID))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::SUBCOMPOSITOR-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-WL-SUBCOMPOSITOR WAYLISP:CLIENT 1 WAYLISP:ID))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "wl-subcompositor-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/zxdg-toplevel-v6-impl.lisp
; in: DEF-WL-CALLBACK MOVE
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::MOVE
;                              (WAYLISP:CLIENT ULUBIS::TOPLEVEL
;                                              (ULUBIS::SEAT :POINTER)
;                                              (ULUBIS::SERIAL :UINT32))
;                              (SETF (ULUBIS::MOVING-SURFACE ULUBIS::*COMPOSITOR*)
;                                      (ULUBIS::MAKE-MOVE-OP :SURFACE
;                                                            ULUBIS::TOPLEVEL
;                                                            :SURFACE-X
;                                                            (WAYLISP:X
;                                                             ULUBIS::TOPLEVEL)
;                                                            :SURFACE-Y
;                                                            (WAYLISP:Y
;                                                             ULUBIS::TOPLEVEL)
;                                                            :POINTER-X
;                                                            (ULUBIS::POINTER-X
;                                                             ULUBIS::*COMPOSITOR*)
;                                                            :POINTER-Y
;                                                            (ULUBIS::POINTER-Y
;                                                             ULUBIS::*COMPOSITOR*))))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (#:RESOURCE-PTR1 #:RESOURCE-PTR1)
;         (ULUBIS::SEAT ULUBIS::SEAT)
;         (ULUBIS::SERIAL ULUBIS::SERIAL))
;     (BLOCK ULUBIS::MOVE
;       (LET* ((WAYLISP:CLIENT #) (ULUBIS::TOPLEVEL #))
;         (SETF # #))))
; 
; caught STYLE-WARNING:
;   The variable SEAT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SERIAL is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "zxdg-toplevel-v6-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/zxdg-shell-v6-impl.lisp
; in: DEF-WL-CALLBACK GET-XDG-SURFACE
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::GET-XDG-SURFACE
;                              (WAYLISP:CLIENT ULUBIS::ZXDG-SHELL
;                                              (WAYLISP:ID :UINT32)
;                                              (ULUBIS::SURFACE-PTR :POINTER))
;                              (LET* ((ULUBIS::SURFACE
;                                      (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                                             ULUBIS::SURFACE-PTR))
;                                     (ULUBIS::ZXDG-SURFACE
;                                      (ULUBIS::MAKE-ZXDG-SURFACE-V6 WAYLISP:CLIENT
;                                                                    1 WAYLISP:ID)))
;                                (SETF (WAYLISP:WL-SURFACE ULUBIS::ZXDG-SURFACE)
;                                        ULUBIS::SURFACE)
;                                (SETF (ULUBIS::ROLE ULUBIS::SURFACE)
;                                        ULUBIS::ZXDG-SURFACE)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::ZXDG-SHELL
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (LET* ((ULUBIS::SURFACE
;             (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT ULUBIS::SURFACE-PTR))
;            (ULUBIS::ZXDG-SURFACE
;             (ULUBIS::MAKE-ZXDG-SURFACE-V6 WAYLISP:CLIENT 1 WAYLISP:ID)))
;       (SETF (WAYLISP:WL-SURFACE ULUBIS::ZXDG-SURFACE) ULUBIS::SURFACE)
;       (SETF (ULUBIS::ROLE ULUBIS::SURFACE) ULUBIS::ZXDG-SURFACE)))
; 
; caught STYLE-WARNING:
;   The variable ZXDG-SHELL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/zxdg-shell-v6-impl.lisp
; in: DEF-WL-BIND ZXDG-SHELL-V6-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::ZXDG-SHELL-V6-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-ZXDG-SHELL-V6 WAYLISP:CLIENT 1 WAYLISP:ID
;                           :DELETE-FN (CFFI:CALLBACK ULUBIS::CLIENT-DELETE)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::ZXDG-SHELL-V6-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-ZXDG-SHELL-V6 WAYLISP:CLIENT 1 WAYLISP:ID :DELETE-FN
;          (CFFI:CALLBACK ULUBIS::CLIENT-DELETE)))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "zxdg-shell-v6-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/xdg-shell-impl.lisp
; in: DEF-WL-CALLBACK XDG-SHELL-GET-XDG-SURFACE
;     (WAYLISP:DEF-WL-CALLBACK ULUBIS::XDG-SHELL-GET-XDG-SURFACE
;                              (WAYLISP:CLIENT ULUBIS::XDG-SHELL
;                                              (WAYLISP:ID :UINT32)
;                                              (ULUBIS::SURFACE-PTR :POINTER))
;                              (LET* ((ULUBIS::SURFACE
;                                      (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                                             ULUBIS::SURFACE-PTR))
;                                     (ULUBIS::XDG-SURFACE
;                                      (ULUBIS::MAKE-XDG-SURFACE WAYLISP:CLIENT 1
;                                                                WAYLISP:ID)))
;                                (SETF (WAYLISP:WL-SURFACE ULUBIS::XDG-SURFACE)
;                                        ULUBIS::SURFACE)
;                                (SETF (ULUBIS::ROLE ULUBIS::SURFACE)
;                                        ULUBIS::XDG-SURFACE)
;                                (PUSH ULUBIS::XDG-SURFACE
;                                      (ULUBIS::SURFACES
;                                       (ULUBIS::CURRENT-VIEW
;                                        ULUBIS::*COMPOSITOR*)))))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION LET BLOCK 
; ==>
;   (LET* ((WAYLISP:CLIENT (WAYLISP:GET-CLIENT #:CLIENT-PTR0))
;          (ULUBIS::XDG-SHELL
;           (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT
;                                  (WAYLAND-SERVER-CORE:WL-RESOURCE-GET-USER-DATA
;                                   #:RESOURCE-PTR1))))
;     (LET* ((ULUBIS::SURFACE
;             (WAYLISP:FIND-RESOURCE WAYLISP:CLIENT ULUBIS::SURFACE-PTR))
;            (ULUBIS::XDG-SURFACE
;             (ULUBIS::MAKE-XDG-SURFACE WAYLISP:CLIENT 1 WAYLISP:ID)))
;       (SETF (WAYLISP:WL-SURFACE ULUBIS::XDG-SURFACE) ULUBIS::SURFACE)
;       (SETF (ULUBIS::ROLE ULUBIS::SURFACE) ULUBIS::XDG-SURFACE)
;       (PUSH ULUBIS::XDG-SURFACE
;             (ULUBIS::SURFACES (ULUBIS::CURRENT-VIEW ULUBIS::*COMPOSITOR*)))))
; 
; caught STYLE-WARNING:
;   The variable XDG-SHELL is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/xdg-shell-impl.lisp
; in: DEF-WL-BIND XDG-SHELL-BIND
;     (WAYLISP:DEF-WL-BIND ULUBIS::XDG-SHELL-BIND
;                          (WAYLISP:CLIENT (ULUBIS::DATA :POINTER)
;                                          (ULUBIS::VERSION :UINT32)
;                                          (WAYLISP:ID :UINT32))
;                          (ULUBIS::MAKE-XDG-SHELL WAYLISP:CLIENT 1 WAYLISP:ID
;                           :DELETE-FN (CFFI:CALLBACK ULUBIS::CLIENT-DELETE)))
; --> CFFI:DEFCALLBACK PROGN CFFI-SYS:%DEFCALLBACK SETF LET* LET* ALIEN-SAP 
; --> SB-ALIEN::ALIEN-LAMBDA SB-ALIEN-INTERNALS:ALIEN-CALLBACK 
; --> SB-ALIEN-INTERNALS:%SAP-ALIEN SB-ALIEN::%ALIEN-CALLBACK-SAP LAMBDA 
; --> FUNCTION 
; ==>
;   (LET ((#:CLIENT-PTR0 #:CLIENT-PTR0)
;         (ULUBIS::DATA ULUBIS::DATA)
;         (ULUBIS::VERSION ULUBIS::VERSION)
;         (WAYLISP:ID WAYLISP:ID))
;     (BLOCK ULUBIS::XDG-SHELL-BIND
;       (LET* ((WAYLISP:CLIENT #))
;         (ULUBIS::MAKE-XDG-SHELL WAYLISP:CLIENT 1 WAYLISP:ID :DELETE-FN
;          (CFFI:CALLBACK ULUBIS::CLIENT-DELETE)))))
; 
; caught STYLE-WARNING:
;   The variable DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERSION is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "ulubis" "xdg-shell-impl">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/render.lisp
; in: DEFUN CREATE-TEXTURE
;     (LET* ((ULUBIS::BUFFER (ULUBIS::BUFFER ULUBIS::SURFACE))
;            (ULUBIS::SHM-BUFFER
;             (WAYLAND-SERVER-CORE:WL-SHM-BUFFER-GET ULUBIS::BUFFER))
;            (ULUBIS::W
;             (WAYLAND-SERVER-CORE:WL-SHM-BUFFER-GET-WIDTH ULUBIS::SHM-BUFFER))
;            (ULUBIS::H
;             (WAYLAND-SERVER-CORE:WL-SHM-BUFFER-GET-HEIGHT ULUBIS::SHM-BUFFER))
;            (ULUBIS::STRIDE
;             (WAYLAND-SERVER-CORE:WL-SHM-BUFFER-GET-STRIDE ULUBIS::SHM-BUFFER))
;            (ARRAY
;             (CEPL.C-ARRAYS:MAKE-C-ARRAY-FROM-POINTER (LIST ULUBIS::W ULUBIS::H)
;                                                      :UINT8-VEC4
;                                                      (WAYLAND-SERVER-CORE:WL-SHM-BUFFER-GET-DATA
;                                                       ULUBIS::SHM-BUFFER))))
;       (SETF (WAYLISP:WIDTH ULUBIS::SURFACE) ULUBIS::W)
;       (SETF (WAYLISP:HEIGHT ULUBIS::SURFACE) ULUBIS::H)
;       (WHEN
;           (AND (ULUBIS::TEXTURE ULUBIS::SURFACE)
;                (ULUBIS::CEPL-TEXTURE (ULUBIS::TEXTURE ULUBIS::SURFACE)))
;         (CEPL.MEMORY:FREE
;          (ULUBIS::CEPL-TEXTURE (ULUBIS::TEXTURE ULUBIS::SURFACE))))
;       (SETF (ULUBIS::TEXTURE ULUBIS::SURFACE)
;               (MAKE-INSTANCE 'ULUBIS::TEXTURE-GL :WIDTH ULUBIS::W :HEIGHT
;                              ULUBIS::H :CEPL-TEXTURE
;                              (CEPL.TEXTURES:MAKE-TEXTURE ARRAY :ELEMENT-TYPE
;                                                          :RGBA8)))
;       (WAYLAND-SERVER-PROTOCOL:WL-BUFFER-SEND-RELEASE ULUBIS::BUFFER)
;       (SETF (ULUBIS::BUFFER ULUBIS::SURFACE) (CFFI-SYS:NULL-POINTER)))
; 
; caught STYLE-WARNING:
;   The variable STRIDE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/render.lisp
; in: DEFMETHOD TEXTURE-OF (ISURFACE)
;     (CEPL.PIPELINES:MAP-G-INTO ULUBIS::DEST-FBO (ULUBIS::PIPELINE ULUBIS::EFFECT)
;                                ULUBIS::YS :TEXTURE ULUBIS::SAMPLER)
; --> CEPL.FBOS:WITH-FBO-BOUND CEPL.CONTEXT:WITH-CEPL-CONTEXT LET* MACROLET 
; --> LET* CEPL.VIEWPORTS:WITH-FBO-VIEWPORT CEPL.VIEWPORTS:WITH-VIEWPORT 
; --> CEPL.CONTEXT:WITH-CEPL-CONTEXT LET LET* CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN PROGN 
; --> CEPL.BLENDING::%WITH-BLENDING PROGN CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET #:CLEANUP-FUN-75 BLOCK 
; --> CEPL.BLENDING::SET-CURRENT-BLEND-PARAMS 
; --> CEPL.BLENDING::%SET-CURRENT-BLEND-PARAMS BLOCK 
; --> CEPL.CONTEXT:WITH-CEPL-CONTEXT LET* MACROLET 
; --> CEPL.CONTEXT::%WITH-CEPL-CONTEXT-SLOTS LET SYMBOL-MACROLET IF 
; --> CL-OPENGL-BINDINGS:DISABLE BLOCK MULTIPLE-VALUE-PROG1 
; --> CFFI:FOREIGN-FUNCALL LET LET IF 
; ==>
;   #:VALUE89
; 
; caught STYLE-WARNING:
;   This is not a (UNSIGNED-BYTE 32):
;    :BLEND
;   See also:
;     The SBCL Manual, Node "Handling of Types"

; --> CEPL.FBOS:WITH-FBO-BOUND CEPL.CONTEXT:WITH-CEPL-CONTEXT LET* MACROLET 
; --> LET* CEPL.VIEWPORTS:WITH-FBO-VIEWPORT CEPL.VIEWPORTS:WITH-VIEWPORT 
; --> CEPL.CONTEXT:WITH-CEPL-CONTEXT LET LET* CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN PROGN 
; --> CEPL.BLENDING::%WITH-BLENDING PROGN CEPL.BUILD:RELEASE-UNWIND-PROTECT 
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK 
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN CEPL.PIPELINES:MAP-G LOCALLY 
; --> CEPL.CONTEXT:WITH-CEPL-CONTEXT LET FUNCALL SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (ULUBIS::PIPELINE ULUBIS::EFFECT))
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/render.lisp
; in: DEFMACRO WITH-SURFACE
;     (DEFMACRO ULUBIS::WITH-SURFACE
;               (
;                (ULUBIS::VERTEX-STREAM
;                 ULUBIS::TEX
;                 ULUBIS::MODE
;                 ULUBIS::SURFACE
;                 &KEY
;                 (ULUBIS::FBO NIL)
;                 (ULUBIS::Z 0)
;                 (ULUBIS::SCALE 1.0))
;                &BODY ULUBIS::BODY)
;       (LET ((WAYLISP:X (GENSYM "x"))
;             (WAYLISP:Y (GENSYM "y"))
;             (ULUBIS::TEXTURE (GENSYM "texture"))
;             (WAYLISP:WIDTH (GENSYM "width"))
;             (WAYLISP:HEIGHT (GENSYM "height"))
;             (ARRAY (GENSYM "array")))
;         `(LET* ((,WAYLISP:X #)
;                 (,WAYLISP:Y #)
;                 (,ULUBIS::TEXTURE #)
;                 (,WAYLISP:WIDTH #)
;                 (,WAYLISP:HEIGHT #)
;                 (,ARRAY #)
;                 (,ULUBIS::VERTEX-STREAM #)
;                 (,ULUBIS::TEX #))
;            (CEPL.BLENDING:WITH-BLENDING (ULUBIS::BLENDING-PARAMETERS
;                                          ,ULUBIS::MODE)
;              ,@ULUBIS::BODY)
;            (CEPL.MEMORY:FREE ,ULUBIS::VERTEX-STREAM)
;            (CEPL.MEMORY:FREE ,ARRAY)
;            (WHEN (ULUBIS::FRAME-CALLBACK ,ULUBIS::SURFACE)
;              (WAYLAND-SERVER-PROTOCOL:WL-CALLBACK-SEND-DONE # #)
;              (WAYLAND-SERVER-CORE:WL-RESOURCE-DESTROY #)
;              (SETF #)))))
; --> SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(# # &BODY ULUBIS::BODY)))
;          (#:G1
;           (SB-C::CHECK-DS-LIST/&KEY (POP #:G0) 4 4
;                                     '(# ULUBIS::VERTEX-STREAM ULUBIS::TEX
;                                       ULUBIS::MODE ULUBIS::SURFACE &KEY # # #)
;                                     #(:FBO :Z :SCALE)))
;          (ULUBIS::VERTEX-STREAM (POP #:G1))
;          (ULUBIS::TEX (POP #:G1))
;          (ULUBIS::MODE (POP #:G1))
;          (ULUBIS::SURFACE (POP #:G1))
;          (#:G2 (SB-C::DS-GETF #:G1 ':FBO))
;          (ULUBIS::FBO
;           (IF (NOT #)
;               (CAR #)))
;          (#:G3 (SB-C::DS-GETF #:G1 ':Z))
;          (ULUBIS::Z
;           (IF (EQL #:G3 0)
;               0
;               (CAR #)))
;          (#:G4 (SB-C::DS-GETF #:G1 ':SCALE))
;          (ULUBIS::SCALE
;           (IF (EQL #:G4 0)
;               1.0
;               (CAR #)))
;          ...)
;     (BLOCK ULUBIS::WITH-SURFACE
;       (LET ((WAYLISP:X #)
;             (WAYLISP:Y #)
;             (ULUBIS::TEXTURE #)
;             (WAYLISP:WIDTH #)
;             (WAYLISP:HEIGHT #)
;             (ARRAY #))
;         `(LET* (# # # # # # # #)
;            (CEPL.BLENDING:WITH-BLENDING #
;              ,@ULUBIS::BODY)
;            (CEPL.MEMORY:FREE ,ULUBIS::VERTEX-STREAM)
;            (CEPL.MEMORY:FREE ,ARRAY)
;            (WHEN # # # #)))))
; 
; caught STYLE-WARNING:
;   The variable FBO is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SCALE is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/render.lisp
; in: DEFMACRO WITH-SURFACE
;     (DEFMACRO ULUBIS::WITH-SURFACE
;               (
;                (ULUBIS::VERTEX-STREAM
;                 ULUBIS::TEX
;                 ULUBIS::MODE
;                 ULUBIS::SURFACE
;                 &KEY
;                 (ULUBIS::FBO NIL)
;                 (ULUBIS::Z 0)
;                 (ULUBIS::SCALE 1.0))
;                &BODY ULUBIS::BODY)
;       (LET ((WAYLISP:X (GENSYM "x"))
;             (WAYLISP:Y (GENSYM "y"))
;             (ULUBIS::TEXTURE (GENSYM "texture"))
;             (WAYLISP:WIDTH (GENSYM "width"))
;             (WAYLISP:HEIGHT (GENSYM "height"))
;             (ARRAY (GENSYM "array")))
;         `(LET* ((,WAYLISP:X #)
;                 (,WAYLISP:Y #)
;                 (,ULUBIS::TEXTURE #)
;                 (,WAYLISP:WIDTH #)
;                 (,WAYLISP:HEIGHT #)
;                 (,ARRAY #)
;                 (,ULUBIS::VERTEX-STREAM #)
;                 (,ULUBIS::TEX #))
;            (CEPL.BLENDING:WITH-BLENDING (ULUBIS::BLENDING-PARAMETERS
;                                          ,ULUBIS::MODE)
;              ,@ULUBIS::BODY)
;            (CEPL.MEMORY:FREE ,ULUBIS::VERTEX-STREAM)
;            (CEPL.MEMORY:FREE ,ARRAY)
;            (WHEN (ULUBIS::FRAME-CALLBACK ,ULUBIS::SURFACE)
;              (WAYLAND-SERVER-PROTOCOL:WL-CALLBACK-SEND-DONE # #)
;              (WAYLAND-SERVER-CORE:WL-RESOURCE-DESTROY #)
;              (SETF #)))))
; --> PROGN EVAL-WHEN SB-C::%DEFMACRO SB-C::%DEFMACRO SB-INT:NAMED-LAMBDA 
; --> FUNCTION SB-INT:NAMED-DS-BIND SB-INT:BINDING* 
; ==>
;   (LET* ((#:G0
;           (SB-C::CHECK-DS-LIST/&REST (CDR #:EXPR) 1 1
;                                      '(# # &BODY ULUBIS::BODY)))
;          (#:G1
;           (SB-C::CHECK-DS-LIST/&KEY (POP #:G0) 4 4
;                                     '(# ULUBIS::VERTEX-STREAM ULUBIS::TEX
;                                       ULUBIS::MODE ULUBIS::SURFACE &KEY # # #)
;                                     #(:FBO :Z :SCALE)))
;          (ULUBIS::VERTEX-STREAM (POP #:G1))
;          (ULUBIS::TEX (POP #:G1))
;          (ULUBIS::MODE (POP #:G1))
;          (ULUBIS::SURFACE (POP #:G1))
;          (#:G2 (SB-C::DS-GETF #:G1 ':FBO))
;          (ULUBIS::FBO
;           (IF (NOT #)
;               (CAR #)))
;          (#:G3 (SB-C::DS-GETF #:G1 ':Z))
;          (ULUBIS::Z
;           (IF (EQL #:G3 0)
;               0
;               (CAR #)))
;          (#:G4 (SB-C::DS-GETF #:G1 ':SCALE))
;          (ULUBIS::SCALE
;           (IF (EQL #:G4 0)
;               1.0
;               (CAR #)))
;          ...)
;     (BLOCK ULUBIS::WITH-SURFACE
;       (LET ((WAYLISP:X #)
;             (WAYLISP:Y #)
;             (ULUBIS::TEXTURE #)
;             (WAYLISP:WIDTH #)
;             (WAYLISP:HEIGHT #)
;             (ARRAY #))
;         `(LET* (# # # # # # # #)
;            (CEPL.BLENDING:WITH-BLENDING #
;              ,@ULUBIS::BODY)
;            (CEPL.MEMORY:FREE ,ULUBIS::VERTEX-STREAM)
;            (CEPL.MEMORY:FREE ,ARRAY)
;            (WHEN # # # #)))))
; 
; caught STYLE-WARNING:
;   The variable FBO is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable SCALE is defined but never used.
; 
; caught ERROR:
;   READ error during COMPILE-FILE: Symbol "DEF-G->" not found in the CEPL package. Line: 253, Column: 13, File-Position: 9565 Stream: #<SB-INT:FORM-TRACKING-STREAM for "file /home/quicklisp/quicklisp-controller/dist/build-cache/ulubis/24e20733e4584a5f3a0bb3f41be57735ea599f14/ulubis-20180204-git/render.lisp" {100F12E253}>
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "ulubis" "render">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010911F03}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010911F03}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1010911F03}>)
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 "ulubis" "render">)))
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 "ulubis" "render">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "ulubis" "render">)
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 "ulubis" "render">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {10059F1BE3}>) [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 {10059F1BE3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "ulubis-sdl"> :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 "ulubis-sdl">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "ulubis-sdl">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "ulubis-sdl")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "ulubis-sdl") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10059EC60B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10059A99DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "ulubis-sdl") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "ulubis-sdl" "ulubis-sdl")
23: (DEPCHECK::MAGIC "ulubis-sdl" "ulubis-sdl" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-5ARTiyk9/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "ulubis-sdl" "ulubis-sdl" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-5ARTiyk9/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-5ARTiyk9/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

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