Primo commit Completo

devel/share/common-lisp/ros/jog_msgs/msg/JogFrame.lisp

@@ -0,0 +1,158 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package jog_msgs-msg)
+
+
+;//! \htmlinclude JogFrame.msg.html
+
+(cl:defclass <JogFrame> (roslisp-msg-protocol:ros-message)
+  ((header
+    :reader header
+    :initarg :header
+    :type std_msgs-msg:Header
+    :initform (cl:make-instance 'std_msgs-msg:Header))
+   (group_name
+    :reader group_name
+    :initarg :group_name
+    :type cl:string
+    :initform "")
+   (link_name
+    :reader link_name
+    :initarg :link_name
+    :type cl:string
+    :initform "")
+   (linear_delta
+    :reader linear_delta
+    :initarg :linear_delta
+    :type geometry_msgs-msg:Vector3
+    :initform (cl:make-instance 'geometry_msgs-msg:Vector3))
+   (angular_delta
+    :reader angular_delta
+    :initarg :angular_delta
+    :type geometry_msgs-msg:Vector3
+    :initform (cl:make-instance 'geometry_msgs-msg:Vector3))
+   (avoid_collisions
+    :reader avoid_collisions
+    :initarg :avoid_collisions
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass JogFrame (<JogFrame>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <JogFrame>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'JogFrame)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name jog_msgs-msg:<JogFrame> is deprecated: use jog_msgs-msg:JogFrame instead.")))
+
+(cl:ensure-generic-function 'header-val :lambda-list '(m))
+(cl:defmethod header-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:header-val is deprecated.  Use jog_msgs-msg:header instead.")
+  (header m))
+
+(cl:ensure-generic-function 'group_name-val :lambda-list '(m))
+(cl:defmethod group_name-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:group_name-val is deprecated.  Use jog_msgs-msg:group_name instead.")
+  (group_name m))
+
+(cl:ensure-generic-function 'link_name-val :lambda-list '(m))
+(cl:defmethod link_name-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:link_name-val is deprecated.  Use jog_msgs-msg:link_name instead.")
+  (link_name m))
+
+(cl:ensure-generic-function 'linear_delta-val :lambda-list '(m))
+(cl:defmethod linear_delta-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:linear_delta-val is deprecated.  Use jog_msgs-msg:linear_delta instead.")
+  (linear_delta m))
+
+(cl:ensure-generic-function 'angular_delta-val :lambda-list '(m))
+(cl:defmethod angular_delta-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:angular_delta-val is deprecated.  Use jog_msgs-msg:angular_delta instead.")
+  (angular_delta m))
+
+(cl:ensure-generic-function 'avoid_collisions-val :lambda-list '(m))
+(cl:defmethod avoid_collisions-val ((m <JogFrame>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:avoid_collisions-val is deprecated.  Use jog_msgs-msg:avoid_collisions instead.")
+  (avoid_collisions m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <JogFrame>) ostream)
+  "Serializes a message object of type '<JogFrame>"
+  (roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
+  (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'group_name))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'group_name))
+  (cl:let ((__ros_str_len (cl:length (cl:slot-value msg 'link_name))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) (cl:slot-value msg 'link_name))
+  (roslisp-msg-protocol:serialize (cl:slot-value msg 'linear_delta) ostream)
+  (roslisp-msg-protocol:serialize (cl:slot-value msg 'angular_delta) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'avoid_collisions) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <JogFrame>) istream)
+  "Deserializes a message object of type '<JogFrame>"
+  (roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream)
+    (cl:let ((__ros_str_len 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'group_name) (cl:make-string __ros_str_len))
+      (cl:dotimes (__ros_str_idx __ros_str_len msg)
+        (cl:setf (cl:char (cl:slot-value msg 'group_name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
+    (cl:let ((__ros_str_len 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'link_name) (cl:make-string __ros_str_len))
+      (cl:dotimes (__ros_str_idx __ros_str_len msg)
+        (cl:setf (cl:char (cl:slot-value msg 'link_name) __ros_str_idx) (cl:code-char (cl:read-byte istream)))))
+  (roslisp-msg-protocol:deserialize (cl:slot-value msg 'linear_delta) istream)
+  (roslisp-msg-protocol:deserialize (cl:slot-value msg 'angular_delta) istream)
+    (cl:setf (cl:slot-value msg 'avoid_collisions) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<JogFrame>)))
+  "Returns string type for a message object of type '<JogFrame>"
+  "jog_msgs/JogFrame")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'JogFrame)))
+  "Returns string type for a message object of type 'JogFrame"
+  "jog_msgs/JogFrame")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<JogFrame>)))
+  "Returns md5sum for a message object of type '<JogFrame>"
+  "e342f29bf6beaf00261bdae365abfff9")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'JogFrame)))
+  "Returns md5sum for a message object of type 'JogFrame"
+  "e342f29bf6beaf00261bdae365abfff9")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<JogFrame>)))
+  "Returns full string definition for message of type '<JogFrame>"
+  (cl:format cl:nil "# This is a message to hold data to jog by specifying a target~%# frame. It uses MoveIt! kinematics, so you need to specify the~%# JointGroup name to use in group_name. (lienar|angular)_delta is the~%# amount of displacement.~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name of JointGroup of MoveIt!~%string group_name~%~%# Target link name to jog. The link must be in the JoingGroup~%string link_name~%~%# Linear displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in meter.~%geometry_msgs/Vector3 linear_delta~%~%# Angular displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in radian.~%geometry_msgs/Vector3 angular_delta~%~%# It uses avoid_collisions option of MoveIt! kinematics. If it is~%# true, the robot doesn't move if any collisions occured.~%bool avoid_collisions~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%================================================================================~%MSG: geometry_msgs/Vector3~%# This represents a vector in free space. ~%# It is only meant to represent a direction. Therefore, it does not~%# make sense to apply a translation to it (e.g., when applying a ~%# generic rigid transformation to a Vector3, tf2 will only apply the~%# rotation). If you want your data to be translatable too, use the~%# geometry_msgs/Point message instead.~%~%float64 x~%float64 y~%float64 z~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'JogFrame)))
+  "Returns full string definition for message of type 'JogFrame"
+  (cl:format cl:nil "# This is a message to hold data to jog by specifying a target~%# frame. It uses MoveIt! kinematics, so you need to specify the~%# JointGroup name to use in group_name. (lienar|angular)_delta is the~%# amount of displacement.~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name of JointGroup of MoveIt!~%string group_name~%~%# Target link name to jog. The link must be in the JoingGroup~%string link_name~%~%# Linear displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in meter.~%geometry_msgs/Vector3 linear_delta~%~%# Angular displacement vector to jog. The refrence frame is defined by~%# frame_id in header. Unit is in radian.~%geometry_msgs/Vector3 angular_delta~%~%# It uses avoid_collisions option of MoveIt! kinematics. If it is~%# true, the robot doesn't move if any collisions occured.~%bool avoid_collisions~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%================================================================================~%MSG: geometry_msgs/Vector3~%# This represents a vector in free space. ~%# It is only meant to represent a direction. Therefore, it does not~%# make sense to apply a translation to it (e.g., when applying a ~%# generic rigid transformation to a Vector3, tf2 will only apply the~%# rotation). If you want your data to be translatable too, use the~%# geometry_msgs/Point message instead.~%~%float64 x~%float64 y~%float64 z~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <JogFrame>))
+  (cl:+ 0
+     (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
+     4 (cl:length (cl:slot-value msg 'group_name))
+     4 (cl:length (cl:slot-value msg 'link_name))
+     (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'linear_delta))
+     (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'angular_delta))
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <JogFrame>))
+  "Converts a ROS message object to a list"
+  (cl:list 'JogFrame
+    (cl:cons ':header (header msg))
+    (cl:cons ':group_name (group_name msg))
+    (cl:cons ':link_name (link_name msg))
+    (cl:cons ':linear_delta (linear_delta msg))
+    (cl:cons ':angular_delta (angular_delta msg))
+    (cl:cons ':avoid_collisions (avoid_collisions msg))
+))

devel/share/common-lisp/ros/jog_msgs/msg/JogJoint.lisp

@@ -0,0 +1,149 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package jog_msgs-msg)
+
+
+;//! \htmlinclude JogJoint.msg.html
+
+(cl:defclass <JogJoint> (roslisp-msg-protocol:ros-message)
+  ((header
+    :reader header
+    :initarg :header
+    :type std_msgs-msg:Header
+    :initform (cl:make-instance 'std_msgs-msg:Header))
+   (joint_names
+    :reader joint_names
+    :initarg :joint_names
+    :type (cl:vector cl:string)
+   :initform (cl:make-array 0 :element-type 'cl:string :initial-element ""))
+   (deltas
+    :reader deltas
+    :initarg :deltas
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0)))
+)
+
+(cl:defclass JogJoint (<JogJoint>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <JogJoint>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'JogJoint)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name jog_msgs-msg:<JogJoint> is deprecated: use jog_msgs-msg:JogJoint instead.")))
+
+(cl:ensure-generic-function 'header-val :lambda-list '(m))
+(cl:defmethod header-val ((m <JogJoint>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:header-val is deprecated.  Use jog_msgs-msg:header instead.")
+  (header m))
+
+(cl:ensure-generic-function 'joint_names-val :lambda-list '(m))
+(cl:defmethod joint_names-val ((m <JogJoint>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:joint_names-val is deprecated.  Use jog_msgs-msg:joint_names instead.")
+  (joint_names m))
+
+(cl:ensure-generic-function 'deltas-val :lambda-list '(m))
+(cl:defmethod deltas-val ((m <JogJoint>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader jog_msgs-msg:deltas-val is deprecated.  Use jog_msgs-msg:deltas instead.")
+  (deltas m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <JogJoint>) ostream)
+  "Serializes a message object of type '<JogJoint>"
+  (roslisp-msg-protocol:serialize (cl:slot-value msg 'header) ostream)
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'joint_names))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((__ros_str_len (cl:length ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_str_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_str_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (c) (cl:write-byte (cl:char-code c) ostream)) ele))
+   (cl:slot-value msg 'joint_names))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'deltas))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'deltas))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <JogJoint>) istream)
+  "Deserializes a message object of type '<JogJoint>"
+  (roslisp-msg-protocol:deserialize (cl:slot-value msg 'header) istream)
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'joint_names) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'joint_names)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((__ros_str_len 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) __ros_str_len) (cl:read-byte istream))
+      (cl:setf (cl:aref vals i) (cl:make-string __ros_str_len))
+      (cl:dotimes (__ros_str_idx __ros_str_len msg)
+        (cl:setf (cl:char (cl:aref vals i) __ros_str_idx) (cl:code-char (cl:read-byte istream))))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'deltas) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'deltas)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<JogJoint>)))
+  "Returns string type for a message object of type '<JogJoint>"
+  "jog_msgs/JogJoint")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'JogJoint)))
+  "Returns string type for a message object of type 'JogJoint"
+  "jog_msgs/JogJoint")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<JogJoint>)))
+  "Returns md5sum for a message object of type '<JogJoint>"
+  "8d2aa14be64b51cf6374d198bfd489b2")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'JogJoint)))
+  "Returns md5sum for a message object of type 'JogJoint"
+  "8d2aa14be64b51cf6374d198bfd489b2")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<JogJoint>)))
+  "Returns full string definition for message of type '<JogJoint>"
+  (cl:format cl:nil "# This is a message to hold data to jog by specifying joint~%# displacement. You only need to set relative displacement to joint~%# angles (or displacements for linear joints).~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name list of the joints. You don't need to specify all joint of the~%# robot. Joint names are case-sensitive.~%string[] joint_names~%~%# Relative displacement of the joints to jog. The order must be~%# identical to joint_names. Unit is in radian for revolutive joints,~%# meter for linear joints.~%float64[] deltas~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'JogJoint)))
+  "Returns full string definition for message of type 'JogJoint"
+  (cl:format cl:nil "# This is a message to hold data to jog by specifying joint~%# displacement. You only need to set relative displacement to joint~%# angles (or displacements for linear joints).~%~%# header message. You must set frame_id to define the reference~%# coordinate system of the displacament~%Header header~%~%# Name list of the joints. You don't need to specify all joint of the~%# robot. Joint names are case-sensitive.~%string[] joint_names~%~%# Relative displacement of the joints to jog. The order must be~%# identical to joint_names. Unit is in radian for revolutive joints,~%# meter for linear joints.~%float64[] deltas~%~%================================================================================~%MSG: std_msgs/Header~%# Standard metadata for higher-level stamped data types.~%# This is generally used to communicate timestamped data ~%# in a particular coordinate frame.~%# ~%# sequence ID: consecutively increasing ID ~%uint32 seq~%#Two-integer timestamp that is expressed as:~%# * stamp.sec: seconds (stamp_secs) since epoch (in Python the variable is called 'secs')~%# * stamp.nsec: nanoseconds since stamp_secs (in Python the variable is called 'nsecs')~%# time-handling sugar is provided by the client library~%time stamp~%#Frame this data is associated with~%# 0: no frame~%# 1: global frame~%string frame_id~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <JogJoint>))
+  (cl:+ 0
+     (roslisp-msg-protocol:serialization-length (cl:slot-value msg 'header))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'joint_names) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 4 (cl:length ele))))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'deltas) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <JogJoint>))
+  "Converts a ROS message object to a list"
+  (cl:list 'JogJoint
+    (cl:cons ':header (header msg))
+    (cl:cons ':joint_names (joint_names msg))
+    (cl:cons ':deltas (deltas msg))
+))

devel/share/common-lisp/ros/jog_msgs/msg/_package.lisp

@@ -0,0 +1,9 @@
+(cl:defpackage jog_msgs-msg
+  (:use )
+  (:export
+   "<JOGFRAME>"
+   "JOGFRAME"
+   "<JOGJOINT>"
+   "JOGJOINT"
+  ))
+

devel/share/common-lisp/ros/jog_msgs/msg/_package_JogFrame.lisp

@@ -0,0 +1,14 @@
+(cl:in-package jog_msgs-msg)
+(cl:export '(HEADER-VAL
+          HEADER
+          GROUP_NAME-VAL
+          GROUP_NAME
+          LINK_NAME-VAL
+          LINK_NAME
+          LINEAR_DELTA-VAL
+          LINEAR_DELTA
+          ANGULAR_DELTA-VAL
+          ANGULAR_DELTA
+          AVOID_COLLISIONS-VAL
+          AVOID_COLLISIONS
+))

devel/share/common-lisp/ros/jog_msgs/msg/_package_JogJoint.lisp

@@ -0,0 +1,8 @@
+(cl:in-package jog_msgs-msg)
+(cl:export '(HEADER-VAL
+          HEADER
+          JOINT_NAMES-VAL
+          JOINT_NAMES
+          DELTAS-VAL
+          DELTAS
+))

devel/share/common-lisp/ros/jog_msgs/msg/jog_msgs-msg.asd

@@ -0,0 +1,13 @@
+
+(cl:in-package :asdf)
+
+(defsystem "jog_msgs-msg"
+  :depends-on (:roslisp-msg-protocol :roslisp-utils :geometry_msgs-msg
+               :std_msgs-msg
+)
+  :components ((:file "_package")
+    (:file "JogFrame" :depends-on ("_package_JogFrame"))
+    (:file "_package_JogFrame" :depends-on ("_package"))
+    (:file "JogJoint" :depends-on ("_package_JogJoint"))
+    (:file "_package_JogJoint" :depends-on ("_package"))
+  ))

devel/share/common-lisp/ros/ur_msgs/msg/Analog.lisp

@@ -0,0 +1,87 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude Analog.msg.html
+
+(cl:defclass <Analog> (roslisp-msg-protocol:ros-message)
+  ((pin
+    :reader pin
+    :initarg :pin
+    :type cl:fixnum
+    :initform 0)
+   (state
+    :reader state
+    :initarg :state
+    :type cl:float
+    :initform 0.0))
+)
+
+(cl:defclass Analog (<Analog>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <Analog>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'Analog)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<Analog> is deprecated: use ur_msgs-msg:Analog instead.")))
+
+(cl:ensure-generic-function 'pin-val :lambda-list '(m))
+(cl:defmethod pin-val ((m <Analog>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:pin-val is deprecated.  Use ur_msgs-msg:pin instead.")
+  (pin m))
+
+(cl:ensure-generic-function 'state-val :lambda-list '(m))
+(cl:defmethod state-val ((m <Analog>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:state-val is deprecated.  Use ur_msgs-msg:state instead.")
+  (state m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <Analog>) ostream)
+  "Serializes a message object of type '<Analog>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) ostream)
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'state))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <Analog>) istream)
+  "Deserializes a message object of type '<Analog>"
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) (cl:read-byte istream))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'state) (roslisp-utils:decode-single-float-bits bits)))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Analog>)))
+  "Returns string type for a message object of type '<Analog>"
+  "ur_msgs/Analog")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Analog)))
+  "Returns string type for a message object of type 'Analog"
+  "ur_msgs/Analog")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Analog>)))
+  "Returns md5sum for a message object of type '<Analog>"
+  "341541c8828d055b6dcc443d40207a7d")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Analog)))
+  "Returns md5sum for a message object of type 'Analog"
+  "341541c8828d055b6dcc443d40207a7d")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Analog>)))
+  "Returns full string definition for message of type '<Analog>"
+  (cl:format cl:nil "uint8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'Analog)))
+  "Returns full string definition for message of type 'Analog"
+  (cl:format cl:nil "uint8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <Analog>))
+  (cl:+ 0
+     1
+     4
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Analog>))
+  "Converts a ROS message object to a list"
+  (cl:list 'Analog
+    (cl:cons ':pin (pin msg))
+    (cl:cons ':state (state msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/Digital.lisp

@@ -0,0 +1,78 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude Digital.msg.html
+
+(cl:defclass <Digital> (roslisp-msg-protocol:ros-message)
+  ((pin
+    :reader pin
+    :initarg :pin
+    :type cl:fixnum
+    :initform 0)
+   (state
+    :reader state
+    :initarg :state
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass Digital (<Digital>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <Digital>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'Digital)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<Digital> is deprecated: use ur_msgs-msg:Digital instead.")))
+
+(cl:ensure-generic-function 'pin-val :lambda-list '(m))
+(cl:defmethod pin-val ((m <Digital>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:pin-val is deprecated.  Use ur_msgs-msg:pin instead.")
+  (pin m))
+
+(cl:ensure-generic-function 'state-val :lambda-list '(m))
+(cl:defmethod state-val ((m <Digital>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:state-val is deprecated.  Use ur_msgs-msg:state instead.")
+  (state m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <Digital>) ostream)
+  "Serializes a message object of type '<Digital>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'state) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <Digital>) istream)
+  "Deserializes a message object of type '<Digital>"
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'pin)) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'state) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<Digital>)))
+  "Returns string type for a message object of type '<Digital>"
+  "ur_msgs/Digital")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'Digital)))
+  "Returns string type for a message object of type 'Digital"
+  "ur_msgs/Digital")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<Digital>)))
+  "Returns md5sum for a message object of type '<Digital>"
+  "83707be3fa18d2ffe57381ea034aa262")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'Digital)))
+  "Returns md5sum for a message object of type 'Digital"
+  "83707be3fa18d2ffe57381ea034aa262")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<Digital>)))
+  "Returns full string definition for message of type '<Digital>"
+  (cl:format cl:nil "uint8 pin~%bool state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'Digital)))
+  "Returns full string definition for message of type 'Digital"
+  (cl:format cl:nil "uint8 pin~%bool state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <Digital>))
+  (cl:+ 0
+     1
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <Digital>))
+  "Converts a ROS message object to a list"
+  (cl:list 'Digital
+    (cl:cons ':pin (pin msg))
+    (cl:cons ':state (state msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/IOStates.lisp

@@ -0,0 +1,195 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude IOStates.msg.html
+
+(cl:defclass <IOStates> (roslisp-msg-protocol:ros-message)
+  ((digital_in_states
+    :reader digital_in_states
+    :initarg :digital_in_states
+    :type (cl:vector ur_msgs-msg:Digital)
+   :initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
+   (digital_out_states
+    :reader digital_out_states
+    :initarg :digital_out_states
+    :type (cl:vector ur_msgs-msg:Digital)
+   :initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
+   (flag_states
+    :reader flag_states
+    :initarg :flag_states
+    :type (cl:vector ur_msgs-msg:Digital)
+   :initform (cl:make-array 0 :element-type 'ur_msgs-msg:Digital :initial-element (cl:make-instance 'ur_msgs-msg:Digital)))
+   (analog_in_states
+    :reader analog_in_states
+    :initarg :analog_in_states
+    :type (cl:vector ur_msgs-msg:Analog)
+   :initform (cl:make-array 0 :element-type 'ur_msgs-msg:Analog :initial-element (cl:make-instance 'ur_msgs-msg:Analog)))
+   (analog_out_states
+    :reader analog_out_states
+    :initarg :analog_out_states
+    :type (cl:vector ur_msgs-msg:Analog)
+   :initform (cl:make-array 0 :element-type 'ur_msgs-msg:Analog :initial-element (cl:make-instance 'ur_msgs-msg:Analog))))
+)
+
+(cl:defclass IOStates (<IOStates>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <IOStates>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'IOStates)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<IOStates> is deprecated: use ur_msgs-msg:IOStates instead.")))
+
+(cl:ensure-generic-function 'digital_in_states-val :lambda-list '(m))
+(cl:defmethod digital_in_states-val ((m <IOStates>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_in_states-val is deprecated.  Use ur_msgs-msg:digital_in_states instead.")
+  (digital_in_states m))
+
+(cl:ensure-generic-function 'digital_out_states-val :lambda-list '(m))
+(cl:defmethod digital_out_states-val ((m <IOStates>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_out_states-val is deprecated.  Use ur_msgs-msg:digital_out_states instead.")
+  (digital_out_states m))
+
+(cl:ensure-generic-function 'flag_states-val :lambda-list '(m))
+(cl:defmethod flag_states-val ((m <IOStates>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:flag_states-val is deprecated.  Use ur_msgs-msg:flag_states instead.")
+  (flag_states m))
+
+(cl:ensure-generic-function 'analog_in_states-val :lambda-list '(m))
+(cl:defmethod analog_in_states-val ((m <IOStates>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_in_states-val is deprecated.  Use ur_msgs-msg:analog_in_states instead.")
+  (analog_in_states m))
+
+(cl:ensure-generic-function 'analog_out_states-val :lambda-list '(m))
+(cl:defmethod analog_out_states-val ((m <IOStates>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_out_states-val is deprecated.  Use ur_msgs-msg:analog_out_states instead.")
+  (analog_out_states m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <IOStates>) ostream)
+  "Serializes a message object of type '<IOStates>"
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'digital_in_states))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
+   (cl:slot-value msg 'digital_in_states))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'digital_out_states))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
+   (cl:slot-value msg 'digital_out_states))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'flag_states))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
+   (cl:slot-value msg 'flag_states))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'analog_in_states))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
+   (cl:slot-value msg 'analog_in_states))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'analog_out_states))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (roslisp-msg-protocol:serialize ele ostream))
+   (cl:slot-value msg 'analog_out_states))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <IOStates>) istream)
+  "Deserializes a message object of type '<IOStates>"
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'digital_in_states) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'digital_in_states)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
+  (roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'digital_out_states) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'digital_out_states)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
+  (roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'flag_states) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'flag_states)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Digital))
+  (roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'analog_in_states) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'analog_in_states)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Analog))
+  (roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'analog_out_states) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'analog_out_states)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:setf (cl:aref vals i) (cl:make-instance 'ur_msgs-msg:Analog))
+  (roslisp-msg-protocol:deserialize (cl:aref vals i) istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<IOStates>)))
+  "Returns string type for a message object of type '<IOStates>"
+  "ur_msgs/IOStates")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'IOStates)))
+  "Returns string type for a message object of type 'IOStates"
+  "ur_msgs/IOStates")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<IOStates>)))
+  "Returns md5sum for a message object of type '<IOStates>"
+  "0a5c7b73e3189e9a2caf8583d1bae2e2")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'IOStates)))
+  "Returns md5sum for a message object of type 'IOStates"
+  "0a5c7b73e3189e9a2caf8583d1bae2e2")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<IOStates>)))
+  "Returns full string definition for message of type '<IOStates>"
+  (cl:format cl:nil "Digital[] digital_in_states~%Digital[] digital_out_states~%Digital[] flag_states~%Analog[] analog_in_states~%Analog[] analog_out_states~%~%================================================================================~%MSG: ur_msgs/Digital~%uint8 pin~%bool state~%~%================================================================================~%MSG: ur_msgs/Analog~%uint8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'IOStates)))
+  "Returns full string definition for message of type 'IOStates"
+  (cl:format cl:nil "Digital[] digital_in_states~%Digital[] digital_out_states~%Digital[] flag_states~%Analog[] analog_in_states~%Analog[] analog_out_states~%~%================================================================================~%MSG: ur_msgs/Digital~%uint8 pin~%bool state~%~%================================================================================~%MSG: ur_msgs/Analog~%uint8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <IOStates>))
+  (cl:+ 0
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'digital_in_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'digital_out_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'flag_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'analog_in_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'analog_out_states) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ (roslisp-msg-protocol:serialization-length ele))))
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <IOStates>))
+  "Converts a ROS message object to a list"
+  (cl:list 'IOStates
+    (cl:cons ':digital_in_states (digital_in_states msg))
+    (cl:cons ':digital_out_states (digital_out_states msg))
+    (cl:cons ':flag_states (flag_states msg))
+    (cl:cons ':analog_in_states (analog_in_states msg))
+    (cl:cons ':analog_out_states (analog_out_states msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/MasterboardDataMsg.lisp

@@ -0,0 +1,406 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude MasterboardDataMsg.msg.html
+
+(cl:defclass <MasterboardDataMsg> (roslisp-msg-protocol:ros-message)
+  ((digital_input_bits
+    :reader digital_input_bits
+    :initarg :digital_input_bits
+    :type cl:integer
+    :initform 0)
+   (digital_output_bits
+    :reader digital_output_bits
+    :initarg :digital_output_bits
+    :type cl:integer
+    :initform 0)
+   (analog_input_range0
+    :reader analog_input_range0
+    :initarg :analog_input_range0
+    :type cl:fixnum
+    :initform 0)
+   (analog_input_range1
+    :reader analog_input_range1
+    :initarg :analog_input_range1
+    :type cl:fixnum
+    :initform 0)
+   (analog_input0
+    :reader analog_input0
+    :initarg :analog_input0
+    :type cl:float
+    :initform 0.0)
+   (analog_input1
+    :reader analog_input1
+    :initarg :analog_input1
+    :type cl:float
+    :initform 0.0)
+   (analog_output_domain0
+    :reader analog_output_domain0
+    :initarg :analog_output_domain0
+    :type cl:fixnum
+    :initform 0)
+   (analog_output_domain1
+    :reader analog_output_domain1
+    :initarg :analog_output_domain1
+    :type cl:fixnum
+    :initform 0)
+   (analog_output0
+    :reader analog_output0
+    :initarg :analog_output0
+    :type cl:float
+    :initform 0.0)
+   (analog_output1
+    :reader analog_output1
+    :initarg :analog_output1
+    :type cl:float
+    :initform 0.0)
+   (masterboard_temperature
+    :reader masterboard_temperature
+    :initarg :masterboard_temperature
+    :type cl:float
+    :initform 0.0)
+   (robot_voltage_48V
+    :reader robot_voltage_48V
+    :initarg :robot_voltage_48V
+    :type cl:float
+    :initform 0.0)
+   (robot_current
+    :reader robot_current
+    :initarg :robot_current
+    :type cl:float
+    :initform 0.0)
+   (master_io_current
+    :reader master_io_current
+    :initarg :master_io_current
+    :type cl:float
+    :initform 0.0)
+   (master_safety_state
+    :reader master_safety_state
+    :initarg :master_safety_state
+    :type cl:fixnum
+    :initform 0)
+   (master_onoff_state
+    :reader master_onoff_state
+    :initarg :master_onoff_state
+    :type cl:fixnum
+    :initform 0))
+)
+
+(cl:defclass MasterboardDataMsg (<MasterboardDataMsg>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <MasterboardDataMsg>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'MasterboardDataMsg)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<MasterboardDataMsg> is deprecated: use ur_msgs-msg:MasterboardDataMsg instead.")))
+
+(cl:ensure-generic-function 'digital_input_bits-val :lambda-list '(m))
+(cl:defmethod digital_input_bits-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_input_bits-val is deprecated.  Use ur_msgs-msg:digital_input_bits instead.")
+  (digital_input_bits m))
+
+(cl:ensure-generic-function 'digital_output_bits-val :lambda-list '(m))
+(cl:defmethod digital_output_bits-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_output_bits-val is deprecated.  Use ur_msgs-msg:digital_output_bits instead.")
+  (digital_output_bits m))
+
+(cl:ensure-generic-function 'analog_input_range0-val :lambda-list '(m))
+(cl:defmethod analog_input_range0-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range0-val is deprecated.  Use ur_msgs-msg:analog_input_range0 instead.")
+  (analog_input_range0 m))
+
+(cl:ensure-generic-function 'analog_input_range1-val :lambda-list '(m))
+(cl:defmethod analog_input_range1-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range1-val is deprecated.  Use ur_msgs-msg:analog_input_range1 instead.")
+  (analog_input_range1 m))
+
+(cl:ensure-generic-function 'analog_input0-val :lambda-list '(m))
+(cl:defmethod analog_input0-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input0-val is deprecated.  Use ur_msgs-msg:analog_input0 instead.")
+  (analog_input0 m))
+
+(cl:ensure-generic-function 'analog_input1-val :lambda-list '(m))
+(cl:defmethod analog_input1-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input1-val is deprecated.  Use ur_msgs-msg:analog_input1 instead.")
+  (analog_input1 m))
+
+(cl:ensure-generic-function 'analog_output_domain0-val :lambda-list '(m))
+(cl:defmethod analog_output_domain0-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output_domain0-val is deprecated.  Use ur_msgs-msg:analog_output_domain0 instead.")
+  (analog_output_domain0 m))
+
+(cl:ensure-generic-function 'analog_output_domain1-val :lambda-list '(m))
+(cl:defmethod analog_output_domain1-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output_domain1-val is deprecated.  Use ur_msgs-msg:analog_output_domain1 instead.")
+  (analog_output_domain1 m))
+
+(cl:ensure-generic-function 'analog_output0-val :lambda-list '(m))
+(cl:defmethod analog_output0-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output0-val is deprecated.  Use ur_msgs-msg:analog_output0 instead.")
+  (analog_output0 m))
+
+(cl:ensure-generic-function 'analog_output1-val :lambda-list '(m))
+(cl:defmethod analog_output1-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_output1-val is deprecated.  Use ur_msgs-msg:analog_output1 instead.")
+  (analog_output1 m))
+
+(cl:ensure-generic-function 'masterboard_temperature-val :lambda-list '(m))
+(cl:defmethod masterboard_temperature-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:masterboard_temperature-val is deprecated.  Use ur_msgs-msg:masterboard_temperature instead.")
+  (masterboard_temperature m))
+
+(cl:ensure-generic-function 'robot_voltage_48V-val :lambda-list '(m))
+(cl:defmethod robot_voltage_48V-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_voltage_48V-val is deprecated.  Use ur_msgs-msg:robot_voltage_48V instead.")
+  (robot_voltage_48V m))
+
+(cl:ensure-generic-function 'robot_current-val :lambda-list '(m))
+(cl:defmethod robot_current-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_current-val is deprecated.  Use ur_msgs-msg:robot_current instead.")
+  (robot_current m))
+
+(cl:ensure-generic-function 'master_io_current-val :lambda-list '(m))
+(cl:defmethod master_io_current-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_io_current-val is deprecated.  Use ur_msgs-msg:master_io_current instead.")
+  (master_io_current m))
+
+(cl:ensure-generic-function 'master_safety_state-val :lambda-list '(m))
+(cl:defmethod master_safety_state-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_safety_state-val is deprecated.  Use ur_msgs-msg:master_safety_state instead.")
+  (master_safety_state m))
+
+(cl:ensure-generic-function 'master_onoff_state-val :lambda-list '(m))
+(cl:defmethod master_onoff_state-val ((m <MasterboardDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:master_onoff_state-val is deprecated.  Use ur_msgs-msg:master_onoff_state instead.")
+  (master_onoff_state m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <MasterboardDataMsg>) ostream)
+  "Serializes a message object of type '<MasterboardDataMsg>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_input_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_input_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_input_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_input_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_output_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_output_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_output_bits)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_output_bits)) ostream)
+  (cl:let* ((signed (cl:slot-value msg 'analog_input_range0)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let* ((signed (cl:slot-value msg 'analog_input_range1)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input0))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input1))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let* ((signed (cl:slot-value msg 'analog_output_domain0)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let* ((signed (cl:slot-value msg 'analog_output_domain1)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_output0))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_output1))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'masterboard_temperature))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'robot_voltage_48V))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'robot_current))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'master_io_current))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_safety_state)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_onoff_state)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <MasterboardDataMsg>) istream)
+  "Deserializes a message object of type '<MasterboardDataMsg>"
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_input_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'digital_output_bits)) (cl:read-byte istream))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_input_range0) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_input_range1) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_input0) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_input1) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_output_domain0) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_output_domain1) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_output0) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_output1) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'masterboard_temperature) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'robot_voltage_48V) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'robot_current) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'master_io_current) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_safety_state)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'master_onoff_state)) (cl:read-byte istream))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<MasterboardDataMsg>)))
+  "Returns string type for a message object of type '<MasterboardDataMsg>"
+  "ur_msgs/MasterboardDataMsg")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'MasterboardDataMsg)))
+  "Returns string type for a message object of type 'MasterboardDataMsg"
+  "ur_msgs/MasterboardDataMsg")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<MasterboardDataMsg>)))
+  "Returns md5sum for a message object of type '<MasterboardDataMsg>"
+  "807af5dc427082b111fa23d1fd2cd585")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'MasterboardDataMsg)))
+  "Returns md5sum for a message object of type 'MasterboardDataMsg"
+  "807af5dc427082b111fa23d1fd2cd585")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<MasterboardDataMsg>)))
+  "Returns full string definition for message of type '<MasterboardDataMsg>"
+  (cl:format cl:nil "# This data structure contains the MasterboardData structure~%# used by the Universal Robots controller~%#~%# MasterboardData is part of the data structure being send on the ~%# secondary client communications interface~%# ~%# This data structure is send at 10 Hz on TCP port 30002~%# ~%# Documentation can be found on the Universal Robots Support site, article~%# number 16496.~%~%uint32 digital_input_bits~%uint32 digital_output_bits~%int8 analog_input_range0~%int8 analog_input_range1~%float64 analog_input0~%float64 analog_input1~%int8 analog_output_domain0~%int8 analog_output_domain1~%float64 analog_output0~%float64 analog_output1~%float32 masterboard_temperature~%float32 robot_voltage_48V~%float32 robot_current~%float32 master_io_current~%uint8 master_safety_state~%uint8 master_onoff_state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'MasterboardDataMsg)))
+  "Returns full string definition for message of type 'MasterboardDataMsg"
+  (cl:format cl:nil "# This data structure contains the MasterboardData structure~%# used by the Universal Robots controller~%#~%# MasterboardData is part of the data structure being send on the ~%# secondary client communications interface~%# ~%# This data structure is send at 10 Hz on TCP port 30002~%# ~%# Documentation can be found on the Universal Robots Support site, article~%# number 16496.~%~%uint32 digital_input_bits~%uint32 digital_output_bits~%int8 analog_input_range0~%int8 analog_input_range1~%float64 analog_input0~%float64 analog_input1~%int8 analog_output_domain0~%int8 analog_output_domain1~%float64 analog_output0~%float64 analog_output1~%float32 masterboard_temperature~%float32 robot_voltage_48V~%float32 robot_current~%float32 master_io_current~%uint8 master_safety_state~%uint8 master_onoff_state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <MasterboardDataMsg>))
+  (cl:+ 0
+     4
+     4
+     1
+     1
+     8
+     8
+     1
+     1
+     8
+     8
+     4
+     4
+     4
+     4
+     1
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <MasterboardDataMsg>))
+  "Converts a ROS message object to a list"
+  (cl:list 'MasterboardDataMsg
+    (cl:cons ':digital_input_bits (digital_input_bits msg))
+    (cl:cons ':digital_output_bits (digital_output_bits msg))
+    (cl:cons ':analog_input_range0 (analog_input_range0 msg))
+    (cl:cons ':analog_input_range1 (analog_input_range1 msg))
+    (cl:cons ':analog_input0 (analog_input0 msg))
+    (cl:cons ':analog_input1 (analog_input1 msg))
+    (cl:cons ':analog_output_domain0 (analog_output_domain0 msg))
+    (cl:cons ':analog_output_domain1 (analog_output_domain1 msg))
+    (cl:cons ':analog_output0 (analog_output0 msg))
+    (cl:cons ':analog_output1 (analog_output1 msg))
+    (cl:cons ':masterboard_temperature (masterboard_temperature msg))
+    (cl:cons ':robot_voltage_48V (robot_voltage_48V msg))
+    (cl:cons ':robot_current (robot_current msg))
+    (cl:cons ':master_io_current (master_io_current msg))
+    (cl:cons ':master_safety_state (master_safety_state msg))
+    (cl:cons ':master_onoff_state (master_onoff_state msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/RobotModeDataMsg.lisp

@@ -0,0 +1,176 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude RobotModeDataMsg.msg.html
+
+(cl:defclass <RobotModeDataMsg> (roslisp-msg-protocol:ros-message)
+  ((timestamp
+    :reader timestamp
+    :initarg :timestamp
+    :type cl:integer
+    :initform 0)
+   (is_robot_connected
+    :reader is_robot_connected
+    :initarg :is_robot_connected
+    :type cl:boolean
+    :initform cl:nil)
+   (is_real_robot_enabled
+    :reader is_real_robot_enabled
+    :initarg :is_real_robot_enabled
+    :type cl:boolean
+    :initform cl:nil)
+   (is_power_on_robot
+    :reader is_power_on_robot
+    :initarg :is_power_on_robot
+    :type cl:boolean
+    :initform cl:nil)
+   (is_emergency_stopped
+    :reader is_emergency_stopped
+    :initarg :is_emergency_stopped
+    :type cl:boolean
+    :initform cl:nil)
+   (is_protective_stopped
+    :reader is_protective_stopped
+    :initarg :is_protective_stopped
+    :type cl:boolean
+    :initform cl:nil)
+   (is_program_running
+    :reader is_program_running
+    :initarg :is_program_running
+    :type cl:boolean
+    :initform cl:nil)
+   (is_program_paused
+    :reader is_program_paused
+    :initarg :is_program_paused
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass RobotModeDataMsg (<RobotModeDataMsg>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <RobotModeDataMsg>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'RobotModeDataMsg)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<RobotModeDataMsg> is deprecated: use ur_msgs-msg:RobotModeDataMsg instead.")))
+
+(cl:ensure-generic-function 'timestamp-val :lambda-list '(m))
+(cl:defmethod timestamp-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:timestamp-val is deprecated.  Use ur_msgs-msg:timestamp instead.")
+  (timestamp m))
+
+(cl:ensure-generic-function 'is_robot_connected-val :lambda-list '(m))
+(cl:defmethod is_robot_connected-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_robot_connected-val is deprecated.  Use ur_msgs-msg:is_robot_connected instead.")
+  (is_robot_connected m))
+
+(cl:ensure-generic-function 'is_real_robot_enabled-val :lambda-list '(m))
+(cl:defmethod is_real_robot_enabled-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_real_robot_enabled-val is deprecated.  Use ur_msgs-msg:is_real_robot_enabled instead.")
+  (is_real_robot_enabled m))
+
+(cl:ensure-generic-function 'is_power_on_robot-val :lambda-list '(m))
+(cl:defmethod is_power_on_robot-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_power_on_robot-val is deprecated.  Use ur_msgs-msg:is_power_on_robot instead.")
+  (is_power_on_robot m))
+
+(cl:ensure-generic-function 'is_emergency_stopped-val :lambda-list '(m))
+(cl:defmethod is_emergency_stopped-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_emergency_stopped-val is deprecated.  Use ur_msgs-msg:is_emergency_stopped instead.")
+  (is_emergency_stopped m))
+
+(cl:ensure-generic-function 'is_protective_stopped-val :lambda-list '(m))
+(cl:defmethod is_protective_stopped-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_protective_stopped-val is deprecated.  Use ur_msgs-msg:is_protective_stopped instead.")
+  (is_protective_stopped m))
+
+(cl:ensure-generic-function 'is_program_running-val :lambda-list '(m))
+(cl:defmethod is_program_running-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_program_running-val is deprecated.  Use ur_msgs-msg:is_program_running instead.")
+  (is_program_running m))
+
+(cl:ensure-generic-function 'is_program_paused-val :lambda-list '(m))
+(cl:defmethod is_program_paused-val ((m <RobotModeDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:is_program_paused-val is deprecated.  Use ur_msgs-msg:is_program_paused instead.")
+  (is_program_paused m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <RobotModeDataMsg>) ostream)
+  "Serializes a message object of type '<RobotModeDataMsg>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 32) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 40) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 48) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 56) (cl:slot-value msg 'timestamp)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_robot_connected) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_real_robot_enabled) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_power_on_robot) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_emergency_stopped) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_protective_stopped) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_program_running) 1 0)) ostream)
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'is_program_paused) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <RobotModeDataMsg>) istream)
+  "Deserializes a message object of type '<RobotModeDataMsg>"
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 32) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 40) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 48) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 56) (cl:slot-value msg 'timestamp)) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'is_robot_connected) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_real_robot_enabled) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_power_on_robot) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_emergency_stopped) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_protective_stopped) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_program_running) (cl:not (cl:zerop (cl:read-byte istream))))
+    (cl:setf (cl:slot-value msg 'is_program_paused) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<RobotModeDataMsg>)))
+  "Returns string type for a message object of type '<RobotModeDataMsg>"
+  "ur_msgs/RobotModeDataMsg")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'RobotModeDataMsg)))
+  "Returns string type for a message object of type 'RobotModeDataMsg"
+  "ur_msgs/RobotModeDataMsg")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<RobotModeDataMsg>)))
+  "Returns md5sum for a message object of type '<RobotModeDataMsg>"
+  "867308ca39e2cc0644b50db27deb661f")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'RobotModeDataMsg)))
+  "Returns md5sum for a message object of type 'RobotModeDataMsg"
+  "867308ca39e2cc0644b50db27deb661f")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<RobotModeDataMsg>)))
+  "Returns full string definition for message of type '<RobotModeDataMsg>"
+  (cl:format cl:nil "# This data structure contains the RobotModeData structure~%# used by the Universal Robots controller~%#~%# This data structure is send at 10 Hz on TCP port 30002~%#~%# Note: this message does not carry all fields from the RobotModeData structure as broadcast by the robot controller, but a subset.~%~%uint64 timestamp~%bool is_robot_connected~%bool is_real_robot_enabled~%bool is_power_on_robot~%bool is_emergency_stopped~%bool is_protective_stopped~%bool is_program_running~%bool is_program_paused~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'RobotModeDataMsg)))
+  "Returns full string definition for message of type 'RobotModeDataMsg"
+  (cl:format cl:nil "# This data structure contains the RobotModeData structure~%# used by the Universal Robots controller~%#~%# This data structure is send at 10 Hz on TCP port 30002~%#~%# Note: this message does not carry all fields from the RobotModeData structure as broadcast by the robot controller, but a subset.~%~%uint64 timestamp~%bool is_robot_connected~%bool is_real_robot_enabled~%bool is_power_on_robot~%bool is_emergency_stopped~%bool is_protective_stopped~%bool is_program_running~%bool is_program_paused~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <RobotModeDataMsg>))
+  (cl:+ 0
+     8
+     1
+     1
+     1
+     1
+     1
+     1
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <RobotModeDataMsg>))
+  "Converts a ROS message object to a list"
+  (cl:list 'RobotModeDataMsg
+    (cl:cons ':timestamp (timestamp msg))
+    (cl:cons ':is_robot_connected (is_robot_connected msg))
+    (cl:cons ':is_real_robot_enabled (is_real_robot_enabled msg))
+    (cl:cons ':is_power_on_robot (is_power_on_robot msg))
+    (cl:cons ':is_emergency_stopped (is_emergency_stopped msg))
+    (cl:cons ':is_protective_stopped (is_protective_stopped msg))
+    (cl:cons ':is_program_running (is_program_running msg))
+    (cl:cons ':is_program_paused (is_program_paused msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/RobotStateRTMsg.lisp

@@ -0,0 +1,835 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude RobotStateRTMsg.msg.html
+
+(cl:defclass <RobotStateRTMsg> (roslisp-msg-protocol:ros-message)
+  ((time
+    :reader time
+    :initarg :time
+    :type cl:float
+    :initform 0.0)
+   (q_target
+    :reader q_target
+    :initarg :q_target
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (qd_target
+    :reader qd_target
+    :initarg :qd_target
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (qdd_target
+    :reader qdd_target
+    :initarg :qdd_target
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (i_target
+    :reader i_target
+    :initarg :i_target
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (m_target
+    :reader m_target
+    :initarg :m_target
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (q_actual
+    :reader q_actual
+    :initarg :q_actual
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (qd_actual
+    :reader qd_actual
+    :initarg :qd_actual
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (i_actual
+    :reader i_actual
+    :initarg :i_actual
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (tool_acc_values
+    :reader tool_acc_values
+    :initarg :tool_acc_values
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (tcp_force
+    :reader tcp_force
+    :initarg :tcp_force
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (tool_vector
+    :reader tool_vector
+    :initarg :tool_vector
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (tcp_speed
+    :reader tcp_speed
+    :initarg :tcp_speed
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (digital_input_bits
+    :reader digital_input_bits
+    :initarg :digital_input_bits
+    :type cl:float
+    :initform 0.0)
+   (motor_temperatures
+    :reader motor_temperatures
+    :initarg :motor_temperatures
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0))
+   (controller_timer
+    :reader controller_timer
+    :initarg :controller_timer
+    :type cl:float
+    :initform 0.0)
+   (test_value
+    :reader test_value
+    :initarg :test_value
+    :type cl:float
+    :initform 0.0)
+   (robot_mode
+    :reader robot_mode
+    :initarg :robot_mode
+    :type cl:float
+    :initform 0.0)
+   (joint_modes
+    :reader joint_modes
+    :initarg :joint_modes
+    :type (cl:vector cl:float)
+   :initform (cl:make-array 0 :element-type 'cl:float :initial-element 0.0)))
+)
+
+(cl:defclass RobotStateRTMsg (<RobotStateRTMsg>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <RobotStateRTMsg>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'RobotStateRTMsg)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<RobotStateRTMsg> is deprecated: use ur_msgs-msg:RobotStateRTMsg instead.")))
+
+(cl:ensure-generic-function 'time-val :lambda-list '(m))
+(cl:defmethod time-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:time-val is deprecated.  Use ur_msgs-msg:time instead.")
+  (time m))
+
+(cl:ensure-generic-function 'q_target-val :lambda-list '(m))
+(cl:defmethod q_target-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:q_target-val is deprecated.  Use ur_msgs-msg:q_target instead.")
+  (q_target m))
+
+(cl:ensure-generic-function 'qd_target-val :lambda-list '(m))
+(cl:defmethod qd_target-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qd_target-val is deprecated.  Use ur_msgs-msg:qd_target instead.")
+  (qd_target m))
+
+(cl:ensure-generic-function 'qdd_target-val :lambda-list '(m))
+(cl:defmethod qdd_target-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qdd_target-val is deprecated.  Use ur_msgs-msg:qdd_target instead.")
+  (qdd_target m))
+
+(cl:ensure-generic-function 'i_target-val :lambda-list '(m))
+(cl:defmethod i_target-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:i_target-val is deprecated.  Use ur_msgs-msg:i_target instead.")
+  (i_target m))
+
+(cl:ensure-generic-function 'm_target-val :lambda-list '(m))
+(cl:defmethod m_target-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:m_target-val is deprecated.  Use ur_msgs-msg:m_target instead.")
+  (m_target m))
+
+(cl:ensure-generic-function 'q_actual-val :lambda-list '(m))
+(cl:defmethod q_actual-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:q_actual-val is deprecated.  Use ur_msgs-msg:q_actual instead.")
+  (q_actual m))
+
+(cl:ensure-generic-function 'qd_actual-val :lambda-list '(m))
+(cl:defmethod qd_actual-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:qd_actual-val is deprecated.  Use ur_msgs-msg:qd_actual instead.")
+  (qd_actual m))
+
+(cl:ensure-generic-function 'i_actual-val :lambda-list '(m))
+(cl:defmethod i_actual-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:i_actual-val is deprecated.  Use ur_msgs-msg:i_actual instead.")
+  (i_actual m))
+
+(cl:ensure-generic-function 'tool_acc_values-val :lambda-list '(m))
+(cl:defmethod tool_acc_values-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_acc_values-val is deprecated.  Use ur_msgs-msg:tool_acc_values instead.")
+  (tool_acc_values m))
+
+(cl:ensure-generic-function 'tcp_force-val :lambda-list '(m))
+(cl:defmethod tcp_force-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tcp_force-val is deprecated.  Use ur_msgs-msg:tcp_force instead.")
+  (tcp_force m))
+
+(cl:ensure-generic-function 'tool_vector-val :lambda-list '(m))
+(cl:defmethod tool_vector-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_vector-val is deprecated.  Use ur_msgs-msg:tool_vector instead.")
+  (tool_vector m))
+
+(cl:ensure-generic-function 'tcp_speed-val :lambda-list '(m))
+(cl:defmethod tcp_speed-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tcp_speed-val is deprecated.  Use ur_msgs-msg:tcp_speed instead.")
+  (tcp_speed m))
+
+(cl:ensure-generic-function 'digital_input_bits-val :lambda-list '(m))
+(cl:defmethod digital_input_bits-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:digital_input_bits-val is deprecated.  Use ur_msgs-msg:digital_input_bits instead.")
+  (digital_input_bits m))
+
+(cl:ensure-generic-function 'motor_temperatures-val :lambda-list '(m))
+(cl:defmethod motor_temperatures-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:motor_temperatures-val is deprecated.  Use ur_msgs-msg:motor_temperatures instead.")
+  (motor_temperatures m))
+
+(cl:ensure-generic-function 'controller_timer-val :lambda-list '(m))
+(cl:defmethod controller_timer-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:controller_timer-val is deprecated.  Use ur_msgs-msg:controller_timer instead.")
+  (controller_timer m))
+
+(cl:ensure-generic-function 'test_value-val :lambda-list '(m))
+(cl:defmethod test_value-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:test_value-val is deprecated.  Use ur_msgs-msg:test_value instead.")
+  (test_value m))
+
+(cl:ensure-generic-function 'robot_mode-val :lambda-list '(m))
+(cl:defmethod robot_mode-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:robot_mode-val is deprecated.  Use ur_msgs-msg:robot_mode instead.")
+  (robot_mode m))
+
+(cl:ensure-generic-function 'joint_modes-val :lambda-list '(m))
+(cl:defmethod joint_modes-val ((m <RobotStateRTMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:joint_modes-val is deprecated.  Use ur_msgs-msg:joint_modes instead.")
+  (joint_modes m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <RobotStateRTMsg>) ostream)
+  "Serializes a message object of type '<RobotStateRTMsg>"
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'time))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'q_target))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'q_target))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qd_target))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'qd_target))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qdd_target))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'qdd_target))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'i_target))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'i_target))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'm_target))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'm_target))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'q_actual))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'q_actual))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'qd_actual))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'qd_actual))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'i_actual))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'i_actual))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tool_acc_values))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'tool_acc_values))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tcp_force))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'tcp_force))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tool_vector))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'tool_vector))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'tcp_speed))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'tcp_speed))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'digital_input_bits))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'motor_temperatures))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'motor_temperatures))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'controller_timer))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'test_value))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'robot_mode))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((__ros_arr_len (cl:length (cl:slot-value msg 'joint_modes))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) __ros_arr_len) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) __ros_arr_len) ostream))
+  (cl:map cl:nil #'(cl:lambda (ele) (cl:let ((bits (roslisp-utils:encode-double-float-bits ele)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream)))
+   (cl:slot-value msg 'joint_modes))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <RobotStateRTMsg>) istream)
+  "Deserializes a message object of type '<RobotStateRTMsg>"
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'time) (roslisp-utils:decode-double-float-bits bits)))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'q_target) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'q_target)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'qd_target) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'qd_target)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'qdd_target) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'qdd_target)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'i_target) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'i_target)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'm_target) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'm_target)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'q_actual) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'q_actual)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'qd_actual) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'qd_actual)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'i_actual) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'i_actual)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'tool_acc_values) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'tool_acc_values)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'tcp_force) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'tcp_force)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'tool_vector) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'tool_vector)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'tcp_speed) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'tcp_speed)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'digital_input_bits) (roslisp-utils:decode-double-float-bits bits)))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'motor_temperatures) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'motor_temperatures)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'controller_timer) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'test_value) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'robot_mode) (roslisp-utils:decode-double-float-bits bits)))
+  (cl:let ((__ros_arr_len 0))
+    (cl:setf (cl:ldb (cl:byte 8 0) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 8) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 16) __ros_arr_len) (cl:read-byte istream))
+    (cl:setf (cl:ldb (cl:byte 8 24) __ros_arr_len) (cl:read-byte istream))
+  (cl:setf (cl:slot-value msg 'joint_modes) (cl:make-array __ros_arr_len))
+  (cl:let ((vals (cl:slot-value msg 'joint_modes)))
+    (cl:dotimes (i __ros_arr_len)
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:aref vals i) (roslisp-utils:decode-double-float-bits bits))))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<RobotStateRTMsg>)))
+  "Returns string type for a message object of type '<RobotStateRTMsg>"
+  "ur_msgs/RobotStateRTMsg")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'RobotStateRTMsg)))
+  "Returns string type for a message object of type 'RobotStateRTMsg"
+  "ur_msgs/RobotStateRTMsg")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<RobotStateRTMsg>)))
+  "Returns md5sum for a message object of type '<RobotStateRTMsg>"
+  "ce6feddd3ccb4ca7dbcd0ff105b603c7")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'RobotStateRTMsg)))
+  "Returns md5sum for a message object of type 'RobotStateRTMsg"
+  "ce6feddd3ccb4ca7dbcd0ff105b603c7")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<RobotStateRTMsg>)))
+  "Returns full string definition for message of type '<RobotStateRTMsg>"
+  (cl:format cl:nil "# Data structure for the realtime communications interface (aka Matlab interface)~%# used by the Universal Robots controller~%# ~%# This data structure is send at 125 Hz on TCP port 30003~%# ~%# Dokumentation can be found on the Universal Robots Support Wiki~%# (http://wiki03.lynero.net/Technical/RealTimeClientInterface?rev=9)~%~%float64 time~%float64[] q_target~%float64[] qd_target~%float64[] qdd_target~%float64[] i_target~%float64[] m_target~%float64[] q_actual~%float64[] qd_actual~%float64[] i_actual~%float64[] tool_acc_values~%float64[] tcp_force~%float64[] tool_vector~%float64[] tcp_speed~%float64 digital_input_bits~%float64[] motor_temperatures~%float64 controller_timer~%float64 test_value~%float64 robot_mode~%float64[] joint_modes~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'RobotStateRTMsg)))
+  "Returns full string definition for message of type 'RobotStateRTMsg"
+  (cl:format cl:nil "# Data structure for the realtime communications interface (aka Matlab interface)~%# used by the Universal Robots controller~%# ~%# This data structure is send at 125 Hz on TCP port 30003~%# ~%# Dokumentation can be found on the Universal Robots Support Wiki~%# (http://wiki03.lynero.net/Technical/RealTimeClientInterface?rev=9)~%~%float64 time~%float64[] q_target~%float64[] qd_target~%float64[] qdd_target~%float64[] i_target~%float64[] m_target~%float64[] q_actual~%float64[] qd_actual~%float64[] i_actual~%float64[] tool_acc_values~%float64[] tcp_force~%float64[] tool_vector~%float64[] tcp_speed~%float64 digital_input_bits~%float64[] motor_temperatures~%float64 controller_timer~%float64 test_value~%float64 robot_mode~%float64[] joint_modes~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <RobotStateRTMsg>))
+  (cl:+ 0
+     8
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'q_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'qd_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'qdd_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'i_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'm_target) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'q_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'qd_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'i_actual) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'tool_acc_values) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'tcp_force) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'tool_vector) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'tcp_speed) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     8
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'motor_temperatures) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+     8
+     8
+     8
+     4 (cl:reduce #'cl:+ (cl:slot-value msg 'joint_modes) :key #'(cl:lambda (ele) (cl:declare (cl:ignorable ele)) (cl:+ 8)))
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <RobotStateRTMsg>))
+  "Converts a ROS message object to a list"
+  (cl:list 'RobotStateRTMsg
+    (cl:cons ':time (time msg))
+    (cl:cons ':q_target (q_target msg))
+    (cl:cons ':qd_target (qd_target msg))
+    (cl:cons ':qdd_target (qdd_target msg))
+    (cl:cons ':i_target (i_target msg))
+    (cl:cons ':m_target (m_target msg))
+    (cl:cons ':q_actual (q_actual msg))
+    (cl:cons ':qd_actual (qd_actual msg))
+    (cl:cons ':i_actual (i_actual msg))
+    (cl:cons ':tool_acc_values (tool_acc_values msg))
+    (cl:cons ':tcp_force (tcp_force msg))
+    (cl:cons ':tool_vector (tool_vector msg))
+    (cl:cons ':tcp_speed (tcp_speed msg))
+    (cl:cons ':digital_input_bits (digital_input_bits msg))
+    (cl:cons ':motor_temperatures (motor_temperatures msg))
+    (cl:cons ':controller_timer (controller_timer msg))
+    (cl:cons ':test_value (test_value msg))
+    (cl:cons ':robot_mode (robot_mode msg))
+    (cl:cons ':joint_modes (joint_modes msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/ToolDataMsg.lisp

@@ -0,0 +1,261 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-msg)
+
+
+;//! \htmlinclude ToolDataMsg.msg.html
+
+(cl:defclass <ToolDataMsg> (roslisp-msg-protocol:ros-message)
+  ((analog_input_range2
+    :reader analog_input_range2
+    :initarg :analog_input_range2
+    :type cl:fixnum
+    :initform 0)
+   (analog_input_range3
+    :reader analog_input_range3
+    :initarg :analog_input_range3
+    :type cl:fixnum
+    :initform 0)
+   (analog_input2
+    :reader analog_input2
+    :initarg :analog_input2
+    :type cl:float
+    :initform 0.0)
+   (analog_input3
+    :reader analog_input3
+    :initarg :analog_input3
+    :type cl:float
+    :initform 0.0)
+   (tool_voltage_48v
+    :reader tool_voltage_48v
+    :initarg :tool_voltage_48v
+    :type cl:float
+    :initform 0.0)
+   (tool_output_voltage
+    :reader tool_output_voltage
+    :initarg :tool_output_voltage
+    :type cl:fixnum
+    :initform 0)
+   (tool_current
+    :reader tool_current
+    :initarg :tool_current
+    :type cl:float
+    :initform 0.0)
+   (tool_temperature
+    :reader tool_temperature
+    :initarg :tool_temperature
+    :type cl:float
+    :initform 0.0)
+   (tool_mode
+    :reader tool_mode
+    :initarg :tool_mode
+    :type cl:fixnum
+    :initform 0))
+)
+
+(cl:defclass ToolDataMsg (<ToolDataMsg>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <ToolDataMsg>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'ToolDataMsg)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-msg:<ToolDataMsg> is deprecated: use ur_msgs-msg:ToolDataMsg instead.")))
+
+(cl:ensure-generic-function 'analog_input_range2-val :lambda-list '(m))
+(cl:defmethod analog_input_range2-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range2-val is deprecated.  Use ur_msgs-msg:analog_input_range2 instead.")
+  (analog_input_range2 m))
+
+(cl:ensure-generic-function 'analog_input_range3-val :lambda-list '(m))
+(cl:defmethod analog_input_range3-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input_range3-val is deprecated.  Use ur_msgs-msg:analog_input_range3 instead.")
+  (analog_input_range3 m))
+
+(cl:ensure-generic-function 'analog_input2-val :lambda-list '(m))
+(cl:defmethod analog_input2-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input2-val is deprecated.  Use ur_msgs-msg:analog_input2 instead.")
+  (analog_input2 m))
+
+(cl:ensure-generic-function 'analog_input3-val :lambda-list '(m))
+(cl:defmethod analog_input3-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:analog_input3-val is deprecated.  Use ur_msgs-msg:analog_input3 instead.")
+  (analog_input3 m))
+
+(cl:ensure-generic-function 'tool_voltage_48v-val :lambda-list '(m))
+(cl:defmethod tool_voltage_48v-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_voltage_48v-val is deprecated.  Use ur_msgs-msg:tool_voltage_48v instead.")
+  (tool_voltage_48v m))
+
+(cl:ensure-generic-function 'tool_output_voltage-val :lambda-list '(m))
+(cl:defmethod tool_output_voltage-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_output_voltage-val is deprecated.  Use ur_msgs-msg:tool_output_voltage instead.")
+  (tool_output_voltage m))
+
+(cl:ensure-generic-function 'tool_current-val :lambda-list '(m))
+(cl:defmethod tool_current-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_current-val is deprecated.  Use ur_msgs-msg:tool_current instead.")
+  (tool_current m))
+
+(cl:ensure-generic-function 'tool_temperature-val :lambda-list '(m))
+(cl:defmethod tool_temperature-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_temperature-val is deprecated.  Use ur_msgs-msg:tool_temperature instead.")
+  (tool_temperature m))
+
+(cl:ensure-generic-function 'tool_mode-val :lambda-list '(m))
+(cl:defmethod tool_mode-val ((m <ToolDataMsg>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-msg:tool_mode-val is deprecated.  Use ur_msgs-msg:tool_mode instead.")
+  (tool_mode m))
+(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<ToolDataMsg>)))
+    "Constants for message type '<ToolDataMsg>"
+  '((:ANALOG_INPUT_RANGE_CURRENT . 0)
+    (:ANALOG_INPUT_RANGE_VOLTAGE . 1)
+    (:TOOL_BOOTLOADER_MODE . 249)
+    (:TOOL_RUNNING_MODE . 253)
+    (:TOOL_IDLE_MODE . 255))
+)
+(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'ToolDataMsg)))
+    "Constants for message type 'ToolDataMsg"
+  '((:ANALOG_INPUT_RANGE_CURRENT . 0)
+    (:ANALOG_INPUT_RANGE_VOLTAGE . 1)
+    (:TOOL_BOOTLOADER_MODE . 249)
+    (:TOOL_RUNNING_MODE . 253)
+    (:TOOL_IDLE_MODE . 255))
+)
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <ToolDataMsg>) ostream)
+  "Serializes a message object of type '<ToolDataMsg>"
+  (cl:let* ((signed (cl:slot-value msg 'analog_input_range2)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let* ((signed (cl:slot-value msg 'analog_input_range3)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input2))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'analog_input3))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'tool_voltage_48v))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_output_voltage)) ostream)
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'tool_current))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'tool_temperature))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_mode)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <ToolDataMsg>) istream)
+  "Deserializes a message object of type '<ToolDataMsg>"
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_input_range2) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'analog_input_range3) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_input2) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'analog_input3) (roslisp-utils:decode-double-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'tool_voltage_48v) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_output_voltage)) (cl:read-byte istream))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'tool_current) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'tool_temperature) (roslisp-utils:decode-single-float-bits bits)))
+    (cl:setf (cl:ldb (cl:byte 8 0) (cl:slot-value msg 'tool_mode)) (cl:read-byte istream))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<ToolDataMsg>)))
+  "Returns string type for a message object of type '<ToolDataMsg>"
+  "ur_msgs/ToolDataMsg")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'ToolDataMsg)))
+  "Returns string type for a message object of type 'ToolDataMsg"
+  "ur_msgs/ToolDataMsg")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<ToolDataMsg>)))
+  "Returns md5sum for a message object of type '<ToolDataMsg>"
+  "404fc266f37d89f75b372d12fa94a122")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'ToolDataMsg)))
+  "Returns md5sum for a message object of type 'ToolDataMsg"
+  "404fc266f37d89f75b372d12fa94a122")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<ToolDataMsg>)))
+  "Returns full string definition for message of type '<ToolDataMsg>"
+  (cl:format cl:nil "# This data structure contains the ToolData structure~%# used by the Universal Robots controller~%~%int8 ANALOG_INPUT_RANGE_CURRENT = 0~%int8 ANALOG_INPUT_RANGE_VOLTAGE = 1~%~%int8 analog_input_range2 # one of ANALOG_INPUT_RANGE_*~%int8 analog_input_range3 # one of ANALOG_INPUT_RANGE_*~%float64 analog_input2~%float64 analog_input3~%float32 tool_voltage_48v~%uint8 tool_output_voltage~%float32 tool_current~%float32 tool_temperature~%~%uint8 TOOL_BOOTLOADER_MODE = 249~%uint8 TOOL_RUNNING_MODE = 253~%uint8 TOOL_IDLE_MODE = 255~%~%uint8 tool_mode # one of TOOL_*~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'ToolDataMsg)))
+  "Returns full string definition for message of type 'ToolDataMsg"
+  (cl:format cl:nil "# This data structure contains the ToolData structure~%# used by the Universal Robots controller~%~%int8 ANALOG_INPUT_RANGE_CURRENT = 0~%int8 ANALOG_INPUT_RANGE_VOLTAGE = 1~%~%int8 analog_input_range2 # one of ANALOG_INPUT_RANGE_*~%int8 analog_input_range3 # one of ANALOG_INPUT_RANGE_*~%float64 analog_input2~%float64 analog_input3~%float32 tool_voltage_48v~%uint8 tool_output_voltage~%float32 tool_current~%float32 tool_temperature~%~%uint8 TOOL_BOOTLOADER_MODE = 249~%uint8 TOOL_RUNNING_MODE = 253~%uint8 TOOL_IDLE_MODE = 255~%~%uint8 tool_mode # one of TOOL_*~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <ToolDataMsg>))
+  (cl:+ 0
+     1
+     1
+     8
+     8
+     4
+     1
+     4
+     4
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <ToolDataMsg>))
+  "Converts a ROS message object to a list"
+  (cl:list 'ToolDataMsg
+    (cl:cons ':analog_input_range2 (analog_input_range2 msg))
+    (cl:cons ':analog_input_range3 (analog_input_range3 msg))
+    (cl:cons ':analog_input2 (analog_input2 msg))
+    (cl:cons ':analog_input3 (analog_input3 msg))
+    (cl:cons ':tool_voltage_48v (tool_voltage_48v msg))
+    (cl:cons ':tool_output_voltage (tool_output_voltage msg))
+    (cl:cons ':tool_current (tool_current msg))
+    (cl:cons ':tool_temperature (tool_temperature msg))
+    (cl:cons ':tool_mode (tool_mode msg))
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package.lisp

@@ -0,0 +1,19 @@
+(cl:defpackage ur_msgs-msg
+  (:use )
+  (:export
+   "<ANALOG>"
+   "ANALOG"
+   "<DIGITAL>"
+   "DIGITAL"
+   "<IOSTATES>"
+   "IOSTATES"
+   "<MASTERBOARDDATAMSG>"
+   "MASTERBOARDDATAMSG"
+   "<ROBOTMODEDATAMSG>"
+   "ROBOTMODEDATAMSG"
+   "<ROBOTSTATERTMSG>"
+   "ROBOTSTATERTMSG"
+   "<TOOLDATAMSG>"
+   "TOOLDATAMSG"
+  ))
+

devel/share/common-lisp/ros/ur_msgs/msg/_package_Analog.lisp

@@ -0,0 +1,6 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(PIN-VAL
+          PIN
+          STATE-VAL
+          STATE
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_Digital.lisp

@@ -0,0 +1,6 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(PIN-VAL
+          PIN
+          STATE-VAL
+          STATE
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_IOStates.lisp

@@ -0,0 +1,12 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(DIGITAL_IN_STATES-VAL
+          DIGITAL_IN_STATES
+          DIGITAL_OUT_STATES-VAL
+          DIGITAL_OUT_STATES
+          FLAG_STATES-VAL
+          FLAG_STATES
+          ANALOG_IN_STATES-VAL
+          ANALOG_IN_STATES
+          ANALOG_OUT_STATES-VAL
+          ANALOG_OUT_STATES
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_MasterboardDataMsg.lisp

@@ -0,0 +1,34 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(DIGITAL_INPUT_BITS-VAL
+          DIGITAL_INPUT_BITS
+          DIGITAL_OUTPUT_BITS-VAL
+          DIGITAL_OUTPUT_BITS
+          ANALOG_INPUT_RANGE0-VAL
+          ANALOG_INPUT_RANGE0
+          ANALOG_INPUT_RANGE1-VAL
+          ANALOG_INPUT_RANGE1
+          ANALOG_INPUT0-VAL
+          ANALOG_INPUT0
+          ANALOG_INPUT1-VAL
+          ANALOG_INPUT1
+          ANALOG_OUTPUT_DOMAIN0-VAL
+          ANALOG_OUTPUT_DOMAIN0
+          ANALOG_OUTPUT_DOMAIN1-VAL
+          ANALOG_OUTPUT_DOMAIN1
+          ANALOG_OUTPUT0-VAL
+          ANALOG_OUTPUT0
+          ANALOG_OUTPUT1-VAL
+          ANALOG_OUTPUT1
+          MASTERBOARD_TEMPERATURE-VAL
+          MASTERBOARD_TEMPERATURE
+          ROBOT_VOLTAGE_48V-VAL
+          ROBOT_VOLTAGE_48V
+          ROBOT_CURRENT-VAL
+          ROBOT_CURRENT
+          MASTER_IO_CURRENT-VAL
+          MASTER_IO_CURRENT
+          MASTER_SAFETY_STATE-VAL
+          MASTER_SAFETY_STATE
+          MASTER_ONOFF_STATE-VAL
+          MASTER_ONOFF_STATE
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_RobotModeDataMsg.lisp

@@ -0,0 +1,18 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(TIMESTAMP-VAL
+          TIMESTAMP
+          IS_ROBOT_CONNECTED-VAL
+          IS_ROBOT_CONNECTED
+          IS_REAL_ROBOT_ENABLED-VAL
+          IS_REAL_ROBOT_ENABLED
+          IS_POWER_ON_ROBOT-VAL
+          IS_POWER_ON_ROBOT
+          IS_EMERGENCY_STOPPED-VAL
+          IS_EMERGENCY_STOPPED
+          IS_PROTECTIVE_STOPPED-VAL
+          IS_PROTECTIVE_STOPPED
+          IS_PROGRAM_RUNNING-VAL
+          IS_PROGRAM_RUNNING
+          IS_PROGRAM_PAUSED-VAL
+          IS_PROGRAM_PAUSED
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_RobotStateRTMsg.lisp

@@ -0,0 +1,40 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(TIME-VAL
+          TIME
+          Q_TARGET-VAL
+          Q_TARGET
+          QD_TARGET-VAL
+          QD_TARGET
+          QDD_TARGET-VAL
+          QDD_TARGET
+          I_TARGET-VAL
+          I_TARGET
+          M_TARGET-VAL
+          M_TARGET
+          Q_ACTUAL-VAL
+          Q_ACTUAL
+          QD_ACTUAL-VAL
+          QD_ACTUAL
+          I_ACTUAL-VAL
+          I_ACTUAL
+          TOOL_ACC_VALUES-VAL
+          TOOL_ACC_VALUES
+          TCP_FORCE-VAL
+          TCP_FORCE
+          TOOL_VECTOR-VAL
+          TOOL_VECTOR
+          TCP_SPEED-VAL
+          TCP_SPEED
+          DIGITAL_INPUT_BITS-VAL
+          DIGITAL_INPUT_BITS
+          MOTOR_TEMPERATURES-VAL
+          MOTOR_TEMPERATURES
+          CONTROLLER_TIMER-VAL
+          CONTROLLER_TIMER
+          TEST_VALUE-VAL
+          TEST_VALUE
+          ROBOT_MODE-VAL
+          ROBOT_MODE
+          JOINT_MODES-VAL
+          JOINT_MODES
+))

devel/share/common-lisp/ros/ur_msgs/msg/_package_ToolDataMsg.lisp

@@ -0,0 +1,20 @@
+(cl:in-package ur_msgs-msg)
+(cl:export '(ANALOG_INPUT_RANGE2-VAL
+          ANALOG_INPUT_RANGE2
+          ANALOG_INPUT_RANGE3-VAL
+          ANALOG_INPUT_RANGE3
+          ANALOG_INPUT2-VAL
+          ANALOG_INPUT2
+          ANALOG_INPUT3-VAL
+          ANALOG_INPUT3
+          TOOL_VOLTAGE_48V-VAL
+          TOOL_VOLTAGE_48V
+          TOOL_OUTPUT_VOLTAGE-VAL
+          TOOL_OUTPUT_VOLTAGE
+          TOOL_CURRENT-VAL
+          TOOL_CURRENT
+          TOOL_TEMPERATURE-VAL
+          TOOL_TEMPERATURE
+          TOOL_MODE-VAL
+          TOOL_MODE
+))

devel/share/common-lisp/ros/ur_msgs/msg/ur_msgs-msg.asd

@@ -0,0 +1,21 @@
+
+(cl:in-package :asdf)
+
+(defsystem "ur_msgs-msg"
+  :depends-on (:roslisp-msg-protocol :roslisp-utils )
+  :components ((:file "_package")
+    (:file "Analog" :depends-on ("_package_Analog"))
+    (:file "_package_Analog" :depends-on ("_package"))
+    (:file "Digital" :depends-on ("_package_Digital"))
+    (:file "_package_Digital" :depends-on ("_package"))
+    (:file "IOStates" :depends-on ("_package_IOStates"))
+    (:file "_package_IOStates" :depends-on ("_package"))
+    (:file "MasterboardDataMsg" :depends-on ("_package_MasterboardDataMsg"))
+    (:file "_package_MasterboardDataMsg" :depends-on ("_package"))
+    (:file "RobotModeDataMsg" :depends-on ("_package_RobotModeDataMsg"))
+    (:file "_package_RobotModeDataMsg" :depends-on ("_package"))
+    (:file "RobotStateRTMsg" :depends-on ("_package_RobotStateRTMsg"))
+    (:file "_package_RobotStateRTMsg" :depends-on ("_package"))
+    (:file "ToolDataMsg" :depends-on ("_package_ToolDataMsg"))
+    (:file "_package_ToolDataMsg" :depends-on ("_package"))
+  ))

devel/share/common-lisp/ros/ur_msgs/srv/SetIO.lisp

@@ -0,0 +1,198 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-srv)
+
+
+;//! \htmlinclude SetIO-request.msg.html
+
+(cl:defclass <SetIO-request> (roslisp-msg-protocol:ros-message)
+  ((fun
+    :reader fun
+    :initarg :fun
+    :type cl:fixnum
+    :initform 0)
+   (pin
+    :reader pin
+    :initarg :pin
+    :type cl:fixnum
+    :initform 0)
+   (state
+    :reader state
+    :initarg :state
+    :type cl:float
+    :initform 0.0))
+)
+
+(cl:defclass SetIO-request (<SetIO-request>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetIO-request>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetIO-request)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetIO-request> is deprecated: use ur_msgs-srv:SetIO-request instead.")))
+
+(cl:ensure-generic-function 'fun-val :lambda-list '(m))
+(cl:defmethod fun-val ((m <SetIO-request>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:fun-val is deprecated.  Use ur_msgs-srv:fun instead.")
+  (fun m))
+
+(cl:ensure-generic-function 'pin-val :lambda-list '(m))
+(cl:defmethod pin-val ((m <SetIO-request>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:pin-val is deprecated.  Use ur_msgs-srv:pin instead.")
+  (pin m))
+
+(cl:ensure-generic-function 'state-val :lambda-list '(m))
+(cl:defmethod state-val ((m <SetIO-request>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:state-val is deprecated.  Use ur_msgs-srv:state instead.")
+  (state m))
+(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql '<SetIO-request>)))
+    "Constants for message type '<SetIO-request>"
+  '((:FUN_SET_DIGITAL_OUT . 1)
+    (:FUN_SET_FLAG . 2)
+    (:FUN_SET_ANALOG_OUT . 3)
+    (:FUN_SET_TOOL_VOLTAGE . 4)
+    (:STATE_OFF . 0)
+    (:STATE_ON . 1)
+    (:STATE_TOOL_VOLTAGE_0V . 0)
+    (:STATE_TOOL_VOLTAGE_12V . 12)
+    (:STATE_TOOL_VOLTAGE_24V . 24))
+)
+(cl:defmethod roslisp-msg-protocol:symbol-codes ((msg-type (cl:eql 'SetIO-request)))
+    "Constants for message type 'SetIO-request"
+  '((:FUN_SET_DIGITAL_OUT . 1)
+    (:FUN_SET_FLAG . 2)
+    (:FUN_SET_ANALOG_OUT . 3)
+    (:FUN_SET_TOOL_VOLTAGE . 4)
+    (:STATE_OFF . 0)
+    (:STATE_ON . 1)
+    (:STATE_TOOL_VOLTAGE_0V . 0)
+    (:STATE_TOOL_VOLTAGE_12V . 12)
+    (:STATE_TOOL_VOLTAGE_24V . 24))
+)
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetIO-request>) ostream)
+  "Serializes a message object of type '<SetIO-request>"
+  (cl:let* ((signed (cl:slot-value msg 'fun)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let* ((signed (cl:slot-value msg 'pin)) (unsigned (cl:if (cl:< signed 0) (cl:+ signed 256) signed)))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) unsigned) ostream)
+    )
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'state))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetIO-request>) istream)
+  "Deserializes a message object of type '<SetIO-request>"
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'fun) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((unsigned 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) unsigned) (cl:read-byte istream))
+      (cl:setf (cl:slot-value msg 'pin) (cl:if (cl:< unsigned 128) unsigned (cl:- unsigned 256))))
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'state) (roslisp-utils:decode-single-float-bits bits)))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetIO-request>)))
+  "Returns string type for a service object of type '<SetIO-request>"
+  "ur_msgs/SetIORequest")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO-request)))
+  "Returns string type for a service object of type 'SetIO-request"
+  "ur_msgs/SetIORequest")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetIO-request>)))
+  "Returns md5sum for a message object of type '<SetIO-request>"
+  "e1b580ccf43a938f2efbbb98bbe3e277")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetIO-request)))
+  "Returns md5sum for a message object of type 'SetIO-request"
+  "e1b580ccf43a938f2efbbb98bbe3e277")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetIO-request>)))
+  "Returns full string definition for message of type '<SetIO-request>"
+  (cl:format cl:nil "~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%int8 FUN_SET_DIGITAL_OUT = 1~%int8 FUN_SET_FLAG = 2~%int8 FUN_SET_ANALOG_OUT = 3~%int8 FUN_SET_TOOL_VOLTAGE = 4~%~%~%int8 STATE_OFF = 0~%int8 STATE_ON = 1~%~%~%int8 STATE_TOOL_VOLTAGE_0V = 0~%int8 STATE_TOOL_VOLTAGE_12V = 12~%int8 STATE_TOOL_VOLTAGE_24V = 24~%~%~%int8 fun~%int8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetIO-request)))
+  "Returns full string definition for message of type 'SetIO-request"
+  (cl:format cl:nil "~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%int8 FUN_SET_DIGITAL_OUT = 1~%int8 FUN_SET_FLAG = 2~%int8 FUN_SET_ANALOG_OUT = 3~%int8 FUN_SET_TOOL_VOLTAGE = 4~%~%~%int8 STATE_OFF = 0~%int8 STATE_ON = 1~%~%~%int8 STATE_TOOL_VOLTAGE_0V = 0~%int8 STATE_TOOL_VOLTAGE_12V = 12~%int8 STATE_TOOL_VOLTAGE_24V = 24~%~%~%int8 fun~%int8 pin~%float32 state~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetIO-request>))
+  (cl:+ 0
+     1
+     1
+     4
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetIO-request>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetIO-request
+    (cl:cons ':fun (fun msg))
+    (cl:cons ':pin (pin msg))
+    (cl:cons ':state (state msg))
+))
+;//! \htmlinclude SetIO-response.msg.html
+
+(cl:defclass <SetIO-response> (roslisp-msg-protocol:ros-message)
+  ((success
+    :reader success
+    :initarg :success
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass SetIO-response (<SetIO-response>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetIO-response>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetIO-response)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetIO-response> is deprecated: use ur_msgs-srv:SetIO-response instead.")))
+
+(cl:ensure-generic-function 'success-val :lambda-list '(m))
+(cl:defmethod success-val ((m <SetIO-response>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:success-val is deprecated.  Use ur_msgs-srv:success instead.")
+  (success m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetIO-response>) ostream)
+  "Serializes a message object of type '<SetIO-response>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetIO-response>) istream)
+  "Deserializes a message object of type '<SetIO-response>"
+    (cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetIO-response>)))
+  "Returns string type for a service object of type '<SetIO-response>"
+  "ur_msgs/SetIOResponse")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO-response)))
+  "Returns string type for a service object of type 'SetIO-response"
+  "ur_msgs/SetIOResponse")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetIO-response>)))
+  "Returns md5sum for a message object of type '<SetIO-response>"
+  "e1b580ccf43a938f2efbbb98bbe3e277")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetIO-response)))
+  "Returns md5sum for a message object of type 'SetIO-response"
+  "e1b580ccf43a938f2efbbb98bbe3e277")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetIO-response>)))
+  "Returns full string definition for message of type '<SetIO-response>"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetIO-response)))
+  "Returns full string definition for message of type 'SetIO-response"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetIO-response>))
+  (cl:+ 0
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetIO-response>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetIO-response
+    (cl:cons ':success (success msg))
+))
+(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetIO)))
+  'SetIO-request)
+(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetIO)))
+  'SetIO-response)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetIO)))
+  "Returns string type for a service object of type '<SetIO>"
+  "ur_msgs/SetIO")

