anchor.diff:                                     new-window))))
     t)
   
  -(define-key *global-keymap* (kbd "C-x 2") 'split-window)
  -(define-command split-window () ()
  +(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
  
positive.code: (in-package :lem)
  
  (export '(*modeline-default-format*
            window-list
            window
            window-nlines
  
negative.code:                       1))))
        (decf (window-ncols) ncols)
        (split-window-after newwin :hsplit))))
  
  (defun split-window ()
    (if (< *window-sufficient-width* (window-ncols *current-window*))
        (split-window-horizontally)
        (split-window-vertically)))
  
  (defun get-next-window (window)
    (let* ((window-list (window-list))
  