anchor.diff:                             (new-h (max 1 (- root-y (drawable-y event-window)))))
                          (setf (drawable-width event-window) new-w
                                (drawable-height event-window) new-h)))))
  -                       ;; (setf (drawable-width event-window)
  -                       ;;       (max 1 (- root-x (drawable-x event-window)))
  -                       ;;       (drawable-height event-window)
  -                       ;;       (max 1 (- root-y (drawable-y event-window))))))))
                (:button-release ()
                                 (ungrab-pointer display)))))
         (dolist (button (list *move* *resize* *lower* *raise*))
  
positive.code: (require 'asdf)
  (asdf:oos 'asdf:load-op 'clx)
  (use-package :xlib)
  (defparameter *mods*    '(:mod-1))      ; :mod-4 for windows key
  (defparameter *move*    '(1))
  (defparameter *resize*  '(2))
  (defparameter *lower*   '(3 4))
  (defparameter *raise*   '(5))
  
  (defun main ()
    (let* ((display (open-display ""))
           (screen (first (display-roots display)))
           (root (screen-root screen)))
  
      (dolist (button (list *move* *resize* *lower* *raise*))
        (mapcar #'(lambda (b)
                    (grab-button root b '(:button-press) :modifiers *mods*))
                button))
  
      (unwind-protect
          (let (last-button last-x last-y)
  
negative.code:                                last-y (seventh lst)))))))
               (:motion-notify
                (event-window root-x root-y)
                (cond ((member last-button *move*)
                       (let ((delta-x (- root-x last-x))
                             (delta-y (- root-y last-y)))
  