anchor.diff:  	(loop as char = (peek-char nil *bib-stream*)
   	      until (or (whitespace-p char)
   			(member char '(#\" #\# #\% #\' #\( #\) #\, #\= #\{ #\} )))
  -	      do (vector-push-extend (read-char *bib-stream*) s))
  +	      do (vector-push-extend (read-char *bib-stream*) s *identifier-growth*))
   	(if (zerop (length s))
   	    nil
   	    s))))
  
positive.code: 		   (whitespace-p (char *bbl-line-buffer*
  					(- (length *bbl-line-buffer*) 1))))
  	do (decf (fill-pointer *bbl-line-buffer*)))
    (princ *bbl-line-buffer* *bbl-output*)
    (terpri *bbl-output*)
    (setf (fill-pointer *bbl-line-buffer*) 0)
    nil)
  
  
negative.code: we break it just before *BBL-MAX-PRINT-LINE*, append a comment
  character (%), and don't indent the next line."
    (loop for char across string do
         (vector-push-extend char *bbl-line-buffer* 128))
    (when *bbl-max-print-line*
      (let ((*print-pretty* nil))
        (loop while (> (length *bbl-line-buffer*) *bbl-max-print-line*) do
  	 ;; Break that line
  	   (let ((white-space-index
  		  (position-if #'whitespace-p *bbl-line-buffer*
  			       :start *bbl-min-print-line*
  			       :end (+ *bbl-max-print-line* 1)
  			       :from-end t)))
  	     (cond
  	       (white-space-index	; have a whitespace character
  		(let ((non-space-index
  		       (position-if (complement #'whitespace-p) *bbl-line-buffer*
  				    :end white-space-index
  				    :from-end t)))
  		  (when non-space-index	; ignore a line of just whitespace
  		    (princ (subseq *bbl-line-buffer* 0 (+ non-space-index 1))
  			   *bbl-output*)
  		    (terpri *bbl-output*)
  		    ;; shift the rest back
  		    (replace *bbl-line-buffer* *bbl-line-buffer*
  			     :start1 2 :start2 (+ white-space-index 1))
  		    ;; start the next line with two spaces
  		    (replace *bbl-line-buffer* "  " :start1 0)
  		    (decf (fill-pointer *bbl-line-buffer*)
  			  (- (+ white-space-index 1) 2)))))
  	       (t ; there's no whitespace character to break the line at
  		(princ (subseq *bbl-line-buffer* 0 (- *bbl-max-print-line* 1))
  		       *bbl-output*)
  		(princ "%" *bbl-output*)
  		(terpri *bbl-output*)
  		(replace *bbl-line-buffer* *bbl-line-buffer*
  			 :start1 0 :start2 (- *bbl-max-print-line* 1))
  		(decf (fill-pointer *bbl-line-buffer*)
  		      (- *bbl-max-print-line* 1)))))))))
  
  (defun bbl-terpri ()
    ;; Trim trailing whitespace
  