(defun register-asdf-systems (&key (verbose nil))
"Registers packages in asdf-registry directory with the asdf central registry"
(dolist (dir-candidate (directory "/path/to/site-systems/*/"))
(let ((asd-candidate (merge-pathnames "*.asd" dir-candidate)))
(when (directory asd-candidate)
(format t "Registering ~A ...~%" dir-candidate))
(pushnew dir-candidate asdf:*central-registry* :test #'equal)))))
Users browsing this forum: Majestic-12 [Bot] and 4 guests