Parent Directory | Revision Log | Patch
revision 1.1 by ossau, Fri Oct 26 16:42:44 2001 UTC | revision 1.2 by ossau, Tue Jan 22 23:46:01 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | (define-module (lang elisp primitives time) | |
2 | #:use-module (lang elisp internals time) | |
3 | #:use-module (lang elisp internals fset) | |
4 | #:use-module (ice-9 optargs)) | |
5 | ||
6 | (fset 'current-time | |
7 | (lambda () | |
8 | (let ((now (current-time))) | |
9 | (list (ash now -16) | |
10 | (logand now (- (ash 1 16) 1)) | |
11 | 0)))) | |
12 | ||
13 | (fset 'format-time-string format-time-string) | |
14 | ||
15 | (fset 'current-time-string | |
16 | (lambda* (#:optional specified-time) | |
17 | (format-time-string "%a %b %e %T %Y" specified-time))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |