Commits

Stephen Compall committed 4126258

Fix format directive nonconformance in parent

  • Participants
  • Parent commits f1b5bce

Comments (0)

Files changed (1)

File src/views/types/presentations/date.lisp

   (let ((separator (date-printing-separator presentation)))
     (multiple-value-bind (day month year)
 	(utime->dmy value)
-      (format nil "~D~A~D~A~0,4D" day separator month separator year))))
+      (format nil "~D~A~D~A~0,'4D" day separator month separator year))))
 
 (defclass date-presentation (text-presentation date-printing-mixin)
   ()