From c76df3d0b21dca2c26eadf60edacd7ce195aca21 Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Mon, 2 Aug 2004 17:40:28 +0000
Subject: [PATCH] Move to timebench1.lisp.

---
 benchmarks/timebench1.lsp | 69 ---------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100644 benchmarks/timebench1.lsp

diff --git a/benchmarks/timebench1.lsp b/benchmarks/timebench1.lsp
deleted file mode 100644
index 77dea48..0000000
--- a/benchmarks/timebench1.lsp
+++ /dev/null
@@ -1,69 +0,0 @@
-(progn
-  (format t "~%pi")
-  (time (setf (long-float-digits) 3322))
-  (time pi)
-)
-
-(progn
-  (format t "~%gamma not yet implemented in CLISP")
-)
-
-(progn
-  (format t "~%e")
-  (time (exp 1L0))
-)
-
-(progn
-  (format t "~%sqrt(3)")
-  (time (sqrt 3L0))
-)
-
-(progn
-  (format t "~%exp(log(2))")
-  (time (exp (log 2L0)))
-)
-
-(progn
-  (format t "~%log(exp(2))")
-  (time (log (exp 2L0)))
-)
-
-(progn
-  (format t "~%sin(pi/3)")
-  (time (sin (/ pi 3)))
-)
-
-(progn
-  (format t "~%cos(pi/3)")
-  (time (cos (/ pi 3)))
-)
-
-(progn
-  (format t "~%arcsin(sqrt(3)/2)")
-  (time (asin (/ (sqrt 3L0) 2)))
-)
-
-(progn
-  (format t "~%arccos(sqrt(3)/2)")
-  (time (acos (/ (sqrt 3L0) 2)))
-)
-
-(progn
-  (format t "~%sinh(log(2))")
-  (time (sinh (log 2L0)))
-)
-
-(progn
-  (format t "~%cosh(log(2))")
-  (time (cosh (log 2L0)))
-)
-
-(progn
-  (format t "~%arsinh(pi)")
-  (time (asinh pi))
-)
-
-(progn
-  (format t "~%arcosh(pi)")
-  (time (acosh pi))
-)