anchor.diff:  (defun string-from-unsigned-vector (vector offset)
     "Returns a string created from the vector of unsigned bytes VECTOR starting at OFFSET which is terminated by a 0."
     (let ((null-pos (or (position 0 vector :start offset) (length vector))))
  -	(with-output-to-string (str)
  +    (with-output-to-string (str)
                              (loop for idx from offset upto (1- null-pos)
                                    do (princ (code-char (aref vector idx)) str)))))
   
  
positive.code:   "Returns a new LOCAL-TIME containing the difference between TIME-A and TIME-B"
    (multiple-value-bind (day-a sec-a)
  	  (local-time-adjust time-a (timezone-of time-b))
  	(let ((usec (- (usec-of time-a) (usec-of time-b)))
  		  (seconds (- sec-a (sec-of time-b)))
  		  (days (- day-a (day-of time-b))))
  	  (when (minusp usec)
  		(decf seconds)
  		(incf usec 1000000))
  	  (when (minusp seconds)
  		(decf days)
  		(incf seconds 86400))
  	  (make-localtime :usec usec
  					  :sec seconds
  					  :day days))))
  
  (defun local-time-sum (time-a time-b)
    "Returns a new LOCAL-TIME containing the sum of TIME-A and TIME-B"
    (multiple-value-bind (day-a sec-a)
  	  (local-time-adjust time-a (timezone-of time-b))
  	(let ((usec (+ (epoch-usec-of time-a) (epoch-usec-of time-b)))
  		  (sec (+ sec-a (epoch-sec-of time-b)))
  		  (day (+ day-a (epoch-day-of time-b))))
  	  (when (> usec 1000000)
  		(decf usec 1000000)
  		(incf sec))
  	  (when (> sec 86400)
  		(decf sec 86400)
  		(incf day))
  	  (make-local-time :epoch-usec usec
  					   :epoch-sec sec
  					   :epoch-day day
  					   :timezone (timezone-of time-b)))))
  
  (defun local-time-compare (time-a time-b)
    "Returns the symbols <, >, or =, describing the relationship between TIME-A and TIME-b."
    (multiple-value-bind (day-a sec-a)
  	  (local-time-adjust time-a (timezone-of time-b))
  	(cond
  	  ((< day-a (epoch-day-of time-b)) '<)
  	  ((> day-a (epoch-day-of time-b)) '>)
  	  ((< sec-a (epoch-sec-of time-b)) '<)
  	  ((> sec-a (epoch-sec-of time-b)) '>)
  	  ((< (epoch-usec-of time-a) (epoch-usec-of time-b)) '<)
  	  ((> (epoch-usec-of time-a) (epoch-usec-of time-b)) '>)
  	  (t                                                     '=))))
  
  (defun month-days (month)
    (aref +month-days+ month))
  
negative.code: 
  (defparameter +month-days+
    (make-array 12 :initial-contents
                (loop for length across #(0 31 30 31 30 31 31 30 31 30 31 31)
                      as days = 0 then (+ days length)
                      collect days)))
  
  