Common Lisp 中数值函数的近似导数和二阶导数 - 未按预期工作

问：

我尝试了一种非常幼稚的方法来逼近 Lisp 中函数的一阶导数，并得出了这样的东西：

(defparameter *delta-x* 0.00001)

(defun diff (f x)
  (/ (- (funcall f (+ x *delta-x*)) (funcall f x))
     *delta-x*))

因此，例如

(diff #'(lambda (x) (* x x x)) 2)
; 12.016296

这还不错（12 是实际结果）。所以我想......为什么不呢？并试图将其扩展到二阶导数近似，使用

(defun diff2 (f x)
  (diff #'(lambda (z) (diff f z)) x))

意识到它可能是一个数值较差的算法，我仍然期望得到某种结果，但我得到 0.0 作为我尝试的所有事情的答案，所以我的猜测是我写的 Lisp 不是我认为的那样......

(diff2 #'(lambda (x) (* x x x)) 2)
; 0.0

任何提示将不胜感激！

谢谢。