anchor.diff:  	   (cond
   	     ((not style) (find-bibtex-style *bib-style*))
   	     ((functionp style) style)
  +	     ((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
  
positive.code: 
  (in-package bibtex-compiler)
  
  (defconstant +version+ "0.3.1")
  
  ;;; The compiler front-end
  
  
negative.code: security risk, because Lisp programs are much more powerful than BST
  scripts.)")
  
  (defvar *registered-bibtex-style* nil)
  
  (defun register-bibtex-style (name thunk)
    "Register a BibTeX style, implemented as THUNK (a function
  designator), under NAME."
    (setq *registered-bibtex-style* (cons name thunk))
    (push *registered-bibtex-style* *bibtex-styles*))
  
  (defmacro define-bibtex-style (name &body body)
    (let ((function-name
  	 (gentemp (concatenate 'string "BIBTEX-STYLE-" (string name)))))
      `(progn (defun ,function-name () ,@body)
        (register-bibtex-style ',name ',function-name))))      
  
  (defun interpreted-bibtex-style (bst-file)
    "Return a thunk that implements the BibTeX style of the BST-FILE
  by running the BST interpreter."
    (lambda ()
      (with-open-file (bst-stream bst-file :if-does-not-exist nil)
        (unless bst-stream
  	(bib-fatal "I couldn't open style file `~A'" bst-file))
        (let ((*literal-stack* nil))
  	(get-bst-commands-and-process bst-stream)))))
  
  (defun lisp-bibtex-style (lbst-file)
    "Return a thunk that implements the Lisp BibTeX style of LBST-FILE."
    (let ((*registered-bibtex-style* nil))
      (unless (load lbst-file)
        (error "Loading Lisp BibTeX style file `~A' failed."
  	     lbst-file))
      (unless *registered-bibtex-style*
        (error "Lisp BibTeX style `~A' failed to register itself." lbst-file))
      (cdr *registered-bibtex-style*)))
  
  (defun find-bibtex-style (style)
    "Find the named BibTeX STYLE.
  