>>683
(defun fib (x)
(if (<= x 1) 1
;;(+ (fib (- x 1)) (fib (- x 2)))))
(+ (fib (+ x 1)) (fib (+ x 2)))))

そのマシンは家にあるもので今手元にないため再現するか確かめて
はいないのですが、上のようなコードだったように記憶しています。

>>682 さんの 2つ目のコードで大丈夫なら上のコードも多分問題は
ないように思うのですが。ということはうちの環境に問題ありそう
ですね。

環境について補足。
FreeBSD-4.9 STABLE + (portsの) CMUCL-18e

それと (defun f () (f)) のような末尾再帰版はうちでも Ctrl-C
で普通に止まりました。

;; うちのプロバイダはアクセス規制になっていたので結果の報告
;; など遅くなるかもしれません。