Do refactoring

font.lisp refactoring.
add coments.