Commit bbd10381 by Francois-Rene Rideau

Stop using deprecated SYSTEM-DEFINITION-PATHNAME

Use SYSTEM-SOURCE-FILE instead; also use LOAD-ASD as appropriate.
parent 07e3ff57
......@@ -152,7 +152,7 @@ to the base of the system."
(let ((*default-component-class* (find-class 'instrumented-cl-source-file)))
(flet ((reload-system (system)
(let ((system (find-system system)))
(load (system-definition-pathname system)))))
(asdf:load-asd (system-source-file system)))))
(mapc #'reload-system systems)))
(labels ((find-component-in-module (module components)
(if (null (rest components))
......
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