anchor.diff:  (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
  +    (c-array->list (foreign-funcall "glfwGetVideoModes" monitor monitor :pointer count
   				    :pointer)
           (mem-ref count :int)
  -        (:pointer (:struct video-mode)))))
  +        '(:struct video-mode))))
   
   (defcfun ("glfwGetVideoMode" get-video-mode) (:pointer (:struct video-mode))
     (monitor monitor))
  
positive.code:        (with-float-traps-restored
           ,@actual-body))))
  
  (defmacro c-array->list (array count &optional (type :pointer))
    (once-only (array)
      (with-gensyms (i)
        `(loop for ,i below ,count collect (mem-aref ,array ',type ,i)))))
  
  ;;;; ## GLFW Types
  (defcenum (key-action)
  
negative.code: 				    :int joystick :pointer count
  				    :pointer)
          (mem-ref count :int)
          'key-action)))
  
  (defcfun ("glfwGetJoystickName" get-joystick-name) :string
    (joystick :int))
  