anchor.diff:      (check-for-already-defined-function bst-name)
       (let* ((lexical (member bst-name *lexicals* :test 'string-equal))
   	   (lisp-name (bst-name-to-lisp-name bst-name
  -					     (if lexical :lexical :variable))))
  -      (register-bst-global-var bst-name lisp-name 'str-global-var '(string) "" *bst-functions*)
  -      (when (and *bst-compiling* (not lexical))
  -	(lisp-write `(defvar ,lisp-name ""))))))
  -
  -
  +					     (if lexical :lexical :variable)))
  +	   (bst-function
  +	    (register-bst-global-var bst-name lisp-name 'str-global-var
  +				     '(string) "" *bst-functions*)))
  +      (when *bst-compiling*
  +	(push bst-function *bst-definition-sequence*)))))
  +
  +
  
positive.code:   (if *bst-compiling*
        (push `(setq ,*bib-entries-symbol*
  	      (stable-sort ,*bib-entries-symbol* 'string<=
  	       :key (lambda (,(intern "ENTRY"))
  		      (gethash "SORT.KEY$" ,(intern "ENTRY") ""))))
  	    *main-lisp-body*)
        (setq *bib-entries*
  	    (stable-sort *bib-entries* 'string<=
  
negative.code:     (loop
       (when (and *bst-compiling*
  		(char= (peek-char t *bst-stream* nil #\x) #\%))
         (store-comment))
       (let ((command (bst-read :eof-ok t)))
         (when (eql command '*EOF*)
  	 (return))
  