src/pset-parse.lisp: Export the `parse-property' function.

diff --git a/doc/SYMBOLS b/doc/SYMBOLS
index 0d8549fedab72307dd30fb0bd3609c7b96191424..f6ece85c298de125d909e981a13f7d17fc52fbce 100644 (file)
--- a/doc/SYMBOLS
+++ b/doc/SYMBOLS
@@ -598,6 +598,7 @@ output-proto.lisp
   sequencer-table                               generic
 
 pset-parse.lisp
   sequencer-table                               generic
 
 pset-parse.lisp

+  parse-property                                function

   parse-property-set                            function
 
 pset-proto.lisp
   parse-property-set                            function
 
 pset-proto.lisp

diff --git a/doc/misc.tex b/doc/misc.tex
index 16337a9f6c76cf77c1b38f8dc8d5a8abdd42f196..68fba6d1b284fee06f9b812c4baffa83e1a1e940 100644 (file)
--- a/doc/misc.tex
+++ b/doc/misc.tex
@@ -519,6 +519,11 @@ These symbols are defined in the @!optparse| package.
       @<default-form>^*}
 \end{describe}
 
       @<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>}
 \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 ddc34e04f96eed91c43ed700ff10b3ae7a9a766c..6619e1bfef599b8979044ef2f6eb170795a52a31 100644 (file)
--- a/src/pset-parse.lisp
+++ b/src/pset-parse.lisp
@@ -133,6 +133,7 @@     (defun parse-expression (scanner)
 ;;;--------------------------------------------------------------------------
 ;;; Parsing property sets.
 
 ;;;--------------------------------------------------------------------------
 ;;; 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
 (defun parse-property (scanner pset)
   "Parse a single property using the SCANNER; add it to the PSET."
   ;; property ::= id `=' expression