1. Stephen Compall
  2. weblocks-dev

Commits

Stephen Compall  committed 4126258

Fix format directive nonconformance in parent

  • Participants
  • Parent commits f1b5bce
  • Branches default

Comments (0)

Files changed (1)

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

View file
   (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)
   ()