cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

async: + wait on task: use receive-result

Browse source
This commit is contained in:
Helmut Merz 2025-06-03 14:39:52 +02:00
parent 25cc9c6efe
commit f45d152e47
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
util/async.lisp
View file

@ -36,13 +36,11 @@
(defun submit-task (ch job)
(lp:submit-task ch job))
;;;; not used at the moment
(defun receive-result
(lp:receive-result ch))
;;;; task class and related functions
(defun receive-result (ch)
(lp:receive-result ch))
(defclass task ()
((job :reader job :initarg :job)
(taskid :reader taskid :initform (gensym "TSK"))
@ -60,4 +58,6 @@
(submit-task (channel tsk) (job tsk)))
(defun wait-receive (tsk)
(lp:receive-result (channel tsk)))
(let ((data (receive-result (channel tsk))))
(setf (status tsk) :done)
data))