anchor.diff:        (plus w)))
   
     (intern-atom *display* :_MOTIF_WM_HINTS)
  -  (setf (window-event-mask *root*) '(:substructure-notify))
  +  (setf (window-event-mask *root*) '(:substructure-notify :substructure-redirect))
   
     (setf *last* (setf *curr* (first *windows*)))
   
  
positive.code: 
  (defhandler :map-notify (window override-redirect-p)
    (unless override-redirect-p
      (focus (plus window))))
  
  (defhandler :unmap-notify (window)
    (when (managed-p window)
      (focus (minus window))))
  
  ;;; Restart function
  (defun skip-window-or-ignore-async (c)
  
negative.code:            (remf (window-plist window) 'original-dimension))
            (t (when (and x y w h)
                 (setf (getf (window-plist window) 'original-dimension)
                       (list :x (drawable-x window) :y (drawable-y window)
                             :width (drawable-width window) :height (drawable-height window)))
                 (move window :x x :y y :width w :height h))))))
  
  (defun win= (a b)
    (and (typep a 'window) (typep b 'window) (window-equal a b)))
  