anchor.diff:         (loop for match-datum in suggestion-match-data
                append (remove-if
                        (lambda (i)
  -                       (not (search i match-datum)))
  +                       (not (search i match-datum :test #'string-equal)))
                        input-strings))
          :test #'string=))))
   
  
positive.code:       suggestions
        (let ((words (sera:words input)))
          (delete-if (lambda (suggestion)
                       (notevery (lambda (sub) (search sub (ensure-match-data-string suggestion source)))
                                 words))
                     suggestions))))
  
  
negative.code:         (setf suggestions
                (delete-if (lambda (suggestion)
                             (not (loop for i in exactly-matching-substrings
                                        always (search i (match-data suggestion) :test #'string-equal))))
                           suggestions)))))
    suggestions)
  
  