anchor.diff:      (cond
         ((eql cite-keys t)
          (loop for key being each hash-key in *bib-database*
  -	     do (vector-push-extend (get-merged-bib-entry key) bib-entries)))
  +	     do (vector-push-extend (get-merged-bib-entry key) bib-entries 256)))
         (t
          (let ((crossref-hash (make-hash-table :test 'equalp))
   	     (processed-keys '()))
  
positive.code: 	  (with-open-file (s expanded-file :if-does-not-exist nil)
  	    (if (not s)
  		(format *error-output* "I couldn't open database file `~A.bib'" expanded-file)
  		(read-bib-database s))))))
    (cited-bib-entries (if *cite-all-entries* t *cite-keys*)
  		     :min-crossrefs *min-crossrefs*))
  
  ;;; Misc functions
  
  
negative.code: least *MIN-CROSSREFS* times, it is included as a separate entry as
  well.")
  
  (defun parse-equivalent-entries-string (string)
    (mapcar (lambda (s)
  	    (string-trim +bib-whitespace-character-list+ s))
  	  (split-sequence:split-sequence #\, string)))
  ;; (parse-equivalent-entries-string "newbar,barvinok-2006-ehrhart-quasipolynomial")
  ;; (parse-equivalent-entries-string "  newbar ,  barvinok-2006-ehrhart-quasipolynomial ")
  
  (defun compute-bib-equivalence-classes ()
    "Return a list of lists of equivalent keys."
    (let ((marks (make-hash-table :test 'equalp))
  	(components nil))
      (loop for anchor being each hash-key in *bib-database* using (hash-value entry)
         unless (gethash anchor marks) do
         (let* ((component (list anchor))
  	      (keys-string (gethash "EQUIVALENT-ENTRIES" entry))
  	      (new-equivalent-keys (and keys-string
  					(parse-equivalent-entries-string keys-string))))
  	 (labels ((visit (node predecessors)
  		    (setf (gethash node marks) t)
  		    (dolist (neighbor-node new-equivalent-keys)
  		      (cond
  			((gethash neighbor-node marks))	; already marked
  			(t
  			 (push neighbor-node component)
  			 (visit neighbor-node (cons node predecessors)))))))
  	   (visit anchor nil)
  	   (push component components))))
      components))
  ;; (let ((*bib-database* (make-hash-table :test 'equalp)) (*bib-macros* (make-hash-table :test #'equalp)) (*bib-files* '("iba-bib" "weismant" "barvinok"))) (read-all-bib-files) (break) (compute-bib-equivalence-classes))
  
  (defun read-all-bib-files ()
    (dolist (file *bib-files*)
      (let ((expanded-file (kpathsea:find-file (concatenate 'string file ".bib"))))
        (if (not expanded-file)
  