anchor.diff:      (encode-html chunk (or new-method encoding-method)
   		 markup (when paragraph? "p"))))
     
  -;;; ---------------------------------------------------------------------------
  -  
  +;;?? same code as below
   (defmethod encode-html ((stuff chunk) encoding-method &rest codes)
     (declare (dynamic-extent codes))
  +  (setf *magic-line-p* 0)
     (cond ((null codes) 
  -         (let ((class (member 'code (markup-class stuff))))
  +         (let ((code-p (member 'code (markup-class stuff))))
              (iterate-elements
               (lines stuff)
               (lambda (line)
  -              (render-to-html line encoding-method)
  -              (when class (format *output-stream* "~%"))))))
  +	      (render-to-html line encoding-method)
  +	      (when code-p (incf *magic-line-p*))))
  +	   (fresh-line *output-stream*)))
           ((null (first codes))
            (apply #'encode-html stuff encoding-method (rest codes)))
           (t (format *output-stream* "<~a>" (first codes))
  
positive.code:   (bind (((text &optional (url "") title) body))
      (output-link url title text)))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod render-span-to-html ((code (eql 'link)) body encoding-method)
    (declare (ignore encoding-method))
    (let ((link (first body)))
      (output-link link nil link)))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod render-span-to-html 
      ((code (eql 'reference-image)) body encoding-method)
  
negative.code:        (output-html (list (encode-pre output))))
        (list
         (render-span-to-html (first output) (rest output) encoding-method)))))
  
  ;; Special cases R us.
  (defmethod render-span-to-html ((code (eql 'break)) body encoding-method)
    (render-to-html (first body) encoding-method)
    (format *output-stream* "<br />~%"))
  
  (defmethod render-to-html ((document document) encoding-method) 
    (labels ((do-it (chunks level)
  