devel/share/common-lisp/ros/ur_msgs/srv/SetPayload.lisp

@@ -0,0 +1,138 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_msgs-srv)
+
+
+;//! \htmlinclude SetPayload-request.msg.html
+
+(cl:defclass <SetPayload-request> (roslisp-msg-protocol:ros-message)
+  ((payload
+    :reader payload
+    :initarg :payload
+    :type cl:float
+    :initform 0.0))
+)
+
+(cl:defclass SetPayload-request (<SetPayload-request>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetPayload-request>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetPayload-request)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetPayload-request> is deprecated: use ur_msgs-srv:SetPayload-request instead.")))
+
+(cl:ensure-generic-function 'payload-val :lambda-list '(m))
+(cl:defmethod payload-val ((m <SetPayload-request>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:payload-val is deprecated.  Use ur_msgs-srv:payload instead.")
+  (payload m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetPayload-request>) ostream)
+  "Serializes a message object of type '<SetPayload-request>"
+  (cl:let ((bits (roslisp-utils:encode-single-float-bits (cl:slot-value msg 'payload))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetPayload-request>) istream)
+  "Deserializes a message object of type '<SetPayload-request>"
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'payload) (roslisp-utils:decode-single-float-bits bits)))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetPayload-request>)))
+  "Returns string type for a service object of type '<SetPayload-request>"
+  "ur_msgs/SetPayloadRequest")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload-request)))
+  "Returns string type for a service object of type 'SetPayload-request"
+  "ur_msgs/SetPayloadRequest")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetPayload-request>)))
+  "Returns md5sum for a message object of type '<SetPayload-request>"
+  "7f12eb632882cb73e5721178d0073e39")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetPayload-request)))
+  "Returns md5sum for a message object of type 'SetPayload-request"
+  "7f12eb632882cb73e5721178d0073e39")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetPayload-request>)))
+  "Returns full string definition for message of type '<SetPayload-request>"
+  (cl:format cl:nil "float32 payload~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetPayload-request)))
+  "Returns full string definition for message of type 'SetPayload-request"
+  (cl:format cl:nil "float32 payload~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetPayload-request>))
+  (cl:+ 0
+     4
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetPayload-request>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetPayload-request
+    (cl:cons ':payload (payload msg))
+))
+;//! \htmlinclude SetPayload-response.msg.html
+
+(cl:defclass <SetPayload-response> (roslisp-msg-protocol:ros-message)
+  ((success
+    :reader success
+    :initarg :success
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass SetPayload-response (<SetPayload-response>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetPayload-response>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetPayload-response)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_msgs-srv:<SetPayload-response> is deprecated: use ur_msgs-srv:SetPayload-response instead.")))
+
+(cl:ensure-generic-function 'success-val :lambda-list '(m))
+(cl:defmethod success-val ((m <SetPayload-response>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_msgs-srv:success-val is deprecated.  Use ur_msgs-srv:success instead.")
+  (success m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetPayload-response>) ostream)
+  "Serializes a message object of type '<SetPayload-response>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetPayload-response>) istream)
+  "Deserializes a message object of type '<SetPayload-response>"
+    (cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetPayload-response>)))
+  "Returns string type for a service object of type '<SetPayload-response>"
+  "ur_msgs/SetPayloadResponse")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload-response)))
+  "Returns string type for a service object of type 'SetPayload-response"
+  "ur_msgs/SetPayloadResponse")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetPayload-response>)))
+  "Returns md5sum for a message object of type '<SetPayload-response>"
+  "7f12eb632882cb73e5721178d0073e39")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetPayload-response)))
+  "Returns md5sum for a message object of type 'SetPayload-response"
+  "7f12eb632882cb73e5721178d0073e39")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetPayload-response>)))
+  "Returns full string definition for message of type '<SetPayload-response>"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetPayload-response)))
+  "Returns full string definition for message of type 'SetPayload-response"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetPayload-response>))
+  (cl:+ 0
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetPayload-response>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetPayload-response
+    (cl:cons ':success (success msg))
+))
+(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetPayload)))
+  'SetPayload-request)
+(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetPayload)))
+  'SetPayload-response)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetPayload)))
+  "Returns string type for a service object of type '<SetPayload>"
+  "ur_msgs/SetPayload")

