There are actually a few of these.

https://github.com/zpl-c/tinyscheme/blob/master/source/schem...

And Scheme in one defun (SIOD), although it seems the recent version of this has been split into multiple files.

The video game Abuse also had a simple embedded Lisp: https://github.com/videogamepreservation/abuse/blob/master/a...