anchor.diff:  #!/usr/local/bin/sbcl --script
  -;;; Most simple window manager on earth. It is a fork from the lisp
  -;;; version of tinywm.
  +;;; Used to be the most simple window manager on earth. It is a fork
  +;;; from the lisp version of tinywm.
   
   ;;; Load CLX and make a package
   (require 'asdf)
  
positive.code:         last-button last-x last-y waiting-shortcut)
  
      ;; Grab prefix and mouse buttons on root
      (grab-key *root* (cdr prefix) :modifiers (car prefix))
      (grab-button *root* (cdr move) '(:button-press) :modifiers (car move))
      (grab-button *root* (cdr resize) '(:button-press) :modifiers (car resize))
  
      (setf (window-event-mask *root*) '(:substructure-notify))
  
  
negative.code:                          (setf (drawable-width event-window) new-w
                                 (drawable-height event-window) new-h)))))
                 (:button-release () (ungrab-pointer *display*))
                 (:map-notify
                  (window override-redirect-p)
                  (unless override-redirect-p
                    (pushnew window *windows* :test #'window-equal)
                    (focus window)))
                 (:destroy-notify
                  (window)
                  (setf *windows* (remove window *windows* :test #'window-equal))
                  (when *windows*
                      (focus (first *windows*))))))
        (ungrab-button *root* (code move) :modifiers (state move))
        (ungrab-button *root* (code resize) :modifiers (state resize))
        (ungrab-key *root* (code prefix) :modifiers (state prefix))
        (close-display *display*))))
  
  (main)
  