anchor.diff:          (t (format *output-stream* "<~A>" (first codes))
              (apply #'encode-html stuff encoding-method (rest codes))
              (format *output-stream* "</~A>" (first codes))
  +	   #+(or)
              (unless (length-1-list-p codes) 
                (terpri *output-stream*)))))
   
   (defmethod markup-class-for-html ((chunk chunk))
  -  (when (markup-class chunk)
  +  (if (markup-class chunk)
       (let ((translation (item-at-1 *markup->html* (markup-class chunk))))
         (unless translation 
  -        (warn "No translation for '~A'" (markup-class chunk)))
  -      translation)))
  +        (markdown-warning "No translation for markup class '~A'"
  +			  (markup-class chunk)))
  +      translation)
  +    (load-time-value (make-html-markup))))
   
   (defmethod render-to-html ((chunk list) encoding-method)
     (render-span-to-html (first chunk) (rest chunk) encoding-method))
  
positive.code:         (t (format *output-stream* "<~a>" (first codes))
             (apply #'encode-html stuff encoding-method (rest codes))
             (format *output-stream* "</~a>" (first codes))
             (unless (length-1-list-p codes) 
               (terpri *output-stream*)))))
  
  
  ;;?? same code as above
  (defmethod encode-html ((stuff list) encoding-method &rest codes)
  
negative.code: 	  (t
  	   (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))
  