1 (define-module (lang elisp internals time)
2 #:use-module (ice-9 optargs)
3 #:export (format-time-string))
5 (define* (format-time-string format-string #:optional time universal)
6 (strftime format-string
7 ((if universal gmtime localtime)
10 (let ((time-cdr (cdr time)))