anchor.diff:  	 (function (get-bst-function-of-type name '(built-in wiz-defined compiled-wiz-defined))))
   	
       (if *bst-compiling*
  -	(push `(dolist (*bib-entry* (reverse bib-entries))
  +	(push `(dolist (*bib-entry* (reverse ,*bib-entries-symbol*))
   		,(bst-compile-thunkcall name))
   	      *main-lisp-body*)
   	(dolist (*bib-entry* (reverse *bib-entries*))
  
positive.code: 	   name-list))
    (dolist (bst-name name-list)
      (check-for-already-defined-function bst-name)
      (let ((lisp-name (bst-name-to-lisp-name bst-name)))
        (register-bst-global-var bst-name lisp-name 'str-global-var '(string) "" *bst-functions*)
        (when (and *bst-compiling*
  		 (not (member bst-name *lexicals* :test 'string-equal)))
  	(lisp-write `(defvar ,lisp-name ""))))))
  
  
  
negative.code: 			     (let ((sym (read stream nil nil t)))
  			       (unless (symbolp sym)
  				 (error "Bad syntax"))
  			       (values 
  				(intern
  				 (string-upcase 
  				  (concatenate 'string ":" (symbol-name sym))))))))
  			       
      ;; function lists
      (set-macro-character #\{
  