(values end-chars nil nil)))
(return (values it t t)))
(:eof
- (lexer-error char-scanner '(:any) cp)
+ (lexer-error char-scanner '(:any))
(return (values (result) t t)))
;; Opening and closing brackets. Opening brackets push things
;; This really shouldn't be able to happen.
(t
(assert cp)
- (lexer-error char-scanner exp cp)))))))))
+ (lexer-error char-scanner exp)))))))))
(export 'parse-delimited-fragment)
(defun parse-delimited-fragment (scanner begin end &key keep-end)
(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)))