(with-parser-context (token-scanner-context :scanner scanner)
(multiple-value-bind (result winp consumedp)
(handler-bind ((error (lambda (cond)
- (declare (ignore cond))
(setf errors t)
- (if (find-restart 'continue)
- (invoke-restart 'continue)
+ (if (find-restart 'continue cond)
+ (continue cond)
:decline))))
(parse-property-set scanner))
(declare (ignore consumedp))