Coercing numbers to lists in common lisp

Question

I'd like to turn integers into lists. For example, 2245 => (2 2 4 5).

I dislike (coerce (write-to-string 2245) 'list) because it yields (#\2 #\2 #\4 #\5).

Help please?

Answer 1

(map 'list #'digit-char-p (prin1-to-string n))

works well.