# Pastebin GW1TUvlK (loop with system-index.txt = (open "system-index.txt") for /some/system.asd = (read-line system-index.txt nil) do (asdf:load-system (pathname-name /some/system.asd)))