anchor.diff:           (get-next-window *current-window*)))
       (set-buffer buffer)
       *current-window*))
  +
  +(define-key *global-keymap* "C-x^" 'grow-window)
  +(defcommand grow-window (n) ("p")
  +  (if (one-window-p)
  +    (progn
  +     (write-message "Only one window")
  +     nil)
  +    (let* ((lowerwin (lower-window *current-window*))
  +           (upperwin (if lowerwin nil (upper-window *current-window*))))
  +      (if lowerwin
  +        (cond
  +         ((>= 1 (- (window-nlines lowerwin) n))
  +          (write-message "Impossible change")
  +          nil)
  +         (t
  +          (window-resize *current-window* n 0)
  +          (window-resize lowerwin (- n) 0)
  +          (window-move lowerwin n 0)
  +          t))
  +        (cond
  +         ((>= 1 (- (window-nlines upperwin) n))
  +          (write-message "Impossible change")
  +          nil)
  +         (t
  +          (window-resize *current-window* n 0)
  +          (window-move *current-window* (- n) 0)
  +          (window-resize upperwin (- n) 0))))
  +      (cl-ncurses:clear))))
  +
  
positive.code:     (unless (eq win *current-window*)
        (cl-ncurses:delwin (window-win win))))
    (setq *window-list* (list *current-window*))
    (window-move *current-window* 0 0)
    (window-resize *current-window*
      (1- cl-ncurses:*lines*)
      cl-ncurses:*cols*)
    t)
  
negative.code: 
  (defun window-adjust-all ()
    (dolist (win *window-list*)
      (window-set-size win
        (window-nlines win)
        cl-ncurses:*cols*))
    (dolist (win *window-list*)
      (when (<= cl-ncurses:*lines* (+ 2 (window-y win)))
        (delete-window-1 win)))
    (let ((win (car (last *window-list*))))
      (window-set-size win
        (+ (window-nlines win)
          (- cl-ncurses:*lines* *current-lines*))
        (window-ncols win)))
  