anchor.diff:     swap-interval
      extension-supported-p
      get-proc-address))
  +
  +(define-foreign-library (glfw)
  +     (t (:default "libglfw")))
  +
  +(use-foreign-library glfw)
   
   ;;;; ## GLFW Types
   (defcenum (key-action)
  
positive.code: (defun get-joystick-axes (joystick)
    "Returns list of values for each axes of the joystick."
    (with-foreign-object (count :int)
      (c-array->list (foreign-funcall "glfwGetJoystickAxes" monitor monitor :pointer count
  				    :void)
  		   count :float)))
  
  (defun get-joystick-buttons (joystick)
    "Returns list of values for each button of the joystick."
    (with-foreign-object (count :int)
      (c-array->list (foreign-funcall "glfwGetJoystickButtons" monitor monitor :pointer count
  				    :void)
  		   count key-action)))
  
  
negative.code:    wait-events
     get-input-mode
     set-input-mode
     get-key
     get-mouse-button
     get-cursor-position
     set-cursor-position
  