anchor.diff:  
   
   (defpackage local-time
  -    (:use cl)
  +	(:use cl)
     (:export local-time
   		   make-local-time
  -		   epoch-days-of
  -		   epoch-secs-of
  -		   epoch-usec-of
  +		   day-of
  +		   sec-of
  +		   usec-of
   		   timezone-of
   		   local-time<
   		   local-time<=
  
positive.code: 		 (int-year (if (< month 3) (- year 2001) (- year 2000)))
  		 (zone (realize-timezone (or timezone *default-timezone*)))
  		 (result (make-local-time
  				  :epoch-usec us
  				  :epoch-sec (+ (* hh 3600) (* mm 60) ss)
  				  :epoch-day (+ (floor (* int-year 1461) 4)
                                  (month-days int-month)
                                  (1- day))
                    :timezone zone)))
      result
      (local-time-adjust result zone result)))
  
  (defun local-time (&key (universal nil) (internal nil) (unix nil) (usec 0) (timezone nil))
    "Produce a LOCAL-TIME instance from the provided numeric time representation."
    (declare (ignorable internal))
    (cond
      (universal
       (multiple-value-bind (sec minute hour date month year)
           (decode-universal-time universal)
         (encode-local-time usec sec minute hour date month year
                            (realize-timezone (or timezone
                                                  *default-timezone*)))))
      (internal
       ;; FIXME: How to portably convert between internal time?
       (error "Conversion of internal time not implemented"))
      (unix
       (let* ((days (floor unix 86400))
              (secs (- unix (* days 86400))))
         (make-local-time :day (- days 11017)
                          :sec secs
                          :usec usec
                          :timezone (realize-timezone
                                     (or timezone *default-timezone*)))))))
  
  (defun now ()
    (local-time :universal (get-universal-time)))
  
negative.code: (defmethod print-object ((object local-time) stream)
    "Print the LOCAL-TIME object using the standard reader notation"
    (when *print-escape*
  	(princ "@" stream))
    (format-timestring stream object nil nil))
  
  (defmethod print-object ((object timezone) stream)
    "Print the TIMEZONE object in a reader-rejected manner."
    (format stream "#<TIMEZONE: ~:[UNLOADED~;~{~a~^ ~}~]>"
  		  (timezone-loaded object)
  		  (mapcar #'third (timezone-subzones object))))