Convenience function for creating a new xml node.
(defun make-node (&key name ns attrs child children)
"Convenience function for creating a new xml node."
(cons (cons (if ns
(cons name ns)
name)
attrs)
(if child
(list child)
children)))Source Context