anchor.diff:     "
     `(let ((*page-title* ())
   	 (*page-links* ())
  +	 (*page-doctype* ())
  +	 (*page-charset* ())
  +	 (*page-language* ())
   	 (*page-style-sheets* ())
   	 (*page-styles* ())
   	 (*page-script-libraries* ())
  
positive.code: 
  (defun default-tag-attributes ()
    "Return a list of default attributes common to all tags"
    `(id class style))
  
  (defmethod tag-attributes ( (*current-tag* htmltag) )
    ;; TODO add attributes for bases
  
negative.code:   "Interpret the raw body as html markup, and return a complete HTML page.  In combination with $(a {:href \"_macro_html\"} \"html\"), this macro weaves
     the output of calls to $(em \"html\") into a complete page, with styles, scripts, references to script libraries, a page title, etc., all arranged
     in the appropriate order."
    `(multiple-value-bind (page-content *page-title* *page-links* *page-doctype* *page-charset* *page-language* *page-style-sheets* *page-styles* *page-script-libraries* *page-scripts* *page-ready-scripts*) 
         (html-for-user-agent ,@raw-body)
       ;; now render the page
       (if page-content ;; in case nothing suitable for the desired user agent
           (values (with-output-to-string (*html-out*)
                     (if *page-doctype*
                       (hout "<!DOCTYPE ~a>~%" *page-doctype*)
                       (hout "<!DOCTYPE html>~%"))
                     (if *page-language*
                       (hout "<html lang=\"~a\">~%" *page-language*)
                       (hout "<html lang=\"en\">~%"))
                     (hout "<head>~%")
                     (if *page-charset*
                       (hout "<meta charset=\"~a\">~%" *page-charset*)
                       (hout "<meta charset=\"utf-8\">~%"))
                     (hout "<meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">")
                     (hout "<meta name=\"viewport\" content=\"width=device-width, initial-scale=1, maximum-scale=1\">")
                     (when *page-title*
                       (hout "<title>~a</title>~%" *page-title*))
  
  