Writed parser in lisp, when i try create list with multiple digits getting just first digit.How can i solve?

Question

Writed parser in lisp, when i try create list with multiple digits getting just first digit of number.This works well with one digit numbers.I cant see my fault