anchor.diff:    (glop-win32::swap-buffers (win32-window-dc win)))
   
   (defmethod next-event ((win win32-window) &key blocking)
  -  (glop-win32::next-event (win32-window-id win) blocking))+  (let ((evt (glop-win32::next-event (win32-window-id win) blocking)))
  +    (setf glop-win32::*event* nil)
  +    evt))
positive.code: (defcenum remove-msg
    (:pm-no-remove 0)
    (:pm-remove 1))
  
  ;; WGL
  (defcstruct pixelformatdescriptor
  
negative.code:   (lpmsg :pointer) (h-wnd hwnd)
    (filter-min :uint) (filter-max :uint)
    (remove remove-msg))
  
  (defcfun ("GetKeyboardState" get-keyboard-state) bool
    (state-out :pointer))
  
  (defcfun ("ToAscii" to-ascii) :int
    (vkey :uint) (scan-code :uint) (kbd-state :pointer) (buffer :pointer) (flags :uint))
  
  ;; XXX: this is an ugly hack and should probably be changed
  ;; We use the *event* var to allow window-proc callback to generate glop:event objects
  