聞くだけなのもなんなので一桁変換なら
(defun number_change (x)
(cond
　　　　　　　((eql x '０) (setf x '0))
((eql x '１) (setf x '1))
((eql x '２) (setf x '2))
((eql x '３) (setf x '3))
((eql x '４) (setf x '4))
((eql x '５) (setf x '5))
((eql x '６) (setf x '6))
((eql x '７) (setf x '7))
((eql x '８) (setf x '8))
((eql x '９) (setf x '9))
)
)

まぁこの程度の知識しかないです(;´Д｀)