anchor.diff:  (defun window-move (window dx dy)
     (window-set-pos window
                     (+ (window-x window) dx)
  -                  (+ (window-%y window) dy)))
  +                  (+ (window-y window) dy)))
   
   (defun window-resize (window dw dh)
     (window-set-size window
  
positive.code:                  0 n 0 0))
  
  (defun grow-window-internal (grow-window-list shrink-window-list n)
    (if (< (window-%y (car grow-window-list))
           (window-%y (car shrink-window-list)))
        (and (shrink-top-windows shrink-window-list n)
             (grow-bottom-windows grow-window-list n))
        (and (shrink-bottom-windows shrink-window-list n)
  
negative.code:    (y
      :initarg :y
      :reader window-y
      :writer set-window-y
      :type fixnum)
     (width
      :initarg :width
  