Maxima is written entirely in Lisp, and most of what is interesting in Emacs is written in EmacsLisp or some other dialect. Also, Guile Scheme is the ``official'' (not that it matter much) scripting language of the the GNU project, and you see it used in GNOME's games, Lilypond, Gimp and maybe some other odd programs.
Oh, and AutoCad uses some sort of Lisp for its scripting too, and who knows what else. ITA software was mainly a Lisp shop, but now it was bought by Google, though it's doubtful that they'll rewrite their flagship products very soon just to fit into their language schemes.