anchor.diff:    "Print the TIMEZONE object in a reader-rejected manner."
     (format stream "#<TIMEZONE: ~:[UNLOADED~;~{~a~^ ~}~]>"
             (timezone-loaded object)
  -          (mapcar #'third (timezone-subzones object))))+          (mapcar #'third (timezone-subzones object))))
  
positive.code:                        position)))
          (incf day offset))
      (encode-local-time usec sec min hour day month year :timezone timezone :into into)))
  
  (defun adjusted-local-time (location offset time)
    "Returns a time adjusted by the specified offset. Takes care about different kinds of overflows."
  
negative.code:            #:local-time-adjust
             #:local-time-whole-year-difference
             #:local-time-adjust-days
             #:days-in-month
             #:modified-local-time
             #:adjusted-local-time
             #:maximize-time-part
             #:minimize-time-part
             #:first-day-of-year
  