2 files changed, 15 insertions(+), 8 deletions(-)

M doc/guix.texi
M guix/scripts/package.scm

@@ 608,7 608,9 @@ suggest setting these variables to @code{@var{profile}/include} and
 
 @item --list-generations[=@var{pattern}]
 @itemx -l [@var{pattern}]
-Return a list of generations along with their creation dates.
+Return a list of generations along with their creation dates; for each
+generation, show the installed packages, with the most recently
+installed packages shown last.
 
 For each installed package, print the following items, separated by
 tabs: the name of a package, its version string, the part of the package


@@ 692,9 694,9 @@ version: 7.2alpha6
 
 @item --list-installed[=@var{regexp}]
 @itemx -I [@var{regexp}]
-List currently installed packages in the specified profile.  When
-@var{regexp} is specified, list only installed packages whose name
-matches @var{regexp}.
+List the currently installed packages in the specified profile, with the
+most recently installed packages shown last.  When @var{regexp} is
+specified, list only installed packages whose name matches @var{regexp}.
 
 For each installed package, print the following items, separated by
 tabs: the package name, its version string, the part of the package that

@@ 965,9 965,12 @@ more information.~%"))
                         ((name version output location _)
                          (format #t "  ~a\t~a\t~a\t~a~%"
                                  name version output location)))
-                       (manifest-packages
-                        (profile-manifest
-                         (format #f "~a-~a-link" profile number))))
+
+                       ;; Show most recently installed packages last.
+                       (reverse
+                        (manifest-packages
+                         (profile-manifest
+                          (format #f "~a-~a-link" profile number)))))
              (newline)))
 
          (cond ((not (file-exists? profile)) ; XXX: race condition


@@ 994,7 997,9 @@ more information.~%"))
                                  (regexp-exec regexp name))
                          (format #t "~a\t~a\t~a\t~a~%"
                                  name (or version "?") output path))))
-                     installed)
+
+                     ;; Show most recently installed packages last.
+                     (reverse installed))
            #t))
 
         (('list-available regexp)