anchor.diff:  TeX commands in the file `FILE-STEM.aux'.  Find the named bibliography
   style via `find-bibtex-style'; it can be overridden programmatically
   using the :STYLE argument (a string or a function designator).  Print the
  -formatted bibliography to the file `FILE-STEM.bbl'."
  +formatted bibliography to the file `FILE-STEM.bbl'.
  +Return two values, the values of *history* and *err-count*. "
     (let ((*bib-macros* (make-hash-table :test #'equalp))
   	(*bib-database* (make-hash-table :test #'equalp))
   	(*bib-preamble* "")
  
positive.code: 	(*err-count* 0)
  	(*bib-style* nil)
  	(*bst-functions* (builtin-bst-functions)))	
      (read-aux-file (make-pathname :type "AUX" :case :common
  				  :defaults file-stem))
      (let ((style-function
  	   (cond
  
negative.code: 	     ((symbolp style) (fdefinition style))
  	     ((stringp style) (find-bibtex-style style))
  	     (t (error "Bad :STYLE argument: ~S" style)))))
        (with-open-file (bbl-output (make-pathname :type "bbl" ;;:case :common
  						 :defaults file-stem)
  				  :direction :output
  				  :if-exists :supersede)
  	(with-bbl-output (bbl-output)
  	  (funcall style-function))))
      (values *history* *err-count*)))
  
  ;;;;
  
  