src/lexer-impl.lisp: Rename internal `skip-until' function.

[sod] / src / lexer-impl.lisp

diff --git a/src/lexer-impl.lisp b/src/lexer-impl.lisp
index 42370c06f91e144192096210008352b8c66334b1..ffd522feb7c5b1e749c2a4350727000fcbe6fe46 100644 (file)
--- a/src/lexer-impl.lisp
+++ b/src/lexer-impl.lisp
@@ -46,7 +46,7 @@ (defun show-char (char)
         (format nil "`~C'" char))
        (t (format nil "<~(~:C~)>" char))))
 
-(defun skip-until (scanner token-types &key keep-end)
+(defun %skip-until (scanner token-types &key keep-end)
   "This is the implementation of the `skip-until' parser."
   (do ((consumedp nil t))
       ((member (token-type scanner) token-types)