If you are looking for source code you'll want to visit both <http://common-lisp.net/> and <http://cliki.net/>.
The most recent Common Lisp code I wrote was cl-xmmp (see <http://cliki.net/cl-xmpp>) which implements the XMPP protocol and has been tested with jabberd, ejabberd and Google Talk.