@@ -58,7 +58,7 @@

       (if (not feeds)

           (no-feed url)

           (fetch-doc-from-url

-           (cdar 

+           (cdar

             (restart-case

                 (if (cdr feeds) (feed-ambiguous feeds) feeds)

               (take-first-feed nil

@@ -79,10 +79,10 @@

 (defun pull-feed (url &key detect type)

   (with-retry ("Retry fetching feed ~a" url)

-              (to-feed

-               (if detect

-                   (fetch-feed-from-url url)

-                   (fetch-doc-from-url url)) 

-               :type type)

+    (to-feed

+     (if detect

+         (fetch-feed-from-url url)

+         (fetch-doc-from-url url))

+     :type type)

     (skip-feed () (return)

                :report (lambda (s) (format s "Skip fetching feed ~a" url)))))

@@ -68,7 +68,6 @@

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