Paste number 79180: gimme-time

(defun gimme-time ()
  (apply #'format nil 
         "Time: ~2@*~D:~1@*~D:~0@*~D ~
 Date:~6@* ~
 ~[Monday~;Tuesday~;Wensday~;Thursday~;Friday~;Saturday~;Sunday~]~
 ~3@* ~D/~D-~D" 
         (multiple-value-list (decode-universal-time (get-universal-time)))))
Paste number 79180:	gimme-time
Pasted by:	younder
When:	1 year, 4 months ago
Share:	Tweet this! \| http://paste.lisp.org/+1P3G
Channel:	None
Paste contents:	Raw Source \| XML \| Display As