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