From: Craig L. <la...@sc...> - 2002-03-12 15:10:41
|
Peter, in looking through you last commits it looked like it needed this change. Craig Index: expcore/aggregates.lsp =================================================================== RCS file: /cvsroot/exp-engine/expresso/expcore/aggregates.lsp,v retrieving revision 1.4 diff -u -r1.4 aggregates.lsp --- expcore/aggregates.lsp 11 Mar 2002 23:35:45 -0000 1.4 +++ expcore/aggregates.lsp 12 Mar 2002 14:52:26 -0000 @@ -39,7 +39,7 @@ (defmethod value ((arg (eql :?))) :?) -(defmethod write-entity ((obj Express-Aggregate) stream (encoding (eql :oseb)) &rest dataset) +(defmethod write-entity ((obj Express-Aggregate) stream (encoding (eql :oseb)) &key dataset) (princ #\" stream) (loop for objs on (value obj) do (format stream "#~D" (entity-id (first objs) dataset)) |