Ну, то есть, как должен работать (как показано) - не работает.
Эта штука должна быть такая:
(defmacro combine-results (&body forms)
  (with-gensyms (result)
    `(let ((,result t))
      ,@(loop for f in forms
              collect `(report-result ,f ',f)
              collect `(unless ,f (setf ,result nil)))
       ,result)))
Тогда, допустим, вот эта - такая (всего лишь):
(defmacro check (&body forms)
  `(combine-results
    ,@forms))
Тогда работает, а я теперь буду целый вечер собой гордиться.

При быстрой проверки кода из книжки всё работает. В чём расхождение?

Нормально всё, да. Это я сам ошибку сделал, а потом из неё выкруживался. Хе, выкружился, кстати, - он у меня работал в оконцовке, только дублировал лишнее (зато каждую отдельную функцию объявлял ловко). Ну, у меня своя метода "прохождения" учебников.
Спасибо, что ответили.