sax.lisp

 (defun insert-pair (key value)
	   (setf (gethash key (gethash current-article *hash*)) value))	 
	   
(defmethod sax:start-element ((h bibtex-handler) (namespace t) (local-name t) (qname t) (attributes t))
  (cond ((equal local-name "ARTIGO-PUBLICADO")
	 (let ((seq (sax:attribute-value (sax:find-attribute "SEQUENCIA-PRODUCAO" attributes))))
	   (setf (gethash seq *hash*) (make-hash-table))
	   (format t "seq:~a:~%" seq)
	   (setf current-article seq)
	   (format t "current-article:~a~%" current-article)
	   (insert-pair 'key (concatenate 'string "article-" seq))))

	((equal local-name "DADOS-BASICOS-DO-ARTIGO")
	 (let ((tit '('title "TITULO-DO-ARTIGO")))
	   (let ((e (sax:find-attribute (cadr tit)  attributes)))
	     (if e
	         (insert-pair 'title (sax:attribute-value e))))))))