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: 			     (let ((sym (read stream nil nil t)))
  			       (unless (symbolp sym)
  				 (error "Bad syntax"))
  			       (intern
  				(string-upcase 
  				 (concatenate 'string ":" (symbol-name sym)))))))
  			       
      ;; function lists
      (set-macro-character #\{
  
negative.code:   (unless *read-seen-p*
      (error "Illegal, sort command before read command"))
    (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<=
  