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:   '(("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.")
  
negative.code:     (#\n . 556) (#\o . 500) (#\p . 556) (#\q . 528) (#\r . 392) (#\s . 394)
      (#\t . 389) (#\u . 556) (#\v . 528) (#\w . 722) (#\x . 528) (#\y . 528)
      (#\z . 444) (#\{ . 500) (#\| . 1000) (#\} . 500) (#\~ . 500)
      ("ss" . 500) ("ae" . 722) ("oe" . 778) ("AE" . 903) ("OE" . 1014))
    "An alist associating characters with their widths.  The widths here
  are taken from Stanford's June '87 cmr10 font and represent hundredths
  of a point (rounded), but since they're used only for relative
  comparisons, the units have no meaning.")
  
  (defun bibtex-string-width (string &key (widths +cmr10-character-widths+))
    "The BibTeX WIDTH$ function.
  Compute the approximate width of STRING by summing the WIDTHS of the
  individual characters.  BibTeX special characters are handled
  specially."
    ;; The original BibTeX handles special chars like this: WIDTH$ sums
    ;; up the widths of all characters, including braces.  Special
    ;; characters (backslash on bracelevel 1, followed by a control word
    ;; or a control char) are handled like this: The widths of \ss, \ae,
    ;; \oe, \AE, \OE are taken from the table; otherwise the width of
    ;; the first letter of the control sequence is taken.
    (let ((width 0))
      (do-tex-tokens (token string)
        (let ((assoc (assoc token widths :test 'equal)))
  	(cond
  	  (assoc
  	   (incf width (cdr assoc)))
  	  ((stringp token)
  	   (unless (string= token "")
  	     (let ((assoc (assoc (char token 0) widths)))
  	       (when assoc
  		 (incf width (cdr assoc)))))))))
      width))
    
  #||
  
  (setq *bib-macros* (make-hash-table))
  (setq *bib-database* (make-hash-table :test #'equalp))
  