Loading client/bundle.lisp +2 −4 Original line number Diff line number Diff line Loading @@ -12,7 +12,5 @@ CLPMFILE) to the new clpmfile." (with-clpm-proc (proc) (clpm-proc-print proc `(with-bundle-default-pathname-defaults (,clpmfile) (with-bundle-local-config (,clpmfile) (bundle-init :clpmfile ,clpmfile :asds ',asds))))) clpmfile) `(bundle-init :clpmfile ,clpmfile :asds ',asds)) (clpm-proc-read proc))) client/context.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -137,7 +137,8 @@ directories containing the files." (clpm-proc-print proc `(output-translations :context ,context)) (clpm-proc-read proc))) (defun context-source-registry (&key (context (default-context)) ignore-inherited) (defun context-source-registry (&key (context (default-context)) (ignore-inherited (context-bundle-p context))) "Return a source-registry form for the CONTEXT." (with-clpm-proc (proc) (clpm-proc-print proc `(source-registry :context ,context :ignore-inherited-source-registry ,ignore-inherited)) Loading client/diff.lisp +29 −25 Original line number Diff line number Diff line Loading @@ -51,31 +51,35 @@ "Returns a list of 5 integers detailing the column widths needed to print a diff. The first column is the project name, then old version, new version, old source, and finally new source." (flet ((printed-length (x) (if (stringp x) (length x) (length (format nil "~A" x))))) (list (max (length "Project") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-project-name release-diff))) (printed-length (release-diff-project-name release-diff))) :initial-value 0)) (max (length "Old Version") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-old-version release-diff))) (printed-length (release-diff-old-version release-diff))) :initial-value 0)) (max (length "New Version") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-new-version release-diff))) (printed-length (release-diff-new-version release-diff))) :initial-value 0)) (max (length "Old Source") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-old-source release-diff))) (printed-length (release-diff-old-source release-diff))) :initial-value 0)) (max (length "New Source") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-new-source release-diff))) :initial-value 0)))) (printed-length (release-diff-new-source release-diff))) :initial-value 0))))) (defun print-context-diff-to-stream (diff stream) "Print a human readable description of DIFF to STREAM." Loading client/install.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -49,7 +49,7 @@ source registry is updated with the results." :version ,version :ref ,ref :source ,source)) (list (source-registry :context ,context) (list (source-registry :context ,context :ignore-inherited-source-registry ,(context-bundle-p context)) (installed-primary-system-names :context ,context) (visible-primary-system-names :context ,context) (editable-primary-system-names :context ,context)))) Loading client/update.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -34,7 +34,7 @@ source registry is updated with the results." :update-systems ',(ensure-list systems) :context ,context :validate ,(make-diff-validator-fun))) (list (source-registry :context ,context) (list (source-registry :context ,context :ignore-inherited-source-registry ,(context-bundle-p context)) (installed-primary-system-names :context ,context) (visible-primary-system-names :context ,context) (editable-primary-system-names :context ,context)))) Loading Loading
client/bundle.lisp +2 −4 Original line number Diff line number Diff line Loading @@ -12,7 +12,5 @@ CLPMFILE) to the new clpmfile." (with-clpm-proc (proc) (clpm-proc-print proc `(with-bundle-default-pathname-defaults (,clpmfile) (with-bundle-local-config (,clpmfile) (bundle-init :clpmfile ,clpmfile :asds ',asds))))) clpmfile) `(bundle-init :clpmfile ,clpmfile :asds ',asds)) (clpm-proc-read proc)))
client/context.lisp +2 −1 Original line number Diff line number Diff line Loading @@ -137,7 +137,8 @@ directories containing the files." (clpm-proc-print proc `(output-translations :context ,context)) (clpm-proc-read proc))) (defun context-source-registry (&key (context (default-context)) ignore-inherited) (defun context-source-registry (&key (context (default-context)) (ignore-inherited (context-bundle-p context))) "Return a source-registry form for the CONTEXT." (with-clpm-proc (proc) (clpm-proc-print proc `(source-registry :context ,context :ignore-inherited-source-registry ,ignore-inherited)) Loading
client/diff.lisp +29 −25 Original line number Diff line number Diff line Loading @@ -51,31 +51,35 @@ "Returns a list of 5 integers detailing the column widths needed to print a diff. The first column is the project name, then old version, new version, old source, and finally new source." (flet ((printed-length (x) (if (stringp x) (length x) (length (format nil "~A" x))))) (list (max (length "Project") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-project-name release-diff))) (printed-length (release-diff-project-name release-diff))) :initial-value 0)) (max (length "Old Version") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-old-version release-diff))) (printed-length (release-diff-old-version release-diff))) :initial-value 0)) (max (length "New Version") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-new-version release-diff))) (printed-length (release-diff-new-version release-diff))) :initial-value 0)) (max (length "Old Source") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-old-source release-diff))) (printed-length (release-diff-old-source release-diff))) :initial-value 0)) (max (length "New Source") (reduce #'max (context-diff-release-diffs diff) :key (lambda (release-diff) (length (release-diff-new-source release-diff))) :initial-value 0)))) (printed-length (release-diff-new-source release-diff))) :initial-value 0))))) (defun print-context-diff-to-stream (diff stream) "Print a human readable description of DIFF to STREAM." Loading
client/install.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -49,7 +49,7 @@ source registry is updated with the results." :version ,version :ref ,ref :source ,source)) (list (source-registry :context ,context) (list (source-registry :context ,context :ignore-inherited-source-registry ,(context-bundle-p context)) (installed-primary-system-names :context ,context) (visible-primary-system-names :context ,context) (editable-primary-system-names :context ,context)))) Loading
client/update.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -34,7 +34,7 @@ source registry is updated with the results." :update-systems ',(ensure-list systems) :context ,context :validate ,(make-diff-validator-fun))) (list (source-registry :context ,context) (list (source-registry :context ,context :ignore-inherited-source-registry ,(context-bundle-p context)) (installed-primary-system-names :context ,context) (visible-primary-system-names :context ,context) (editable-primary-system-names :context ,context)))) Loading