anchor.diff:     (t
       (when (eq *current-window* window)
         (other-window))
  +    (when (window-delete-hook window)
  +      (funcall (window-delete-hook window)))
       (cl-charms/low-level:delwin (window-win window))
       (let ((wlist (reverse *window-list*)))
         (let ((upwin (cadr (member window wlist))))
  
positive.code:           selected-window
            select-window
            deleted-window-p
            recenter
            redraw-screen
            split-window
  
negative.code: 
  (defun deleted-window-p (window)
    (not (find window *window-list*)))
  
  (defun set-window-delete-hook (window fn)
    (setf (window-delete-hook window) fn))
  
  (defun window-init ()
    (setq *current-cols* cl-charms/low-level:*cols*)
  