fix some mistake in common-lisp

hope it helpful