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

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 2300ac68441a9318cac83ac2f4ef9356d3c25fdf..f24b8c0458efcdd73f83ff5f03257e941245b4ab 100644 (file)
--- 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