anchor.diff:  
   (defun local-time- (time-a time-b)
     "Returns the difference between TIME-A and TIME-B in seconds"
  -  (multiple-value-bind (day-a sec-a)
  -      (local-time-adjust time-a (timezone-of time-b))
  +  (setf time-a (adjust-local-time time-a (set :timezone (timezone-of time-b))))
  +  (multiple-value-bind (sec-a day-a)
  +      (adjust-to-timezone time-a (timezone-of time-b))
       (let ((nsec (- (nsec-of time-a) (nsec-of time-b)))
             (second (- sec-a (sec-of time-b)))
             (day (- day-a (day-of time-b))))
  
positive.code:             (timestamp2 (encode-local-time 0 0 0 0 1 month2 year2)))
          (- (day-of timestamp2) (day-of timestamp1))))))
  
  (defun fix-overflow-in-days (day month year)
    "In case the day number is higher than the maximal possible for the given month/year pair, returns the last day of the month."
    (let ((max-day (days-in-month month year)))
  
negative.code: 
  (in-package :local-time)
  
  (declaim (inline now today encode-duration))
  
  (defparameter *project-home-directory*
    (make-pathname :directory (pathname-directory
  