anchor.diff:                                                               #'child-ref
                                                                #'local-slots))))))
        (top-level-labels ((labels-symbol :symbol "labels") fun-defs &rest body)
  -		       `(render 
  +		       `(render
   			 (lambda ()
  -			   ,@(process-each body 
  +			   ,@(process-each body
   					   :off (list #'top-level #'top-level-labels)
   					   :on (list #'atom-attribute
                                                        #'chain-ref
  
positive.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))))
  
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)
  