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

use pushnew instead of adjoin

Browse source
This commit is contained in:
Helmut Merz 2026-04-30 09:15:23 +02:00
parent b863763e9b
commit 205f96d917
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
csys/csys.lisp
View file

@ -34,8 +34,7 @@
(setf (gethash key (actions *environment*)) fn)) (setf (gethash key (actions *environment*)) fn))
(defun add-sensor (key sn) (defun add-sensor (key sn)
(let ((sns (sensors *environment*))) (pushnew sn (gethash key (sensors *environment*))))
(setf (gethash key sns) (adjoin sn (gethash key sns)))))
;;;; neurons (= behavior factories) and synapses (connection factories) ;;;; neurons (= behavior factories) and synapses (connection factories)