anchor.diff:     def-cursor-pos-callback
      def-cursor-enter-callback
      def-scroll-callback
  +   set-key-callback
      set-char-callback
      set-mouse-button-callback
      set-cursor-position-callback
  
positive.code:        ((,window :pointer) (,w :int) (,h :int))
       ,@body))
  
  (defun set-window-position-callback (callback-name)
    (%glfw:set-window-position-callback (cffi:get-callback callback-name)))
  
  (defun set-window-size-callback (callback-name)
    (%glfw:set-window-size-callback (cffi:get-callback callback-name)))
  
  (defun set-window-close-callback (callback-name)
    (%glfw:set-window-close-callback (cffi:get-callback callback-name)))
  
  (defun set-window-focus-callback (callback-name)
    (%glfw:set-window-focus-callback (cffi:get-callback callback-name)))
  
  (defun set-window-iconify-callback (callback-name)
    (%glfw:set-window-iconify-callback (cffi:get-callback callback-name)))
  
  (defun set-framebuffer-size-callback (callback-name)
    (%glfw:set-framebuffer-size-callback (cffi:get-callback callback-name)))
  
  ;;;; ## Events and input
  (import-export %glfw:poll-events %glfw:wait-events)
  
negative.code:        ((,window :pointer) (,x :double) (,y :double))
       ,@body))
  
  (defun set-key-callback (callback-name &optional (window *window*))
    (%glfw:set-key-callback window (cffi:get-callback callback-name)))
  
  (defun set-char-callback (callback-name &optional (window *window*))
    (%glfw:set-char-callback window (cffi:get-callback callback-name)))
  
  (defun set-mouse-button-callback (callback-name &optional (window *window*))
    (%glfw:set-mouse-button-callback window (cffi:get-callback callback-name)))
  
  (defun set-cursor-position-callback (callback-name &optional (window *window*))
    (%glfw:set-cursor-position-callback window (cffi:get-callback callback-name)))
  
  (defun set-cursor-enter-callback (callback-name &optional (window *window*))
    (%glfw:set-cursor-enter-callback window (cffi:get-callback callback-name)))
  
  (defun set-scroll-callback (callback-name &optional (window *window*))
    (%glfw:set-scroll-callback window (cffi:get-callback callback-name)))
  
  (import-export %glfw:joystick-present-p %glfw:get-joystick-axes %glfw:get-joystick-buttons %glfw:get-joystick-name)
  
  