devel/share/common-lisp/ros/ur_msgs/srv/_package.lisp

@@ -0,0 +1,15 @@
+(cl:defpackage ur_msgs-srv
+  (:use )
+  (:export
+   "SETIO"
+   "<SETIO-REQUEST>"
+   "SETIO-REQUEST"
+   "<SETIO-RESPONSE>"
+   "SETIO-RESPONSE"
+   "SETPAYLOAD"
+   "<SETPAYLOAD-REQUEST>"
+   "SETPAYLOAD-REQUEST"
+   "<SETPAYLOAD-RESPONSE>"
+   "SETPAYLOAD-RESPONSE"
+  ))
+

devel/share/common-lisp/ros/ur_msgs/srv/_package_SetIO.lisp

@@ -0,0 +1,10 @@
+(cl:in-package ur_msgs-srv)
+(cl:export '(FUN-VAL
+          FUN
+          PIN-VAL
+          PIN
+          STATE-VAL
+          STATE
+          SUCCESS-VAL
+          SUCCESS
+))

devel/share/common-lisp/ros/ur_msgs/srv/_package_SetPayload.lisp

@@ -0,0 +1,6 @@
+(cl:in-package ur_msgs-srv)
+(cl:export '(PAYLOAD-VAL
+          PAYLOAD
+          SUCCESS-VAL
+          SUCCESS
+))

