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)
    
    ))

(defmacro names-introspect-replace-labels-1 (bindings form)
  `(lexical-let ,bindings ,form))

(let ((names--name 'asd))
  (names-introspect-replace-labels 
   (defun test nil names--name)))

(define-namespace new- 
(defun test nil names--name))