anchor.diff:      result))
   
   (defun jaro-winkler (x y)
  -  "Calculates Jaro-Winkler distance between two strings. Returned value is
  -in range from 0 (no similarity) to 1 (exact match)."
  +  "Calculate Jaro-Winkler distance between two strings X and Y. Returned
  +value is in range from 0 (no similarity) to 1 (exact match)."
     (let ((jd (jaro x y))
           (l  (prefix-length x y)))
       (+ jd (* l 1/10 (- 1 jd)))))
  
positive.code:   (list 'integer 0 length))
  
  (defun hamming (x y)
    "Calculates Hamming distance between two given strings, they have to be
  of the same length."
    (declare (type (simple-array character) x y)
             (inline length)
             (optimize (safety 0) (speed 3) (space 3)))
  
negative.code:           (length y))))
  
  (defun jaccard (x y)
    "Calculate Jaccard similarity coefficient for two strings X and
  Y. Returned value is in range from 0 (no similarity) to 1 (exact match)."
    (declare (type (simple-array character) x y)
             (optimize (safety 0) (speed 3) (space 3)))
    (let ((x (string-to-set x))
  