anchor.diff:      (if marked-sources
           (reduce #'intersection (mapcar (lambda (source)
                                            (slot-value source 'actions))
  -                                       (sources prompter)))
  +                                       marked-sources))
           (slot-value (selected-source prompter) 'actions))))
   
   (defun add-input-to-history (prompter)
  
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:   (uiop:ensure-list
     (or (mapcar #'value (all-marked-suggestions prompter))
         (value (selected-suggestion prompter))
         (and (not (must-match-p prompter)) ; TODO: What shall we do on no match?
              (slot-value prompter 'input)))))
  
  (export-always 'actions)
  