repeat 함수를 사용한 색상변경 리습 좀…

색상 변경 리습을 짜는데…왜 이렇게 안될까요 ㅠㅠ;;

repeat 함수를 가지고 만들어야하는데..
책보고 따라하고 있는데 잘 안되요 ㅠㅠ
아래처럼 조금 햇는데 이것두 안 맞는지 자꾸 오류뜨네요..
답변 좀 부탁드릴께요^^;;

(defun c:test2()
 (princ “Select object :”)
 (setq ss2 (ssget))
 (setq ss2_num (sslength ss2))
  
  (setq cols (getint “nChange Color : “)
 (setq col (itoa cols))
      
 (setq i 0);각 객체의 serial No (0,1,2,…)
 (repeat ss2_num
  (setq ss2_list (ssname ss2 i))
  (setq ss2_col (assoc 62 (ssname ss2 i)))
  (if (= ss2_col nil)
    (progn (setq ss2_col (cons 62 7))
    (setq ss2_list (append ss2_list (list ss2_col))))