Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
clpm
clpm
Commits
1af0a3c3
Commit
1af0a3c3
authored
May 30, 2020
by
Eric Timmons
Browse files
Fix bug introduced in
79c65603
parent
496f387b
Changes
3
Hide whitespace changes
Inline
Side-by-side
clpm/context-queries.lisp
View file @
1af0a3c3
...
...
@@ -41,7 +41,7 @@
(
with-clpm-session
()
(
with-sources-using-installed-only
()
(
with-context
(
context
)
(
mapcar
'system-name
(
context-installed-systems
context
)))))
)
(
context-installed-system
-name
s
context
)))))
(
defun
installed-primary-system-names
(
&key
context
)
(
with-clpm-session
()
...
...
clpm/context.lisp
View file @
1af0a3c3
...
...
@@ -25,7 +25,7 @@
#:context-find-system-asd-pathname
#:context-fs-source
#:context-installed-primary-system-names
#:context-installed-systems
#:context-installed-system
-name
s
#:context-name
#:context-output-translations
#:context-releases
...
...
@@ -238,7 +238,7 @@ in place with the same name. Return the new requirement if it was modified."
system-releases
)
:test
#'
equal
)))
(
defun
context-installed-systems
(
context
)
(
defun
context-installed-system
-name
s
(
context
)
(
let*
((
context
(
get-context
context
))
(
system-releases
(
context-system-releases
context
)))
(
mappend
#'
cdr
system-releases
)))
...
...
clpm/exec.lisp
View file @
1af0a3c3
...
...
@@ -39,7 +39,7 @@ If WITH-CLIENT-P is non-NIL, the clpm-client system is available."
:ignore-inherited
ignore-inherited-source-registry
:splice-inherited
splice-inherited
))
(
output-translations
(
context-output-translations
context
))
(
installed-system-names
(
sort
(
mapcar
#'
system-name
(
context-installed-systems
context
)
)
#'
string<
))
(
installed-system-names
(
sort
(
context-installed-system
-name
s
context
)
#'
string<
))
(
installed-primary-system-names
(
remove-duplicates
(
mapcar
#'
asdf:primary-system-name
installed-system-names
)
:test
#'
equal
))
(
visible-primary-system-names
(
sort
(
context-visible-primary-system-names
context
)
#'
string<
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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