anchor.diff:   
   ;;;
   
  +(defvar *min-crossrefs* 2 "When a crossref'd entry is referenced at
  +least *MIN-CROSSREFS* times, it is included as a separate entry as
  +well.")
  +
   (defun read-all-bib-files-and-compute-bib-entries ()
     (dolist (file *bib-files*)
       (let ((expanded-file (kpathsea:find-file (concatenate 'string file ".bib"))))
  
positive.code:      (subseq s (max 0 (- (length s) (- start) (- count 1)))
  	     (+ (length s) start 1)))))
  
  (defun bibtex-string-purify (string)
    "Remove nonalphanumeric characters except for whitespace and
  sep-char characters (these get converted to a space) and removes
  certain alphabetic characters contained in the control sequences
  associated with a special character."
    ;; FIXME:
    string)
  
  (defun read-tex-group (stream)
    "Read TeX tokens from STREAM until a `}' character or end-of-file is
  found.  Return a list of the tokens, where characters represent
  
negative.code:   '(("citation" . aux-citation-command)
      ("bibdata" . aux-bibdata-command)
      ("bibstyle" . aux-bibstyle-command)
      ("@input" . aux-input-command)))
  
  ;; Variables used during READ-AUX-FILE
  (defvar *citation-seen-p* nil "Non-nil if a \citation command has been seen in an AUX file.")
  