anchor.diff:                                   last-y (seventh lst)))))))
                  (:motion-notify
                   (event-window root-x root-y)
  -                (cond ((= last-button (cdr move))
  +                (cond ((= last-button (code *move*))
                          (let ((delta-x (- root-x last-x))
                                (delta-y (- root-y last-y)))
                            (incf (drawable-x event-window) delta-x)
                            (incf (drawable-y event-window) delta-y)
                            (incf last-x delta-x)
                            (incf last-y delta-y)))
  -                      ((= last-button (cdr resize))
  +                      ((= last-button (code *resize*))
                          (let ((new-w (max 1 (- root-x (drawable-x event-window))))
                                (new-h (max 1 (- root-y (drawable-y event-window)))))
                            (setf (drawable-width event-window) new-w
  
positive.code:                   (when (win= window *last*)
                      (setf *last* (when (listp *last*)
                                     (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 kill) :modifiers (state kill))
        (ungrab-key *root* (code prefix) :modifiers (state prefix))
        (close-display *display*))))
  
  (main)
  
negative.code: 
  ;;; Main
  (defun main ()
    (let (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 *kill*) '(:button-press) :modifiers (state *kill*))
  
      ;; Populate list of windows
      (loop for w in (query-tree *root*) do
  