那位高手請說明下面的代碼是做什么用的。
???? (defun pi-inv (bits &aux (m 0))
?????? (declare (integer bits m))
?????? (let* ((n (+ bits (integer-length bits) 11))
????????????? (tt (truncate (ash 1 n) 882))
????????????? (d (* 4 882 882))
????????????? (s 0))
???????? (declare (integer s d tt n))
???????? (do ((i 2 (+ i 2))
????????????? (j 1123 (+ j 21460)))
???????????? ((zerop tt) (cons s (- (+ n 2))))
?????????? (declare (integer i j))
???????????? (setq s (+ s (* j tt))
?????????????????? m (- (* (- i 1) (- (* 2 i) 1) (- (* 2 i) 3)))
?????????????????? tt (truncate (* m tt) (* d (the integer (expt i 3))))))))