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:         (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)
  
  
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))
  