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))) ,@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)))