(defparameter *entrez-gene-xslt* 
  "/Users/alanr/repos/lsw/trunk/molbio/ncbi/entrez_gene-07-21-06.xsl")

(defun efetch-gene-id-url (id &key (email "lsw-discuss@googlegroups.com"))
  (format nil
	  "http://eutils.ncbi.nlm.nih.gov/entrez/eutils/efetch.fcgi?db=gene&email=~a&id=~a&retmode=xml"
	  email id))

(defun entrez-rdf (id)
  (let* ((tFactory (#"newInstance" 'TransformerFactory))
	 (transformer (#"newTransformer" tFactory (new 'StreamSource *entrez-gene-xslt*)))
	 (output (new 'StringWriter)))
    (#"transform" transformer (new 'StreamSource (efetch-gene-id-url id))
		  (new 'StreamResult output))
    output))