Permalink
Browse files

adapt yason:parse call to new interface (fixes #8)

  • Loading branch information...
fjl committed Feb 12, 2012
1 parent e185090 commit 3a3cfa64148757692ed323fb35e47933404436a8
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/yason.lisp
View
@@ -37,9 +37,9 @@
(yason:encode data s))))
(defmethod json->data ((server yason-server) json &key)
- (let ((yason:*parse-json-arrays-as-vectors* (parse-json-arrays-as-vectors-p server))
- (yason:*parse-json-booleans-as-symbols* (parse-json-booleans-as-symbols-p server))
- (yason:*parse-object-as-alist* (parse-object-as-alist-p server))
- (yason:*parse-object-key-fn* (parse-object-key-fun server)))
- (yason:parse json)))
+ (yason:parse json
+ :object-key-fn (parse-object-key-fun server)
+ :object-as (if (parse-object-as-alist-p server) :alist :hash-table)
+ :json-booleans-as-symbols (parse-json-booleans-as-symbols-p server)
+ :json-arrays-as-vectors (parse-json-arrays-as-vectors-p server)))

0 comments on commit 3a3cfa6

Please sign in to comment.