anchor.diff:                     (multiple-value-bind (block remaining method)
                                           (next-block rest new-level)
                        (declare (ignore method))
  -                     (do-it (next-block block new-level) new-level)
  +                     (do-it block new-level)
                        (setf rest remaining))
                      (dolist (marker (reverse markup))
                        (format *output-stream* "</~A>" marker))
  
positive.code: (defun output-html (string &rest codes)
    (declare (dynamic-extent codes))
    (cond ((null codes) (princ (first string) *output-stream*))
          (t (format *output-stream* "<~A>" (first codes))
             (apply #'output-html string (rest codes))
             (format *output-stream* "</~A>" (first codes)))))
  
  ;;; ---------------------------------------------------------------------------
  
  
negative.code:        (output-html (list (encode-pre output))))
        (list
         (render-span-to-html (first output) (rest output) encoding-method)))))
  
  (defmethod render-to-html ((document document) encoding-method) 
    (labels ((do-it (chunks level)
  