anchor.diff:  	      (children-form (cond ((null children) nil)
   				   ((rest children) (list (list 'array)))
   				   (t (list nil)))))
  -	  (values (if (dom-type-p type)
  -		      `(chain React DOM (,type-sym ,@props-form ,@children-form))
  -		      `(chain React (create-element ,type-sym ,@props-form ,@children-form)))
  +	  (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)
  
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: (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
  