gistfile1.lisp

(defun sleeper ()
  (let ((f1 (green-threads:make-future)))
    (as:delay (lambda () (complete-future f1 'hai)) :time 3)
    f1))

(defun app ()
  (with-green-thread
    (format t "start sleeper~%")
    (format t "end sleeper: ~a~%" (wait-on (sleeper)))))

(as:start-event-loop
  (lambda ()
    (format t "start app~%")
    (app)
    (format t "end app~%")))