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:        ,@decls
         (with-float-traps-restored
           ,@actual-body))))
  
  ;;;; ## GLFW Types
  (defcenum (key-action)
  
negative.code: 
  (defcfun ("glfwGetProcAddress" get-proc-address) :pointer
    (proc-name :string))
  