anchor.diff:  			(floor (+ sec (* offset (ecase location
   						  (:sec 1)
   						  (:minute 60)
  -						  (:hour 3600))))
  -			       86400)
  +						  (:hour #.(* 60 60)))))
  +			       #.(* 24 60 60))
   		      (direct-adjust :day days-offset
   				     usec new-sec day timezone))))))
  -
  -	   (normalize-month-year-pair (month year)
  -	     "Normalizes the month/year pair: in case month is < 1 or > 12
  -the month and year are corrected to handle the overflow."
  -
  -	     (multiple-value-bind (year-offset month-minus-one)
  -		 (floor (1- month) 12)
  -	       (values (1+ month-minus-one)
  -		       (+ year year-offset))))
  -
  -	   (days-in-month (month year)
  -	     "Returns the number of days in the given month of the specified year"
  -
  -	     (multiple-value-bind (month1 year1)
  -		 (normalize-month-year-pair month year)
  -	       (multiple-value-bind (month2 year2)
  -		   (normalize-month-year-pair (1+ month) year)
  -		 ;; month1-year1 pair represents the current month
  -		 ;; month2-year2 pair represents the sequential month
  -		 ;; now we get timestamps for the first days of these months
  -		 ;; and find out what the difference in days is
  -		 (let ((timestamp1 (encode-local-time 0 0 0 0 1 month1 year1))
  -		       (timestamp2 (encode-local-time 0 0 0 0 1 month2 year2)))
  -		   (- (day-of timestamp2) (day-of timestamp1))))))
   
   	   (safe-adjust (location offset time)
   	     (multiple-value-bind (usec ss mm hh day month year d-o-w d-s-t-p timezone)
  
positive.code:            #:local-time-adjust
             #:local-time-whole-year-difference
             #:local-time-adjust-days
  	   #:adjusted-local-time
             #:maximize-time-part
             #:minimize-time-part
             #:first-day-of-year
  
negative.code: 		    year)
  		 ;; Almost there. However, it is necessary to check for
  		 ;; overflows first
  		 (encode-local-time usec ss mm hh
  				    (fix-overflow-in-days day month-new year-new)
  				    month-new year-new
  				    :timezone timezone)))))
      
      (ecase location
        ((:usec :sec :minute :hour :day)
  