anchor.diff:                             (setf last-x (sixth lst)
                                    last-y (seventh lst)))))))
                  (:motion-notify
  -                (event-window root-x root-y)
  +                (event-window root-x root-y time)
                   (cond ((= last-button (code *move*))
                          (let ((delta-x (- root-x last-x))
                                (delta-y (- root-y last-y)))
  
positive.code:                          (incf last-x delta-x)
                           (incf last-y delta-y)))
                        ((= 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
                                 (drawable-height event-window) new-h)))))
                 (:button-release () (ungrab-pointer *display*))
                 (:map-notify
                  (window override-redirect-p)
  
negative.code: 
  ;;; Main
  (defun main ()
    (let (last-button last-x last-y waiting-shortcut last-resize)
  
      ;; Grab prefix and mouse buttons on root
      (grab-key *root* (code *prefix*) :modifiers (state *prefix*))
  