Как разорвать циклическую структуру? Лисп

[s2dentishe]

есть список ((((1) 2) 3) 4)

(setq x '((((1) 2) 3) 4)) ;заносим в список
(rplacd (cdr x) x) ; зацикливаем структуру

получаем (((1) 2) 3) 4 (((1) 2) 3) 4 (((1) 2) 3) 4 ...

как теперь разорвать цикл, чтобы список начинался с 4-ки и заканчивался 3-кой ?

[tools]

пришло в голову вот такое решение в три действия, проверь его, подходит или нет:

(rplacd (cdr x) (car x))

(rplaca x (car (cdr x)))

(rplacd x (cdr (cdr x))

[s2dentishe]

в таком случае появляются дополнительные списковые ячейки (см. ссылку http://programmersforum.ru/showthread.php?t=138961, там полное задание моей задачи)

[tools]

Если бы мы использовали функции наподобие cons или list, тогда создавались бы новые списочные структуры , а спискоразрушающие функции rplacd и rplaca только изменяют существующую списочную структуру, а не создают новую. Поэтому никаких дополнительных списочных ячеек тут не появляется. Мы же только указателями здесь оперируем.

[s2dentishe]

спасибо большое! помогло !