I got this lip from one of the AU Classes but there seems to be something wrong with it, there is always an error at the portion highlighted in red below, I would really appreciate it if someone could shed some light on this for me.

(defun c:racktext()

(setq ent1(car(entsel)))
(setq ent2(car(entsel)))
(setq ent3(car(entsel)))

(setq pnt(getpoint "\n Text Position"))
(setq Xcoord(car pnt))
(setq Ycoord(cadr pnt))
(setq Zcoord(Caddr pnt))

(setq SPACING 5.0)

(addTextatpoint 2 ent1 pnt)
(setq pnt(list Xcoord(- Ycoord Spacing)Zcoord))
(addTextAtpoint 2 ent2 pnt)
(setq pnt(list Xcoord(- Ycoord (*Spacing2)) Zcoord))
(addTextAtpoint 2 ent3 pnt)
(princ)
)