Construct an XDOC tree for a formals directive @(formals ...).
Macro:
(defmacro @formals (&rest trees) (list '@formals-fn (cons 'list trees)))
Function:
(defun @formals-fn (trees) (declare (xargs :guard (tree-listp trees))) (make-tree-dir/&& :@formals trees))
Theorem:
(defthm stringp-of-@formals (equal (treep (@formals-fn trees)) (tree-listp trees)))