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:   (unless *read-seen-p*
      (error "Illegal, sort command before read command"))
    (if *bst-compiling*
        (push `(setq bib-entries
  	      (stable-sort bib-entries 'string<=
  	       :key (lambda (entry) (gethash "SORT.KEY$" entry ""))))
  	    *main-lisp-body*)
        (setq *bib-entries*
  	    (stable-sort *bib-entries* 'string<=
  
negative.code:     (error "Illegal, read command before entry command"))
    (setq *read-seen-p* t)
    (if *bst-compiling*
        (push `(setq ,*bib-entries-symbol*
  	      (read-all-bib-files-and-compute-bib-entries))
  	    *main-lisp-body*)
        (setq *bib-entries* (read-all-bib-files-and-compute-bib-entries))))
  
  (define-bst-command "REVERSE" (function-list)
  