diff --git a/pr2eus/robot-interface.l b/pr2eus/robot-interface.l index e2838f44..baf1ce18 100644 --- a/pr2eus/robot-interface.l +++ b/pr2eus/robot-interface.l @@ -45,7 +45,7 @@ (ros::ros-debug "[~A] time-to-finish ~A" ros::name-space time-to-finish) time-to-finish) (:action-feedback-cb (msg) - (let ((finish-time) (current-time)) + (let ((finish-time)) (ros::ros-debug "[~A] feedback-cb ~A" ros::name-space msg) (setq last-feedback-msg-stamp (send msg :header :stamp)) (unless (and (send ros::comm-state :action-goal)