anchor.diff:  (defun dom-type-p (type)
     (find type *dom-types*))
   
  +(defun react-type-p (type)
  +  (find type *react-types*))
  +
   (defun compile-props (plist)
     (loop
        with key = nil
  
positive.code:     :script :section :select :small :source :span :strong :style :sub :summary
      :sup :table :tbody :td :textarea :tfoot :th :thead :time :title :tr :track :u
      :ul :var :video :wbr))
  
  (defparameter *prop-synonyms*
    '(:readonly :read-only
  
negative.code: 	      (children-form (cond ((null children) nil)
  				   ((rest children) (list (list 'array)))
  				   (t (list nil)))))
  	  (values (cond
  		    ((dom-type-p type)
  		     `(chain React DOM (,type-sym ,@props-form ,@children-form)))
  		    ((react-type-p type)
  		     (let ((react-type-sym (or (getf *react-type-symbols* type)
  					       type-sym)))
  		       `(chain React (create-element (ps:@ React ,react-type-sym) ,@props-form ,@children-form))))
  		    (t
  		     `(chain React (create-element ,type-sym ,@props-form ,@children-form))))
  		  children)))))
  
  (defun push-compiled-child (child compiled-node)
  