anchor.diff:    (let ((bib-entries (make-array 0 :adjustable t :fill-pointer 0)))
       (cond
         ((eql cite-keys t)
  -       (loop for entry being each hash-value in *bib-database*
  -	     do (vector-push-extend entry bib-entries)))
  +       (loop for key being each hash-key in *bib-database*
  +	     do (vector-push-extend (get-merged-bib-entry key) bib-entries)))
         (t
          (let ((crossref-hash (make-hash-table :test 'equalp))
   	     (processed-keys '()))
  
positive.code: 	       (setf (gethash key entry) value)))
      entry))
  
  (defun cited-bib-entries (cite-keys &key
  			  (min-crossrefs 2))
    "Return a vector of the entries in *BIB-DATABASE* whose keys are
  
negative.code: (defun read-all-bib-files-and-compute-bib-entries ()
    (dolist (file *bib-files*)
      (let ((expanded-file (kpathsea:find-file (concatenate 'string file ".bib"))))
        (if (not expanded-file)
  	  (format *error-output* "I couldn't find database file `~A.bib'" file)
  	  (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*))
  
  