anchor.diff:  (defcenum remove-msg
     (:pm-no-remove 0)
     (:pm-remove 1))
  +
  +(defcstruct rect
  +  (left :long)
  +  (top :long)
  +  (right :long)
  +  (bottom :long))
   
   ;; WGL
   (defcstruct pixelformatdescriptor
  
positive.code:   (:wm-mbutton-up 520)
    (:wm-key-up 257)
    (:wm-key-down 256)
    (:wm-mouse-wheel 522)
    (:wm-size 5)
    (:wm-show-window 24)
    (:wm-set-focus 7)
    (:wm-sys-command 274))
  
  (defcenum system-command-type
    (:sc-minimize #xf020)
  
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
  