anchor.diff:    (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)
  -    (unless (window-equal window *curr*)
  +    (unless (win= window *curr*)
         (setf *last* *curr*)
         (when *dim*
           (apply #'move *curr* *dim*)
  
positive.code:   (intern-atom *display* :_motif_wm_hints)
    (setf (window-event-mask *root*) '(:substructure-notify))
  
    (unwind-protect (evloop)
      (dolist (b (list *move* *resize* *close*))
        (ungrab-button *root* (code b) :modifiers (state b)))
  
negative.code: (defun in-matcher (sofar)
    "Build a matcher to eliminate (with remove-if-not) strings that
  don't contain `sofar'."
    #'(lambda (str) (search sofar str :test #'char-equal)))
  
  (defun recdo-1 (sofar list fn matcher key)
    (cond ((null list))
  