anchor.diff:  (defun get-monitors ()
     "Returns list of pointers to opaque monitor objects."
     (with-foreign-object (count :int)
  -    (c-array->list (foreign-funcall "glfwGetMonitors" :pointer count :void)
  -		   count monitor)))
  +    (c-array->list (foreign-funcall "glfwGetMonitors" :pointer count :pointer)
  +        (mem-ref count :int)
  +        monitor)))
   
   (defcfun ("glfwGetPrimaryMonitor" get-primary-monitor) :pointer
     "Return the main monitor.")
  
positive.code: 
  (defcfun ("glfwGetProcAddress" get-proc-address) :pointer
    (proc-name :string))
  
  ;;;; ## Helper Functions
  (defun c-array->list (array count &optional (type :pointer))
    (loop for i below count
         collect (mem-aref array type i)))
  
negative.code:   (with-foreign-object (count :int)
      (c-array->list (foreign-funcall "glfwGetJoystickAxes"
  				    :int joystick :pointer count
  				    :pointer)
          (mem-ref count :int)
          :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"
  				    :int joystick :pointer count
  				    :pointer)
          (mem-ref count :int)
          key-action)))
  
  (defcfun ("glfwGetJoystickName" get-joystick-name) :string
    (joystick :int))
  