Помогите с Lisp...

> Нет.

А вот это, уже, браток, плохо. Баб надо хотеть, в противном случае 
нифига у тебя с лиспом не получится.

Ладно, так уж и быть, вот тебе черновой вариант:

(defun fun (x)
   (- (* 4 (log x)) x))

(defun der (x)
   (- (/ 4 x) 1))

(defun newton (fun der start eps)
   (let ((x (- start (/ (funcall fun start) (funcall der start)))))
     (if (< (abs (- start x)) eps)
         x
         (newton fun der x eps))))

(newton #'fun #'der 1 0.001)