anchor.diff:  
   (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)))
  
positive.code:        ,@decls
         (with-float-traps-restored
           ,@actual-body))))
  
  ;;;; ## GLFW Types
  (defcenum (key-action)
  
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)
          (:pointer (:struct video-mode)))))
  
  (defcfun ("glfwGetVideoMode" get-video-mode) (:pointer (:struct video-mode))
    (monitor monitor))
  
  (defcfun ("glfwSetGamma" set-gamma) :void
  