(sexp (read stream t)))
(scanner-step scanner)
(multiple-value-bind (type value)
- (decode-property sexp)
+ (restart-case (decode-property (eval sexp))
+ (continue () (values :invalid nil)))
(values (cons type value) t t))))
(#\{
(values (cons :fragment