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)))