텍스트 중간에 일치하는 문자열 바꾸는 리습인데요..

만약에 123456이라는 텍스트객체를 선택해서
Oldtext : 123
Newtext : 456
이렇게 넣어서 456456이라고 만들고 싶어서
(defun c:otnt()
(setq a (ssget))
(setq b (getstring t”nOldtext : “))
(setq c (getstring t”nnewtext : “))
(setq no 0)
(while (setq d (ssname a no))
(setq e (entget d))
(setq f (cdr(assoc 1 e)))
(setq g (subst c d f))
(setq no (+1 no))
)
(princ)
)
이렇게 만들어 봣는데…
오류: 잘못된 인수 유형: consp “123456”이렇게 나오네요…
어떤게 문젠지….고수님들 부탁드립니다(–)(__)