anchor.diff:    (:use :cl :iter)
     (:nicknames :dokuwiki)
     (:import-from :wiki-parser :define-mode :remake-lexer)
  -  (:export :chapter))
  +  (:export #:chapter
  +           #:paragraph))
   
   (in-package :wiki-parser.dokuwiki)
   
  
positive.code: ;;(defun post-parse (tree)
  
  (defmethod wiki-parser:parse ((markup (eql :dokuwiki)) obj)
    (make-chapter-tree (call-next-method)))
  
  
  
negative.code:                         (header-level item))))))
      (setf marks (nreverse marks))
      (concatenate 'list
                   ;;(subseq raw-wiki start (or (car marks) end))
                   (make-paragraphs raw-wiki :start start :end (or (car marks) end))
                   (iter (for m on marks)
                         (collect (list* 'chapter
                                         ;;(header-strim (nth (car m) raw-wiki))
                                         (header-strim (aref raw-wiki  (car m)))
                                         (make-chapter-tree raw-wiki
                                                            :start (1+ (first m))
                                                            :end (second m)))))))))
  