anchor.diff:  	      (princ (car token) stream))
   	     ((null (cdr tokens))	; last token
   	      (princ #\~ stream))
  -	     ((and (= token-index 1)
  -		   prev-token-short)
  +	     ((not (enough-text-chars stream-string
  +				      *bibtex-long-token-length*))
   	      (princ #\~ stream))
   	     (t
   	      (princ #\Space stream))))))
         (cond
   	(full
  -	 (princ (cdr token) stream)
  -	 (setq token-short
  -	       (not (enough-text-chars (cdr token)
  -				       *bibtex-long-token-length*))))
  +	 (princ (cdr token) stream))
   	(t ;; FIXME: Handle special characters here (415)
  -	 (princ (char (cdr token) 0) stream)
  -	 (setq token-short t))))))  
  +	 (princ (char (cdr token) 0) stream))))))  a
   
   (defun format-bibtex-name (stream format-string bibtex-name)
     (let ((string-output nil)
  
positive.code:   ;; FIXME: Handle special characters (418)
    (>= (length string) min-length))
  
  (defun format-bibtex-name-component (stream tokens full inter-token-string)
    (do ((tokens tokens (cdr tokens))
         (token-index 0 (+ token-index 1))
         (token-short nil)
         (prev-token-short nil token-short))
        ((null tokens))
      (let ((token (car tokens)))
        (unless (zerop token-index)
  
negative.code: 		     (- *bbl-max-print-line* 1))))))))
  
  (defun bbl-terpri ()
    ;; Trim trailing whitespace
    (loop while (and (> (length *bbl-line-buffer*) 0)
  		   (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)
  