converted cl-inflector to lisp-unit2