I am trying to move all the text in drawing to a specific layer "E-Text" through lisp. below is the lisp but its not working. I am not much familiar with creating lisp. 

Can any one please suggest what changes i should do to make it work in draft sight. Thank you

(defun C:ETXT 
(sssetfirst nil(ssget "_x" '((0 . "TEXT,MTEXT")(8 . "E-Text"))))
(princ)
)