This is a follow-up to my previous post regarding asdf searching for a system in the current working directory.
I resolved this to my satisfaction with something like this:
(let ((asdf:*central-registry*
(push directory asdf:*central-registry*)))
(apply #'asdf:load-system system keys)))