anchor.diff:  (defun jaro (x y)
     "Calculates Jaro distance between two strings. Returned value is in range
   from 0 (no similarity) to 1 (exact match)."
  -  (declare (type (simple-array character) x y)
  +  (declare (type simple-string x y)
              (inline length fast-find)
              (optimize (safety 0) (speed 1) (space 3)))
     (let* ((x-len (length x))
  
positive.code: (defun levenshtein (x y)
    "This function calculates Levenshtein distance between two given
  strings."
    (declare (type (simple-array character) x y)
             (inline length)
             (optimize (safety 0) (speed 3) (space 3)))
    (let* ((x-len (length x))
  
negative.code: (defun damerau-levenshtein (x y)
    "This function calculates Damerau-Levenshtein distance between two given
  strings."
    (declare (type simple-string x y)
             (inline length)
             (optimize (safety 0) (speed 3) (space 3)))
    (let* ((x-len (length x))
  