doc/check-docs (scansyms): Stop trying to parse at `Leaked slot names'.

[sod] / src / final.lisp

diff --git a/src/final.lisp b/src/final.lisp
index 0b7a366..93fafe8 100644 (file)
--- 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.