From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 29 Aug 2015 13:13:01 +0000 (+0100)
Subject: src/method-impl.lisp: Remove unnecessary `with-slots' form.
X-Git-Tag: 0.2.0~45
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/599fe2c74c80282783795ce3569d6cdfb620654f

src/method-impl.lisp: Remove unnecessary `with-slots' form.
---

diff --git a/src/method-impl.lisp b/src/method-impl.lisp
index 279f841..3fd6f08 100644
--- a/src/method-impl.lisp
+++ b/src/method-impl.lisp
@@ -522,12 +522,11 @@
 
 (defmethod compute-effective-method-body
     ((method simple-effective-method) codegen target)
-  (with-slots (message basic-argument-names primary-methods) method
-    (basic-effective-method-body codegen target method
-				 (lambda (target)
-				   (simple-method-body method
-						       codegen
-						       target)))))
+  (basic-effective-method-body codegen target method
+			       (lambda (target)
+				 (simple-method-body method
+						     codegen
+						     target))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Standard method combination.