anchor.diff:    (dolist (w window)
       (when (eql (window-map-state w) :viewable)
         (setf (window-priority w) :above)))
  -  (set-input-focus *display* :pointer-root :pointer-root))
  +  (unless (null window)
  +    (set-input-focus *display* :pointer-root :pointer-root)))
   
   (defmethod focus :after (window) (display-finish-output *display*))
   
  
positive.code:             ((funcall test item hd) rtl)
              (t (cons hd rtl))))))
  
  (defun randomth (list) (nth (random (length list)) list))
  
  (defmacro defror (command)
    "Define a raise or run command."
  
negative.code:                   (focus (add window))))
                 (:destroy-notify
                  (window)
                  (focus (destroy window)))))
        (ungrab-button *root* (code *move*) :modifiers (state *move*))
        (ungrab-button *root* (code *resize*) :modifiers (state *resize*))
        (ungrab-button *root* (code *kill*) :modifiers (state *kill*))
  