anchor.diff:  
   (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*)
  
positive.code:   cur-col
    max-col
    wrap-ylist
    redraw-flag)
  
  (defun make-window (buffer nlines ncols y x)
    (let ((window
  
negative.code:    (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))))
  