anchor.diff:    (with-foreign-object (count :int)
       (c-array->list (foreign-funcall "glfwGetMonitors" :pointer count :pointer)
           (mem-ref count :int)
  -        monitor)))
  +        'monitor)))
   
   (defcfun ("glfwGetPrimaryMonitor" get-primary-monitor) :pointer
     "Return the main monitor.")
  
positive.code: 				    :int joystick :pointer count
  				    :pointer)
          (mem-ref count :int)
          key-action)))
  
  (defcfun ("glfwGetJoystickName" get-joystick-name) :string
    (joystick :int))
  
negative.code: (defun get-video-modes (monitor)
    "Returns list of available video modes for the supplied monitor."
    (with-foreign-object (count :int)
      (c-array->list (foreign-funcall "glfwGetVideoModes" monitor monitor :pointer count
  				    :pointer)
          (mem-ref count :int)
          '(:struct video-mode))))
  
  (defcfun ("glfwGetVideoMode" get-video-mode) (:pointer (:struct video-mode))
    (monitor monitor))
  