Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /index-page.lisp [62cdf2] .. [50a766] Maximize Restore

  Switch to side-by-side view

--- a/index-page.lisp
+++ b/index-page.lisp
@@ -20,7 +20,7 @@
                           :direction :input)
     (list
      (read-line stream)
-     (let ((date (split-at #\/ (read-line stream))))
+     (let ((date (split-at #\- (read-line stream))))
        (if (eql (length date) 3)
            (let ((month (parse-integer (second date))))
              (format nil "~A ~A, ~A" (elt *month-names* (1- month))