Cl-svm is a project mainly written in Common Lisp, it's free.

Scalar Vector Machine implementation in pure Common Lisp