오토캐드2013에서 이 리습은 왜 안되나여?

오토캐드 2013에서 다른 리습은 별 무리없이 잘 사용중에 있는데요.

같이 글자 복사하는 이 리습은 왜 안되는걸까요?

(defun C:art (/ a b c d e)
         (prompt “nSelect text to match: “)
         (setq e (ssget (list (cons 0 “text”))))
         (setq e (cdr (assoc 1 (entget (ssname e 0)))))
         (prompt “nSelect text to change: “)
         (setq a (ssget (list (cons 0 “text”))))
         (setq b (sslength a))
         (setq c 0)
         (while (<= 1 b)
                (setq d (ssname a c))
                (if (eq (cdr (assoc 0 (entget d))) “TEXT”)
                (entmod (subst (cons 1 e) (assoc 1 (entget d)) (entget d))))
                (setq b (- b 1))
                (setq c (+ c 1))
         )
  )

뭐가 잘못된건가요??
리습을 사용할줄만 알지…. 수정을 못해서..