anchor.diff:        (rotatef v* v0 v1))))
   
   (defun norm-levenshtein (x y)
  -  "Returns normalized Levenshtein distance between X and Y. Result is a real
  +  "Return normalized Levenshtein distance between X and Y. Result is a real
   number from 0 to 1, where 0 signifies no similarity between the strings,
   while 1 means exact match."
     (let ((r (levenshtein x y)))
  
positive.code:                      (length y)))))))
  
  (defun string-to-set (str)
    "Converts string into a set. This function is supposed to be inlined."
    (declare (type (simple-array character) str)
             (inline length)
             (optimize (safety 0) (speed 3) (space 3)))
  
negative.code:     result))
  
  (defun intersection-length (x y)
    "Returns length of intersection of two strings X and Y. This function is
  supposed to be inlined."
    (let ((result 0))
      (declare (type array-index result)
               (optimize (safety 0) (speed 3) (space 3)))
  