Permalink
Browse files

I was having problems with encoding the slot definitions, not sure wh…

…y? replace with STRING-DOWNCASE (SYMBOL-NAME, definitely not sure, please review
  • Loading branch information...
1 parent e808986 commit e3c02611e9555c6eb0e819cb48a1443b2d791880 @wesen wesen committed Apr 16, 2011
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/data/json.lisp
View
@@ -13,4 +13,5 @@
(when (and (slot-boundp object (closer-mop:slot-definition-name slotdef))
(not (find (closer-mop:slot-definition-name slotdef) *ignore-slots*)))
(json:encode-object-element (closer-mop:slot-definition-name slotdef)
+ (json:encode-object-element (string-downcase (symbol-name (closer-mop:slot-definition-name slotdef)))
(slot-value object (closer-mop:slot-definition-name slotdef))))))))

2 comments on commit e3c0261

Owner

by default, yason does not have an encoder for symbols, so your patch is okay. i'd lose the symbol-name call, though, string-downcase works with symbols as well.

Collaborator

done.

Please sign in to comment.