X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/eeb8cc3f91402d0b7d78e17e09f69ff2a2b64882..0ad3667e905948b4bbade7a0da172c8cefcafad9:/src/lexer-impl.lisp

diff --git a/src/lexer-impl.lisp b/src/lexer-impl.lisp
index 42370c0..ffd522f 100644
--- 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)