anchor.diff:        (unless translation 
           (warn "No translation for '~A'" (markup-class chunk)))
         translation)))
  -
  -;;; ---------------------------------------------------------------------------
  -
  -(defgeneric render-to-html (stuff)
  -  (:documentation ""))
   
   ;;; ---------------------------------------------------------------------------
   
  
positive.code:          (apply #'encode-html stuff (rest codes)))
          (t (format *output-stream* "<~A>" (first codes))
             (apply #'encode-html stuff (rest codes))
             (format *output-stream* "</~A>" (first codes))))
    (format *output-stream* "~&"))
  
  ;;; ---------------------------------------------------------------------------
  
  
negative.code:                      (format *output-stream* "</~A>" marker))
                     #+(or)
                     (format *output-stream* "~%"))))
      (when (document-property "html")
        (generate-html-header))
      (do-it (collect-elements (chunks document)) 
             (level document))
      (when (document-property "html")
        (format *output-stream* "~&</body>~&</html>"))))
      
  ;;; ---------------------------------------------------------------------------
  
  (defun generate-html-header ()
    (generate-doctype)
    (format *output-stream* "~&<html>~&<head>")
    (awhen (document-property "title")
      (format *output-stream* "~&<title>~a</title>" it))
    (awhen (document-property "style-sheet")
      (format *output-stream* "~&<link type='text/css' href='~a' rel='stylesheet' />" it))
    (format *output-stream* "~&</head>~&<body>"))
  
  ;;; ---------------------------------------------------------------------------
  
  (defun generate-doctype ()
    (format *output-stream* "~&<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
          \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
  
  
  