소문자를 대문자로 바꾸려는데 사용중인 리습 질문좀 할게요 ^^

Kor_Storm 님에 리습입니다.

(defun c:1()
 (vl-load-com)
 (defun sl-mapcar-ss (func ss)
  (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))))
 )
 (and
  (setq ss (ssget ‘((0 . “*TEXT”))))
  (sl-mapcar-ss
   ‘(lambda (x)
    (setq ent (entget x))
    (entmod (subst (cons 1 (strcase (cdr (assoc 1 ent)))) (assoc 1 ent) ent))
   )
   ss
  )
 )
 (princ)
)

사용 하려는데 명령어를 뭐라쳐야하져 ?

안먹네요;