diff --git a/code/format-time.lisp b/code/format-time.lisp index 7c86bfa5e5ac1e4fd2bd9509eea34985b011982e..d6e78aff6a08ea1a6fcfecaad52b5dfd6c89dd88 100644 --- a/code/format-time.lisp +++ b/code/format-time.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format-time.lisp,v 1.5 1994/10/31 04:11:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/format-time.lisp,v 1.6 2000/01/30 13:58:27 dtc Exp $") ;;; ;;; ********************************************************************** @@ -91,9 +91,9 @@ (let ((time-string "~2,'0D:~2,'0D") (date-string (case style - (:short "~D/~D/~2,'0D") ;; MM/DD/YY - ((:abbreviated :long) "~A ~D, ~D") ;; Month DD, YYYY - (:government "~2,'0D ~:@(~A~) ~D") ;; DD MON YY + (:short "~D/~D/~2,'0D") ;; MM/DD/YY + ((:abbreviated :long) "~A ~D, ~D") ;; Month DD, YYYY + (:government "~2,'0D ~:@(~A~) ~2,'0D") ;; DD MON YY (t (error "~A: Unrecognized :style keyword value." style)))) (time-args