anchor.diff:    (intern-atom *display* :_motif_wm_hints)
     (setf (window-event-mask *root*) '(:substructure-notify))
   
  -  (setf *last* (setf *curr* (find-if #'ok-win-p (query-tree *root*))))
  +  (setf *last* (setf *curr* (first (windows))))
   
     (unwind-protect (evloop)
       (dolist (b (list *move* *resize* *close*))
  
positive.code:     (setf (drawable-x window) x (drawable-y window) y
            (drawable-width window) w (drawable-height window) h)))
  
  (defun ok-win-p (window)
    "Is this window managable?"
    (and (eql (window-map-state window) :viewable)
         (eql (window-override-redirect window) :off)))
  
  (defun win= (a b)
    (and (typep a 'window) (typep b 'window) (window-equal a b)))
  
  (defun focus (window)
    (unless (null window)
  
negative.code:         (setf *dim* nil)))
      (let* ((grouper (find-if #'(lambda (f) (funcall f window)) *groupers*))
             (group (when (functionp grouper)
                      (loop for w in (windows)
                            when (funcall grouper w) collect w))))
        (cond (group
               (dolist (w group) (setf (window-priority w) :above))
               (set-input-focus *display* :pointer-root :pointer-root))
              (t (set-input-focus *display* window :pointer-root)))
        (setf (window-priority window) :above
              *curr* window)
        (display-finish-output *display*))))
  
  (defun next ()
    (let* ((windows (windows))
           (nw (or (position *curr* windows :test #'win=) 0))
           (n (length windows)))
      (unless (zerop n)
        (nth (mod (1+ nw) n) windows))))
  
  (defun minus (window)
    "House keeping when window is unmapped. Returns the window to be
  