fit common lisp bug