Nicolas Petton <nicolas@petton.fr> writes:

>> The problem does exist on trunk which does this instead:

This is using seq.el from trunk:

  (defvar l '(a c d))
  (setq l (nconc l l))
  (seq-mapn #'cons l '(1)) ;; ((a . 1))

Cheers,
Nico