(with-eval-after-load 'clojure-mode
(defun my/cider-print-table-eval-last-sexp ()
(interactive)
(flet ((cider--pprint-fn () "clojure.pprint/print-table"))
(cider-pprint-eval-last-sexp)))
(defun my/cider-pprint-eval-last-sexp (print-table?)
(interactive "P")
(if print-table?
(my/cider-print-table-eval-last-sexp)
(cider-pprint-eval-last-sexp)))
(define-key clojure-mode-map [remap cider-pprint-eval-last-sexp] 'my/cider-pprint-eval-last-sexp))