A simple example of setting up 10 green threads with infinite loops that wait and do work periodically using green-threads and cl-async.

async3.lisp

(ql:quickload "cl-async")
(ql:quickload "green-threads")

(cl-cont:defun/cc my-delay (time)
    (cl-cont:let/cc continuation
      (as:delay continuation :time time)))

(as:start-event-loop
 (lambda ()
   (gt:with-green-thread
       (dotimes (x 10)
         (gt:with-green-thread
             (loop
                (my-delay 1.0)
                (format t "Hello~%")))))))