From e9db0df4025081443d0310ef6730271c416e14fb Mon Sep 17 00:00:00 2001 From: mmirate Date: Wed, 23 Jan 2013 17:22:21 -0500 Subject: [PATCH] mu-sexp-convert: Fix conversion of elisp times. Previously, the first element was used where the second should have been. In essence, whereas the algorithm is T[0]<<16 & T[1], the code was previously performing T[0]<<16 & T[0]. The timestamp produced was therefore inaccurate by up to about 18 hours. --- contrib/mu-sexp-convert | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/mu-sexp-convert b/contrib/mu-sexp-convert index 18aba6c0..b2835ac9 100755 --- a/contrib/mu-sexp-convert +++ b/contrib/mu-sexp-convert @@ -89,7 +89,7 @@ into a list of pairs (define (etime->time_t t) "Convert elisp time object T into a time_t value." - (logior (ash (car t) 16) (car t))) + (logior (ash (car t) 16) (car (cdr t)))) (define (sexp->xml) "Convert string INPUT to XML, return the XML (string)."