Add method to use the ENCODE-OBJECT/ENCODE-SLOTS protocol in ENCODE

Author: Edward

encode.lisp

@@ -446,3 +446,7 @@ LOWERCASE-KEYS? says whether the key should be in lowercase."
   (:method (object)
     (with-object ()
       (yason:encode-slots object))))
+
+(defmethod encode (object &optional stream)
+  (yason:with-output (stream)
+    (yason:encode-object object)))