home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / primitives / time.scm < prev   
Encoding:
Text File  |  2008-12-17  |  466 b   |  18 lines
  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)))
  18.