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:   (:menu 348)
    (:last 348))
  
  (defcenum (mod-key)
    (:shift #x0001)
    (:control #x0002)
    (:alt #x0004)
    (:super #x0008))
  
  (defcenum (mouse)
    (:1 0)
  
negative.code:    wait-events
     get-input-mode
     set-input-mode
     get-key
     get-mouse-button
     get-cursor-position
     set-cursor-position
  