anchor.diff:            set-window-delete-hook
             recenter
             redraw-screen
  +          split-window-vertically
  +          split-window-horizontally
             split-window
             get-next-window
             other-window
  
positive.code: 
  (defvar *current-cols*)
  (defvar *current-lines*)
  
  (defvar *modeline-default-format*
    (list 'modeline-read-only-p
  
negative.code:                                    new-window))))
    t)
  
  (define-key *global-keymap* (kbd "C-x 2") 'split-window-vertically)
  (define-command split-window-vertically () ()
    (multiple-value-bind (nlines rem)
        (floor (window-nlines) 2)
      (let ((newwin (make-window
  