anchor.diff:                 (dolist (win (lem-utils:min-if #'window-x window-list))
                    (window-set-pos win
                                    (window-x deleted-window)
  -                                 (window-%y win))
  +                                 (window-y win))
                    (window-set-size win
                                     (+ (window-%width deleted-window)
                                        1
  
positive.code: (defun window-move (window dx dy)
    (window-set-pos window
                    (+ (window-x window) dx)
                    (+ (window-%y window) dy)))
  
  (defun window-resize (window dw dh)
    (window-set-size window
  
negative.code:    (y
      :initarg :y
      :reader window-y
      :writer set-window-y
      :type fixnum)
     (width
      :initarg :width
  