A Common Lisp implementation of the Double Metaphone algorithm. Extracted from GBBopen.