anchor.diff:                   (floor usecs 1000000)
                  (local-time:make-timestamp :nsec (* usecs 1000)
                                             :sec secs
  -                                          :day (+ days +postgres-day-offset-to-local-time+)
  -                                          :timezone local-time:+utc-zone+)))))
  +                                          :day (+ days +postgres-day-offset-to-local-time+))))))
       (cl-postgres:set-sql-datetime-readers
        :table table
  -     :date
  -     (lambda (days)
  -       (local-time:make-timestamp
  -        :nsec 0 :sec 0 :day (+ days +postgres-day-offset-to-local-time+)
  -        :timezone local-time:+utc-zone+))
  +     :date (lambda (days)
  +             (local-time:make-timestamp
  +              :nsec 0 :sec 0
  +              :day (+ days +postgres-day-offset-to-local-time+)))
        :timestamp #'timestamp-reader
        :timestamp-with-timezone #'timestamp-reader
        :interval
  
positive.code: 
  (export 'set-local-time-cl-postgres-readers :local-time)
  
  ;; Postgresql days are measured from 01-01-2000, whereas local-time
  ;; uses 01-03-2000. We expect the database server to be in the UTC timezone.
  (defconstant +postgres-day-offset-to-local-time+ -60)
  
  (defun set-local-time-cl-postgres-readers (&optional (table cl-postgres:*sql-readtable*))
  
negative.code:            (local-time:make-timestamp
              :nsec (* usecs 1000)
              :sec secs
              :day 0)))))))
  
  (defmethod cl-postgres:to-sql-string ((arg local-time:timestamp))
    (local-time:format-rfc3339-timestring arg))
  