@> t @<c-type> @<kernel> @<string> @! nil @<indicator>}
\end{describe}
+\begin{describe}{fun}
+ {test-parse-pset @<string>
+ @> t @<pset> @! nil @<indicator>}
+\end{describe}
+
\begin{describe}{mac}
{test-parser (@<scanner> \&key :backtrace) @<parser> @<input>
@> @<result> @<status> @<remainder>}
(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.