anchor.diff:  
   (defctype x-queued-mode :int)
   
  +(defcstruct x-window-attributes
  +  ;; fixme: figure out better types for fields that are enums/bits
  +  (x :int)
  +  (y :int)
  +  (width :int)
  +  (height :int)
  +  (depth :int)
  +  (visual (:pointer (:struct visual)))
  +  (root window)
  +  (class :int)
  +  (bit-gravity :int)
  +  (win-gravity :int)
  +  (backing-store :int)
  +  (backing-planes :unsigned-long)
  +  (backing-pixel :unsigned-long)
  +  (save-under :boolean)
  +  (colormap colormap)
  +  (map-installed :boolean)
  +  (map-state :int)
  +  (all-event-masks :long)
  +  (your-event-mask :long)
  +  (override-redirect :boolean)
  +  (screen :pointer))
  +
   ;; X11 bindings
   (define-foreign-library xlib
     (t (:default "libX11")))
  
positive.code:   (display-ptr :pointer) (parent window) (x :int) (y :int) (width :int) (height :int)
    (border-width :int) (depth :int) (win-class x-window-class) (visual :pointer)
    (value-mask x-window-attributes-flags) (attributes (:pointer (:struct set-window-attributes))))
  
  (defun %set-fullscreen (window dpy be-fullscreen)
    (let ((wm-state (x-intern-atom dpy "_NET_WM_STATE" nil))
  
negative.code:   (red :ushort) (green :ushort) (blue :ushort)
    (flags :char) (pad :char))
  
  (defcstruct visual
    (ext-data :pointer)
    (visual-id visualid)
    (class :int)
    (red-mask :unsigned-long)
    (green-mask :unsigned-long)
    (blue-mask :unsigned-long)
    (bits-per-rgb :int)
    (map-entries :int))
  
  (defcstruct visual-info
    (visual (:pointer (:struct visual)))
    (visual-id visualid) (screen :int)
    (depth :int) (class :int)
    (red-mask :ulong) (green-mask :ulong) (blue-mask :ulong)
    (colormap-size :int) (bpp :int))
  
  (defcstruct set-window-attributes
    (bg-pixmap pixmap) (bg-pixel :unsigned-long)
  