[oct-cvs] Oct commit: oct timing2.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv7497

Modified Files:
	timing2.lisp 
Log Message:
Remove duplicate TIME-MUL.


--- /project/oct/cvsroot/oct/timing2.lisp	2007/10/13 02:14:43	1.3
+++ /project/oct/cvsroot/oct/timing2.lisp	2007/10/16 14:21:13	1.4
@@ -53,18 +53,6 @@
     (format t "n = ~D~%" n)
     (format t "b = ~W~%" b)))
   
-(defun time-mul (&optional (n 100000))
-  (declare (fixnum n)
-	   (optimize (speed 3)))
-  (let ((a (+ 1 (/ (float n #q1))))
-	(b #q1))
-    (declare (type qd-real a b))
-    (time (dotimes (k n)
-	    (declare (fixnum k))
-	    (setf b (* a b))))
-    (format t "n = ~D~%" n)
-    (format t "b = ~W~%" b)))
-
 (defun time-div (&optional (n 100000))
   (declare (fixnum n)
 	   (optimize (speed 3)))