anchor.diff:                                     (rrem window *last* :test #'window-equal))))))))
         (ungrab-button *root* (code move) :modifiers (state move))
         (ungrab-button *root* (code resize) :modifiers (state resize))
  -      (ungrab-button *root* (code close) :modifiers (state close))
  +      (ungrab-button *root* (code kill) :modifiers (state kill))
         (ungrab-key *root* (code prefix) :modifiers (state prefix))
         (close-display *display*))))
   
  
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")
  