X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/ffc2a7b8364cc459ff686cfce645079b52d11466..26c5ecfef79e0158c3ea38e9c32ad1fe3e85be3e:/src/fragment-parse.lisp?ds=inline

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 15a7d14..8e32b07 100644
--- 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
-	       (lexer-error char-scanner '(:any) cp)
+	       (lexer-error char-scanner '(:any))
 	       (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)
-	       (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)