From 205f96d917f474993844f0b3830aff0de5139eb8 Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Thu, 30 Apr 2026 09:15:23 +0200 Subject: [PATCH] use pushnew instead of adjoin --- csys/csys.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/csys/csys.lisp b/csys/csys.lisp index 634b15b..06a91b7 100644 --- a/csys/csys.lisp +++ b/csys/csys.lisp @@ -34,8 +34,7 @@ (setf (gethash key (actions *environment*)) fn)) (defun add-sensor (key sn) - (let ((sns (sensors *environment*))) - (setf (gethash key sns) (adjoin sn (gethash key sns))))) + (pushnew sn (gethash key (sensors *environment*)))) ;;;; neurons (= behavior factories) and synapses (connection factories)