Считать из стека верхний элемент и меняет значение переменной стека - Lisp

Нужно определить макрос, который читает из стека верхний элемент и меняет значение переменной стека

Листинг программы

(defmacro new-pop (var)
  `(let ((ret (car ,var)))
     (setf ,var (cdr ,var))
     ret))

Объяснение кода листинга программы

В данном коде определен макрос new-pop, который выполняет следующие действия:

Создает временную переменную ret и присваивает ей значение первого элемента стека (car).
Меняет значение переменной var, присваивая ей значение остатка стека (cdr).
Возвращает значение переменной ret. Вот список действий в виде нумерованных элементов:
Определение макроса new-pop.
Создание временной переменной ret.
Присваивание значению переменной ret значение первого элемента стека (car).
Присваивание значению переменной var значение остатка стека (cdr).
Возвращение значения переменной ret.