# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1156548810 0
# Node ID 90bdf0a2ff4c2ae095a234bbd98c4602d25192b8
# Parent  dc615ff0529f0c36dbe274997ee1feca7ef14fa5
(Fcurrent_time, Fget_internal_run_time): Simplify; use list3.

diff -r dc615ff0529f -r 90bdf0a2ff4c src/editfns.c
--- a/src/editfns.c	Fri Aug 25 23:33:12 2006 +0000
+++ b/src/editfns.c	Fri Aug 25 23:33:30 2006 +0000
@@ -1435,14 +1435,11 @@
      ()
 {
   EMACS_TIME t;
-  Lisp_Object result[3];
 
   EMACS_GET_TIME (t);
-  XSETINT (result[0], (EMACS_SECS (t) >> 16) & 0xffff);
-  XSETINT (result[1], (EMACS_SECS (t) >> 0)  & 0xffff);
-  XSETINT (result[2], EMACS_USECS (t));
-
-  return Flist (3, result);
+  return list3 (make_number ((EMACS_SECS (t) >> 16) & 0xffff),
+		make_number ((EMACS_SECS (t) >> 0)  & 0xffff),
+		make_number (EMACS_USECS (t)));
 }
 
 DEFUN ("get-internal-run-time", Fget_internal_run_time, Sget_internal_run_time,
@@ -1460,7 +1457,6 @@
 {
 #ifdef HAVE_GETRUSAGE
   struct rusage usage;
-  Lisp_Object result[3];
   int secs, usecs;
 
   if (getrusage (RUSAGE_SELF, &usage) < 0)
@@ -1476,11 +1472,9 @@
       secs++;
     }
 
-  XSETINT (result[0], (secs >> 16) & 0xffff);
-  XSETINT (result[1], (secs >> 0)  & 0xffff);
-  XSETINT (result[2], usecs);
-
-  return Flist (3, result);
+  return list3 (make_number ((secs >> 16) & 0xffff),
+		make_number ((secs >> 0)  & 0xffff),
+		make_number (usecs));
 #else
   return Fcurrent_time ();
 #endif