remove ;; do-until-key x/10 message

euslisp · Aug 18, 2018 · cd57ba1 · cd57ba1
1 parent b33549b
commit cd57ba1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/irteus/test/irteus-demo.l b/irteus/test/irteus-demo.l
@@ -3,7 +3,7 @@
 (init-unit-test)
 
 (load "irteus/demo/demo.l")
-(defmacro do-until-key (&rest forms) (with-gensyms (do-until-key-counter tm) `(progn (setq tm (instance mtimer :init)) (dotimes (do-until-key-counter 10) (warning-message 2 ";; do-until-key ~7,3f ~A/~A~%" (send tm :stop) do-until-key-counter 10) ,@forms))))
+(defmacro do-until-key (&rest forms) (with-gensyms (do-until-key-counter tm) `(progn (setq tm (instance mtimer :init)) (dotimes (do-until-key-counter 10) ,@forms))))
 
 (deftest test-full-body-ik
   (full-body-ik :debug-view nil))