From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Mar 2017 14:16:18 +0000 (+0100)
Subject: src/method-impl.lisp (method-keyword-argument-lists): Zap pointless `let'.
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/b996691906738d296d51cdebb282462cde39e8c6?ds=sidebyside

src/method-impl.lisp (method-keyword-argument-lists): Zap pointless `let'.
---

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 @@ (defmethod method-keyword-argument-lists
   (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