Commit 0a6aa487 authored by Eric Timmons's avatar Eric Timmons
Browse files

Make more context functions more friendly

parent cb9277a9
......@@ -137,7 +137,8 @@ in place with the same name. Return the new requirement if it was modified."
(mapcar #'system-file-absolute-asd-pathname system-files)))
(defun context-to-asdf-source-registry.d-forms (context)
(let* ((system-file-pathnames (context-asd-pathnames context))
(let* ((context (get-context context))
(system-file-pathnames (context-asd-pathnames context))
(system-file-directories (remove-duplicates (mapcar #'uiop:pathname-directory-pathname system-file-pathnames)
:test #'uiop:pathname-equal)))
(mapcar (lambda (x) (list :directory x)) system-file-directories)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment