Prefer push over add-to-list

* dev/examples-to-docs.el (defexamples, def-example-group):
* dev/examples-to-info.el (defexamples, def-example-group): Replace
unneeded add-to-list with push.

dev/examples-to-docs.el

@@ -66,17 +66,17 @@ FUNCTION may reference an elisp function, alias, macro or a subr."
       (help-function-arglist function-symbol))))
 
 (defmacro defexamples (cmd &rest examples)
-  `(add-to-list 'functions (list
+  `(push (list ',cmd
-                            ',cmd
+               (docs--signature ',cmd)
-                            (docs--signature ',cmd)
+               (documentation ',cmd)
-                            (documentation ',cmd)
+               (mapcar #'example-to-string (-partition 3 ',examples)))
-                            (-map 'example-to-string (-partition 3 ',examples)))))
+         functions))
 
 (defmacro def-example-group (group desc &rest examples)
   `(progn
-     (add-to-list 'functions ,(concat "### " group))
+     (push ,(concat "### " group) functions)
      (when ,desc
-       (add-to-list 'functions ,desc))
+       (push ,desc functions))
      ,@examples))
 
 (defun quote-and-downcase (string)

dev/examples-to-info.el

@@ -70,17 +70,17 @@ FUNCTION may reference an elisp function, alias, macro or a subr."
       (help-function-arglist function-symbol))))
 
 (defmacro defexamples (cmd &rest examples)
-  `(add-to-list 'functions (list
+  `(push (list ',cmd
-                            ',cmd
+               (docs--signature ',cmd)
-                            (docs--signature ',cmd)
+               (documentation ',cmd)
-                            (documentation ',cmd)
+               (mapcar #'example-to-string (-partition 3 ',examples)))
-                            (-map 'example-to-string (-partition 3 ',examples)))))
+         functions))
 
 (defmacro def-example-group (group desc &rest examples)
   `(progn
-     (add-to-list 'functions ,(concat "### " group))
+     (push ,(concat "### " group) functions)
      (when ,desc
-       (add-to-list 'functions ,desc))
+       (push ,desc functions))
      ,@examples))
 
 (defun quote-and-downcase (string)