diff --git a/asdf-ops.lisp b/asdf-ops.lisp
index 42806852973cf1cd82f01f887cdea96f3147a70e..c01924fb232c458dc8e130ef1f13a5690e8df11a 100644
--- a/asdf-ops.lisp
+++ b/asdf-ops.lisp
@@ -52,6 +52,7 @@ to the base of the system."
 (defmacro with-dependency-tracking (comp &body body)
   `(call-with-dependency-tracking ,comp #'(lambda () ,@body)))
 
+#|
 (macrolet ((emit-perform-method (op-type)
              `(defmethod asdf:perform :around
                   ((op ,op-type)
@@ -60,6 +61,7 @@ to the base of the system."
   (emit-perform-method asdf:load-source-op)
   (emit-perform-method asdf:load-op)
   (emit-perform-method asdf:compile-op))
+|#
 
 (defmethod asdf:perform
     ((op asdf:load-source-op)
diff --git a/handlers/00-standard-handlers.lisp b/handlers/00-standard-handlers.lisp
index e6cad72d438e8a531877733d723865d749821d61..608e10071b37858a90516b9021b0949d889bfc7a 100644
--- a/handlers/00-standard-handlers.lisp
+++ b/handlers/00-standard-handlers.lisp
@@ -276,6 +276,7 @@
                         (intern accessor-name-str))
               ;; Provide this accessor.
               :do (signal-provider accessor-name 'defun)
+              slot-init-value ; ignore
               ;; Generate instrumentation for the accessor.
               :collect (let ((temp (gensym)))
                          `(let ((,temp (function ,accessor-name)))