고수님 쫌 봐주 십시요 리습이…이상 합니다.

(defun C:y1()
       (setq sel (entsel "n Select Entity"))
       (setq slist (entget (car sel)))
       (setq s0 (cdr (assoc 0 slist)))
       (setq s8 (cdr (assoc 8 slist)))
       (if (= s0 "LWPOLYLINE")
           (progn
           (setq s10 (assoc 38 slist))
           (setq ez (cdr s10))
           )
           (progn
           (setq s10 (assoc 10 slist))
           (setq ez (cadddr s10))
           )
       )
     
      
       (lname)
       (setq nam (strcat s8 " : " l_name))
      
       (princ "n *Type      is  ==>  ") (princ s0) (princ)
       (princ "n *Elevation is  ==>  ") (princ ez) (princ)
       (princ "n *Layer     is  ==>  ") (princ nam) (princ)
       (princ)
)

(defun lname()
   (cond
      ((= s8 "AAA001″) (setq l_name "주택"))
      ((= s8 "9233″) (setq l_name "관광,문화관련지역명"))
      ((= s8 "AAA002″) (setq l_name "연립주택"))
      ((= s8 "AAA003″) (setq l_name "아파트"))
      ((= s8 "AAA004″) (setq l_name "무벽건물"))
      ((= s8 "AAA005″) (setq l_name "온실"))
      ((= s8 "AAA006″) (setq l_name "공사중건물"))
      ((= s8 "AAA007″) (setq l_name "가건물"))
      ((= s8 "AAA008″) (setq l_name "빌딩(주택외건물)"))
      ((= s8 "AAB001″) (setq l_name "특별시청"))
      ((= s8 "AAB002″) (setq l_name "광역시청"))
      ((= s8 "AAB003″) (setq l_name "도청"))

;;—————–여기서부터 인식하지 않습니다————————

      ((= s8 "A0013111″) (setq l_name "고속국도"))
      ((= s8 "A0013112″) (setq l_name "일반국도"))
      ((= s8 "A0013113″) (setq l_name "지방도"))
      ((= s8 "A0013114″) (setq l_name "특별시도,광역시도"))
      ((= s8 "A0013115″) (setq l_name "시도"))
      ((= s8 "A0013116″) (setq l_name "군도"))

;;—————–여기서부터 인식하지 않습니다————————

      ((= s8 "0″) (setq l_name "0이예요"))

      ( T (setq l_name "1000, 5000 레이어가 아니예요"))
   ) 
)    


이런 형식입니다. 원본 파일도 올림니다.
필요한 부분이 있어서 추가를 했는데 추가 한 부분이 인식을 하지 않더군요
뭐가 문제인지 도통 모르겠 습니다. 도와 주십시요