История изменений

Исправление theNamelessOne, 06.01.16 10:55 (текущая версия) :

Рекурсивный?

Не, через do, например:

(defmacro while (condition &body body)
  `(do ()
       ((not ,condition))
     ,@body))
     
(let ((counter 10))
  (while (not (zerop counter))
    (format t "tick ~a...~%" counter)
    (decf counter))
  (format t "BOOM!~%"))

при попытке выполнения выдаёт переполнение стека

~~Потому что происходит бесконечное раскрытие рекурсивного макроса.~~

Исходная версия theNamelessOne, 06.01.16 10:48:

Рекурсивный?

Не, через do, например:

(defmacro while (condition &body body)
  `(do ()
       ((not ,condition))
     ,@body))
     
(let ((counter 10))
  (while (not (zerop counter))
    (format t "tick ~a...~%" counter)
    (decf counter))
  (format t "BOOM!~%"))

при попытке выполнения выдаёт переполнение стека

Потому что происходит бесконечное раскрытие рекурсивного макроса.