anchor.diff:  	      (format *output-stream* "~&<meta ~a=\"~a\" content=\"~a\"/>"
   		      kind property it))))
     (format *output-stream* "~&</head>~&<body>"))
  -
  -;;; ---------------------------------------------------------------------------
   
   (defun generate-doctype ()
     (format *output-stream* "~&<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"
  
positive.code:   (format *output-stream* "<br />~%"))
  
  (defmethod render-to-html ((document document) encoding-method) 
    (labels ((do-it (chunks level)
               (loop for rest = chunks then (rest rest) 
                     for chunk = (first rest) then (first rest) 
                     while chunk 
                     for new-level = (level chunk)
                     for markup = (html-marker chunk) 
                     when (= level new-level) do 
  		  (render-to-html chunk encoding-method)
                     when (< level new-level) do
                     (dolist (marker markup)
                       (format *output-stream* "<~A>" marker))
                     (multiple-value-bind (block remaining method)
                                          (next-block rest new-level)
                       (declare (ignore method))
                       (do-it block new-level)
                       (setf rest remaining))
                     (dolist (marker (reverse markup))
                       (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>"))))
  
  (defvar *html-meta*
    '((name (author description copyright keywords date))
      (http-equiv (refresh expires))))
  
negative.code:    'simple-associative-container
     :test #'equal
     :initial-contents 
     '((header1)    (nil nil "h1")
       (header2)    (nil nil "h2")
       (header3)    (nil nil "h3")
       (header4)    (nil nil "h4")
       (header5)    (nil nil "h5")
       (header6)    (nil nil "h6")
       
       (bullet)     (("ul") ("li") nil)
       (code)       (("pre" "code") nil nil encode-pre)
       (number)     (("ol") ("li") nil)
       (quote)      (("blockquote") nil nil)
       (horizontal-rule) (nil nil "hr"))))
  
  (defvar *magic-space-p* nil)
  
  