리습에서 입력에서 오른쪽 괄호가 남습니다.”고 출력이되요

안녕하세요.
변덕스러운 날씨에 고생들이 많으십니다.
다름이 아니라, 이거는 면적을 구하는 리습인데…
로드를하니깐  “입력에서 오른쪽 괄호가 남습니다.”
도통 봐도 모르겠습니다.
어디가 남고 왜 그런건지 간단한 설명좀 부탁드려여
=============================================================================
(defun c:aaa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj )
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
    ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
  )
  (if (setq ss (ssget (list (cons 0 “CIRCLE,ARC,*POLYLINE,ELLIPSE,SPLINE”))))
   (if (setq ts (getreal “n텍스트 높이 입력:”))
  (progn
   (setq index 0)
   (repeat (sslength ss)
   (setq obj (vlax-ename->vla-object (ssname ss index)))
   (vla-getboundingbox obj ‘mi ‘mx)
   (setq minpt (vlax-safearray->list mi))
   (setq maxpt (vlax-safearray->list mx))
   (setq inspt (polar minpt (angle minpt maxpt) (/ (distance minpt maxpt) 2)))
   (setq area (vla-get-area obj))
   (setq txtobj (vla-addtext space (rtos (/ area 100000.) 2 4) (vlax-3d-point inspt) ts))
   (vla-put-alignment txtobj 4)
   (vla-put-textalignmentpoint txtobj (vlax-3d-point inspt))
   (setq index (1+ index))
   )
    )
  )
  )
  (princ)
)
(vl-load-com)
(prompt “n[ AAA ]”)
(princ)