anchor.diff:                         ;;
                          ;; This is understandable because we never put
                          ;; html code inside html attributes.
  -                       (create ,@(mapcan 
  +                       (create ,@(mapcan
                                     (lambda (attribute-pair)
                                       (cond ((string-equal (car attribute-pair) "class")
                                              (loop for entry in (cdr attribute-pair)
  
positive.code:                                                      #'local-slots)))
  			 ,@(mapcan (lambda (fun-def)
  				     (list (car fun-def)
  					   (process (cons 'lambda (rest fun-def)) 
  						    :off (list #'top-level #'top-level-labels)
  						    :on (list #'atom-attribute
                                                                #'chain-ref
  
negative.code:                                                           (case (length entry)
                                                              (2 `(match-symbol ,(car entry)))
                                                              (3 `(match-symbol ,(car entry) ,(third entry)))
                                                              (t (error (concatenate 'string
                                                                                     "compile-matcher: "
                                                                                     "Too many specifiers in ~a.")
                                                                        entry))))
  