(defmacro defmanipulator (name &rest initargs &key (class eta3arm) &allow-other-keys) `(setq ,name (send (instantiate ,class) :create :name ',name ,@initargs)))