From 33b5686f788fdef21866d728395d3087d6be3cd2 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 30 Aug 2015 10:58:38 +0100 Subject: [PATCH] src/lexer-proto.lisp: Export some more symbols. --- src/lexer-proto.lisp | 3 +++ 1 file changed, 3 insertions(+) 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. -- 2.11.0