The original open source Ada83 compiler that grew into GNAT for Ada95 was written in setl.
The author of GNU setl has said he would release the source, but we're still waiting. There are binaries here:
https://setl.org/setl/bin/
(No NetBSD ones though, forcing us to use emulation)
Ada reminds me of spitbol, and setl can be written in spitbol. R K Dewar's spitbol, written in a portable assembly language called MINIMAL, has been open-sourced. There's a version of setl written in spitbol, too. Hopefully we will have the source for setl one day.
The author's dissertation on setl is a favourite of mine:
https://web.archive.org/web/20060823004442if_/http://www.cs....
See also
https://web.archive.org/web/20100217021505if_/http://www.set...