Not on me but ive done some testing on an application im creating for my company right now; Its about 850 lines of solid code and I tested several diff methods. However I supose we could whip one up. BUT I think you should be warned that just using one ``improvment'' in your test code inst going to matter much, you need to take other steps as well to ensure faster code.
(setq my-lst '(1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0))
(benchmark
'(
( (lambda ( lst )
(mapcar
(function
1+) lst))
my-lst)
( (lambda ( lst )
(mapcar '1+ lst))
my-lst)
)
)
Elapsed milliseconds / relative speed for 8192 iteration(s):
((LAMBDA (LST) (MAPCAR (FUNCTION 1+)...).....1031 / 1.05 <fastest>
((LAMBDA (LST) (MAPCAR (QUOTE 1+) LS...).....1078 / 1.00 <slowest>
Command: <Osnap off>
Command: (benchmark
(_> '(
('(_> ( (lambda ( lst )
('(((_> (mapcar
('((((_> (function
('(((((_> 1+) lst))
('((_> my-lst)
('(_> ( (lambda ( lst )
('(((_> (mapcar '1+ lst))
('((_> my-lst)
('(_>
('(_>
('(_> )
(_> )
Elapsed milliseconds / relative speed for 8192 iteration(s):
((LAMBDA (LST) (MAPCAR (FUNCTION 1+)...).....1015 / 1.06 <fastest>
((LAMBDA (LST) (MAPCAR (QUOTE 1+) LS...).....1078 / 1.00 <slowest>
Command: (benchmark
(_> '(
('(_> ( (lambda ( lst )
('(((_> (mapcar
('((((_> (function
('(((((_> 1+) lst))
('((_> my-lst)
('(_> ( (lambda ( lst )
('(((_> (mapcar '1+ lst))
('((_> my-lst)
('(_> )
(_> )
Elapsed milliseconds / relative speed for 8192 iteration(s):
((LAMBDA (LST) (MAPCAR (FUNCTION 1+)...).....1031 / 1.03 <fastest>
((LAMBDA (LST) (MAPCAR (QUOTE 1+) LS...).....1062 / 1.00 <slowest>