请写一个linux下lisp计算圆周率的程序，并且打印结果

下面是一个使用 Lisp 语言计算圆周率的示例程序：

(defun calculate-pi (iterations)
  (let ((pi 0.0)
        (denominator 1.0)
        (sign 1.0))
    (dotimes (i iterations)
      (setf pi (+ pi (/ (* sign 4.0) denominator)))
      (setf denominator (+ denominator 2.0))
      (setf sign (* sign -1.0)))
    (* pi 4.0)))

(defun print-pi ()
  (format t "The value of π is: ~,16f~%" (calculate-pi 10000)))

(print-pi)

这个程序使用了莱布尼茨级数（Leibniz series）来近似计算圆周率。它通过迭代的方式计算，每次迭代都更新 pi 的值，并在最后乘以 4.0 得到最终结果。

程序定义了两个函数：`calculate-pi` 和 `print-pi`。`calculate-pi` 函数接受一个参数 iterations，指定了迭代次数。它使用循环和一些变量来计算圆周率的近似值。`print-pi` 函数用于打印计算得到的圆周率的值。

最后，程序调用了 `print-pi` 函数来执行计算并打印结果。在 Linux 系统中，你可以运行一个支持 Lisp 的解释器（如 SBCL）来执行这个程序，并查看输出结果。

注意：Lisp 的语法和运行环境可能因具体实现而异，以上示例代码适用于一些常见的 Lisp 方言，但也可能需要根据实际环境进行适当的调整。