anchor.diff:       (if (%glfw:init)
   	 (unwind-protect
   	      (progn
  -		(%glfw:set-error-callback *error-fun*)
   		,@body)
   	   (%glfw:terminate))
   	 (error "Error initializing glfw."))))
  
positive.code:        ((,window :pointer) (,x :double) (,y :double))
       ,@body))
  
  (defun set-key-callback (callback-name)
    (%glfw:set-key-callback (cffi:get-callback callback-name)))
  
  (defun set-char-callback (callback-name)
    (%glfw:set-char-callback (cffi:get-callback callback-name)))
  
  (defun set-mouse-button-callback (callback-name)
    (%glfw:set-mouse-button-callback (cffi:get-callback callback-name)))
  
  (defun set-cursor-position-callback (callback-name)
    (%glfw:set-cursor-position-callback (cffi:get-callback callback-name)))
  
  (defun set-cursor-enter-callback (callback-name)
    (%glfw:set-cursor-enter-callback (cffi:get-callback callback-name)))
  
  (defun set-scroll-callback (callback-name)
    (%glfw:set-scroll-callback (cffi:get-callback callback-name)))
  
  (import-export %glfw:joystick-present-p %glfw:get-joystick-axes %glfw:get-joystick-buttons %glfw:get-joystick-name)
  
  
negative.code: (defun window-should-close-p (&optional (window *window*))
    (%glfw:window-should-close-p window))
  
  (defun set-window-should-close (&optional (window *window*) (closep t))
    (%glfw:set-window-should-close window closep))
  
  (defun set-window-title (title &optional (window *window*))
    (%glfw:set-window-title window title))
  