(print-json-itemstart)
(pprint-logical-block (*standard-output* nil)
(let ((*print-json-comma* nil))
- (print-json-simple label))
+ (print-json-simple (if (not (keywordp label))
+ label
+ (with-output-to-string (out)
+ (let ((labname (symbol-name label)))
+ (dotimes (i (length labname))
+ (let ((ch (char labname i)))
+ (write-char (if (char= ch #\-) #\_
+ (char-downcase ch))
+ out))))))))
(princ ": ")
(pprint-newline :miser)
(let ((*print-json-comma* nil))