Re: FW: How to avoid compiler warning `unused lexical variable' for `dolist' or `dotimes'?

[Jean Louis]

Now replacing:

(defun list-append-elts-to-first-cons (list)
    "Cons with FIRST-ELT . FIRST-ELT OTHER-ELT"
  (let ((new-list '())
 (times (length list)))
    (dotimes (nr times new-list)
      (let* ((item (elt list nr))
      (first (car item)))
 (push (cons first (list item)) new-list)))))

(list-append-elts-to-first-cons '((1 2 3)))
((1 (1 2 3)))

(defun list-append-elts-to-first-cons (list)
  "Cons with FIRST-ELT . FIRST-ELT OTHER-ELT"
  (mapcar (lambda (item) (cons (car item) (list item))) list))

(list-append-elts-to-first-cons '((1 2 3)))
((1 (1 2 3)))