Show us your Lisp implementations

Toy implementations are fine, but (loop (print (eval (read)))) doesn't count!

>>8-10
It's a crappy toy implementation found on the internet, in a blog post.
It doesn't even use tagged pointers nor unboxed fixnums.