Здравствуйте уважаемые! Не могли бы вы помочь? Ну не получается :-((( у бедной девушки.

Надо написать макрос, некий вариант setq , который берёт несколько переменных и присваивает им одновременно значение (которое тоже может вычисляться). Первый аргумент – список, в котором каждый элемент является переменной. И каждому элементу присваивается значение второго аргумента. Надо сделать с DOLIST, т. б. чтобы под (macкoexpand'ом) было (... (DOLIST (VAR '(A B C) ...) (SET VAR ...)...)

и рекурсивный вариант (... (PROGN (SETQ A ...) (SETQLIST (B C) ...) ...)

Вызов: (setqlist (a b c) (+ 1 2))

Макрос должен вернуть 3 и каждый элемент должен быть равен 3.

Помогите, пожалуйста, а?!