This is clisp code. See clisp - a LISP implementation in google.
