RosettaCodeData/Task/Increment-a-numerical-string/Common-Lisp/increment-a-numerical-string.lisp

(princ-to-string (1+ (parse-integer "1234")))