From b996691906738d296d51cdebb282462cde39e8c6 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 26 Mar 2017 15:16:18 +0100 Subject: [PATCH] src/method-impl.lisp (method-keyword-argument-lists): Zap pointless `let'. Organization: Straylight/Edgeware From: Mark Wooding --- src/method-impl.lisp | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) 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 -- [mdw]