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