anchor.diff:          (setf suggestions
                 (delete-if (lambda (suggestion)
                              (not (loop for i in exactly-matching-substrings
  -                                      always (search i (match-data suggestion) :test #'string-equal))))
  +                                      always (search i (match-data suggestion)
  +                                                     :test (smart-case-test i)))))
                            suggestions)))))
     suggestions)
   
  
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:        (loop for match-datum in suggestion-match-data
               append (remove-if
                       (lambda (i)
                         (not (search i match-datum :test (smart-case-test i))))
                       input-strings))
         :test #'string=))))
  
  