The return value may later be used with `parser-restore-place'. Be
careful: all of this is happening at macro-expansion time.")
(:method (context)
- (error "Parser context ~S doesn't support rewinding." context)))
+ (error "Parser context ~S doesn't support rewinding" context)))
(export 'parser-restore-place)
(defgeneric parser-restore-place (context place)
(defun commit-peeked-place ()
"Called by `commit' not lexically within `peek'."
- (error "`commit' is not within `peek'."))
+ (error "`commit' is not within `peek'"))
(export 'commit)
(defparse commit ()