anchor.diff:    (reload-buffers (list (current-buffer))))
   
   (define-command reload-buffers (&optional buffers)
  -  "Reload queried buffer(s)."
  +  "Prompt for BUFFERS to be reloaded."
     (if buffers
         (mapcar (lambda (buffer) (buffer-load (url buffer) :buffer buffer)) buffers)
         (prompt
  
positive.code:     (enable-modes (uiop:ensure-list modes-to-enable) buffer)))
  
  (define-command open-inspector ()
    "Open the inspector, a graphical tool to inspect and change the content of the buffer."
    (ffi-inspector-show (current-buffer)))
  
  (export-always 'print-buffer)
  
negative.code:                    (set-current-buffer next))))
  
  (define-command switch-buffer-last ()
    "Switch to the last visited buffer.
  I.e., the one with the most recent access time."
    (let* ((buffers (sort-by-time (buffer-list))))
      (when (second buffers)
        (set-current-buffer (second buffers)))))
  