      (format (concat "(do (require '[spec-provider.provider :as ispec]) "
                      "(ispec/pprint-specs (ispec/infer-specs %s :emacs/cider-value) 'emacs 's))")
              sexp)
-     (clj-decompile-popup-eval-handler
+     (clj-combined-popup-eval-handler
       buf
       (lambda () nil)))))
 

    (cider-interactive-eval
     (format "(do (require 'criterium.core) (criterium.core/quick-bench %s) :ok)"
             sexp)
     (clj-decompile-popup-eval-handler
      buf
      (lambda () nil)))))


           '[clj-java-decompiler.core :refer [decompile disassemble]]
           '[criterium.core :as crit])"))

;; TODO: add helper for popup view image from clojure?
(defun clj-combined-popup-eval-handler (buffer complete-handler)
  "Make a handler for combining evaluation, stdout, and stderr results in popup BUFFER.
This is used to generate mode specific popups."
  (nrepl-make-response-handler
   buffer
   (lambda (buffer value)
