3 (time (setf (long-float-digits) 3322))
8 (format t "~%gamma not yet implemented in CLISP")
17 (format t "~%sqrt(3)")
22 (format t "~%exp(log(2))")
23 (time (exp (log 2L0)))
27 (format t "~%log(exp(2))")
28 (time (log (exp 2L0)))
32 (format t "~%sin(pi/3)")
37 (format t "~%cos(pi/3)")
42 (format t "~%arcsin(sqrt(3)/2)")
43 (time (asin (/ (sqrt 3L0) 2)))
47 (format t "~%arccos(sqrt(3)/2)")
48 (time (acos (/ (sqrt 3L0) 2)))
52 (format t "~%sinh(log(2))")
53 (time (sinh (log 2L0)))
57 (format t "~%cosh(log(2))")
58 (time (cosh (log 2L0)))
62 (format t "~%arsinh(pi)")
67 (format t "~%arcosh(pi)")