anchor.diff:                         (setf (drawable-width event-window) new-w
                                (drawable-height event-window) new-h)))))
                (:button-release () (ungrab-pointer display))
  -             ((:configure-notify :exposure) t))))
  +             ((:configure-notify :exposure) () t))))
         (dolist (button (list *move* *resize*))
           (ungrab-button root button :modifiers *mods*))
         (dolist (key (list *term* *quit* *circulate*))
  
positive.code:       (grab-button root button '(:button-press) :modifiers *mods*))
  
      ;; Grab keyboard shortcuts
      (dolist (key (list *term* *quit* *circulate*))
        (grab-key root (keysym->keycodes display key) :modifiers *mods*))
  
      (unwind-protect
          (let (last-button last-x last-y)
            (loop named eventloop do
              (event-case 
               (display :discard-p t)
  
negative.code: (defparameter *mods* '(:control :mod-1) "Global modifiers")
  (defparameter *move* 1 "Mouse button to move a window")
  (defparameter *resize* 2 "Mouse button to resize a window")
  (defparameter *term* #\Return "Key to launch a terminal")
  (defparameter *web* #\w "Key to launch web browser")
  (defparameter *quit* #\q "Key to quit")
  (defparameter *circulate* #\Tab "Key to circulate windows")
  (defparameter *hide* #\h)
  
  (defun main ()
    (let* ((display (open-display ""))
  