anchor.diff:                        (rest chunks)))
            pos-style
            deeper)
  -    #+Ignore
  -    (format t "~%~2,D:POS: ~A, ~A - ~A" 
  -            (length chunks) pos-level pos-markup (first chunks))
  +    ;#+Ignore
  +    (format t "~%~d ~2,D:POS: ~A, ~A - ~A" 
  +            level (length chunks) pos-level pos-markup (first chunks))
       
       ;; remember that there will be another call to rest 
       (cond ((null pos-level)
  
positive.code: ;;?? Gary King 2006-05-03: for now
  (declaim (optimize (speed 0) (space 0) (debug 3)))
  
  (defun next-block (chunks level)
    (let* (;; the first chunk after the current one with a lower level
           (pos-level (position-if 
  
negative.code:                  pos-style :rest))
            ((or (and pos-level pos-markup (< pos-level pos-markup))
                 (and pos-level (not pos-markup)))
  	   (format t " -- level")
  	   (setf deeper (subseq chunks 0 (1+ pos-level))
                   chunks (nthcdr pos-level chunks)
                   pos-style :level))
            ((or (and pos-level pos-markup (> pos-level pos-markup))
                 (and (not pos-level) pos-markup))
  	   (format t " -- markup")
             (setf deeper (subseq chunks 0 (+ pos-markup 2))
                   chunks (nthcdr (1+ pos-markup) chunks)
                   pos-style :markup))
            ((and pos-level pos-markup (= pos-level pos-markup))
  	   (format t " -- level")	   
             (setf deeper (subseq chunks 0 (1+ pos-level))
                   chunks (nthcdr pos-level chunks)
                   pos-style :level))
  