Продолжаю изучение хLispa. сижу решаю такую задачку: напишите функцию (f n), которая выводила бы список из 0 и 1 (двоичная система) натурального числа n. я пробовал сделать так:

(defun f (n)
(labels
((sp (n s)
(cond ((= n 0) (append 0 s))
((= n 1) (append 1 s))
(t (and ((append (mod n 2) s) (sp (truncate (/ n 2)) s))))
)
))
(sp n nil)
)
)

т.е. если 0, добавляем 0 в список s, аналогично для единицы. иначе добавляем остаток от деления n на 2 и запускаем функцию заново с truncate (/ n 2). выдает ошибку... что делаю не так? подскажите пожалуйста. может нужно как-то на две функции разбить? или еще как-то??? заранее спасибо!

Очередное преогромнейшее спасибо, Миша!