Loading clpm/context-queries.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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 () Loading clpm/context.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -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 Loading Loading @@ -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))) Loading clpm/exec.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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<)) Loading Loading
clpm/context-queries.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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 () Loading
clpm/context.lisp +2 −2 Original line number Original line Diff line number Diff line Loading @@ -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 Loading Loading @@ -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))) Loading
clpm/exec.lisp +1 −1 Original line number Original line Diff line number Diff line Loading @@ -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<)) Loading