Commit 07e3ff57 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Avoid direct make-instance on operation

parent b27af7d2
......@@ -80,7 +80,7 @@ to the base of the system."
(defmethod perform :around
((op load-op)
(comp instrumented-cl-source-file))
(perform (make-instance 'load-source-op) comp))
(perform (make-operation 'load-source-op) comp))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
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