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

core:async fixes

Browse source
This commit is contained in:
Helmut Merz 2025-03-16 12:58:47 +01:00
parent 5c2126805d
commit 230594e98e
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/test-core.lisp
View file

@ -86,7 +86,7 @@
(deftest test-util-async ()
(async:init)
(let ((tsk (async:make-task)))
(let ((tsk (async:make-task :startup (lambda (&rest args) (sleep 0.01)))))
(== (async:status tsk) :new)
(async:start tsk)
(== (async:status tsk) :running)
@ -99,7 +99,7 @@
(== (async:status tsk) :running)
(async:send tsk :hello)
(== (async:stop tsk) '(:hello))
(== (async:status tsk) :done) )
(== (async:status tsk) :done))
(async:finish))
(deftest test-util-crypt ()

6
util/async.lisp
View file

@ -38,10 +38,10 @@
until (eq msg +quit-message+)
do (funcall handle-message tsk msg))
(sb-sys:interactive-interrupt (e)
(format t "~&async:standard-job: ~a~%" e)))))
(format t "~&async:standard-job: ~a~%" e)))
(data tsk)))
(setf (status tsk) :done)
(funcall teardown tsk)
(data tsk))))
(funcall teardown tsk))))
;;;; task class and related functions / methods