I found a function someone wrote that updates the ASDF source-registry on ccl init.
```
(defun update-search-path ()
  (let* ((dirs (set-difference (uiop:directory* "~/common-lisp/*")
                               (uiop:directory* "~/common-lisp/.*")
                               :test #'uiop::pathname-equal)))
    (asdf:initialize-source-registry
      `(:source-registry
        ,@(loop for p in dirs
             collect
               (list :tree (namestring p)))
        :inherit-configuration))))

(update-search-path)
```