RosettaCodeData/Task/Multiple-distinct-objects/Common-Lisp/multiple-distinct-objects-3.lisp

(map-into (make-list n) #'make-the-distinct-thing)
(map-into (make-array n) #'make-the-distinct-thing)