anchor.diff:  	   (load-time-value (ppcre:create-scanner 
   	    '(:sequence #\{ (:greedy-repetition 0 nil :whitespace-char-class)
   	      "include" (:greedy-repetition 0 nil :whitespace-char-class)
  +	      :whitespace-char-class
   	      (:register (:greedy-repetition 0 nil :everything))
   	      (:greedy-repetition 0 nil :whitespace-char-class) #\}))) line)))
       (when matches
  
positive.code:      iterator
       (lambda (line)
         (cond ((can-merge-lines-p gatherer line)
                (setf gatherer (concatenate 'string gatherer line " ")))
               (t
                (setf result (append result (list gatherer) (list line)))
                (setf gatherer "")))))
  
negative.code: 		       )))
  		 ;; add to current chunk
  		 (when current
  		   (insert-item (lines current) 
  				;; consing is fun
  				(if (and (plusp (length line))
  					 (char= (aref line (1- (length line))) 
  						#\Space))
  				    line
  				    (concatenate 'string line " "))))
  		 (setf was-blank? (line-is-empty-p line))
  		 (loop while (> level old-level) do
  		      (insert-item 
  