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