anchor.diff:  (defcfun ("XOpenDisplay" %x-open-display) :pointer
     (display-name :string))
   
  -(defcfun("XCloseDisplay" x-close-display) :pointer
  +(defcfun ("XCloseDisplay" x-close-display) :pointer
     (display-ptr :pointer))
   
   (defcfun ("XDefaultRootWindow" x-default-root-window) window
  
positive.code:     (with-foreign-slots ((visual-id visual depth) visual-infos visual-info)
        (let ((colormap (x-create-color-map dpy root-win visual :alloc-none)))
          (with-foreign-object (win-attrs 'set-window-attributes)
            (with-foreign-slots ((cmap event-mask) win-attrs set-window-attributes)
              (setf cmap colormap
                    event-mask (foreign-bitfield-value 'x-event-mask-flags
                                  '(:exposure-mask
  
negative.code:                                   :button-press-mask :button-release-mask
                                    :structure-notify-mask
                                    :visibility-change-mask
                                    :pointer-motion-mask))
                    border-pixel 0)
              (%x-create-window dpy parent 0 0 width height 0
                                depth :input-output visual
                                '(:cw-colormap :cw-event-mask)
  