@@ -65,11 +65,14 @@

   (declare (optimize (debug 3)))

   (let ((tz-inited nil))

     (flet ((init-tz ()

-             (unless tz-inited

-               (handler-case (local-time:find-timezone-by-location-name "America/Los_Angeles")

-                 (error ()

-                   (local-time:reread-timezone-repository)

-                   (setf tz-inited t))))))

+             (handler-case (unless (or tz-inited

+                                       (local-time:find-timezone-by-location-name

+                                        "America/Los_Angeles"))

+                             (:printv "asdf")

+                             (local-time:reread-timezone-repository))

+               (error ()

+                 (local-time:reread-timezone-repository)

+                 (setf tz-inited t)))))

       (macrolet ((ensure-tz-inited (&body body)

                    `(progn (init-tz)

@@ -77,13 +80,13 @@

         (let* ((last-space (position #\space date-str :from-end t))

                (tz-name (check (all-alpha (subseq date-str (1+ last-space)))))

                (timestamp-raw (if tz-name

-                                (subseq date-str 0 last-space)

-                                date-str)))

+                                  (subseq date-str 0 last-space)

+                                  date-str)))

           (values (if tz-name

-                    (ensure-tz-inited

-                      (local-time:find-timezone-by-location-name

+                      (ensure-tz-inited

+                       (local-time:find-timezone-by-location-name

                         (string-upcase tz-name)))

-                    local-time:+utc-zone+)

+                      local-time:+utc-zone+)

                   timestamp-raw))))))

 (defun get-date (str)