anchor.diff:    cur-col
     max-col
     wrap-ylist
  -  redraw-flag)
  +  redraw-flag
  +  delete-hook)
   
   (defun make-window (buffer nlines ncols y x)
     (let ((window
  
positive.code:    (t
      (when (eq *current-window* window)
        (other-window))
      (cl-charms/low-level:delwin (window-win window))
      (let ((wlist (reverse *window-list*)))
        (let ((upwin (cadr (member window wlist))))
  
negative.code:           selected-window
            select-window
            deleted-window-p
            set-window-delete-hook
            recenter
            redraw-screen
            split-window
  