anchor.diff:  	   (dolist (key cite-keys)
   	     (let ((entry (get-merged-bib-entry key)))
   	       (when entry
  -		 (vector-push-extend entry bib-entries))))
  +		 (vector-push-extend entry bib-entries 256))))
   	   (loop for key being each hash-key in crossref-hash
   		 and count being each hash-value in crossref-hash
   		 when (>= count min-crossrefs)
   		 do (let ((entry (get-merged-bib-entry key)))
   		      (when entry
  -			(vector-push-extend entry bib-entries)))))))
  +			(vector-push-extend entry bib-entries 256)))))))
       (coerce bib-entries 'list)))
   
   ;;; BibTeX names
  
positive.code: pairs of braces. Return a string of everything read, except for the
  right delimiter."
    (let ((brace-level 0)
  	(chars '()))
      (loop (let ((char (read-char stream nil nil)))
  	    (cond
  	      ((and (char= char right-delimiter)
  		    (zerop brace-level))
  	       (return (coerce (reverse chars) 'string)))
  	      ((char= char #\{)
  	       (incf brace-level))
  	      ((char= char #\})
  	       (if (zerop brace-level)
  		   (bib-warn "Unbalanced braces")
  		   (decf brace-level))))
  	    (setq chars (cons char chars))))))
  
  (defun read-bib-field-token ()
    (case (peek-char t *bib-stream*)
  
negative.code: 				  :initial-element char)))
  	  (loop for char = (peek-char nil stream nil #\Space)
  		while (tex-alpha-char-p char :at-is-letter at-is-letter)
  		do (vector-push-extend (read-char stream) result 32))
  	  (when skip-whitespace
  	    (peek-char t stream nil nil))
  	  result)
  