From 13cda9194d4b712cdf7a3ec43fcac038fd0c9ac5 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Fri, 2 Oct 2009 11:49:02 -0400
Subject: [PATCH] Cleanup prompted by CCL.

---
 asdf-ops.lisp                      | 2 ++
 handlers/00-standard-handlers.lisp | 1 +
 2 files changed, 3 insertions(+)

diff --git a/asdf-ops.lisp b/asdf-ops.lisp
index 4280685..c01924f 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 e6cad72..608e100 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)))
-- 
GitLab