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