;;;--------------------------------------------------------------------------
;;; Classes and protocol.
-(export 'aggregating-message)
+(export '(aggregating-message message-combination))
(defclass aggregating-message (simple-message)
((combination :initarg :combination :type keyword
:reader message-combination)