From d0be8052ee97b6d685ca9b73a4ccfa22ed04ccf5 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 15:16:18 +0100
Subject: [PATCH] src/lexer-impl.lisp: Set default `:keep-end' in `%skip-until'
 function.

The parser-macro set this correctly, but the function didn't.
---
 src/lexer-impl.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lexer-impl.lisp b/src/lexer-impl.lisp
index ffd522f..6a9b2ce 100644
--- a/src/lexer-impl.lisp
+++ b/src/lexer-impl.lisp
@@ -46,7 +46,8 @@
 	 (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 (not (null (cdr token-types)))))
   "This is the implementation of the `skip-until' parser."
   (do ((consumedp nil t))
       ((member (token-type scanner) token-types)
-- 
2.11.0