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

csys fixes: merge zero actions, remove-from-plist: missing parameter; threshold: default 1

Browse source
This commit is contained in:
Helmut Merz 2026-07-29 14:39:52 +02:00
parent f3e3af8e0b
commit e0384a9108
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
csys/csys.lisp
View file

@ -128,8 +128,8 @@
;;;; action handlers ;;;; action handlers
(defun basic-actions () (defun basic-actions (&key (threshold 1))
(list :value (value-add) (list :value (value-add :threshold threshold)
:create (create) :create (create)
:connect (connect) :connect (connect)
:next (no-op :no-forward t))) :next (no-op :no-forward t)))
@ -187,7 +187,7 @@
(let ((args+ (if name (let ((args+ (if name
`(:addr ,(list domain cat name)) `(:addr ,(list domain cat name))
`(:categ ,(list domain cat))))) `(:categ ,(list domain cat)))))
(setf args (alx:remove-from-plist :domain :cat :name)) (setf args (alx:remove-from-plist args :domain :cat :name))
(actor:send cell (actor:send cell
(message:create (list domain :create) :data (append args+ args))))) (message:create (list domain :create) :data (append args+ args)))))

4
test/test-csys.lisp
View file

@ -70,8 +70,8 @@
':default (csys:std-proc :actions (csys:basic-actions))))) ':default (csys:std-proc :actions (csys:basic-actions)))))
(defun actions-zero-initial () (defun actions-zero-initial ()
(util:plist-merge (list :next (next-zero-initial)) (util:plist-merge (csys:basic-actions)
(csys:basic-actions))) (list :next (next-zero-initial))))
(defun next-zero-initial () (defun next-zero-initial ()
(lambda (msg scope) (lambda (msg scope)