src/method-impl.lisp (method-keyword-argument-lists): Zap pointless `let'.
[sod] / src / method-impl.lisp
index 2300ac6..f24b8c0 100644 (file)
   (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