anchor.diff:    "With a list (foo \"bar\" monkey \"banana\"), return the string
   ' foo=\"bar\" monkey=\"banana\"'. If attrs is null or #\-, return \"\"."
     (with-gensyms (grouped-attrs attr stream)
  -    (if (or (null attrs) (eql #\- attrs)) ""
  +    (if (null attrs) ""
   	(if (not (listp attrs))
   	    (error "Not a list: ~s" attrs)
   	    `(with-output-to-string (,stream)
  
positive.code: 	`(progn
  	   ,@(loop
  		for s in statements
  		if (html-statement-p s)
  		collect `(let* ((,element (first ',s))
  			       (,element-string (string-downcase ,element))
  
negative.code: a list."
    (and (listp form)
         (keywordp (car form))
         (listp (cadr form))))
  
  (defun void-element-p (tag)
    "Return t if the tag, being a string on the form \"html\", is a void element."
  