anchor.diff:      (loop
        (when (and *bst-compiling*
   		(char= (peek-char t *bst-stream* nil #\x) #\%))
  -       ;; Copy top-level comments; replace N leading % signs with N+1 semicola
  -       (terpri *lisp-stream*)
  -       (loop while (char= (peek-char t *bst-stream* nil #\x) #\%)
  -	     do
  -	     (princ ";" *lisp-stream*)
  -	     (loop while (char= (peek-char nil *bst-stream* nil #\x) #\%)
  -		   do (read-char *bst-stream*) (princ ";" *lisp-stream*))
  -	     (princ (read-line *bst-stream* nil "") *lisp-stream*)
  -	     (terpri *lisp-stream*)))
  +       (store-comment))
        (let ((command (bst-read :eof-ok t)))
          (when (eql command '*EOF*)
   	 (return))
  
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: 			       (values 
  				(intern
  				 (string-upcase 
  				  (concatenate 'string ":" (symbol-name sym)))
  				 "BIBTEX-COMPILER")))))
  			       
      ;; function lists
      (set-macro-character #\{
  