Лисп. Выход из рекурсии

[s2dentishe]

необходимо добавить к списку два элемента рекурсивным способом
(a b c d) преобразовать к (a b c d obj1 obj2)
добавить объекты не составляет сложности
подскажите, пожалуйста, как составить условие выхода из рекурсии

[netrino]

Тут по-разному придумать можно. Первое, что пришло мне в голову: проверять, является ли второй аргумент(первый объект) нулевой ссылкой, если да, то завершаем рекурсию, если нет, то цепляем его к списку и вызываем ф-цию с вторым объектом, как вторым параметром, а третьим передаём nil. То есть как-то так:

(defun add-two-objects (a-list first-object second-object)
  (cond ((null first-object) a-list)
        (T (rplacd (last a-list) (cons first-object nil))
           (add-two-objects a-list second-object nil))))

* (add-two-objects '(1 2 3 4) 5 6)
(1 2 3 4 5 6)

[s2dentishe]

Сообщение от netrino

Тут по-разному придумать можно. Первое, что пришло мне в голову: проверять, является ли второй аргумент(первый объект) нулевой ссылкой, если да, то завершаем рекурсию, если нет, то цепляем его к списку и вызываем ф-цию с вторым объектом, как вторым параметром, а третьим передаём nil. То есть как-то так:

(defun add-two-objects (a-list first-object second-object)
  (cond ((null first-object) a-list)
        (T (rplacd (last a-list) (cons first-object nil))
           (add-two-objects a-list second-object nil))))

* (add-two-objects '(1 2 3 4) 5 6)
(1 2 3 4 5 6)

Идея хорошая, но функции rplacd и last не работают вместе: компилятор выводит ошибку о работе функции rplacd

[netrino]

Странно, у меня всё работает, проверил на нескольких реализациях(http://ideone.com/ACcxc). Вы нигде не допустили ошибку? А если предварительно сохранить значение (last в переменную, а затем уже к ней применить (rplacd?