forth in common lisp