lattes-to-bibtex.lisp

(defun lattes-to-bibtex (filename)
  "Transform the given filename to bibtexml and then parse it"
  (let ((xml (lattes-to-bibtexml filename))
	(i (make-instance 'lattes-handler)))  
    (cxml:parse xml i)
    (print-hash (lh-hash i))
    (loop for entry being each hash-value in (lh-hash i) do
	 (bibtex-runtime:write-bib-entry entry))))