CL-USER> (let ((sequence (alexandria:shuffle (alexandria:iota 200000))))
           (declare (optimize speed))
           (sb-ext:gc :full t)
           (time (sort sequence #'<))
           nil)
Evaluation took:
  0.051 seconds of real time
  0.050891 seconds of total run time (0.050891 user, 0.000000 system)
  100.00% CPU
  178,592,481 processor cycles
  0 bytes consed
  
NIL
CL-USER> (let* ((sequence (alexandria:shuffle (alexandria:iota 200000)))
                (sequence (make-array 200000 :initial-contents sequence)))
           (declare (optimize speed))
           (sb-ext:gc :full t)
           (time (sort sequence #'<))
           nil)
Evaluation took:
  0.055 seconds of real time
  0.056660 seconds of total run time (0.044660 user, 0.012000 system)
  103.64% CPU
  198,227,175 processor cycles
  0 bytes consed
  
NIL
CL-USER> (let* ((sequence (alexandria:shuffle (alexandria:iota 200000)))
                (sequence (make-array 200000 :element-type 'fixnum
                                             :initial-contents sequence)))
           (declare (optimize speed))
           (sb-ext:gc :full t)
           (time (sort sequence #'<))
           nil)
Evaluation took:
  0.139 seconds of real time
  0.139899 seconds of total run time (0.139899 user, 0.000000 system)
  100.72% CPU
  489,522,372 processor cycles
  0 bytes consed
  
NIL