(if (if (eq begin t)
(not (scanner-at-eof-p scanner))
(eql (token-type scanner) begin))
- (multiple-value-prog1 (values (scan-c-fragment scanner
- (if (listp end)
- end
- (list end)))
- t t)
+ (multiple-value-prog1
+ (values (scan-c-fragment scanner
+ (if (listp end) end
+ (list end)))
+ t
+ t)
(scanner-step scanner)
(unless keep-end (scanner-step scanner)))
(values (list begin) nil nil)))