LISP좀 봐주세요… ㅠ

EXTEND와 TRIM 멀티기능 LISP인데 안되서요
2007에선 되었는데..
2008에선 실행하면 이런 에러값이 뜹니다.. –> no function definition: RTD


(defun C:TR (/ ob1 pt1 roof roof1 ssn obl1 sp ep la ang pt2 pt3 anp anp2
     dist1 dist2)
  (setvar “cmdecho” 0)
  (setq ob1 (ssget)
  roof (sslength ob1)
  );** setq end **

  (while (setq pt1 (getpoint “nSelect to Extend or Trim point: “))
    (setq roof1 0)
    (repeat roof
   (setq obl1 (entget (ssname ob1 roof1))
      sp (assoc 10 obl1)
      ep (assoc 11 obl1)
      la (assoc 8 obl1)
      ang (rtd (angle (cdr sp) (cdr ep)))
      pt2 (polar pt1 (dtr (+ ang 90)) 500)
      pt3 (inters (cdr sp) (cdr ep) pt1 pt2 nil)
      anp (cons 11 (list (car pt3) (cadr pt3)))
      anp2 (cons 10 (list (car pt3) (cadr pt3)))
      dist1 (distance (cdr sp) pt3)
      dist2 (distance (cdr ep) pt3)
      );** setq end **
   (cond ((> dist1 dist2)
    (setq obl1 (subst anp ep obl1))
    )
    ((> dist2 dist1)
    (setq obl1 (subst anp2 sp obl1))
    )
    );** cond end **
   (entmod obl1)
   (setq roof1 (1+ roof1))
   );** repeat end **
  )
  (prin1)
);*** END OF LISP ***


고수님들 문제점좀 가르쳐주세요 ㅠ