anchor.diff:  (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
  +    (c-array->list (foreign-funcall "glfwGetJoystickAxes"
  +				    :int joystick :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
  +    (c-array->list (foreign-funcall "glfwGetJoystickButtons"
  +				    :int joystick :pointer count
   				    :void)
   		   count key-action)))
   
  
positive.code:   (:opengl-debug-context #x00022007)
    (:opengl-profile #X00022008))
  
  ;; (:opengl-api #X00030001)
  ;; (:opengl-es-api #X00030002)
  
  ;; (:no-robustness 0)
  ;; (:no-reset-notification #x00031001)
  ;; (:lose-context-on-reset #x00031002)
  
  ;; (:opengl-any-profile 0)
  ;; (:opengl-core-profile #x00032001)
  ;; (:opengl-compat-profile #x00032002)
  
  ;; (:connected #X00040001)
  ;; (:disconnected #X00040002)
  
  (defcenum (input-mode)
    (:cursor #X00033001)
  
negative.code:    wait-events
     get-input-mode
     set-input-mode
     get-key
     get-mouse-button
     get-cursor-position
     set-cursor-position
  