(defmethod yason:encode ((object pathname) &optional stream)
   (yason:encode (princ-to-string (uiop:native-namestring object))
 		       stream)
   object)
 
 (defmethod yason:encode ((object puri:uri) &optional stream)
   (yason:encode (puri:render-uri object nil)
 		stream)
   object)
 
 (defmethod yason:encode-slots progn ((feed alimenta:feed))
   (with-accessors ((description alimenta:description)
 		   (feed-link alimenta:feed-link)
 		   (items alimenta:items)
 		   (link alimenta:link)
 		   (source-type alimenta:source-type)
 		   (title alimenta:title)) feed
     (yason:encode-object-element "title" title)
     (yason:encode-object-element "fetch-url"
 				 (puri:render-uri feed-link nil))
     (yason:encode-object-element "link" link)
     ;;(yason:encode-object-element "source-type" source-type)
     (yason:encode-object-element "description" description))
   feed)
 
 
 (defmethod yason:encode ((feed alimenta:feed) &optional stream)
   (yason:with-output (stream :indent t)
     (yason:encode-object feed)))
 

 (defmethod yason:encode-slots progn ((item alimenta:item))

   (with-accessors ((author alimenta:author)

 		   (content alimenta:content)
 		   (date alimenta:date)
 		   (id alimenta:id)
 		   (link alimenta:link)
 		   (title alimenta:title)) item
     (let* ((date (local-time:format-timestring nil date)))

       (yason:with-object ()
 	(yason:encode-object-element "title" title)
 	(yason:encode-object-element "date" date)
 	(yason:encode-object-element "author" title)
 	(yason:encode-object-element "id" (princ-to-string id))
 	(yason:encode-object-element "link" link)
 	(yason:encode-object-element "content" content)))))
 
 (defmethod yason:encode ((item alimenta:item) &optional stream)
   (yason:with-output (stream :indent t)
     (yason:encode-slots item))

   item)