Re: [External] : Re: Appending lists

[Emanuel Berg]

Jean Louis wrote:

> Not like that, you have to use `copy-sequence' on the last
> element within `append'
>
> (progn
>   (setq list-head '(1))
>   (setq list-tail '(2 3 4))
>   (setq whole-list (append list-head (copy-sequence list-tail)))
>   (setcdr list-tail '(3.5 4))
>   whole-list
> ) ; (1 2 3 4)

Clearly doesn't work:

(progn
   (setq list-head '(1))
   (setq list-tail '(2 3 4))
   (setq whole-list (append list-head
                            `(,(car list-tail))
                            (setcdr (copy-sequence list-tail) '(3.5 4))))
   whole-list
 ) ; (1 2 3.5 4)

-- 
underground experts united
https://dataswamp.org/~incal