From 712e8be35a1ae9f6507d897a251201e572aa9b44 Mon Sep 17 00:00:00 2001
From: Kei Okada <k-okada@jsk.t.u-tokyo.ac.jp>
Date: Tue, 12 Nov 2019 21:24:11 +0900
Subject: [PATCH] warn which color is not found

---
 irteus/irtgl.l | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/irteus/irtgl.l b/irteus/irtgl.l
index 306898c31..4a88593de 100644
--- a/irteus/irtgl.l
+++ b/irteus/irtgl.l
@@ -460,7 +460,7 @@
        ((symbolp color)
 	(setq c (find-if #'(lambda (o) (eq (send o :name) color))
 			 *face-colors*))
-	(if c (send c :diffuse) (warn "Color name not found ")))
+	(if c (send c :diffuse) (warn "Color name (~A) not found~%" color)))
        (t color)))
     (unless v (setq v (float-vector 0.5 0.5 0.5)))
     v))