anchor.diff:        (let ((words (sera:words input)))
           (delete-if (lambda (suggestion)
                        (notevery (lambda (sub) (search sub (ensure-match-data-string suggestion source)
  -                                                     :test #'string-equal))
  +                                                     :test (smart-case-test sub)))
                                  words))
                      suggestions))))
   
  
positive.code:        (loop for match-datum in suggestion-match-data
               append (remove-if
                       (lambda (i)
                         (not (search i match-datum :test #'string-equal)))
                       input-strings))
         :test #'string=))))
  
  
negative.code: ;;;; SPDX-License-Identifier: BSD-3-Clause
  
  (in-package :prompter)
  
  (defun smart-case-test (string)
    (if (some #'upper-case-p string)
        #'string=
        #'string-equal))
  
  (defun find-exactly-matching-substrings (input suggestion-match-data
                                           &key (substring-length 2))
  