anchor.diff:  ;;(defun post-parse (tree)
   
   (defmethod wiki-parser:parse ((markup (eql :dokuwiki)) obj)
  -  (make-chapter-tree (call-next-method)))
  -
  -
  +;;  (call-next-method))
  +  (make-chapter-tree (coerce (call-next-method) 'vector)))
  +;;  (let ((result (call-next-method)))
  +;;    (make-chapter-tree (coerce result 'vector))))
  +
  +
  
positive.code:                         (header-level item))))))
      (setf marks (nreverse marks))
      (concatenate 'list
                   (subseq raw-wiki start (or (car marks) end))
                   (iter (for m on marks)
                         (collect (list* 'chapter
                                         (header-strim (nth (car m) raw-wiki))
                                         (make-chapter-tree raw-wiki
                                                            :start (1+ (first m))
                                                            :end (second m)))))))))
  
negative.code:         (level))
          (unless end
            (setf end (length raw-wiki)))
      (iter (for item in-vector raw-wiki)
            (for pos from 0)
            (while (or (not end)
                       (< pos end)))
  