Commit 21d5c82d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

component-properties is dead. Use component-operation-time, as should.

parent af9529fd
......@@ -66,14 +66,11 @@ to the base of the system."
(comp instrumented-cl-source-file))
(wtf "Perform load-source-op ~S" comp)
(let ((source (component-pathname comp)))
;; do NOT grovel the same file more than once
(operating-on-asdf-component-constituent (comp)
(unless (component-property comp 'last-loaded-as-source)
(setf (component-property comp 'last-loaded-as-source)
(and (#+sbcl fine-grain-instrumented-load ;;load
#-sbcl instrumented-load
source)
(get-universal-time)))))))
;; do NOT grovel the same file more than once
(unless (component-operation-time 'load-source-op comp)
(#+sbcl fine-grain-instrumented-load #-sbcl instrumented-load
source)))))
(defmethod perform :around
((op compile-op)
......
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