anchor.diff:            scroll-up
             find-file-other-window
             read-file-other-window
  -          select-buffer-other-window))
  +          select-buffer-other-window
  +          switch-to-last-focused-window))
   
   (eval-when (:compile-toplevel :load-toplevel)
     (defmacro define-other-window-command (command prompt)
  
positive.code:   (when (one-window-p)
      (split-window-sensibly (current-window)))
    (other-window n))
  
  (define-command window-move-down () ()
    (alexandria:when-let ((window (down-window (current-window))))
  
negative.code:                   (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)
  