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

phmarek · Jan 13, 2022 · 8952e5a · 8952e5a
1 parent e542b4c
commit 8952e5a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/encode.lisp b/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 &stream stream)
+  (yason:with-output (s)
+    (yason:encode-object o)))