X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/6213be581b6fd4836c19af2f7970ecead5f8ae97..85aa8b3e6716fedd4617dc8d76cd459c8a38cdc5:/src/method-proto.lisp

diff --git a/src/method-proto.lisp b/src/method-proto.lisp
index 5687802..7163e8c 100644
--- a/src/method-proto.lisp
+++ b/src/method-proto.lisp
@@ -135,7 +135,8 @@
    The list needn't be in any particular order."))
 
 (export '(method-entry method-entry-effective-method
-	  method-entry-chain-head method-entry-chain-tail))
+	  method-entry-chain-head method-entry-chain-tail
+	  method-entry-role))
 (defclass method-entry ()
   ((%method :initarg :method :type effective-method
 	    :reader method-entry-effective-method)
@@ -263,6 +264,7 @@
 
    The default method indirects through `method-entry-slot-name-by-role'."))
 
+(export 'method-entry-slot-name-by-role)
 (defgeneric method-entry-slot-name-by-role (entry role name)
   (:documentation "Easier implementation for `method-entry-slot-name'.")
   (:method ((entry method-entry) (role (eql nil)) name) name)