An absolute classic of artificial intelligence and generative narrative, the storytelling system Talespin in a Common Lisp implementation:
http://www.eliterature.org/2006/01/meehan-and-sacks-micro-talespin/
Technorati Tags: [generative art](http://www.technorati.com/tag/generative art), lisp