[bknr-cvs] hans changed trunk/bknr/datastore/src/data/json.lisp

[BKNR Commits]

Revision: 4067
Author: hans
URL: http://bknr.net/trac/changeset/4067

Make STREAM argument in json:encode method optional.

U   trunk/bknr/datastore/src/data/json.lisp

Modified: trunk/bknr/datastore/src/data/json.lisp
===================================================================
--- trunk/bknr/datastore/src/data/json.lisp	2008-11-15 11:37:30 UTC (rev 4066)
+++ trunk/bknr/datastore/src/data/json.lisp	2008-11-15 12:06:55 UTC (rev 4067)
@@ -6,7 +6,7 @@
   `(let ((*ignore-slots* (append *ignore-slots* ,slots)))
      , at body))
 
-(defmethod json:encode ((object store-object) stream)
+(defmethod json:encode ((object store-object) &optional (stream *standard-output*))
   (json:with-output (stream)
     (json:with-object ()
       (dolist (slotdef (closer-mop:class-slots (class-of object)))