anchor.diff:    (let ((prefix (compile-shortcut *prefix*))
           (move (compile-shortcut *move*))
           (resize (compile-shortcut *resize*))
  -        (close  (compile-shortcut *close*))
  +        (kill  (compile-shortcut *kill*))
           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))
  +    (grab-button *root* (code kill) '(:button-press) :modifiers (state kill))
   
       ;; Populate list of windows
       (loop for w in (query-tree *root*) do
  
positive.code:                (:button-press
                  (code state child)
                  (when (and child (eql (window-override-redirect child) :off))
                    (cond ((and (= code (code close))
                                (= state (state close)))
                           (kill-client *display* (window-id child)))
                          (t
                           (setf last-button code)
  
negative.code: ;;; Mouse shorcuts
  (defparameter *move* '(:mod-1 1) "Mouse button to move a window")
  (defparameter *resize* '(:mod-1 3) "Mouse button to resize a window")
  (defparameter *kill* '(:control :mod-1 2) "Mouse button to kill a window")
  
  ;;; Key shortcuts
  (defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  