loading package file from an asdf system



Someone might find it useful to preload package when two systems are
mutually dependent.

(in-package :asdf)
(defun load-package-file (system &key (component-name "package"))
"Loads only one component of a system as a source w/o preloading any
dependencies"
(perform (make-instance 'load-source-op) (find-component (find-
system system) component-name))
)

This code was found by the experiment. Can someone comment, if it is
correct?
.