From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 30 Aug 2015 09:58:38 +0000 (+0100)
Subject: src/lexer-proto.lisp: Export some more symbols.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/33b5686f788fdef21866d728395d3087d6be3cd2?hp=ecdf14f08ed32423aceb7feca0a20971003957e5

src/lexer-proto.lisp: Export some more symbols.
---

diff --git a/src/lexer-proto.lisp b/src/lexer-proto.lisp
index d2181e1..b7653b4 100644
--- a/src/lexer-proto.lisp
+++ b/src/lexer-proto.lisp
@@ -99,6 +99,7 @@
 		(scanner-current-char char-scanner))
 	   (and consumedp (file-location char-scanner))))
 
+(export 'skip-until)
 (defparse skip-until (:context (context token-scanner-context)
 		      (&key (keep-end nil keep-end-p))
 		      &rest token-types)
@@ -113,6 +114,7 @@
 	       :keep-end ,(if keep-end-p keep-end
 			      (> (length token-types) 1))))
 
+(export 'error)
 (defparse error (:context (context token-scanner-context)
 		 (&key) sub &optional (recover t))
   "Try to parse SUB; if it fails then report an error, and parse RECOVER.
@@ -132,6 +134,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Lexical analysis utilities.
 
+(export 'scan-comment)
 (defun scan-comment (char-scanner)
   "Scan a comment (either `/* ... */' or `// ...') from CHAR-SCANNER.