write-bib-entry.lisp

(defun write-bib-entry (entry &optional (stream *standard-output*))
  (format stream "~&@~A{~A"
	  (bib-entry-type entry)
	  (bib-entry-cite-key entry))
  (loop for field being each hash-key in (bib-entry-dict entry)
	and value being each hash-value in (bib-entry-dict entry)
	do (format stream ",~%  ~A = {~A}" field value))
  (format stream "~%}~%"))