CL-USER> (defparameter *list* (make-list 100000 :initial-element 1))
*LIST*
CL-USER> (defparameter *array* (make-array 100000 :initial-element 1))
*ARRAY*
CL-USER> (time (loop :repeat 10000 :do (nth 99000 *list*)))
Evaluation took:
  1.676 seconds of real time
  1.640625 seconds of total run time (1.640625 user, 0.000000 system)
  97.91% CPU
  4,199,648,406 processor cycles
  0 bytes consed

NIL
CL-USER> (time (loop :repeat 10000 :do (elt *list* 99000)))
Evaluation took:
  0.000 seconds of real time
  0.000000 seconds of total run time (0.000000 user, 0.000000 system)
  100.00% CPU
  148,006 processor cycles
  0 bytes consed

NIL
CL-USER> (time (loop :repeat 10000 :do (aref *array* 99000)))
Evaluation took:
  0.000 seconds of real time
  0.000000 seconds of total run time (0.000000 user, 0.000000 system)
  100.00% CPU
  207,244 processor cycles
  0 bytes consed

NIL
CL-USER>