anchor.diff:    (uiop:ensure-list
      (or (mapcar #'value (all-marked-suggestions prompter))
          (value (selected-suggestion prompter))
  -       (and (not (must-match-p prompter))
  +       (and (not (must-match-p prompter)) ; TODO: What shall we do on no match?
               (slot-value prompter 'input)))))
   
   (export-always 'actions)
  
positive.code:   (alex:mappend #'marked-suggestions (sources prompter)))
  
  (defun default-action (prompter)
    (first (slot-value (selected-source prompter) 'actions)))
  
  (export-always 'resume)
  (defun resume (prompter)
  
negative.code:     (if marked-sources
          (reduce #'intersection (mapcar (lambda (source)
                                           (slot-value source 'actions))
                                         marked-sources))
          (slot-value (selected-source prompter) 'actions))))
  
  (defun add-input-to-history (prompter)
  