Update from asdf:*central-registry* to asdf:initialize-source-registry

build_linux/build.lisp

@@ -9,14 +9,8 @@
 
 #+linux
 (progn
-  (labels ((all-subdirectories (path)
-             (let ((subdirs (uiop:subdirectories path)))
-               (append subdirs
-                       (mapcan #'all-subdirectories subdirs)))))
-    (setf asdf:*central-registry*
-          (list* #p"/build/"
-                 (all-subdirectories "ocicl"))))
-
+  ;; NOTE(grant): uiop:getcwd is provided by asdf
+  (asdf:initialize-source-registry `(:source-registry (:tree ,(uiop:getcwd)) :inherit-configuration))
   (asdf:load-system :lispostory))
 
 #+linux