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

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 2300ac6..f24b8c0 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -254,12 +254,11 @@
   (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)))))
+		   (cons (c-function-keywords (sod-method-type m))
+			 (format nil "method for ~A on ~A (at ~A)"
+				 message
+				 (sod-method-class m)
+				 (file-location m))))
 		 direct-methods))))
 
 (defmethod shared-initialize :after