X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=datetime.lisp;h=f8aca20d74cd6b235c8fcec8b73d151dc783386b;hp=52d45b2a43b044e6919f77778fd6f9d4f7218296;hb=78b62107690123d8d7a1a400e4a1d744408a05b1;hpb=26d4fb77a1630200f6101d7adc0b2914c825090a 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*))))