From ff7109fc54aeb72180d7455d5373af1f3b654dba Mon Sep 17 00:00:00 2001 From: Matt Spear Date: Mon, 28 Feb 2011 10:08:46 -0800 Subject: [PATCH] add stuff to time --- time.lisp | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/time.lisp b/time.lisp index 325d552..1d85768 100644 --- a/time.lisp +++ b/time.lisp @@ -39,6 +39,7 @@ (export '(*time-format-string-default* *time-modeline-string* + time-format echo-date time)) @@ -228,4 +229,7 @@ (defun time-24hr-time () (format-expand *time-format-string-alist* "%H:%M:%S")) +(defun time-format (str) + (format-expand *time-format-string-alist* str)) + ;;; End of file -- 1.7.3.5