From 36adc3efd10a1c7e332ceadf6721ab02db63bcc0 Mon Sep 17 00:00:00 2001 From: Ryohei Ueda Date: Thu, 17 Sep 2015 20:05:43 +0900 Subject: [PATCH] Remove make-robot-model-from-name from irtutil.l --- irteus/irtutil.l | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/irteus/irtutil.l b/irteus/irtutil.l index ad644384c..4d404325c 100644 --- a/irteus/irtutil.l +++ b/irteus/irtutil.l @@ -375,17 +375,6 @@ (reverse ret)) (close strm)))) -(defun make-robot-model-from-name (name &rest args) - "make a robot model from string: (make-robot-model \"pr2\")" - (let ((name (string-downcase name))) - (let ((klasses (flatten (send robot-model :hierarchy)))) - (dolist (klass klasses) - (let ((klass-name (string-downcase (send klass :name)))) - (if (or (string= klass-name name) - (string= (format nil "~A-robot" name) klass-name)) - (return-from make-robot-model-from-name (instance* klass :init args))))) - nil))) - (provide :irtutil "$Id$")