From 930ca9cd4f810aafff38a7db4c47380ba9d40a28 Mon Sep 17 00:00:00 2001 From: Guilherme Affonso Date: Fri, 28 Oct 2022 15:15:16 +0900 Subject: [PATCH] Fix case function misuse in simple-action-client :get-state --- roseus/euslisp/actionlib.l | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/roseus/euslisp/actionlib.l b/roseus/euslisp/actionlib.l index 46ed2934f..b44be29e6 100644 --- a/roseus/euslisp/actionlib.l +++ b/roseus/euslisp/actionlib.l @@ -225,10 +225,10 @@ (:get-state () (let (state) (setq state (send (send comm-state :latest-goal-status) :status)) - (case state - (actionlib_msgs::GoalStatus::*recalling* + (cond + ((= state actionlib_msgs::GoalStatus::*recalling*) (setq state actionlib_msgs::GoalStatus::*pending*)) - (actionlib_msgs::GoalStatus::*preempting* + ((= state actionlib_msgs::GoalStatus::*preempting*) (setq state actionlib_msgs::GoalStatus::*active*))) state)) (:get-goal-status-text () (send (send comm-state :latest-goal-status) :text))