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

Fix bug introduced in 79c65603

parent 496f387b
Loading
Loading
Loading
Loading
+1 −1
Original line number Original line Diff line number Diff line
@@ -41,7 +41,7 @@
  (with-clpm-session ()
  (with-clpm-session ()
    (with-sources-using-installed-only ()
    (with-sources-using-installed-only ()
      (with-context (context)
      (with-context (context)
        (mapcar 'system-name (context-installed-systems context))))))
        (context-installed-system-names context)))))


(defun installed-primary-system-names (&key context)
(defun installed-primary-system-names (&key context)
  (with-clpm-session ()
  (with-clpm-session ()
+2 −2
Original line number Original line Diff line number Diff line
@@ -25,7 +25,7 @@
           #:context-find-system-asd-pathname
           #:context-find-system-asd-pathname
           #:context-fs-source
           #:context-fs-source
           #:context-installed-primary-system-names
           #:context-installed-primary-system-names
           #:context-installed-systems
           #:context-installed-system-names
           #:context-name
           #:context-name
           #:context-output-translations
           #:context-output-translations
           #:context-releases
           #:context-releases
@@ -238,7 +238,7 @@ in place with the same name. Return the new requirement if it was modified."
              system-releases)
              system-releases)
     :test #'equal)))
     :test #'equal)))


(defun context-installed-systems (context)
(defun context-installed-system-names (context)
  (let* ((context (get-context context))
  (let* ((context (get-context context))
         (system-releases (context-system-releases context)))
         (system-releases (context-system-releases context)))
    (mappend #'cdr system-releases)))
    (mappend #'cdr system-releases)))
+1 −1
Original line number Original line Diff line number Diff line
@@ -39,7 +39,7 @@ If WITH-CLIENT-P is non-NIL, the clpm-client system is available."
                                 :ignore-inherited ignore-inherited-source-registry
                                 :ignore-inherited ignore-inherited-source-registry
                                 :splice-inherited splice-inherited))
                                 :splice-inherited splice-inherited))
               (output-translations (context-output-translations context))
               (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)
               (installed-primary-system-names (remove-duplicates (mapcar #'asdf:primary-system-name installed-system-names)
                                                                  :test #'equal))
                                                                  :test #'equal))
               (visible-primary-system-names (sort (context-visible-primary-system-names context) #'string<))
               (visible-primary-system-names (sort (context-visible-primary-system-names context) #'string<))