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