guile18/lang/elisp/primitives/time.scm

   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)))