(with-parser-context (token-scanner-context :scanner scanner)
(multiple-value-bind (result winp consumedp)
(handler-bind ((error (lambda (cond)
(with-parser-context (token-scanner-context :scanner scanner)
(multiple-value-bind (result winp consumedp)
(handler-bind ((error (lambda (cond)