anchor.diff:                              ;; default cases.
   			    (and (atom ,form) ,form)
   			    (loop for ,sub-form in ,form
  -			       collect (execute ,sub-form ,shadowed ,updated-matchers)))))
  +			       collect (execute ,sub-form ,shadowed ,updated-matchers
  +                                                :on (list #'atom-attribute))))))
   		    (initialize (&rest ,enabled-matchers)
   		      (funcall #'execute form nil ,enabled-matchers))
   		    ,@(mapcar (lambda (x)
  
positive.code:                   (push value animation-block)
                    (push (format nil "animation-~a" key) animation-block)))))
        (values (list (list* :keyframes animation-name keyframes)
                      (list* `(,(format nil ".~a" animation-name)) 
                             "animation-name"
                             animation-name
                             animation-block))
  
negative.code:   ;; Example Matchers:
    ;; 1) ((:symbol "lambda") args &rest body)
    ;; 2) ((:symbol "let") bindings &rest body)
    ;; 3) ((:keyword "html") attributes
    (defun compile-matcher (name pattern body)
      (with-gensyms (shadowed)
        `(,name (form ,shadowed matcher-list)
  