sleepsort

(use-package :sb-thread)

(defun show (item)
    (sleep item)
    (format t "~S~%" item))

(defun sleep-sort (lst)
    (mapcar
    #'(lambda (item) (make-thread #'(lambda () (show item))))
    lst))