anchor.diff:  (defvar *root* (screen-root (display-default-screen *display*)))
   (defparameter *windows* nil "List of managed windows")
   (defparameter *last* nil "Last focused window")
  +(defparameter *curr* nil "Current focused window (used only for group of windows).")
   
   (defun mods (l) (butlast l))
   (defun kchar (l) (car (last l)))
  
positive.code: (defshortcut (#\p) (focus (next #'1-)))
  (defshortcut (:control #\n) (focus (next)))
  (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (flast))
  
  ;;; Modifier keypress avoidance code
  (defvar *mods-code* (multiple-value-call #'append (modifier-mapping *display*)))
  
negative.code:   (let ((w (input-focus *display*)))
      (find w *windows* :test #'win=)))
  
  (defmethod focus :before (window)
    (let ((curr (has-focus)))
      (setf *last* (if curr curr *curr*)
            *curr* window)))
  
  (defmethod focus ((window window))
    (when (eql (window-map-state window) :viewable)
      (setf (window-priority window) :above)
      (set-input-focus *display* window :pointer-root)))
  
  (defmethod focus ((window list))
    (dolist (w window)
      (when (eql (window-map-state w) :viewable)
        (setf (window-priority w) :above)))
    (set-input-focus *display* :pointer-root :pointer-root))
  
  (defmethod focus :after (window) (display-finish-output *display*))
  
  (defmethod win= ((a window) (b window)) (window-equal a b))
  