This application is written in 7+ million lines of Common Lisp
https://www.ptc.com/cad/elements-direct/modeling
https://www.youtube.com/watch?v=mJGytRaNvec
The video shows how Eterna uses 'PTC Creo Elements/Direct' to develop their watches. There are many other clients of that in various domains.
Also: