*scratch*.el

FIRST-LIGHT-EXAMPLE> (let ((x (loop for i below (* 1024 1024 20) collect i)) (sum 0))  (time (dolist (val x) (incf sum val))) sum)
Evaluation took:
  0.056 seconds of real time
  0.056000 seconds of total run time (0.056000 user, 0.000000 system)
  100.00% CPU
  191,979,137 processor cycles
  0 bytes consed
  
219902315069440 (48 bits, #xC7FFFF600000)



FIRST-LIGHT-EXAMPLE> (let ((x (loop for i below (* 1024 1024 20) collect i)) (sum 0))  (time (map nil (lambda (val) (incf sum val)) x)) sum)
Evaluation took:
  0.105 seconds of real time
  0.108000 seconds of total run time (0.108000 user, 0.000000 system)
  102.86% CPU
  357,259,923 processor cycles
  0 bytes consed
  
219902315069440 (48 bits, #xC7FFFF600000)