anchor.diff:    ;; Destroy prompter last, or else `return-function' may not work.
     (prompter:destroy prompt-buffer))
   
  -(defun suggestion-and-mark-count (prompt-buffer suggestions marks)
  +(defun suggestion-and-mark-count (prompt-buffer suggestions marks
  +                                  &key multi-selection-p)
     (cond
       ((not suggestions)
        "")
  
positive.code:              (length marks)
               (length suggestions)))
      ((not marks)
       (format nil "[~a]"
               (length suggestions)))))
  
  (defun prompt-render-prompt (prompt-buffer)
  
negative.code:                              ,(prompter:name source)
                               ,(suggestion-and-mark-count prompt-buffer
                                                           (prompter:suggestions source)
                                                           (prompter:marks source)
                                                           :multi-selection-p (prompter:multi-selection-p source)))))
                      (when (prompter:suggestions source)
                        (markup:raw
                         (markup:markup
  