devel/share/common-lisp/ros/ur_msgs/srv/ur_msgs-srv.asd

@@ -0,0 +1,11 @@
+
+(cl:in-package :asdf)
+
+(defsystem "ur_msgs-srv"
+  :depends-on (:roslisp-msg-protocol :roslisp-utils )
+  :components ((:file "_package")
+    (:file "SetIO" :depends-on ("_package_SetIO"))
+    (:file "_package_SetIO" :depends-on ("_package"))
+    (:file "SetPayload" :depends-on ("_package_SetPayload"))
+    (:file "_package_SetPayload" :depends-on ("_package"))
+  ))

devel/share/common-lisp/ros/ur_rtde_msgs/srv/SetSpeedSlider.lisp

@@ -0,0 +1,146 @@
+; Auto-generated. Do not edit!
+
+
+(cl:in-package ur_rtde_msgs-srv)
+
+
+;//! \htmlinclude SetSpeedSlider-request.msg.html
+
+(cl:defclass <SetSpeedSlider-request> (roslisp-msg-protocol:ros-message)
+  ((data
+    :reader data
+    :initarg :data
+    :type cl:float
+    :initform 0.0))
+)
+
+(cl:defclass SetSpeedSlider-request (<SetSpeedSlider-request>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetSpeedSlider-request>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetSpeedSlider-request)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_rtde_msgs-srv:<SetSpeedSlider-request> is deprecated: use ur_rtde_msgs-srv:SetSpeedSlider-request instead.")))
+
+(cl:ensure-generic-function 'data-val :lambda-list '(m))
+(cl:defmethod data-val ((m <SetSpeedSlider-request>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_rtde_msgs-srv:data-val is deprecated.  Use ur_rtde_msgs-srv:data instead.")
+  (data m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetSpeedSlider-request>) ostream)
+  "Serializes a message object of type '<SetSpeedSlider-request>"
+  (cl:let ((bits (roslisp-utils:encode-double-float-bits (cl:slot-value msg 'data))))
+    (cl:write-byte (cl:ldb (cl:byte 8 0) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 8) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 16) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 24) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 32) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 40) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 48) bits) ostream)
+    (cl:write-byte (cl:ldb (cl:byte 8 56) bits) ostream))
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetSpeedSlider-request>) istream)
+  "Deserializes a message object of type '<SetSpeedSlider-request>"
+    (cl:let ((bits 0))
+      (cl:setf (cl:ldb (cl:byte 8 0) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 8) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 16) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 24) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 32) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 40) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 48) bits) (cl:read-byte istream))
+      (cl:setf (cl:ldb (cl:byte 8 56) bits) (cl:read-byte istream))
+    (cl:setf (cl:slot-value msg 'data) (roslisp-utils:decode-double-float-bits bits)))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetSpeedSlider-request>)))
+  "Returns string type for a service object of type '<SetSpeedSlider-request>"
+  "ur_rtde_msgs/SetSpeedSliderRequest")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSlider-request)))
+  "Returns string type for a service object of type 'SetSpeedSlider-request"
+  "ur_rtde_msgs/SetSpeedSliderRequest")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetSpeedSlider-request>)))
+  "Returns md5sum for a message object of type '<SetSpeedSlider-request>"
+  "6dffcb6acc6bec80315e1c470ea1bca9")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetSpeedSlider-request)))
+  "Returns md5sum for a message object of type 'SetSpeedSlider-request"
+  "6dffcb6acc6bec80315e1c470ea1bca9")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetSpeedSlider-request>)))
+  "Returns full string definition for message of type '<SetSpeedSlider-request>"
+  (cl:format cl:nil "float64 data~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetSpeedSlider-request)))
+  "Returns full string definition for message of type 'SetSpeedSlider-request"
+  (cl:format cl:nil "float64 data~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetSpeedSlider-request>))
+  (cl:+ 0
+     8
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetSpeedSlider-request>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetSpeedSlider-request
+    (cl:cons ':data (data msg))
+))
+;//! \htmlinclude SetSpeedSlider-response.msg.html
+
+(cl:defclass <SetSpeedSlider-response> (roslisp-msg-protocol:ros-message)
+  ((success
+    :reader success
+    :initarg :success
+    :type cl:boolean
+    :initform cl:nil))
+)
+
+(cl:defclass SetSpeedSlider-response (<SetSpeedSlider-response>)
+  ())
+
+(cl:defmethod cl:initialize-instance :after ((m <SetSpeedSlider-response>) cl:&rest args)
+  (cl:declare (cl:ignorable args))
+  (cl:unless (cl:typep m 'SetSpeedSlider-response)
+    (roslisp-msg-protocol:msg-deprecation-warning "using old message class name ur_rtde_msgs-srv:<SetSpeedSlider-response> is deprecated: use ur_rtde_msgs-srv:SetSpeedSlider-response instead.")))
+
+(cl:ensure-generic-function 'success-val :lambda-list '(m))
+(cl:defmethod success-val ((m <SetSpeedSlider-response>))
+  (roslisp-msg-protocol:msg-deprecation-warning "Using old-style slot reader ur_rtde_msgs-srv:success-val is deprecated.  Use ur_rtde_msgs-srv:success instead.")
+  (success m))
+(cl:defmethod roslisp-msg-protocol:serialize ((msg <SetSpeedSlider-response>) ostream)
+  "Serializes a message object of type '<SetSpeedSlider-response>"
+  (cl:write-byte (cl:ldb (cl:byte 8 0) (cl:if (cl:slot-value msg 'success) 1 0)) ostream)
+)
+(cl:defmethod roslisp-msg-protocol:deserialize ((msg <SetSpeedSlider-response>) istream)
+  "Deserializes a message object of type '<SetSpeedSlider-response>"
+    (cl:setf (cl:slot-value msg 'success) (cl:not (cl:zerop (cl:read-byte istream))))
+  msg
+)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql '<SetSpeedSlider-response>)))
+  "Returns string type for a service object of type '<SetSpeedSlider-response>"
+  "ur_rtde_msgs/SetSpeedSliderResponse")
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSlider-response)))
+  "Returns string type for a service object of type 'SetSpeedSlider-response"
+  "ur_rtde_msgs/SetSpeedSliderResponse")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql '<SetSpeedSlider-response>)))
+  "Returns md5sum for a message object of type '<SetSpeedSlider-response>"
+  "6dffcb6acc6bec80315e1c470ea1bca9")
+(cl:defmethod roslisp-msg-protocol:md5sum ((type (cl:eql 'SetSpeedSlider-response)))
+  "Returns md5sum for a message object of type 'SetSpeedSlider-response"
+  "6dffcb6acc6bec80315e1c470ea1bca9")
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql '<SetSpeedSlider-response>)))
+  "Returns full string definition for message of type '<SetSpeedSlider-response>"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:message-definition ((type (cl:eql 'SetSpeedSlider-response)))
+  "Returns full string definition for message of type 'SetSpeedSlider-response"
+  (cl:format cl:nil "bool success~%~%~%~%"))
+(cl:defmethod roslisp-msg-protocol:serialization-length ((msg <SetSpeedSlider-response>))
+  (cl:+ 0
+     1
+))
+(cl:defmethod roslisp-msg-protocol:ros-message-to-list ((msg <SetSpeedSlider-response>))
+  "Converts a ROS message object to a list"
+  (cl:list 'SetSpeedSlider-response
+    (cl:cons ':success (success msg))
+))
+(cl:defmethod roslisp-msg-protocol:service-request-type ((msg (cl:eql 'SetSpeedSlider)))
+  'SetSpeedSlider-request)
+(cl:defmethod roslisp-msg-protocol:service-response-type ((msg (cl:eql 'SetSpeedSlider)))
+  'SetSpeedSlider-response)
+(cl:defmethod roslisp-msg-protocol:ros-datatype ((msg (cl:eql 'SetSpeedSlider)))
+  "Returns string type for a service object of type '<SetSpeedSlider>"
+  "ur_rtde_msgs/SetSpeedSlider")

devel/share/common-lisp/ros/ur_rtde_msgs/srv/_package.lisp

@@ -0,0 +1,10 @@
+(cl:defpackage ur_rtde_msgs-srv
+  (:use )
+  (:export
+   "SETSPEEDSLIDER"
+   "<SETSPEEDSLIDER-REQUEST>"
+   "SETSPEEDSLIDER-REQUEST"
+   "<SETSPEEDSLIDER-RESPONSE>"
+   "SETSPEEDSLIDER-RESPONSE"
+  ))
+

devel/share/common-lisp/ros/ur_rtde_msgs/srv/_package_SetSpeedSlider.lisp

@@ -0,0 +1,6 @@
+(cl:in-package ur_rtde_msgs-srv)
+(cl:export '(DATA-VAL
+          DATA
+          SUCCESS-VAL
+          SUCCESS
+))

devel/share/common-lisp/ros/ur_rtde_msgs/srv/ur_rtde_msgs-srv.asd

@@ -0,0 +1,9 @@
+
+(cl:in-package :asdf)
+
+(defsystem "ur_rtde_msgs-srv"
+  :depends-on (:roslisp-msg-protocol :roslisp-utils )
+  :components ((:file "_package")
+    (:file "SetSpeedSlider" :depends-on ("_package_SetSpeedSlider"))
+    (:file "_package_SetSpeedSlider" :depends-on ("_package"))
+  ))