problem with query-view, yason and complex keys.

[jimhansson]

;;I have a db like this
(defparameter *couch* (make-instance 'chillax:yason-server
							 :host "127.0.0.1"
							 :username *db-user*
							 :password *db-pass*
							 :object-as-alist-p t
							 :parse-object-key-fun (lambda (string) (intern string *package*))))

;;and when i try to do query-view where I have a key that is an json array and doing grouping, i get an 
;;error if i dont change to this in yason.lisp
(defmethod data->json ((server yason-server) data &key)
  (with-output-to-string (s)
    (if (and (parse-object-as-alist-p server) ;; added the (and and the check to make sure we data is alist
						 (listp data)  
						 (listp (car data)))
        (yason:encode-alist data s)
        (yason:encode data s))))