[LISP] Переделать код под использование цикла DO

[HostileZeth]

Нужно выполнить вычисление уравнения двумя методами: с помощью PROG и с помощью DO. Последнее не получается.

С помощью PROG вроде работает.

(defun PROGR ()
(PROG (x f)
(setq x 7.1) (setq RES nil)
loop
(setq x (- x 0.1))
(cond ((> x 1)(setq f (- (Log (+ 2 (/ x 0.3))  3) 1) ))
      ((AND (=< -1 x) (< x 0) ) (setq f (- (sin (/ (- (+ (* x x) x) 2) Pi) ) (Log (+ x 3)) )))
      (T (setq f (- 0 1))))
(setq res (cons f res))
(if (<= x 2) (RETURN RES) (GO loop))))

Спасибо за внимание.