anchor.diff:  (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=)))
  +  #'(lambda (str) (search sofar str :test #'char-equal)))
   
   (defun recdo-1 (sofar list fn matcher key)
     (cond ((null list))
  
positive.code:   (and (eql (window-map-state window) :viewable)
         (eql (window-override-redirect window) :off)))
  
  (defun focus (window)
    (unless (null window)
      (unless (window-equal window *curr*)
        (setf *last* *curr*)
        (when *dim*
          (apply #'move *curr* *dim*)
  
negative.code:   (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*))))
  
    (unwind-protect (evloop)
      (dolist (b (list *move* *resize* *close*))
        (ungrab-button *root* (code b) :modifiers (state b)))
  