anchor.diff:        (let ((upwin (cadr (member window wlist))))
           (when (null upwin)
             (setq upwin (cadr *window-list*))
  -          (window-move upwin 0 (window-x upwin)))
  -        (window-resize upwin
  +          (window-set-pos upwin 0 (window-x upwin)))
  +        (window-set-size upwin
             (+ (window-nlines upwin)
               (window-nlines window))
             (window-ncols upwin))))
  
positive.code: 
  (defun window-adjust-all ()
    (dolist (win *window-list*)
      (window-resize 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-resize win
        (+ (window-nlines win)
          (- cl-ncurses:*lines* *current-lines*))
        (window-ncols win)))
  
negative.code:     (unless (eq win *current-window*)
        (cl-ncurses:delwin (window-win win))))
    (setq *window-list* (list *current-window*))
    (window-set-pos *current-window* 0 0)
    (window-set-size *current-window*
      (1- cl-ncurses:*lines*)
      cl-ncurses:*cols*)
    t)
  