anchor.diff:  	 (if (null root)
   	     (setf root branch)
   	     (push branch (getf parent :children)))
  -	 (when (not (atom-or-injected-p parsed-node))
  +	 (when (not (psx-atom-p parsed-node))
   	   (mapcar (lambda (child) (list child branch))
   		   (getf parsed-node :children)))))
        tree)
  
positive.code: 
  
  (defun compile-node (parsed-node)
    (cond ((atom parsed-node) parsed-node)
  	((injectedp parsed-node) (unwrap-injected parsed-node))
  	(t (destructuring-bind (&key type props children) parsed-node
  	     (let ((type-sym (make-symbol (string type)))
  		   (props-form (cond ((and (null children) (null props)) nil)
  				     ((null props) (list nil))
  				     (t `((create ,@props)))))
  		   (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)))
  		       children))))))
  
  (defun push-compiled-child (child compiled-node)
    (let* ((children-cell (last (first (last compiled-node))))
  
negative.code: 		
  
  (defun parse-node (node)
    (if (psx-atom-p node)
        node
        (multiple-value-bind (props children) (parse-props (rest node))
  	(list :type (first node)
  