Path: utzoo!attcan!uunet!convex!killer!osu-cis!tut.cis.ohio-state.edu!ukma!rutgers!sri-unix!felix@AI.SRI.COM
From: felix@AI.SRI.COM (Francois Felix INGRAND)
Newsgroups: comp.lang.lisp
Subject: sum-test error, dotimes does not take do keyword.
Message-ID: <24678@sri-unix.SRI.COM>
Date: 23 Nov 88 23:57:08 GMT
Sender: news@unix.SRI.COM
Reply-To: felix@AI.SRI.COM (Francois Felix INGRAND)
Organization: SRI International, Menlo Park, CA
Lines: 23

The following function have been posted a while ago (I do not remember
who posted it, and I lost the header). But there is a strange feature
in it, which I think may modify the result of the test

X said:
>I decided to time all the various methods that have been discussed.  I
>tried them on a Symbolics 3640 running Genera 7.2 and a Sun 3/280
>running Lucid CL 2.0.3.  I used the default OPTIMIZE parameters.

>Here is the function I used for the tests:

>(defun sum-test (list &optional (count 100))
>  (macrolet ((repeat (&body body) `(dotimes (i count) do (progn .,body)))
....                                                   ^^^^^^^^^ 
This do is a label and the progn is not needed. But perhaps the
compiler take it out.

.... end of the function have been erased
-- 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Francois Felix INGRAND                          SRI International, AIC
                                                333, Ravenswood Avenue
felix@AI.SRI.COM                                MENLO PARK, CA 94025