anchor.diff:  		   (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)
  
positive.code:     (with-open-file (*lisp-stream* lisp-file :direction :output)
        (with-open-file (bst-stream bst-file)
  	(format *lisp-stream*
  		";;;; This is a -*- Common-Lisp -*- program, automatically translated~%;;;; from the BibTeX style file `~A'~%;;;; by the CL-BibTeX compiler ($Revision$).~%"
  		bst-file)
  	(get-bst-commands-and-process bst-stream)
  	(lisp-write `(defun ,(intern (string-upcase (pathname-name bst-file))) ()
  		      (let ((*bib-entry-type-functions*
  			     ',(make-entry-type-function-alist))
  			    bib-entries)
  			,@(reverse *main-lisp-body*))))))))
  
  ;;; The BibTeX program
  
  (defun bibtex (file-stem)
    (let ((*bib-macros* (make-hash-table))
  	(*bib-database* (make-hash-table :test #'equalp))
  	(*bib-preamble* "")
  
negative.code: ;;; This is free software, licensed under GNU GPL (see file COPYING)
  
  (in-package bibtex-compiler)
  
  (defconstant +version+ 0.2)
  
  ;;; The compiler front-end
  
  