% Constant-Variable PI
Constant Variable PI
実装依存でありlong-floatの値
適切にlong-floatで近似された数学的な定数のπ（円周率）。
;; 下記の計算は実装の精度に依存します。
;; また「long float」が実装によっては他のいくつかの
;; 浮動小数形式（例えば「double-float」）として扱われるため、
;; 指数マーカーは同等のものになるかもしれません
;; （例えば「L」の代わりに「D」）。
pi => 3.141592653589793L0
(cos pi) => -1.0L0
(defun sin-of-degrees (degrees)
(let ((x (if (floatp degrees) degrees (float degrees pi))))
(sin (* x (/ (float pi x) 180)))))
なし。
他のいくつかの精度へのPIの近似は、
(float pi x)、ただしxは希望する精度の浮動小数と書くか、
あるいは(coerce pi type)、ただしtypeは
例えばshort-floatのように希望する型を書くことで
得ることができます。