X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=datetime.lisp;h=f8aca20d74cd6b235c8fcec8b73d151dc783386b;hp=52d45b2a43b044e6919f77778fd6f9d4f7218296;hb=6ab952c17ac4beec2f239dda5e8cf062fc3824d2;hpb=6173eb9ecdf840a556a60092c2f458860709cfd1 diff --git a/datetime.lisp b/datetime.lisp index 52d45b2..f8aca20 100644 --- a/datetime.lisp +++ b/datetime.lisp @@ -89,7 +89,7 @@ (10 . "October") (11 . "November") (12 . "December"))) - + (defun monthname (stream arg colon-p at-p &optional width (mincol 0) (colinc 1) (minpad 0) (padchar #\Space)) "Print the name of the month (1=January) corresponding to ARG on STREAM. This is intended for embedding in a FORMAT directive: WIDTH governs the number of characters of text printed, MINCOL, COLINC, MINPAD, PADCHAR work as for ~A" (let ((monthstring (cdr (assoc arg *monthnames*))))