실행되지 않는 리습 문제점좀 알려주세요.

리습초보입니다. 사무실에서 사용하는 리습을 정리하다 따로 실행이 되지않아 이렇게 질문을 올립니다.

LAYER CHANGE 변경된리습인데 실행이 되지않네요.
밑쪽에 빨간부분때문인거같은데 따로 실행가능한방법좀 알려주세요.

(defun m:LC(/ E EO EL NLA NO E ZO ZL OLD NEW LC#MA LC OP LYC LYL)
  (princ (strcat “ntLC, Version ” version “,” logo “”))
  (setvar “cmdecho” 0)
  (defun LC#MA ()
    (setq NO 0)
    (while
      (setq E (ssname EO NO))
      (setq ZO (entget E)
     OLD (ASSOC 8 ZO)
     NEW (CONS (CAR OLD) NLA)
     ZL (SUBST NEW OLD ZO)
      )
      (entmod ZL)
      (setq NO (1+ NO))
    )
    (prompt (strcat “n>> Successfully changed to ” NLA ))
  )
  (prompt “n>> Select entities to change. “)
  (setq EO (ssget))
  (prompt “n>> To what entity?….. “)
  (setq EL (entsel))
  (if EL
    (setq NLA (cdr (assoc 8 (entget (car EL)))))
    (progn
      (HMMENU)
      (setq NLA (strcase (getstring “n>> Otherwise, Say me layer name : “)))
    )
  )
 
  (setq LC (tblsearch “layer” NLA))
  (if (/= LC nil)
      (LC#MA)
      (progn
 (prompt (strcat “n>> Layer ” NLA ” does not exist.”))
 (initget “Yes No”)
 (setq OP (getkword “n>>Creat it ? (Y/N) : “))
 (if (= OP “Yes”)
     (progn
       (initget 7)
       (menucmd “s=lscolor”)
       (setq LYC (getint “n>> Enter color number : “))
       (menucmd “s=lalt”)
       (setq LYL (getstring “n>> Enter linetype : “))
       (command “layer” “n” NLA “c” LYC NLA “lt” LYL NLA “”)
       (LC#MA)
     )
 )
      )
  )
  (menucmd “s=s”)
  (princ)
)
(defun C:LC () (m:LC))
(princ “nt Layer Change loaded. Command: LC “)
(princ)