Some code factoring.
The result of the TO-PARSER is a CONS, not a list.
Use CAR rather than FIRST.