vseloved

(define-condition generated ()
  ((item :initarg :item :reader generated-item)))

(defun yield (&optional item)
  (restart-case (signal 'generated :item item)
    (resume (&optional item) item)))

(defun send (item generator)
  (let (already-triggered)
    (handler-bind ((generated (lambda (e)