From 3e86c390f8e89585e5a9884fd9cc14307fc58df4 Mon Sep 17 00:00:00 2001 From: Matt Spear Date: Sun, 6 Mar 2011 10:37:50 -0800 Subject: [PATCH] clean time --- time.lisp | 15 +++++++-------- 1 files changed, 7 insertions(+), 8 deletions(-) diff --git a/time.lisp b/time.lisp index 1d85768..b4faf48 100644 --- a/time.lisp +++ b/time.lisp @@ -106,8 +106,7 @@ (defcommand echo-date () () "Display the date and time." - (message "~a" (format-expand *time-format-string-alist* - *time-format-string-default*))) + (message "~a" (time-format *time-format-string-default*))) (defcommand-alias time echo-date) @@ -212,22 +211,22 @@ (encode-universal-time 0 0 0 1 1 1970 0)))) (defun time-date-and-time () - (format-expand *time-format-string-alist* "%a %h %d %H:%M:%S %Y")) + (time-format "%a %h %d %H:%M:%S %Y")) (defun time-date () - (format-expand *time-format-string-alist* "%m/%d/%y")) + (time-format "%m/%d/%y")) (defun time-date-full () - (format-expand *time-format-string-alist* "%Y-%m-%d")) + (time-format "%Y-%m-%d")) (defun time-12hr-time () - (format-expand *time-format-string-alist* "%I:%M:%S %P")) + (time-format "%I:%M:%S %P")) (defun time-24hr-and-minute () - (format-expand *time-format-string-alist* "%H:%M")) + (time-format "%H:%M")) (defun time-24hr-time () - (format-expand *time-format-string-alist* "%H:%M:%S")) + (time-format "%H:%M:%S")) (defun time-format (str) (format-expand *time-format-string-alist* str)) -- 1.7.3.5