anchor.diff:  (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
   (defshortcut (#\n) (next))
   (defshortcut (#\p) (next #'1-))
  +(defshortcut (:control #\n) (next))
  +(defshortcut (:control #\p) (next #'1-))
   (defshortcut (:control #\t) (flast))
   
   ;;; Modifier keypress avoidance code
  
positive.code:                (:button-press
                  (code state child)
                  (when (and child (eql (window-override-redirect child) :off))
                    (setf last-button code)
                    (grab-pointer child '(:pointer-motion :button-release))
                    (when (and (= code (code resize))
                               (= state (state resize)))
                      (warp-pointer child (drawable-width child) 
                                    (drawable-height child)))
                    (let ((lst (multiple-value-list (query-pointer *root*))))
                      (setf last-x (sixth lst)
                            last-y (seventh lst)))))
                 (:motion-notify
                  (event-window root-x root-y)
                  (cond ((= last-button (cdr move))
  
negative.code:   (let ((prefix (compile-shortcut *prefix*))
          (move (compile-shortcut *move*))
          (resize (compile-shortcut *resize*))
          (close  (compile-shortcut *close*))
          last-button last-x last-y waiting-shortcut)
  
      ;; Grab prefix and mouse buttons on root
      (grab-key *root* (code prefix) :modifiers (state prefix))
      (grab-button *root* (code move) '(:button-press) :modifiers (state move))
      (grab-button *root* (code resize) '(:button-press) :modifiers (state resize))
      (grab-button *root* (code close) '(:button-press) :modifiers (state close))
  
      ;; Populate list of windows
      (loop for w in (query-tree *root*) do
  