anchor.diff:                    nil
                     "Mouse motion abs(rel): ~a (~a), ~a (~a)~%Mouse state: ~a"
                     x xrel y yrel state)))
  +        (:controlleraxismotion (:which controller-id :axis axis-id :value value)
  +           (format t "Controller axis motion: Controller: ~a, Axis: ~a, Value: ~a~%"
  +                   controller-id axis-id value))
           (:idle ()
             (gl:clear :color-buffer)
             (gl:begin :triangles)
  
positive.code:           (gl:flush)
            (sdl2:gl-swap-window win))
          (:quit () t))
        (sdl2:gl-delete-context gl-context)
        (sdl2:destroy-window win))))
  
negative.code: (require :cl-opengl)
  
  (defun basic-test ()
    (sdl2:with-init (:everything)
      (let* ((win (sdl2:create-window :flags '(:shown :opengl)))
             (gl-context (sdl2:gl-create-context win))
             (controllers ()))
  
        ;; basic window/gl setup
        (sdl2:gl-make-current win gl-context)
        (gl:viewport 0 0 800 600)
        (gl:matrix-mode :projection)
  