написать макрос

Бросай ты этот институт, раз такие простые задачки "не получается"

Вариант с dolist без сайд-эффектов (значение value вычисляется 1 раз):
(defmacro setqlist ((&rest vars) value)
  (let ((iter-name (gensym))
        (value-name (gensym)))
    `(let ((,value-name ,value))
       (dolist (,iter-name ',vars)
         (set ,iter-name ,value-name))
       ,value-name)))

Вариант с dolist с сайд-эффектами (значение value вычисляется многократно):
(defmacro setqlist ((&rest vars) value)
  (let ((iter-name (gensym)))
    `(progn
       (dolist (,iter-name ',vars)
         (set ,iter-name ,value))
       ,value)))

Рекурскивный вариант с сайд-эффектами:
(defmacro setqlist ((&rest vars) value)
  (when vars
    `(progn
       (set ',(car vars) ,value)
       (setqlist ,(cdr vars) ,value)
       ,value)))

Рекурсивный без сайд-эффектов писать лениво, можешь сама попробовать.

>Бросай ты этот институт, раз такие простые задачки "не получается"

Какие ты глупости советуешь. :) Можно же найти мальчика, который решит такие простые задачки. Что-то я не припомню, чтобы у нас девушки, когда я учился в Бауманке, не прибегали к помощи однокурсников. :)

P.S. Автору: А где это такие задания выдают, интересно?

> Можно же найти мальчика, который решит такие простые задачки.

Как локальная оптимизация это прокатит. Правда мне не понятно, зачем тратить 5 лет в институте, если по выходе из него не сможешь даже такие задачи решать? Может стоит чему-то все же научиться, чтобы потом деньги зарабатывать?

> Как локальная оптимизация это прокатит. Правда мне не понятно, зачем тратить 5 лет в институте, если по выходе из него не сможешь даже такие задачи решать? Может стоит чему-то все же научиться, чтобы потом деньги зарабатывать?

Порвало. Неужели ты думаешь, что они поступают, чтобы потом деньги зарабатывать?

наивный чукотский юноша, лол