anchor.diff:                             event (:struct x-error-event))
           (let ((message (with-foreign-pointer-as-string (m 256)
                            (x-get-error-text display-ptr error-code m 256))))
  -         (format t "x error ~s: ~a, opcode ~s . ~s, resource id ~s, serial ~s"
  +         (format t "~&x error ~s: ~a, opcode ~s . ~s, resource id ~s, serial ~s~%"
                    error-code message request-code minor-code resource-id serial)
            (error "x error ~s: ~a, opcode ~s . ~s, resource id ~s, serial ~s"
                   error-code message request-code minor-code resource-id serial)))
  
positive.code:                          (width :unsigned-int) (height :unsigned-int)
                           (border-width :unsigned-int) (depth :unsigned-int))
      (%x-get-geometry dpy win root x y width height border-width depth)
      (values (mem-ref root 'window) (mem-ref x :int) (mem-ref y :int)
              (mem-ref width :unsigned-int) (mem-ref height :unsigned-int)
              (mem-ref border-width :unsigned-int) (mem-ref depth :unsigned-int))))
  
  (defbitfield x-window-configure-flags
    :cw-x
  
negative.code: 
  (defcfun ("XUnmapWindow" x-unmap-window) :int
    (display-ptr :pointer) (win window))
  
  (defcfun ("XReparentWindow" x-reparent-window) :void
    (display :pointer)
    (window window)
    (parent window)
    (x :int)
    (y :int))
  
  (defcfun ("XStoreName" x-store-name) :int
    (display-ptr :pointer) (win window) (name :string))
  