Commit 1af0a3c3 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix bug introduced in 79c65603

parent 496f387b
......@@ -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-names context)))))
(defun installed-primary-system-names (&key context)
(with-clpm-session ()
......
......@@ -25,7 +25,7 @@
#:context-find-system-asd-pathname
#:context-fs-source
#:context-installed-primary-system-names
#:context-installed-systems
#:context-installed-system-names
#: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-names (context)
(let* ((context (get-context context))
(system-releases (context-system-releases context)))
(mappend #'cdr system-releases)))
......
......@@ -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-names 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<))
......
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