anchor.diff:       (quote)      (("blockquote") nil)
        (horizontal-rule) (nil "hr"))))
   
  +(defvar *magic-space-p* nil)
  +
  +(defvar *magic-line-p* 0)
  +
   (defgeneric render-to-html (stuff encoding-method)
     (:documentation ""))
   
   (defmethod render ((document document) (style (eql :html)) stream)
     (declare (ignore stream))
  +  (setf *magic-space-p* nil 
  +	*magic-line-p* 0)
     (render-to-html document nil))
   
   (defun html-marker (chunk)
     (bind ((markup (markup-class-for-html chunk)))
       (first markup)))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defmethod render-to-html ((chunk chunk) encoding-method)
     (bind (((&optional nil markup new-method) (markup-class-for-html chunk))
  
positive.code:            (unless (length-1-list-p codes) 
               (terpri *output-stream*)))))
  
  ;;; ---------------------------------------------------------------------------
  
  (defmethod encode-html ((stuff list) encoding-method &rest codes)
    (declare (dynamic-extent codes))
    (cond ((null codes) 
           (iterate-elements
            stuff
            (lambda (line)
              ;(spy (type-of line))
              (render-to-html line encoding-method))))
          ((null (first codes))
           (apply #'encode-html stuff encoding-method (rest codes)))
  
negative.code:            (output-image (url link-info) (title link-info) text))
            (t
             ;;?? hackish
             (format *output-stream* "[~a][~a]" text (if supplied? id ""))
  	   (setf *magic-space-p* nil)))))
  
  (defmethod render-span-to-html 
      ((code (eql 'inline-image)) body encoding-method)
    (declare (ignore encoding-method))
    (bind (((text &optional (url "") title) body))
      (output-image url title text)))
  
  (defun output-link (url title text)
    (cond ((not (null url))
           (format *output-stream* "<a href=\"~A\"~@[ title=\"~A\"~]>"
                   url title)
           (encode-html (ensure-list text) nil)
           (format *output-stream* "</a>")
  	 (setf *magic-space-p* nil))
          (t
           )))
  
  (defun output-image (url title text)
    (cond ((not (null url))
           (format *output-stream* "<img src=\"~A\"~@[ title=\"~A\"~]~@[ alt=\"~A\"~]></img>"
                   url title text)
  	 (setf *magic-space-p* nil))
          (t
           )))
  
  (defmethod render-span-to-html ((code (eql 'html)) body encoding-method)
    ;; hack!
  