- (multiple-value-bind (,value ,winp ,consumedp)
- (parse ,parser)
- (declare (ignore ,consumedp))
- (cond (,winp ,value)
- (t (syntax-error ,scanner ,value)
- nil)))))
+ (with-default-error-location (,scanner)
+ (multiple-value-bind (,value ,winp ,consumedp)
+ (parse ,parser)
+ (declare (ignore ,consumedp))
+ (cond (,winp ,value)
+ (t (syntax-error ,scanner ,value)
+ nil))))))