Better error message for badly formed s-expressions like (1,2)

See the test-noider-p4p.rkt file for an example. P4p is trying to give a friendly error, but violates the contract on stx-car in the process of building the message.