anchor.diff:    (declare (ignore attributes contents))
     `(<> :unescaped 
        "<!DOCTYPE html>" (string #\Newline)))
  -
  + 
   (defun sexpml-form-with-end-tag (name attributes contents)
  -  `(<> '(,name ,@attributes)
  -     ,@(if contents 
  -	   contents
  -	   (list ""))))
  +  (sexpml:sexpml-form name :attributes attributes
  +                      :contents 
  +                      (if contents 
  +                          contents
  +                          (list ""))))
   
   (defmethod sexpml-form ((tag (eql 'html))
   		     &key attributes contents)
  
positive.code: Uses HTMLElement."
    (sexpml-form-with-end-tag "nav" attributes contents))
  
  
negative.code:   (:export #:doctype 
  	   #:html
             #:head
             #:link
             #:title
  	   #:body
  	   #:script
  	   #:div
  	   #:nav
  	   #:iframe
             #:h1)
    
    (:documentation "HTML5 tags for SEXPML 
   - Symbolic Expression eXtensible Programmable Markup Language -
  