src/classes.lisp, src/class-finalize-impl.lisp: Don't export slot writers.

[sod] / src / method-aggregate.lisp

diff --git a/src/method-aggregate.lisp b/src/method-aggregate.lisp
index e374924e12ce9de6937ab61e862ad2333e134d4f..e9a889d1f3e72d0ceb28d47f384ed5069e5a332c 100644 (file)
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -28,7 +28,7 @@ (cl:in-package #:sod)
 ;;;--------------------------------------------------------------------------
 ;;; Classes and protocol.
 
 ;;;--------------------------------------------------------------------------
 ;;; Classes and protocol.
 

-(export 'aggregating-message)
+(export '(aggregating-message message-combination))

 (defclass aggregating-message (simple-message)
   ((combination :initarg :combination :type keyword
                :reader message-combination)
 (defclass aggregating-message (simple-message)
   ((combination :initarg :combination :type keyword
                :reader message-combination)