Contents

(defun distance (str1 str2
                 &key (test #'char=))
  "Number of positional differences in
   two equal length strings."
  (when (= (length str1) (length str2))
    (count nil
           (map 'list test str1 str2))))

Version data entries

8 entries across 8 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.179	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.178	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.177	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.176	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.175	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.174	tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.173	tracks/common-lisp/docs/SNIPPET.txt