anchor.diff:  	(*bst-functions* (builtin-bst-functions)))	
       (read-aux-file (make-pathname :type "AUX" :case :common
   				  :defaults file-stem))
  -    (let ((bst-file (kpathsea:find-file
  -		     (make-pathname :type "BST" :case :common
  -				    :defaults *bib-style*))))
  -      (unless bst-file
  -	(bib-fatal "I couldn't find style file `~A'" *bib-style*))
  -      (with-open-file (bst-stream bst-file :if-does-not-exist nil)
  -	(unless bst-stream
  -	  (bib-fatal "I couldn't open style file `~A'" *bib-style*))
  -	(with-open-file (*bbl-output* (make-pathname :type "BBL" :case :common
  -						     :defaults file-stem)
  -				      :direction :output)
  -	  (let ((*literal-stack* nil))
  -	    (get-bst-commands-and-process bst-stream)))))))
  -
  -(defun cl-bibtex (file-stem function)
  -  (let ((*bib-macros* (make-hash-table))
  -	(*bib-database* (make-hash-table :test #'equalp))
  -	(*bib-preamble* "")
  -	(*bib-files* ())
  -	(*cite-all-entries* nil)
  -	(*cite-keys* ())
  -	(*history* +spotless-history+)
  -	(*err-count* 0)
  -	(*bib-style* nil)
  -	(*bst-functions* (builtin-bst-functions)))	
  -    (read-aux-file (make-pathname :type "AUX" :case :common
  -				  :defaults file-stem))
  -    (with-open-file (*bbl-output* (make-pathname :type "BBL" :case :common
  -						 :defaults file-stem)
  -				  :direction :output)
  -      (funcall function))))
  +    (let ((style-function
  +	   (cond
  +	     ((not style) (find-bibtex-style *bib-style*))
  +	     ((functionp style) 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)
  +	(funcall style-function)))))
   
   ;;;;
   
  
positive.code: ;;; This is free software, licensed under GNU GPL (see file COPYING)
  
  (in-package bibtex-compiler)
  
  ;;; The compiler front-end
  
  
negative.code: 		   (bst-function-side-effects fun)))
  	collect (cons (bst-function-name fun)
  		      (bst-function-lisp-name fun))))
  
  (defun compile-bst-file (bst-file lisp-file)
    (let ((*bib-macros* (make-hash-table))
  	(*bst-compiling* t)
  