What Lisp is this? I can understand what it's doing but it's clearly pre-CL.