anchor.diff:    (if *bst-compiling*
         (push `(setq ,*bib-entries-symbol*
   	      (stable-sort ,*bib-entries-symbol* 'string<=
  -	       :key (lambda (,(intern "ENTRY"))
  -		      (gethash "SORT.KEY$" ,(intern "ENTRY") ""))))
  +	       :key (lambda (,(bst-intern "ENTRY"))
  +		      (gethash "SORT.KEY$" ,(bst-intern "ENTRY") ""))))
   	    *main-lisp-body*)
         (setq *bib-entries*
   	    (stable-sort *bib-entries* 'string<=
  
positive.code: 	   function-list))
    (let* ((bst-name (car function-list)))
      (unless (check-for-already-defined-function bst-name)
        (if *bst-compiling*
  	  (compile-bst-function bst-name function-definition *lisp-stream*)
  	(setf (gethash (string bst-name) *bst-functions*)
  	      (make-bst-function :name (string bst-name)
  				 :type 'wiz-defined
  				 :body function-definition))))))
  
  (define-bst-command "INTEGERS" (name-list)
    (unless (listp name-list)
  
negative.code:     (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)))
  	   (bst-function
  	    (register-bst-global-var bst-name lisp-name 'int-global-var
  				     '(integer) 0 *bst-functions*)))
        (when *bst-compiling*
  	(push bst-function *bst-definition-sequence*)))))
      
  (define-bst-command "ITERATE" (function-list)
    (unless *read-seen-p*
      (error "Illegal, iterate command before read command"))
  