anchor.diff:                                                                #'child-ref
                                                                 #'local-slots))))
   				   fun-defs))))
  -  (if psx-only 
  +  (if psx-only
         (values (initialize #'psx-tags) dependencies css)
         (values (initialize #'top-level #'top-level-labels) dependencies css)))
  
positive.code:                        ;;
                         ;; This is understandable because we never put
                         ;; html code inside html attributes.
                         (create ,@(mapcan 
                                    (lambda (attribute-pair)
                                      (cond ((string-equal (car attribute-pair) "class")
                                             (loop for entry in (cdr attribute-pair)
  
negative.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
  