anchor.diff:  	(*err-count* 0)
   	(*bib-style* nil)
   	(*bst-functions* (builtin-bst-functions)))	
  -    (read-aux-file (make-pathname :type "AUX" :case :common
  +    (read-aux-file (make-pathname :type "aux" ;;:case :common
   				  :defaults file-stem))
       (let ((style-function
   	   (cond
  
positive.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)
  	(with-bbl-output (bbl-output)
  	  (funcall style-function))))))
  
  ;;;;
  
  
negative.code:        (cdr it))
        ((and *allow-load-lisp-bibtex-style*
  	    (setq it (kpathsea:find-file
  		      (make-pathname :type "lbst" ;;:case :common
  				     :defaults style))))
         (lisp-bibtex-style it))
        ((setq it (kpathsea:find-file
  		 (make-pathname :type "bst" ;;:case :common
  				:defaults style)))
         (interpreted-bibtex-style it))
        (t (error "Could not find a BibTeX style named `~A'." style)))))
  