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

core/actor: first primitive implementation

Browse source
This commit is contained in:
Helmut Merz 2025-04-13 10:13:04 +02:00
parent b4762d5003
commit 32913677fd
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
core/actor.lisp
View file

@ -4,7 +4,7 @@
(:use :common-lisp) (:use :common-lisp)
(:local-nicknames (:util :scopes/util)) (:local-nicknames (:util :scopes/util))
(:export #:actor #:become #:create #:send (:export #:actor #:become #:create #:send
#:echo #:lgi)) #:echo #:inc #:lgi))
(in-package :scopes/core/actor) (in-package :scopes/core/actor)
@ -33,3 +33,9 @@
(defun echo (ac msg) (defun echo (ac msg)
(send (customer msg) msg)) (send (customer msg) msg))
(defun inc (&optional (val 0))
#'(lambda (ac msg)
(if msg ; (payload msg)
(become ac (inc (+ msg val)))
(send (create #'lgi) val))))

6
test/test-core.lisp
View file

@ -128,8 +128,10 @@
(deftest test-actor () (deftest test-actor ()
(let (a1 a2 a3) (let (a1 a2 a3)
(setf a1 (actor:create 'actor:lgi)) (setf a1 (actor:create (actor:inc)))
(actor:send a1 "Hello World") (actor:send a1 2)
(actor:send a1 3)
(actor:send a1 nil)
)) ))
(deftest test-send () (deftest test-send ()