Преобразует номер цвета в стандартную строку

(defun ru-conv-number-to-color (number_color)
  ;; (ru-conv-number-to-color 25)
;;;(ru-conv-number-to-color 5)
  (cond
    ((= number_color 0)
     "BYBLOCK"
    )
    ((= number_color 256)
     "BYLAYER"
    )
    (t
     (if (< number_color 8)
       (nth (1- number_color)
            (list "RED" "YELLOW" "GREEN" "CYAN" "BLUE" "MAGENTA" "WHITE")
       ) ;_ end of nth
       (itoa number_color)
     ) ;_ end of if
    )
  ) ;_ end of cond
) ;_ end of defun