Skip to content
Snippets Groups Projects
Commit 07e3ff57 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Avoid direct make-instance on operation

parent b27af7d2
No related branches found
No related tags found
No related merge requests found
......@@ -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))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment