anchor.diff:                    (window-list))))
       (when (minusp n)
         (setf n (- (length window-list) (abs n))))
  +    (update-last-focused-window)
       (dotimes (_ n t)
         (setf (current-window)
               (get-next-window (current-window)
  
positive.code: (define-command split-active-window-horizontally (&optional n) ("P")
    (split-window-horizontally (current-window) n))
  
  (define-key *global-keymap* "C-x o" 'other-window)
  (define-command other-window (&optional (n 1)) ("p")
    (let ((window-list
  
negative.code:           scroll-up
            find-file-other-window
            read-file-other-window
            select-buffer-other-window
            switch-to-last-focused-window))
  
  (eval-when (:compile-toplevel :load-toplevel)
    (defmacro define-other-window-command (command prompt)
  