Skip to content

Instantly share code, notes, and snippets.

@fouric
Created August 5, 2020 20:34
Show Gist options
  • Save fouric/2fa4cd935952bbe06f18bf8e9694d32c to your computer and use it in GitHub Desktop.
Save fouric/2fa4cd935952bbe06f18bf8e9694d32c to your computer and use it in GitHub Desktop.
; file: /home/fouric/other-code/quicklisp/dists/quicklisp/software/cl-sdl2-20200218-git/src/sdl2.lisp
; in: DEFUN INIT
; (SETF SDL2::*LISP-MESSAGE-EVENT* (SDL2-FFI.FUNCTIONS:SDL-REGISTER-EVENTS 1)
; (PLUS-C:C-REF SDL2::*WAKEUP-EVENT* SDL2-FFI:SDL-EVENT :TYPE)
; SDL2::*LISP-MESSAGE-EVENT*)
; --> PROGN
; ==>
; (SETF (PLUS-C:C-REF SDL2::*WAKEUP-EVENT* SDL2-FFI:SDL-EVENT :TYPE)
; SDL2::*LISP-MESSAGE-EVENT*)
;
; caught ERROR:
; during macroexpansion of (SETF # *LISP-MESSAGE-EVENT*). Use *BREAK-ON-SIGNALS* to intercept.
;
; Unknown field :TYPE for foreign-record type:
; #<AUTOWRAP:FOREIGN-RECORD SDL-EVENT {1003C47313}>
; Valid fields:
; :DROP (SDL2-FFI:SDL-DROP-EVENT)
; :DGESTURE (SDL2-FFI:SDL-DOLLAR-GESTURE-EVENT)
; :MGESTURE (SDL2-FFI:SDL-MULTI-GESTURE-EVENT)
; :TFINGER (SDL2-FFI:SDL-TOUCH-FINGER-EVENT)
; :SYSWM (SDL2-FFI:SDL-SYS-WM-EVENT)
; :USER (SDL2-FFI:SDL-USER-EVENT)
; :QUIT (SDL2-FFI:SDL-QUIT-EVENT)
; :SENSOR (SDL2-FFI:SDL-SENSOR-EVENT)
; :ADEVICE (SDL2-FFI:SDL-AUDIO-DEVICE-EVENT)
; :CDEVICE (SDL2-FFI:SDL-CONTROLLER-DEVICE-EVENT)
; :CBUTTON (SDL2-FFI:SDL-CONTROLLER-BUTTON-EVENT)
; :CAXIS (SDL2-FFI:SDL-CONTROLLER-AXIS-EVENT)
; :JDEVICE (SDL2-FFI:SDL-JOY-DEVICE-EVENT)
; :JBUTTON (SDL2-FFI:SDL-JOY-BUTTON-EVENT)
; :JHAT (SDL2-FFI:SDL-JOY-HAT-EVENT)
; :JBALL (SDL2-FFI:SDL-JOY-BALL-EVENT)
; :JAXIS (SDL2-FFI:SDL-JOY-AXIS-EVENT)
; :WHEEL (SDL2-FFI:SDL-MOUSE-WHEEL-EVENT)
; :BUTTON (SDL2-FFI:SDL-MOUSE-BUTTON-EVENT)
; :MOTION (SDL2-FFI:SDL-MOUSE-MOTION-EVENT)
; :TEXT (SDL2-FFI:SDL-TEXT-INPUT-EVENT)
; :EDIT (SDL2-FFI:SDL-TEXT-EDITING-EVENT)
; :KEY (SDL2-FFI:SDL-KEYBOARD-EVENT)
; :WINDOW (SDL2-FFI:SDL-WINDOW-EVENT)
; :DISPLAY (SDL2-FFI:SDL-DISPLAY-EVENT)
; :COMMON (SDL2-FFI:SDL-COMMON-EVENT)
;
.
; in: DEFUN VERSION
; (SDL2::VER :MAJOR)
; ==>
; (PLUS-C:C-REF #:TMP0 SDL2-FFI:SDL-VERSION :MAJOR)
;
; caught ERROR:
; during macroexpansion of (C-REF #:TMP0 SDL2-FFI:SDL-VERSION ...). Use *BREAK-ON-SIGNALS* to intercept.
;
; Unknown field :MAJOR for foreign-record type:
; #<AUTOWRAP:FOREIGN-RECORD SDL-VERSION {1003C47EA3}>
; Valid fields:
;
; (SDL2::VER :MINOR)
; ==>
; (PLUS-C:C-REF #:TMP0 SDL2-FFI:SDL-VERSION :MINOR)
;
; caught ERROR:
; during macroexpansion of (C-REF #:TMP0 SDL2-FFI:SDL-VERSION ...). Use *BREAK-ON-SIGNALS* to intercept.
;
; Unknown field :MINOR for foreign-record type:
; #<AUTOWRAP:FOREIGN-RECORD SDL-VERSION {1003C47EA3}>
; Valid fields:
;
; (SDL2::VER :PATCH)
; ==>
; (PLUS-C:C-REF #:TMP0 SDL2-FFI:SDL-VERSION :PATCH)
;
; caught ERROR:
; during macroexpansion of (C-REF #:TMP0 SDL2-FFI:SDL-VERSION ...). Use *BREAK-ON-SIGNALS* to intercept.
;
; Unknown field :PATCH for foreign-record type:
; #<AUTOWRAP:FOREIGN-RECORD SDL-VERSION {1003C47EA3}>
; Valid fields:
;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment