warn which color is not found

euslisp · Nov 13, 2019 · 712e8be · 712e8be
1 parent ecfc50e
commit 712e8be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))