anchor.diff:      (traverse-tree
        (lambda (&key child parent)
          (setf parsed-node (parse-node child)
  -             children (and (listp parsed-node) (getf parsed-node :children)))
  +             children (and (descend-p parsed-node) (getf parsed-node :children)))
          (when (null root)
            (setf root parsed-node))
          (when children
  
positive.code: 
  
  (defun compile-node (parsed-node)
    (if (atom parsed-node)
        parsed-node
        (destructuring-bind (&key type props children) parsed-node
          (let ((type-sym
                  (make-symbol (string type)))
  
negative.code:            (if (dom-type-p type)
                 `(ps:chain React DOM (,type-sym ,@props-obj))
                 `(ps:chain React (create-element ,type-sym ,@props-obj)))
             children)))
        (if (atom parsed-node)
            parsed-node
            (cdr parsed-node)))) ;Drop the (ps... ) wrapper
  
  
  (defun compile-tree (parsed-tree)
  