Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Fri Oct 26 16:42:43 2001 UTC | revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | (define-module (lang elisp internals time) | |
2 | #:use-module (ice-9 optargs) | |
3 | #:export (format-time-string)) | |
4 | ||
5 | (define* (format-time-string format-string #:optional time universal) | |
6 | (strftime format-string | |
7 | ((if universal gmtime localtime) | |
8 | (if time | |
9 | (+ (ash (car time) 16) | |
10 | (let ((time-cdr (cdr time))) | |
11 | (if (pair? time-cdr) | |
12 | (car time-cdr) | |
13 | time-cdr))) | |
14 | (current-time))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |