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

2
test/test-core.lisp
View file

@ -86,7 +86,7 @@
(deftest test-util-async () (deftest test-util-async ()
(async:init) (async:init)
(let ((tsk (async:make-task))) (let ((tsk (async:make-task :startup (lambda (&rest args) (sleep 0.01)))))
(== (async:status tsk) :new) (== (async:status tsk) :new)
(async:start tsk) (async:start tsk)
(== (async:status tsk) :running) (== (async:status tsk) :running)

6
util/async.lisp
View file

@ -38,10 +38,10 @@
until (eq msg +quit-message+) until (eq msg +quit-message+)
do (funcall handle-message tsk msg)) do (funcall handle-message tsk msg))
(sb-sys:interactive-interrupt (e) (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) (setf (status tsk) :done)
(funcall teardown tsk) (funcall teardown tsk))))
(data tsk))))
;;;; task class and related functions / methods ;;;; task class and related functions / methods