anchor.diff:         (cdr it))
         ((and *allow-load-lisp-bibtex-style*
   	    (setq it (kpathsea:find-file
  -		      (make-pathname :type "LBST" :case :common
  +		      (make-pathname :type "lbst" ;;:case :common
   				     :defaults style))))
          (lisp-bibtex-style it))
         ((setq it (kpathsea:find-file
  -		 (make-pathname :type "BST" :case :common
  +		 (make-pathname :type "bst" ;;:case :common
   				:defaults style)))
          (interpreted-bibtex-style it))
         (t (error "Could not find a BibTeX style named `~A'." style)))))
  
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*)))
  
  ;;;;
  
  