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 (file)
--- 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.