anchor.diff:            (setq split-p t)
             (split-window))
           (with-current-window (or (window-tree-find
  -                                  *window-tree*
  +                                  (window-tree)
                                     #'(lambda (window)
                                         (eq buffer (window-buffer window))))
                                    (get-next-window (current-window)))
  
positive.code: 
  (defun adjust-screen-size ()
    (let ((delete-windows))
      (do-window-tree (window *window-tree*)
        (when (<= charms/ll:*lines*
                  (+ (window-y window) 2))
          (push window delete-windows))
  
negative.code:     (setf (window-current-charpos new-window)
            (window-current-charpos current-window))
      (multiple-value-bind (node getter setter)
          (window-tree-parent (window-tree) current-window)
        (if (null node)
            (setf (window-tree)
                  (make-window-node split-type
                                    current-window
                                    new-window))
  