asdf-registration.lisp (384 bytes)
1 (in-package #:asdf-registration) 2 (defun add-repo (path) 3 "Add a folder which contains ASDF systems. The subdirectories will be added to 4 the ASDF registry." 5 (mapc #'add-to-registry 6 (remove-if-not #'uiop:directory-exists-p 7 (uiop:subdirectories path)))) 8 9 (defun add-to-registry (dir) 10 (pushnew dir asdf:*central-registry* :test #'uiop:pathname-equal))