anchor.diff:    (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)
  
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-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)
  