anchor.diff:  (defun fast-find (char str str-len &optional (start 0))
     "Checks if CHAR is in STR. This function is supposed to be inlined."
     (declare (type character char)
  -           (type simple-string str)
  +           (type (simple-array character) str)
              (type array-index str-len start)
              (optimize (safety 0) (speed 3) (space 3)))
     (do ((i start (1+ i)))
  
positive.code: (defun hamming (x y)
    "Calculates Hamming distance between two given strings, they have to be
  of the same length."
    (declare (type simple-string x y)
             (inline length)
             (optimize (safety 0) (speed 3) (space 3)))
    (let ((result 0))
  
negative.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))
  