anchor.diff:         seconds))))
   
   (defun decode-local-time (local-time)
  -  "Returns the decoded time as multiple values: ms, ss, mm, hh, day, month, year, day-of-week, daylight-saving-time-p, timezone, and the customary timezone abbreviation."
  +  "Returns the decoded time as multiple values: usec, ss, mm, hh, day, month, year, day-of-week, daylight-saving-time-p, timezone, and the customary timezone abbreviation."
     (declare (type local-time local-time))
     (multiple-value-bind (hours minutes seconds)
         (local-time-decode-time local-time)
  
positive.code:         (incf day offset))
      (encode-local-time usec sec min hour day month year :timezone timezone :into into)))
  
  (defun local-time-whole-year-difference (time-a time-b)
    "Returns the number of whole years elapsed between time-a and time-b (hint: anniversaries)."
    (declare (type local-time time-b time-a))
  
negative.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
  