--- a/lisp/racerdemo.lisp +++ b/lisp/racerdemo.lisp @@ -95,7 +95,7 @@ (let ((event (sdl2:make-event))) (unwind-protect (loop while (plusp (sdl2:poll-event event)) do - (let ((event-type (cffi:mem-ref event 'sdl2:event-type))) + (let ((event-type (ignore-errors (cffi:mem-ref event 'sdl2:event-type)))) (handle event-type event))) (cffi:foreign-free event))))