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