Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
0a6aa487
Commit
0a6aa487
authored
May 10, 2020
by
Eric Timmons
Browse files
Make more context functions more friendly
parent
cb9277a9
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/clpm/context.lisp
View file @
0a6aa487
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment