Commit 13cda919 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Cleanup prompted by CCL.

parent 7e9b839a
......@@ -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)
......
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment