From b944e68b291d56a561c8797e138b95f1b1092d0a Mon Sep 17 00:00:00 2001
Message-Id: <b944e68b291d56a561c8797e138b95f1b1092d0a.1718861953.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Thu, 26 May 2016 09:26:09 +0100
Subject: [PATCH] src/pset-parse.lisp: Export the `parse-property' function.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 doc/SYMBOLS         | 1 +
 doc/misc.tex        | 5 +++++
 src/pset-parse.lisp | 1 +
 3 files changed, 7 insertions(+)

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 0d8549f..f6ece85 100644
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -598,6 +598,7 @@ output-proto.lisp
   sequencer-table                               generic
 
 pset-parse.lisp
+  parse-property                                function
   parse-property-set                            function
 
 pset-proto.lisp
diff --git a/doc/misc.tex b/doc/misc.tex
index 16337a9..68fba6d 100644
--- a/doc/misc.tex
+++ b/doc/misc.tex
@@ -519,6 +519,11 @@ These symbols are defined in the @!optparse| package.
       @<default-form>^*}
 \end{describe}
 
+\begin{describe}{fun}
+    {parse-property @<scanner> @<pset>
+      @> @<result> @<success-flag> @<consumed-flag>}
+\end{describe}
+
 \begin{describe}{fun}
     {parse-property-set @<scanner>
       @> @<result> @<success-flag> @<consumed-flag>}
diff --git a/src/pset-parse.lisp b/src/pset-parse.lisp
index ddc34e0..6619e1b 100644
--- a/src/pset-parse.lisp
+++ b/src/pset-parse.lisp
@@ -133,6 +133,7 @@     (defun parse-expression (scanner)
 ;;;--------------------------------------------------------------------------
 ;;; Parsing property sets.
 
+(export 'parse-property)
 (defun parse-property (scanner pset)
   "Parse a single property using the SCANNER; add it to the PSET."
   ;; property ::= id `=' expression
-- 
[mdw]

