anchor.diff:                           (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)
  +    #++(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))))
  +            (mem-ref border-width :unsigned-int) (mem-ref depth :unsigned-int))
  +    (list :root (mem-ref root 'window)
  +          :x (mem-ref x :int) :y (mem-ref y :int)
  +          :width (mem-ref width :unsigned-int)
  +          :height (mem-ref height :unsigned-int)
  +          :border-width (mem-ref border-width :unsigned-int)
  +          :depth (mem-ref depth :unsigned-int))))
   
   (defbitfield x-window-configure-flags
     :cw-x
  
positive.code:     (%x-get-window-attributes display win attr)
      (mem-aref attr '(:struct x-window-attributes))))
  
  
  (defconstant +status-success+ 0)
  (defconstant +status-bad-request+ 1)
  
negative.code:                            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~%"
                   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)))
  