X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/43ce48fd4112471e4c7ef083297688fc45add4a8..bdaf6dbdbdeed8b0c41c3499a4efddcd3507642d:/src/method-impl.lisp

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 9f1a48f..2300ac6 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -152,6 +152,11 @@
 		 ("me" (* (class (sod-method-class method))))
 		 . method-args))))
 
+(defmethod sod-method-description ((method basic-direct-method))
+  (with-slots (role) method
+    (if role (string-downcase role)
+	"primary")))
+
 (defmethod sod-method-function-name ((method basic-direct-method))
   (with-slots ((class %class) role message) method
     (format nil "~A__~@[~(~A~)_~]method_~A__~A" class role
@@ -247,15 +252,15 @@
 (defmethod method-keyword-argument-lists
     ((method effective-method) direct-methods)
   (with-slots (message) method
-     (and (keyword-message-p message)
-	  (mapcar (lambda (m)
-		    (let ((type (sod-method-type m)))
-		      (cons (c-function-keywords type)
-			    (format nil "method for ~A on ~A (at ~A)"
-				    message
-				    (sod-method-class m)
-				    (file-location m)))))
-		  direct-methods))))
+    (and (keyword-message-p message)
+	 (mapcar (lambda (m)
+		   (let ((type (sod-method-type m)))
+		     (cons (c-function-keywords type)
+			   (format nil "method for ~A on ~A (at ~A)"
+				   message
+				   (sod-method-class m)
+				   (file-location m)))))
+		 direct-methods))))
 
 (defmethod shared-initialize :after
     ((method effective-method) slot-names &key direct-methods)