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)))