X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/11e41ddf86b4ee793f44fc0e39cb4c1869335b14..ca0c10c49568d1d340296ae9e613f32a6a31bfc9:/src/method-aggregate.lisp?ds=sidebyside

diff --git a/src/method-aggregate.lisp b/src/method-aggregate.lisp
index e9a889d..bd8fe8a 100644
--- a/src/method-aggregate.lisp
+++ b/src/method-aggregate.lisp
@@ -28,11 +28,12 @@ (cl:in-package #:sod)
 ;;;--------------------------------------------------------------------------
 ;;; Classes and protocol.
 
-(export '(aggregating-message message-combination))
+(export '(aggregating-message
+	  sod-message-combination sod-message-kernel-function))
 (defclass aggregating-message (simple-message)
   ((combination :initarg :combination :type keyword
-		:reader message-combination)
-   (kernel-function :type function :reader message-kernel-function))
+		:reader sod-message-combination)
+   (kernel-function :type function :reader sod-message-kernel-function))
   (:documentation
    "Message class for aggregating method combinations.
 
@@ -105,14 +106,14 @@ (defmethod check-message-type ((message aggregating-message) type)
   (with-slots (combination) message
     (check-aggregating-message-type message combination type)))
 
-(defmethod message-effective-method-class ((message aggregating-message))
+(defmethod sod-message-effective-method-class ((message aggregating-message))
   'aggregating-effective-method)
 
 (defmethod simple-method-body
     ((method aggregating-effective-method) codegen target)
   (let ((argument-names (effective-method-basic-argument-names method))
 	(primary-methods (effective-method-primary-methods method)))
-    (funcall (message-kernel-function (effective-method-message method))
+    (funcall (sod-message-kernel-function (effective-method-message method))
 	     codegen target argument-names primary-methods)))
 
 (defmethod shared-initialize :before