RosettaCodeData/Task/Increment-a-numerical-string/XLISP/increment-a-numerical-string.l

(DEFUN INCREMENT-STRING (X)
    (NUMBER->STRING (+ (STRING->NUMBER X) 1)))