names-introspect.el

(defun names-introspect-replace-labels (fn form)
  (let* ((vars names--var-list)
         (bindings (--> (-map 'symbol-value vars)
                        (-interleave vars it)
                        (-partition 2 it))))
    `(lexical-let ,bindings ',@form)))

(lexical-let ((names--name new-)
              (names--regexp "\\`new-")
              (names--bound nil)
              (names--version nil)
              (names--package nil)
              (names--group-parent nil)
              (names--macro nil)
              (names--current-run 0)
              (names--fbound nil)
              (names--keywords nil)
              (names--local-vars nil)
              (names--protection "\\`::"))
  'defuntest
  nil
  names--name)