src/lexer-proto.lisp, ...: Kill `lexer-error' pointless CONSUMEDP flag.

[sod] / src / fragment-parse.lisp

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 15a7d141248a2b1cbf8b9903363afe487eb4308f..8e32b077933c0f572cfcf62e29b5e18c19112354 100644 (file)
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -87,7 +87,7 @@ (defun scan-c-fragment (scanner end-chars)
                         (values end-chars nil nil)))
               (return (values it t t)))
              (:eof
                         (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
               (return (values (result) t t)))
 
              ;; Opening and closing brackets.  Opening brackets push things


@@ -112,7 +112,7 @@ (defun scan-c-fragment (scanner end-chars)
              ;; This really shouldn't be able to happen.
              (t
               (assert cp)
              ;; 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)
 
 (export 'parse-delimited-fragment)
 (defun parse-delimited-fragment (scanner begin end &key keep-end)