anchor.diff:       iterator
        (lambda (line)
          (cond ((can-merge-lines-p gatherer line)
  -              (setf gatherer (concatenate 'string gatherer line " ")))
  +	      (let ((length (length gatherer)))
  +		(cond ((zerop length)
  +		       (setf gatherer line))
  +		      ((char= (aref gatherer (1- length)) #\Space)
  +		       (setf gatherer (concatenate 'string gatherer line)))
  +		      (t
  +		       (setf gatherer 
  +			     (concatenate 'string gatherer " " line))))))
                (t
                 (setf result (append result (list gatherer) (list line)))
                 (setf gatherer "")))))
  
positive.code: 	   (load-time-value (ppcre:create-scanner 
  	    '(:sequence #\{ (:greedy-repetition 0 nil :whitespace-char-class)
  	      "include" (:greedy-repetition 0 nil :whitespace-char-class)
  	      (:register (:greedy-repetition 0 nil :everything))
  	      (:greedy-repetition 0 nil :whitespace-char-class) #\}))) line)))
      (when matches
  
negative.code:          'handle-setext-headers
           'handle-atx-headers
           'merge-chunks-in-document
           'merge-lines-in-chunks
           'canonize-document))
    (empty! (line-code->stripper env))
    (empty! (strippers env))
  