+ (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))))))))