리습 해설좀 해주세요!!ㅜㅜ

안녕하세요
리습 공부중인데욥
ㅈㅏ주쓰던 명령어 위주로 공부를 하고있는데
책에 나오지 않는 것들도 많아서 너무 어렵습니다ㅠ
그래서 텍스트 내용 변경 리습인데
이 명령어 해설좀 해주세요ㅠㅠ

(DEFUN C:TB ()
  (PROMPT “n SELECT TEXT TO EDIT : “)
  (SETQ A (SSGET))
  (SETQ B (SSLENGTH A))
  (SETQ C 0)
  (WHILE (<= 1 B)
    (SETQ D (SSNAME A C))
    (IF (EQ (CDR (ASSOC 0
      (ENTGET D))) “TEXT”)
    (PROGN
    (REDRAW D 3)
    (PROMPT “n NEW TEXT STRING <“)
    (PRINC (CDR (ASSOC 1 (ENTGET D))))
    (PRINC “> : “)
    (SETQ E (GETSTRING T ))
    (IF (= E “”) (SETQ E (CDR (ASSOC 1
      (ENTGET D)))))
    (ENTMOD (SUBST (CONS 1 E) (ASSOC 1
      (ENTGET D)) (ENTGET D)))
    (REDRAW D 4)))
    (SETQ B (- B 1))
    (SETQ C (+ C 1))
  )
  (PRINC)
       )
읽어주셔서 감사합니다.