Permalink
Browse files

STRING-DOWNCASE works with symbols as well

  • Loading branch information...
wesen committed Apr 16, 2011
1 parent 7d698f4 commit 78b42c41d8bcdd893e8a9dc61479c80a00e64c27
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/data/json.lisp
View
@@ -12,5 +12,5 @@
(dolist (slotdef (closer-mop:class-slots (class-of object)))
(when (and (slot-boundp object (closer-mop:slot-definition-name slotdef))
(not (find (closer-mop:slot-definition-name slotdef) *json-ignore-slots*)))
- (json:encode-object-element (string-downcase (symbol-name (closer-mop:slot-definition-name slotdef)))
+ (json:encode-object-element (string-downcase (closer-mop:slot-definition-name slotdef))
(slot-value object (closer-mop:slot-definition-name slotdef))))))))

0 comments on commit 78b42c4

Please sign in to comment.