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:           (setf (mem-aref l :long 2) 0))))  
        (x-send-event dpy (x-default-root-window dpy) nil (foreign-bitfield-value 'x-event-mask-flags '(:structure-notify-mask)) msg))))
  
  (defun x-open-display (display-name)
    (let ((display (%x-open-display display-name)))
      (when (null-pointer-p display)
        (error "Unable to open display"))
  
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)
  