(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.