Performance of dgemm



> (%i24) A:adjacency_matrix(random_graph(900,0.003))$
> Evaluation took 0.1700 seconds (0.2000 elapsed) using 18.729 MB.
> (%i25) (A.A)$
> Evaluation took 29.5900 seconds (34.5400 elapsed) using 37.189 MB.
> (%i26) dgemm(A,A)$
> Evaluation took 2.0500 seconds (2.1600 elapsed) using 117.610 MB.

Maybe 0.003 is too small to retard dgemm on cmucl?
How about larger values?