anchor.diff:        (erase-input minibuffer)
         (update-display minibuffer))))
   
  -(define-command open-file (root-mode &optional (interface *interface*))
  +(define-command open-file ()
     "Open a file from the filesystem.
   
   The user is prompted with the minibuffer, files are browsable with the
  
positive.code:         (dirnames (uiop:subdirectories directory)))
      (fuzzy-match input (append filenames dirnames))))
  
  (define-command display-parent-directory (minibuffer-mode &optional (minibuffer (minibuffer *interface*)))
    "Get the parent directory and update the minibuffer.
  
  Default keybindings: `M-Left' and `C-l'."
  
negative.code:   (erase-input minibuffer)
    (update-display minibuffer))
  
  (define-command enter-directory (open-file-mode &optional (minibuffer (minibuffer *interface*)))
    "If the candidate at point is a directory, refresh the minibuffer candidates with its list of files.
  
  Default keybindings: `M-Right' and `C-j'. "
  