X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/b39de3509f8726abc90d45a58d4b9e97758a6346..c6b4ed992d81518f240509e6ab212d8fe705485a:/src/final.lisp

diff --git a/src/final.lisp b/src/final.lisp
index 0b7a366..93fafe8 100644
--- a/src/final.lisp
+++ b/src/final.lisp
@@ -93,6 +93,15 @@
 		  (princ-to-string (car value)))
 	  (values nil value)))))
 
+(export 'test-parse-pset)
+(defun test-parse-pset (string)
+  "Parse STRING as a property set, and show the results."
+  (with-test-scanner (scanner string)
+    (multiple-value-bind (value winp consumedp)
+	(parse-property-set scanner)
+      (declare (ignore consumedp))
+      (values winp value))))
+
 (export 'test-parser)
 (defmacro test-parser ((scanner &key backtrace) parser input)
   "Convenient macro for testing parsers at the REPL.