(defun make-table (&rest symbols)
  (pairlis symbols (mapcar #'symbol-function symbols)))

(format t "~(~{~&~a~}~)" 
  (make-table '+ 'cons 'make-table))

(defmacro make-table-macro (&rest symbols)
  `(list ,@(mapcar (lambda (symbol) `(cons ',symbol #',symbol)) symbols)))

(format t "~(~%~%macroexpand: ~a~%~{~%~a~}~)"
  (macroexpand '#1=(make-table-macro + - *))
  #1#)