From 01b3f207ff6c658c5adaad2ab59d2f217e740a31 Mon Sep 17 00:00:00 2001
From: Guilherme Affonso <guilherme.c.affonso@gmail.com>
Date: Tue, 7 Jun 2022 20:30:24 +0900
Subject: [PATCH] (roseus_smach) Adapt to updated assoc key (see EusLisp/436)

---
 roseus_smach/src/state-machine.l | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/roseus_smach/src/state-machine.l b/roseus_smach/src/state-machine.l
index 505fcb2ac..cd34d4cfa 100644
--- a/roseus_smach/src/state-machine.l
+++ b/roseus_smach/src/state-machine.l
@@ -1,7 +1,7 @@
 ;; state-machine.l
 
 ;; manipulate a list of cons as a associative array
-(defun set-alist (k v alist &key (key 'car) (test 'eq))
+(defun set-alist (k v alist &key (key) (test 'eq))
   (let ((cur-cons (assoc k alist :key key :test test)))
     (if cur-cons
         (progn (setf (cdr cur-cons) v) alist)